函数使用二：采购申请BAPI_PR_CREATE

REPORT YTEST01.

***************************采购申请创建*****************************begin
DATA:LV_BANFN TYPE EBAN-BANFN .
DATA:LV_BNFPO TYPE EBAN-BNFPO .
DATA:GW_PRITEM TYPE BAPIMEREQITEMIMP .
DATA:GW_PRITEMX TYPE BAPIMEREQITEMX .
DATA:GT_PRITEM TYPE TABLE OF BAPIMEREQITEMIMP .
DATA:GT_PRITEMX TYPE TABLE OF BAPIMEREQITEMX .
DATA:GW_HEAD TYPE BAPIMEREQHEADER  .
DATA:GW_HEADX TYPE BAPIMEREQHEADERX.
DATA:GT_BAPIRETURN TYPE TABLE OF BAPIRET2 .

GW_HEAD-PR_TYPE = '901'."订单类型
GW_HEADX-PR_TYPE = 'X' .

LV_BNFPO  = LV_BNFPO  + 10 ."项目号
GW_PRITEM-PREQ_ITEM = LV_BNFPO .
GW_PRITEM-PREQ_NAME = SY-UNAME.
GW_PRITEM-TRACKINGNO = 'TRACKNO'.
GW_PRITEM-MATERIAL =  '000000000018007349'.
GW_PRITEM-PLANT    =  '1010'.
GW_PRITEM-QUANTITY =  10.
GW_PRITEM-DELIV_DATE = SY-DATUM.
GW_PRITEM-FIXED = 'X' .
GW_PRITEM-PUR_GROUP = 'A03'.
APPEND GW_PRITEM TO GT_PRITEM .

GW_PRITEMX-PREQ_ITEM = LV_BNFPO .
GW_PRITEMX-MATERIAL =   'X'.
GW_PRITEMX-PLANT    =   'X'.
GW_PRITEMX-QUANTITY =   'X'.
GW_PRITEMX-DELIV_DATE = 'X'.
GW_PRITEMX-FIXED = 'X' .
GW_PRITEMX-PREQ_NAME = 'X'.
GW_PRITEMX-TRACKINGNO = 'X' .
IF GW_PRITEM-PUR_GROUP <> '' .
GW_PRITEMX-PUR_GROUP = 'X'.
ENDIF .
APPEND GW_PRITEMX TO GT_PRITEMX .

CALL FUNCTION 'BAPI_PR_CREATE'
EXPORTING
PRHEADER  = GW_HEAD
PRHEADERX = GW_HEADX
IMPORTING
NUMBER    = LV_BANFN
TABLES
RETURN    = GT_BAPIRETURN
PRITEM    = GT_PRITEM
PRITEMX   = GT_PRITEMX.
IF LV_BANFN IS NOT INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
WRITE:LV_BANFN.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.

***************************采购申请创建*****************************end