SAPMI01、MI04、MI07、MI10批量盘点凭证创建+盘点数量+差异过账

 本人诚心接ABAP远程开发任务&＃xff0c;价格公道&＃xff0c;有需要的联系我&＃xff0c;欢迎个人&＃xff0c;甲方爸爸&＃xff0c;乙方私信联系。

这次的用户是一家启用了序列号管理的客户。

客户比较懒。所以在盘点的时候&＃xff0c;只用MI10去一步做完盘点。

查阅资料发现&＃xff0c;MI10没有标准的bapi 去调用&＃xff0c;

但是MI10其实就是MI01&＃xff08;创建盘点凭证&＃xff09;&＃43;MI04&＃xff08;盘点数量&＃xff09;&＃43;MI07&＃xff08;差异过账&＃xff09;的一个集合事务代码。

那么我们的批导程序就可以分步骤调用三个bapi

分别是&＃xff1a;MI01-->BAPI_MATPHYSINV_CREATE

              MI04-->BAPI_MATPHYSINV_COUNT

              MI07-->BAPI_MATPHYSINV_POSTDIFF

其中遇到一个问题就是客户是车企&＃xff0c;启用的序列号管理&＃xff0c;所以 MI04的时候输入完数量之后&＃xff0c;要根据数量&＃xff0c;输入相应数量的不同的序列号

下面简单列一下代码。

"MI01 对应参数DATA:LS_HEAD TYPE BAPI_PHYSINV_CREATE_HEAD.DATA:LT_ITEMS TYPE STANDARD TABLE OF BAPI_PHYSINV_CREATE_ITEMS.DATA:LS_ITEMS TYPE BAPI_PHYSINV_CREATE_ITEMS.DATA:LT_RETURN TYPE STANDARD TABLE OF BAPIRET2 .DATA:LS_RETURN TYPE BAPIRET2 ."MI04 对应参数DATA:LT_COUNT TYPE STANDARD TABLE OF BAPI_PHYSINV_COUNT_ITEMS.DATA:LS_COUNT TYPE BAPI_PHYSINV_COUNT_ITEMS.DATA:LT_SERNR TYPE STANDARD TABLE OF BAPI_PHYSINV_SERIALNUMBERS.DATA:LS_SERNR TYPE BAPI_PHYSINV_SERIALNUMBERS.DATA:LV_LINES TYPE DZEILE."MI07 对应参数DATA:LT_POST TYPE STANDARD TABLE OF BAPI_PHYSINV_POST_ITEMS.DATA:LS_POST TYPE BAPI_PHYSINV_POST_ITEMS."创建盘点凭证BAPI 参数封装
*-------------------------------------------------------------CLEAR: LS_HEAD,LS_ITEMS,LT_ITEMS,LT_RETURN,LS_RETURN,LV_LINES,LS_COUNT,LT_COUNT,LS_SERNR,LT_SERNR,LS_POST, LT_POST.LS_HEAD-PLANT &＃61; P_WERKS. "工厂LS_HEAD-STGE_LOC &＃61; P_LGORT. "库存地点LS_HEAD-DOC_DATE &＃61; P_BUDAT. "凭证中的凭证日期LS_HEAD-PLAN_DATE &＃61; P_COUNT. "库存盘点的计划日期LT_TEMP &＃61; GT_DATA.
"首先根据物料号去重去创建盘点凭证SORT LT_TEMP BY MATNR.DELETE ADJACENT DUPLICATES FROM LT_TEMP COMPARING MATNR.LOOP AT LT_TEMP INTO LS_TEMP."创建盘点凭证BAPI 参数封装
*-------------------------------------------------------------LS_ITEMS-MATERIAL &＃61; LS_TEMP-MATNR. "物料号LS_ITEMS-STOCK_TYPE &＃61; LS_TEMP-BSTAR. "库存类型APPEND LS_ITEMS TO LT_ITEMS.CLEAR LS_ITEMS.
"MI04的时候传入序列号 盘点数量
"凭证数量盘点BAPI 参数封装
*-------------------------------------------------------------LV_LINES &＃61; LV_LINES &＃43; 1.LS_COUNT-ITEM &＃61; LV_LINES. "行号LS_COUNT-MATERIAL &＃61; LS_TEMP-MATNR. "物料编码LS_COUNT-ENTRY_UOM &＃61; LS_TEMP-MEINS. "计量单位LS_COUNT-ZERO_COUNT &＃61; LS_TEMP-XNULL."差异过账BAPI 参数封装
*-------------------------------------------------------------LS_POST-ITEM &＃61; LV_LINES. "行号LS_POST-MATERIAL &＃61; LS_TEMP-MATNR. "物料编码APPEND LS_POST TO LT_POST.CLEAR: LS_POST.LOOP AT GT_DATA INTO GS_DATA WHERE MATNR &＃61; LS_TEMP-MATNR."这里是累计同一个物料号有多少数量LS_COUNT-ENTRY_QNT &＃61; GS_DATA-MENGE &＃43; LS_COUNT-ENTRY_QNT. "录入系统实盘数"这里是将序列号一一对应传入LS_SERNR-ITEM &＃61; LV_LINES.LS_SERNR-SERIALNO &＃61; GS_DATA-SERNR.APPEND LS_SERNR TO LT_SERNR.CLEAR LS_SERNR.ENDLOOP.APPEND LS_COUNT TO LT_COUNT.CLEAR: LS_COUNT.ENDLOOP.CALL FUNCTION &＃39;BAPI_MATPHYSINV_CREATE&＃39;EXPORTINGHEAD &＃61; LS_HEADTABLESITEMS &＃61; LT_ITEMSRETURN &＃61; LT_RETURN.READ TABLE LT_RETURN INTO LS_RETURN WITH KEY TYPE &＃61; &＃39;E&＃39;.IF SY-SUBRC &＃61; 0 .CALL FUNCTION &＃39;BAPI_TRANSACTION_ROLLBACK&＃39; .LOOP AT LT_RETURN INTO LS_RETURN WHERE TYPE &＃61; &＃39;E&＃39;.CONCATENATE LV_MESSAGE LS_RETURN-MESSAGE &＃39;&＃xff0c;&＃39; INTO LV_MESSAGE.ENDLOOP.LOOP AT GT_DATA INTO GS_DATA .GS_DATA-ICONS &＃61; ICON_RED_LIGHT.GS_DATA-MESSAGE &＃61; LV_MESSAGE.MODIFY GT_DATA FROM GS_DATA.ENDLOOP.ELSE."提交并 盘点凭证数量CALL FUNCTION &＃39;BAPI_TRANSACTION_COMMIT&＃39;EXPORTINGWAIT &＃61; &＃39;X&＃39;.READ TABLE LT_RETURN INTO LS_RETURN INDEX 1.IF SY-SUBRC &＃61; 0.LV_IBLNR &＃61; LS_RETURN-MESSAGE_V1.CALL FUNCTION &＃39;CONVERSION_EXIT_ALPHA_INPUT&＃39;EXPORTINGINPUT &＃61; LV_IBLNRIMPORTINGOUTPUT &＃61; LV_IBLNR.ENDIF.LV_MESSAGE &＃61; &＃39;Counting voucher created successfully!&＃39;.
*----------------------------------------------------------盘点凭证数量CLEAR:LT_RETURN.LV_GJAHR &＃61; P_COUNT&＃43;0(4).CALL FUNCTION &＃39;BAPI_MATPHYSINV_COUNT&＃39;EXPORTINGPHYSINVENTORY &＃61; LV_IBLNR "盘点凭证号FISCALYEAR &＃61; LV_GJAHRCOUNT_DATE &＃61; P_COUNTTABLESITEMS &＃61; LT_COUNTRETURN &＃61; LT_RETURNSERIALNUMBERS &＃61; LT_SERNR .READ TABLE LT_RETURN INTO LS_RETURN WITH KEY TYPE &＃61; &＃39;E&＃39;.IF SY-SUBRC &＃61; 0 .CALL FUNCTION &＃39;BAPI_TRANSACTION_ROLLBACK&＃39; .LOOP AT LT_RETURN INTO LS_RETURN WHERE TYPE &＃61; &＃39;E&＃39;.CONCATENATE LV_MESSAGE LS_RETURN-MESSAGE &＃39;&＃xff0c;&＃39; INTO LV_MESSAGE.ENDLOOP.LOOP AT GT_DATA INTO GS_DATA .GS_DATA-IBLNR &＃61; LV_IBLNR.GS_DATA-ICONS &＃61; ICON_RED_LIGHT.GS_DATA-MESSAGE &＃61; LV_MESSAGE.MODIFY GT_DATA FROM GS_DATA.ENDLOOP.ELSE."提交并 盘点凭证数量CALL FUNCTION &＃39;BAPI_TRANSACTION_COMMIT&＃39;EXPORTINGWAIT &＃61; &＃39;X&＃39;.CLEAR:LT_RETURN,LS_RETURN.CONCATENATE LV_MESSAGE &＃39;Quantity counting succeeded!&＃39; INTO LV_MESSAGE.CALL FUNCTION &＃39;BAPI_MATPHYSINV_POSTDIFF&＃39;EXPORTINGPHYSINVENTORY &＃61; LV_IBLNRFISCALYEAR &＃61; LV_GJAHR
* PSTNG_DATE &＃61;
* THRESHOLD_VALUE &＃61;TABLESITEMS &＃61; LT_POSTRETURN &＃61; LT_RETURN .READ TABLE LT_RETURN INTO LS_RETURN WITH KEY TYPE &＃61; &＃39;E&＃39;.IF SY-SUBRC &＃61; 0 .CALL FUNCTION &＃39;BAPI_TRANSACTION_ROLLBACK&＃39; .LOOP AT LT_RETURN INTO LS_RETURN WHERE TYPE &＃61; &＃39;E&＃39;.CONCATENATE LV_MESSAGE LS_RETURN-MESSAGE &＃39;&＃xff0c;&＃39; INTO LV_MESSAGE.ENDLOOP.LOOP AT GT_DATA INTO GS_DATA .GS_DATA-ICONS &＃61; ICON_RED_LIGHT.GS_DATA-MESSAGE &＃61; LV_MESSAGE.MODIFY GT_DATA FROM GS_DATA.ENDLOOP.ELSE."差异过账成功CALL FUNCTION &＃39;BAPI_TRANSACTION_COMMIT&＃39;EXPORTINGWAIT &＃61; &＃39;X&＃39;.CONCATENATE LV_MESSAGE &＃39;Variance posting succeeded!&＃39; INTO LV_MESSAGE.READ TABLE LT_RETURN INTO LS_RETURN INDEX 1.IF SY-SUBRC &＃61; 0.LV_BELNR &＃61; LS_RETURN-MESSAGE_V2.ENDIF.LOOP AT GT_DATA INTO GS_DATA .GS_DATA-IBLNR &＃61; LV_IBLNR.GS_DATA-BELNR &＃61; LV_BELNR.GS_DATA-ICONS &＃61; ICON_GREEN_LIGHT.GS_DATA-MESSAGE &＃61; LV_MESSAGE.MODIFY GT_DATA FROM GS_DATA.ENDLOOP.ENDIF.ENDIF.ENDIF.