Hi,
I added the append field to EKPO.
However, in BAPI_PO_CREATE1 cannot register the append field.
Please let me know someone.
Test Procedure
1. A append field was added to EKPO. EKPO-ZUSERID (char12)
2. A append field was added to BAPI_TE_MEPOITEM. BAPI_TE_MEPOITEM-ZUSERID (char12)
3. A append field was added to BAPI_TE_MEPOITEMX. BAPI_TE_MEPOITEMX-ZUSERID (char1)
4. A test program was run, and EKPO was created, but EKPO-ZUSERID was nothing.
Test Program
REPORT ZTEST_SUZUKI02B.
DATA:
WK_BAPIMEPOHEADER LIKE BAPIMEPOHEADER,
WK_BAPIMEPOHEADERX LIKE BAPIMEPOHEADERX,
INT_BAPIMEPOITEM LIKE TABLE OF BAPIMEPOITEM,
WK_BAPIMEPOITEM LIKE BAPIMEPOITEM,
INT_BAPIMEPOITEMX LIKE TABLE OF BAPIMEPOITEMX,
WK_BAPIMEPOITEMX LIKE BAPIMEPOITEMX,
INT_BAPIRET2 LIKE TABLE OF BAPIRET2,
WK_NUMBER LIKE BAPIMEPOHEADER-PO_NUMBER,
WK_BAPIPAREX LIKE BAPIPAREX,
INT_BAPIPAREX LIKE TABLE OF BAPIPAREX.
Create Header
WK_BAPIMEPOHEADER-DOC_TYPE = 'NB'.
WK_BAPIMEPOHEADER-VENDOR = 'TEST001'.
WK_BAPIMEPOHEADER-PURCH_ORG = 'Z001'.
WK_BAPIMEPOHEADER-PUR_GROUP = 'Z01'.
Create Headerx
WK_BAPIMEPOHEADERX-DOC_TYPE = 'X'.
WK_BAPIMEPOHEADERX-VENDOR = 'X'.
WK_BAPIMEPOHEADERX-PURCH_ORG = 'X'.
WK_BAPIMEPOHEADERX-PUR_GROUP = 'X'.
Create Item
WK_BAPIMEPOITEM-PO_ITEM = '00010'.
WK_BAPIMEPOITEM-MATERIAL = 'TEST001'.
WK_BAPIMEPOITEM-QUANTITY = '1'.
WK_BAPIMEPOITEM-PLANT = 'Z001'.
APPEND WK_BAPIMEPOITEM TO INT_BAPIMEPOITEM.
Create Itemx
WK_BAPIMEPOITEMX-PO_ITEM = '00010'.
WK_BAPIMEPOITEMX-PO_ITEMX = 'X'.
WK_BAPIMEPOITEMX-MATERIAL = 'X'.
WK_BAPIMEPOITEMX-QUANTITY = 'X'.
WK_BAPIMEPOITEMX-PLANT = 'X'.
APPEND WK_BAPIMEPOITEMX TO INT_BAPIMEPOITEMX.
Create Extensionin
WK_BAPIPAREX-STRUCTURE = 'BAPI_TE_MEPOITEM'.
WK_BAPIPAREX-VALUEPART1 = '00010 AAA'.
APPEND WK_BAPIPAREX TO INT_BAPIPAREX.
WK_BAPIPAREX-STRUCTURE = 'BAPI_TE_MEPOITEMX'.
WK_BAPIPAREX-VALUEPART1 = '00010 X'.
APPEND WK_BAPIPAREX TO INT_BAPIPAREX.
CALL FUNCTION 'BAPI_PO_CREATE1'
EXPORTING
POHEADER = WK_BAPIMEPOHEADER
POHEADERX = WK_BAPIMEPOHEADERX
IMPORTING
EXPPURCHASEORDER = WK_NUMBER
TABLES
RETURN = INT_BAPIRET2
POITEM = INT_BAPIMEPOITEM
POITEMX = INT_BAPIMEPOITEMX
EXTENSIONIN = INT_BAPIPAREX
.
COMMIT WORK.
WRITE:/ WK_NUMBER.