Oi,
Tente isto,
INFORME ZTEST_BAPI .
*- Declarações relacionadas com BAPI
DATA : g_pohdr TYPE bapimepoheader,
g_pohdrx TYPE bapimepoheaderx,
gt_poitem TYPE TABLE OF bapimepoitem,
gt_poitemx TYPE TABLE OF bapimepoitemx,
gt_posched TYPE TABLE OF bapimeposchedule,
gt_poschedx TYPE TABLE OF bapimeposchedulx,
gt_poacct TYPE TABLE OF bapimepoaccount,
gt_poacctx TYPE TABLE OF bapimepoaccountx,
gt_poservice TYPE TABLE OF bapiesllc,
gt_posrvacc TYPE TABLE OF bapiesklc,
gt_return TYPE TABLE OF bapiret2.
realizar prepare_header.
REALIZAR prepare_items.
REALIZAR prepare_schedule.
realizar create_po.
&----
*& Form prepare_header
&----
-
Configurar estrutura de cabeçalho
----
FORM prepare_header.
g_pohdr-comp_code = '2000'.
g_pohdrx-comp_code = 'X'.
-
configurar tipo de documento
g_pohdr-doc_type = 'NB'.
g_pohdrx-doc_type = 'X'.
g_pohdr-vendor = '0008000330'.
g_pohdrx-vendor = 'X'.
g_pohdr-langu = sy-langu.
g_pohdrx-langu = 'X'.
g_pohdr-purch_org = 'BA01'.
g_pohdrx-purch_org = 'X'.
g_pohdr-pur_group = '800'.
g_pohdrx-pur_group = 'X'.
g_pohdr-currency = 'USD'.
g_pohdrx-currency = 'X'.
ENDFORM. " prepare_header
&----
*& Form prepare_items
&----
-
Configurar valores de Ítens
----
FORM prepare_items.
DATA : ls_poitem TYPE bapimepoitem,
ls_poitemx TYPE bapimepoitemx.
ls_poitem-po_item = '00010'.
ls_poitemx-po_item = '00010'.
ls_poitemx-po_itemx = 'X'.
ls_poitem-short_text = 'ABSORBER,SHOCK:PALLETIZER'.
ls_poitemx-short_text = 'X'.
ls_poitem-material = '000000000001070062'.
ls_poitemx-material = 'X'.
ls_poitem-vend_mat = 'xyz'.
ls_poitemx-vend_mat = 'X'.
ls_poitem-quantity = '100'.
ls_poitemx-quantity = 'X'.
ls_poitem-po_unit = 'EA'.
ls_poitemx-po_unit = 'X'.
ls_poitem-po_unit_iso = 'EA'.
ls_poitemx-po_unit_iso = 'X'.
ls_poitem-net_price = '6.32'.
ls_poitemx-net_price = 'X'.
ls_poitem-price_unit = '1'.
ls_poitemx-price_unit = 'X'.
ls_poitem-item_cat = 'D'.
ls_poitemx-item_cat = 'X'.