Skip to Content
0
Dec 01, 2008 at 02:53 AM

BAPI_PO_CREATE1 cannot set a append field in EKPO

217 Views

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.