BAPI-创建采购申请PR

*&---------------------------------------------------------------------*
*& Report  ZBAPI1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZBAPI1.

DATA PRHEADER  TYPE BAPIMEREQHEADER.
DATA PRHEADERX TYPE BAPIMEREQHEADERX.

PRHEADER-PR_TYPE  = 'NB'.
PRHEADERX-PR_TYPE = 'X'.


"行项目
DATA GT_PRITEM TYPE TABLE OF BAPIMEREQITEMIMP.
DATA GS_PRITEM TYPE  BAPIMEREQITEMIMP.

GS_PRITEM-MATERIAL = 'A01'.
GS_PRITEM-PLANT = '8010'.
GS_PRITEM-QUANTITY = '999'.
APPEND GS_PRITEM TO GT_PRITEM.

"行项目X
DATA GT_PRITEMX TYPE TABLE OF BAPIMEREQITEMX.
DATA GS_PRITEMX TYPE BAPIMEREQITEMX.

GS_PRITEMX-MATERIAL = 'X'.
GS_PRITEMX-PLANT    = 'X'.
GS_PRITEMX-QUANTITY = 'X'.
APPEND GS_PRITEMX TO GT_PRITEMX.


DATA GS_NUMBER TYPE BAPIMEREQHEADER-PREQ_NO."返回采购申请编号

CALL FUNCTION 'BAPI_PR_CREATE'
 EXPORTING
   PRHEADER                     = PRHEADER
   PRHEADERX                    = PRHEADERX
*   TESTRUN                      =
 IMPORTING
   NUMBER                       = GS_NUMBER
*   PRHEADEREXP                  =
  TABLES
*   RETURN                       =
    PRITEM                       = GT_PRITEM
    PRITEMX                      = GT_PRITEMX
*   PRITEMEXP                    =
*   PRITEMSOURCE                 =
*   PRACCOUNT                    =
*   PRACCOUNTPROITSEGMENT        =
*   PRACCOUNTX                   =
*   PRADDRDELIVERY               =
*   PRITEMTEXT                   =
*   PRHEADERTEXT                 =
*   EXTENSIONIN                  =
*   EXTENSIONOUT                 =
*   PRVERSION                    =
*   PRVERSIONX                   =
*   ALLVERSIONS                  =
*   PRCOMPONENTS                 =
*   PRCOMPONENTSX                =
*   SERVICEOUTLINE               =
*   SERVICEOUTLINEX              =
*   SERVICELINES                 =
*   SERVICELINESX                =
*   SERVICELIMIT                 =
*   SERVICELIMITX                =
*   SERVICECONTRACTLIMITS        =
*   SERVICECONTRACTLIMITSX       =
*   SERVICEACCOUNT               =
*   SERVICEACCOUNTX              =
*   SERVICELONGTEXTS             =
*   SERIALNUMBER                 =
*   SERIALNUMBERX                =
          .



CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  EXPORTING
    WAIT = 'X'
* IMPORTING
*   RETURN        =
  .

COMMIT WORK AND WAIT.

WRITE GS_NUMBER.