BAPI_PR_CREATE-BAPI程序创建采购申请单

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.