FUNCTION ZPR2. DATA GS_HEADER TYPE BAPIMEREQHEADER. "ME51N采购申请凭证抬头 DATA GS_HEADERX TYPE BAPIMEREQHEADERX. GS_HEADER-PR_TYPE = 'NB'. GS_HEADERX-PR_TYPE = 'X'."采购凭证类型 DATA GT_ITEM TYPE TABLE OF BAPIMEREQITEMIMP."ME51N采购申请单行项目 DATA GT_ITEMX TYPE TABLE OF BAPIMEREQITEMX. DATA GS_ITEM TYPE BAPIMEREQITEMIMP. DATA GS_ITEMX TYPE BAPIMEREQITEMX. DATA I TYPE I VALUE 0. WHILE I <= 10. CLEAR GS_ITEM. GS_ITEM-MATERIAL = 'A01'. "物料号 GS_ITEM-PLANT = '8010'. "工厂 GS_ITEM-QUANTITY = '10'. "采购数量 APPEND GS_ITEM TO GT_ITEM. CLEAR GS_ITEMX. GS_ITEMX-MATERIAL = 'X'. "物料号 GS_ITEMX-PLANT = 'X'. "工厂 GS_ITEMX-QUANTITY = 'X'. "采购数量 APPEND GS_ITEMX TO GT_ITEMX. I = I + 1. ENDWHILE. CALL FUNCTION 'BAPI_PR_CREATE' "BAPI ==>创建采购申请单 EXPORTING PRHEADER = GS_HEADER PRHEADERX = GS_HEADERX IMPORTING NUMBER = R_NUMBER "BAPI执行成功返回:采购申请单 如 1000032 TABLES PRITEM = GT_ITEM "行项目 PRITEMX = GT_ITEMX. IF SY-SUBRC = 0 AND R_NUMBER IS NOT INITIAL. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = 'X'. COMMIT WORK AND WAIT. ENDIF. ENDFUNCTION.