SAP 领料BAPI BAPI_GOODSMVT_CREATE 提示 短缺未限制使用的SL
短缺未限制使用的SL 一般是 BAPI_GOODSMVT_CREATE的参数
GOODSMVT_ITEM 里面含有待移动数量为0的行项目
但是此次比较特殊
跟了很久 都是这样的问题,
解决方案:BAPI BAPI_GOODSMVT_CREATE的 GOODSMVT_ITEM的RES_TYPE 记录类型赋值
FUNCTION ZBOM_MM_CJLL.
*"----------------------------------------------------------------------
*"*"局部接口:
*" IMPORTING
*" VALUE(VBELN) TYPE AUFNR
*" VALUE(LGORT) TYPE LGORT_D
*" VALUE(WERKS) TYPE DWERK
*" EXPORTING
*" VALUE(MATERIALDOCUMENT) TYPE BAPI2017_GM_HEAD_RET-MAT_DOC
*" VALUE(STATUS) TYPE BAPI_MTYPE
*" VALUE(MESSAGE) TYPE BAPI_MSG
*" VALUE(MARK) TYPE BAPI_MTYPE
*" TABLES
*" G_ZTVRESB STRUCTURE ZTVRESB OPTIONAL
*" L_ZSCJKRETURN STRUCTURE ZSCJKRETURN OPTIONAL
*" ITAB STRUCTURE BAPI2017_GM_ITEM_CREATE OPTIONAL
*"----------------------------------------------------------------------DATA:gmhead LIKE TABLE OF bapi2017_gm_head_01 WITH HEADER LINE,gmcode LIKE TABLE OF bapi2017_gm_code WITH HEADER LINE,lcnt TYPE i,lGOODSMVT_SERV_PART_DATA LIKE TABLE OF /SPE/BAPI2017_SERVICEPART_DATA WITH HEADER LINE,mthead LIKE BAPI2017_GM_HEAD_RET,t_num TYPE C LENGTH 4,mat_doc LIKE bapi2017_gm_head_ret-mat_doc,gmatke LIKE TABLE OF ZTVRESB WITH HEADER LINE,GLABST LIKE TABLE OF ZTVRESB WITH HEADER LINE,L_ZTVRESB LIKE TABLE OF ZTVRESB WITH HEADER LINE,L_MATNR TYPE MATNR,L_LGORT TYPE LGORT_D,matnr1 TYPE matnr,L_ENMNG TYPE ENMNG,L_BDMNG TYPE BDMNG,time TYPE CO_GLTRP,L_GSTRP TYPE PM_ORDGSTRP,temp1 TYPE C LENGTH 1,temp2 TYPE C LENGTH 5,NUM TYPE N LENGTH 2,timetemp TYPE C LENGTH 18,L_MBLNR TYPE MBLNR,temp TYPE TABLE OF ZTVCJLLMESSAGE WITH HEADER LINE,errmsg LIKE TABLE OF BAPIRET2 WITH HEADER LINE."查询订单开始日期SELECT GSTRP INTO L_GSTRP FROM AFKO WHERE AUFNR = vbeln.ENDSELECT.*----------移动代码赋值----------*gmcode-gm_code = '03'."事件APPEND gmcode.
*----------抬头数据赋值----------*gmhead-pstng_date = sy-datum."凭证中的过账日期gmhead-doc_date = sy-datum."凭证中的凭证日期gmhead-HEADER_TXT = L_GSTRP."凭证抬头文本APPEND gmhead.*----------创建物料凭证项目----------*CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput = VBELNIMPORTINGoutput = VBELN."查询预留号SELECT RSNUM FROM RKPF INTO CORRESPONDING FIELDS OF gmatke WHERE AUFNR = vbeln.APPEND gmatke.ENDSELECT."查询库存数量等信息select RESB~MATNR RESB~BDMNG RESB~ENMNG RESB~RSPOS RESB~RSNUM MARD~LABST RESB~KZEAR resb~werks RESB~LGORT RESB~KZAUS resb~RSART
INTO (G_ZTVRESB-matnr,G_ZTVRESB-bdmng,G_ZTVRESB-enmng,G_ZTVRESB-rspos,G_ZTVRESB-rsnum,G_ZTVRESB-labst,G_ZTVRESB-kzear,G_ZTVRESB-werks,G_ZTVRESB-lgort,G_ZTVRESB-kzaus,G_ZTVRESB-RSART)FROM RESB JOIN MARD ON RESB~MATNR = MARD~MATNR and RESB~LGORT = MARD~LGORT and resb~werks = mard~werksWHERE RSNUM = gmatke-rsnum andXWAOK = 'X' and DUMPS <> 'X' and BDMNG > '0.000' and " dumps虚件不领料 终止的不要KZEAR <> 'X' AND XLOEK <> 'X'.APPEND G_ZTVRESB.ENDSELECT."查询订单的所有要领料的物料号select MATNR lgort INTO CORRESPONDING FIELDS OF L_ZTVRESB FROM RESBWHERE RSNUM = gmatke-rsnum and XWAOK = 'X' and DUMPS <> 'X' and BDMNG > '0.000' and " dumps虚件不领料 终止的不要KZEAR <> 'X' AND XLOEK <> 'X'.APPEND L_ZTVRESB.ENDSELECT."判断物料是否在指定库位LOOP AT L_ZTVRESB.SELECT MATNR LGORT INTO (L_MATNR,L_LGORT) FROM MARD WHERE MARD~MATNR = L_ZTVRESB-MATNR AND LGORT = L_ZTVRESB-LGORT.ENDSELECT.IF L_MATNR IS INITIAL.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'EXPORTINGinput = VBELNIMPORTINGoutput = VBELN.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'EXPORTINGinput = L_ZTVRESB-MATNRIMPORTINGoutput = L_ZTVRESB-MATNR.L_ZSCJKRETURN-AUFNR = VBELN.L_ZSCJKRETURN-MATNR = L_ZTVRESB-MATNR.L_ZSCJKRETURN-STATUS = 'E'.L_ZSCJKRETURN-MESSAGE = '物料不在库位' && L_ZTVRESB-LGORT && ' 中'.APPEND L_ZSCJKRETURN.CLEAR L_ZSCJKRETURN.ENDIF.ENDLOOP.*-------------执行程序-------------*LOOP AT G_ZTVRESB.LOOP AT itab.IF itab-material = G_ZTVRESB-MATNR.IF temp2 IS INITIAL.temp2 = temp2 + itab-entry_qnt + G_ZTVRESB-BDMNG.ELSE.temp2 = temp2 + itab-entry_qnt.ENDIF.ENDIF.ENDLOOP.IF G_ZTVRESB-LABST >= G_ZTVRESB-BDMNG AND G_ZTVRESB-ENMNG <= G_ZTVRESB-BDMNG AND G_ZTVRESB-LABST >= temp2 and G_ZTVRESB-BDMNG > 0.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput = VBELNIMPORTINGoutput = VBELN.DESCRIBE TABLE itab LINES lcnt.lcnt = lcnt + 1.itab-LINE_ID = lcnt.itab-material = G_ZTVRESB-MATNR."物料编号itab-plant = WERKS."工厂itab-stge_loc = G_ZTVRESB-LGORT."库存地点itab-move_type = '261'."MOVE_TYPE'."移动类型(库存管理)itab-entry_qnt = G_ZTVRESB-BDMNG."以输入单位计的数量itab-ORDERID = VBELN.itab-RES_TYPE = G_ZTVRESB-RSART. =====================一定要加上 itab-RESERV_NO = G_ZTVRESB-rsnum."预留编号itab-RES_ITEM = G_ZTVRESB-rspos."预留项目编号append itab.CLEAR itab.CLEAR temp2.ELSEIF G_ZTVRESB-LABST < G_ZTVRESB-BDMNG.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'EXPORTINGinput = VBELNIMPORTINGoutput = VBELN.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'EXPORTINGinput = G_ZTVRESB-MATNRIMPORTINGoutput = G_ZTVRESB-MATNR.L_ZSCJKRETURN-AUFNR = VBELN.L_ZSCJKRETURN-MATNR = G_ZTVRESB-MATNR.L_ZSCJKRETURN-STATUS = 'E'.L_ZSCJKRETURN-MESSAGE = '库存' && L_ZTVRESB-LGORT &&'数量' && G_ZTVRESB-LABST && '小于需求量' && G_ZTVRESB-BDMNG .APPEND L_ZSCJKRETURN.CLEAR L_ZSCJKRETURN.ENDIF.ENDLOOP.IF NOT itab[] IS INITIAL.CALL FUNCTION 'BAPI_GOODSMVT_CREATE'EXPORTINGGOODSMVT_HEADER = gmheadGOODSMVT_CODE = gmcodeIMPORTINGMATERIALDOCUMENT = MATERIALDOCUMENTTABLESGOODSMVT_SERV_PART_DATA = LGOODSMVT_SERV_PART_DATA[]GOODSMVT_ITEM = itab[]RETURN = errmsg.IF NOT MATERIALDOCUMENT IS INITIAL.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = 'X'.commit WORK AND WAIT .ELSE.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ENDIF.ENDIF.SELECT PLNBEZ INTO matnr1 FROM AFKO WHERE AUFNR = vbeln.ENDSELECT.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'EXPORTINGinput = matnr1IMPORTINGoutput = matnr1.LOOP AT errmsg.L_ZSCJKRETURN-AUFNR = VBELN.L_ZSCJKRETURN-MATNR = matnr1.L_ZSCJKRETURN-STATUS = errmsg-type.L_ZSCJKRETURN-MESSAGE = 'OSSNO.' && errmsg-ID && errmsg-NUMBER && ',MSG:' && errmsg-MESSAGE.APPEND L_ZSCJKRETURN.CLEAR L_ZSCJKRETURN.ENDLOOP.* -----返回信息存入表中LOOP AT L_ZSCJKRETURN.GET TIME.t_num = t_num + 1.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput = t_numIMPORTINGoutput = t_num.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'EXPORTINGinput = L_ZSCJKRETURN-AUFNRIMPORTINGoutput = L_ZSCJKRETURN-AUFNR.CONCATENATE sy-UZEIT L_ZSCJKRETURN-AUFNR t_num INTO temp-CREATETIME.temp-AUFNR = L_ZSCJKRETURN-AUFNR.temp-MATNR = L_ZSCJKRETURN-MATNR.temp-MESSAGE = L_ZSCJKRETURN-MESSAGE.temp-time = sy-DATUM.APPEND temp.NUM = STRLEN( L_ZSCJKRETURN-MESSAGE ) - 2."字符长度
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
* EXPORTING
* input = NUM
* IMPORTING
* output = NUM.L_ZSCJKRETURN-MESSAGE = L_ZSCJKRETURN-MESSAGE+NUM(2).IF L_ZSCJKRETURN-MESSAGE = '锁定'.MARK = 1.ENDIF.time = sy-DATUM - 5.delete FROM ZTVCJLLMESSAGE WHERE ZTVCJLLMESSAGE~time = time.COMMIT WORK.ENDLOOP.INSERT ZTVCJLLMESSAGE from table temp."暂时不用日志COMMIT WORK.ENDFUNCTION.
SAP 领料BAPI BAPI_GOODSMVT_CREATE 提示 短缺未限制使用的SL相关推荐
- SAP货物移动BAPI BAPI_GOODSMVT_CREATE(WMS TO SAP)
移动代码 01 -- MB01 02 -- MB31 03 -- MB1A 04 -- MB1B 05 -- MB1C 06 -- MB11 07 -- MB04 一.收货(101) 说明:采购订单. ...
- U8 领料申请单提交提示未能加载文件或程序集“UFIDA.U8.HB.WorkFlow.PlugIns”......
原因:安装U8时有些dll文件没有安上. 解决办法:在U8安装根目录 . C:\U8SOFT\Workflow\PlugIn .C:\Windows\System32 .C:\Windows\SysW ...
- SAP BAPI BAPI_GOODSMVT_CREATE Goods movement
这个BAPI一直还活着,不知道为什么,可能SAP没工夫升级吧... 今天主要是GM_CODE的问题,对应如下,同时下面转一个同学的文章... GM_CODE Tcode 描述 MovementType ...
- 利用BAPI(BAPI_GOODSMVT_CREATE)投料消耗(261)销售订单E库存
BAPI_GOODSMVT_CREATE进行261投料的时候需注意的事项: 1.在项目中,利用BAPI(BAPI_GOODSMVT_CREATE)投料消耗(261)销售订单E库存,ITEM表中的销售订 ...
- SAP 411移库demo BAPI BAPI_GOODSMVT_CREATE
SAP 411移库demo BAPI BAPI_GOODSMVT_CREATE REPORT zmm026. TABLES:mska. **全局定义 TYPES:BEGIN OF tp_alv, ma ...
- 未上线PP模块的生产领料处理
**业务场景:**有时候会遇到公司产品主要是委外加工为主,但是有1至2道工序可能是由公司内部自行生产,比如简单的组装或包装等,因为基本不涉及到生产,所以一般都不会上PP模块,但是厂内的那道工序还是需要 ...
- PP 关于工单领料的总结
SAP PP生产计划模块是一个集成模块,而SAP PP中关于工单领料以下是具体的总结: 工单入库Tcode:MIGO,在入库前应检查工单领料是否已完成: 1.查看领料情况:Tcode: CO03,元 ...
- u8文件服务器错误,u8提示文件服务器未配置
u8提示文件服务器未配置 内容精选 换一换 云堡垒机配置了FTP/SFTP远程备份,报请检查服务器密码或网络连接情况错误,不能启动远程备份.选择备份具体某一天日志,提示备份正在执行,但远程服务器未接收 ...
- MIGO BAPI BAPI_GOODSMVT_CREATE 使用汇总
GOODSMVT_CODE取值含义 01 MB01 02 MB31 03 MB1A "发 04 MB1B "转储 05 MB1C "其它收货 06 MB1107 MB04 ...
最新文章
- 学python买什么书好-python官方推荐30本面向初学者的书籍!你看过几本?
- C语言标识符的链接属性
- centos 6.3 x86_64安装32位JDK的问题
- python 注释一段话_干货!Python入门基础知识点总结
- mysql6.10,MySQL经典50题-第6-10题
- IDEA 配置weblogic home时,weblogic version无法选择
- Log4j2使用总结
- pytorch学习笔记(3):常用网络层介绍
- java二分查找算法字符串数组_Java 算法——二分查找数组集合关键元素
- python3.6.5安装步骤-Centos7 安装Python3.6.5
- 模因(meme)收集
- 如何批量删除Excel工作簿中vba代码
- 鸿蒙不支持PDF,华为鸿蒙 HarmonyOS IoT 应用设计文档(1).pdf
- 不用 VIP 也能高速下载!迅雷 11 新版抢先体验 2T迅雷离线云盘
- 白话Elasticsearch59-数据建模实战_ Nested Aggregation/ Reverse nested Aggregation对嵌套的博客评论数据进行聚合分析
- 计算机无法检测更新失败怎么办,Windows更新错误解决方案
- 免费合并多个PDF文件
- BINKS 502375润滑脂
- 如何抛弃鼠标全键盘操作xcode
- Megacli常用命令汇总
热门文章
- 购买的随身WiFi扣卡日记-拆掉内置的esim流量卡
- 【UE·蓝图底层篇】一文搞懂NativeClass、GeneratedClass、BlueprintClass、ParentClass
- 美团外卖红包个人CPS H5推广链接和小程序码,小程序跳转路径的获取方法
- 计算机开不了机反复重启,电脑一直重启就是开不了机怎么样解决
- Sql语句为什么大写
- 股票python量化交易002-常见量化指标(基本面)
- android 怎么看架构,怎么查看手机设备架构
- hxxp://www.hao923.com.cn/劫持浏览器
- Unreal4 使用spline , splinemesh组件构建赛道小例子
- SX1278 FSK 调试记录