第一个BAPI程序

*&---------------------------------------------------------------------*
*& Report  Z01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT z01.

DATA lv_header TYPE bapimereqheader.
DATA lv_headerx TYPE bapimereqheaderx.


lv_header-pr_type = 'NB'.
lv_headerx-pr_type = 'X'.


DATA wa_item TYPE bapimereqitemimp.
DATA wa_itemx TYPE bapimereqitemx.

DATA t_item TYPE TABLE OF bapimereqitemimp.
DATA t_itemx TYPE TABLE OF bapimereqitemx.



wa_item-material = 'A01'.
wa_itemx-material = 'X'.

wa_item-plant = '8010'.
wa_itemx-plant = 'X'.


wa_item-pur_group = '001'.
wa_itemx-pur_group = 'X'.


wa_item-quantity = '999'.
wa_itemx-quantity = 'X'.

APPEND wa_item TO t_item.
APPEND wa_itemx TO t_itemx.

DATA return TYPE TABLE OF bapiret2.
DATA lv_number TYPE bapimereqheader-preq_no.

CALL FUNCTION 'BAPI_PR_CREATE'
  EXPORTING
    prheader  = lv_header
    prheaderx = lv_headerx
*   TESTRUN   =
  IMPORTING
    number    = lv_number
*   PRHEADEREXP                  =
  TABLES
    return    = return
    pritem    = t_item
    pritemx   = t_itemx
*   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 lv_number.