Purchase Orders Using BAPI_PO_CREATE1

Question

Hi guys ,
when v want to upload PO data using BAPI FM
wat r the Strutures to be passed
Is it necessary 2 pass Xstructures
if So? why ? can any one have sample Code
Regards
Anil kumar

Answer 1

*& Report  ZP_TEST_POBAPI
REPORT  zp_test_pobapi.
*- BAPI related declarations
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,
lt_poacct TYPE  bapimepoaccount,
gt_poacctx TYPE TABLE OF bapimepoaccountx,
lt_poacctx TYPE  bapimepoaccountx,
gt_poservice TYPE TABLE OF bapiesllc,
gt_posrvacc TYPE TABLE OF bapiesklc,
gt_return TYPE TABLE OF bapiret2,
centro like bapimepoaccount-costcenter VALUE '1000',
cuenta like bapimepoaccount-gl_account VALUE '112655' ,
num_pos like bapimepoaccount-po_item VALUE '10' ,
serial like bapimepoaccount-serial_no VALUE '01' ,
ind_imp like bapimepoaccount-tax_code VALUE 'I2' ..
PERFORM prepare_header.
PERFORM prepare_items.
PERFORM prepare_schedule.
  lt_poacct-po_item = '0010'.
  lt_poacct-serial_no = serial .
  lt_poacct-creat_date = sy-datum .
  lt_poacct-costcenter = centro .
  lt_poacct-gl_account = cuenta .
  lt_poacct-gr_rcpt = 'tester'.
  APPEND lt_poacct to gt_poacct.
append gt_poacct. clear gt_poacct.
*POPULATE gt_poacct FLAG TABLE.
  lt_poacctx-po_item = '0010' .
  lt_poacctx-po_itemx = 'X' .
  lt_poacctx-serial_no = serial .
  lt_poacctx-serial_nox = 'X' .
  lt_poacctx-creat_date = 'X' .
  lt_poacctx-costcenter = 'X' .
  lt_poacctx-gl_account = 'X' .
  lt_poacct-gr_rcpt = 'X'.
  append lt_poacctx to gt_poacctx.
PERFORM create_po.
*& Form prepare_header
Set up header structure
FORM prepare_header.
  g_pohdr-comp_code = '1000'.
  g_pohdrx-comp_code = 'X'.
set up doc type
  g_pohdr-doc_type = 'NB'.
  g_pohdrx-doc_type = 'X'.
  g_pohdr-vendor = '0000010123'.
  g_pohdrx-vendor = 'X'.
  g_pohdr-langu = sy-langu.
  g_pohdrx-langu = 'X'.
g_pohdr-purch_org = 'BA01'.
  g_pohdr-purch_org = '1000'.
  g_pohdrx-purch_org = 'X'.
  g_pohdr-pur_group = '001'.
  g_pohdrx-pur_group = 'X'.
  g_pohdr-currency = 'EUR'.
  g_pohdrx-currency = 'X'.
ENDFORM. " prepare_header
*& Form prepare_items
Set up item values
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-material = 'PARAG03'.
  ls_poitemx-material = 'X'.
  ls_poitem-short_text = 'PAR'.
  ls_poitemx-short_text = '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'.
  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'.
  ls_poitem-plant = '1000'.
  ls_poitemx-plant = 'X'.
ls_poitem-acctasscat = 'K'.
ls_poitemx-acctasscat = 'X'.
ls_poitem-acctasscat = <fs_req>-knttp.
ls_poitemx-acctasscat = 'X'.
ls_poitem-distrib = <fs_req>-vrtkz.
ls_poitemx-distrib = 'X'.
ls_poitem-part_inv = <fs_req>-twrkz.
ls_poitemx-part_inv = 'X'.
ls_poitem-gr_ind = <fs_req>-wepos.
ls_poitemx-gr_ind = 'X'.
ls_poitem-gr_non_val = <fs_req>-weunb.
ls_poitemx-gr_non_val = 'X'.
ls_poitem-ir_ind = <fs_req>-repos.
ls_poitemx-ir_ind = 'X'.
ls_poitem-agreement = <fs_req>-konnr.
ls_poitemx-agreement = 'X'.
ls_poitem-agmt_item = <fs_req>-ktpnr.
ls_poitemx-agmt_item = 'X'.
ls_poitem-preq_no = <fs_req>-banfn.
ls_poitemx-preq_no = 'X'.
ls_poitem-preq_item = <fs_req>-bnfpo.
ls_poitemx-preq_item = 'X'.
ls_poitem-preq_name = <fs_req>-afnam.
ls_poitemx-preq_name = 'X'.
ls_poitem-pckg_no = <fs_req>-packno.
ls_poitemx-pckg_no = 'X'.
  APPEND : ls_poitem TO gt_poitem,
  ls_poitemx TO gt_poitemx.
ENDFORM. " prepare_items
*& Form prepare_schedule
Schedule data
FORM prepare_schedule.
  DATA : ls_posched TYPE bapimeposchedule,
  ls_poschedx TYPE bapimeposchedulx.
  ls_poschedx-po_item = '00010'.
  ls_posched-po_item = '00010'.
  ls_poschedx-po_itemx = 'X'.
  ls_posched-delivery_date = '10.10.2007'.
  ls_poschedx-delivery_date = 'X'.
  ls_posched-quantity = '100'.
  ls_poschedx-quantity = 'X'.
ls_posched-preq_no = <fs_req>-banfn.
ls_poschedx-preq_no = 'X'.
ls_posched-preq_item = <fs_req>-bnfpo.
ls_poschedx-preq_item = 'X'.
  APPEND : ls_posched TO gt_posched,
  ls_poschedx TO gt_poschedx.
ENDFORM. " prepare_schedule
*& Form create_po
Create PO with ref to the req
FORM create_po.
  DATA : lt_return TYPE TABLE OF bapiret2,
  l_ponum TYPE banfn.
  CALL FUNCTION 'BAPI_PO_CREATE1'
  EXPORTING
  poheader = g_pohdr
  poheaderx = g_pohdrx
testrun = 'X'
  IMPORTING
  exppurchaseorder = l_ponum
  TABLES
  return = lt_return
  poitem = gt_poitem
  poitemx = gt_poitemx
  poschedule = gt_posched
  poschedulex = gt_poschedx
  poaccount = gt_poacct
  poaccountx = gt_poacctx
  poservices = gt_poservice
  posrvaccessvalues = gt_posrvacc.
  APPEND LINES OF lt_return TO gt_return.
  IF NOT l_ponum IS INITIAL.
    MESSAGE s398(00) WITH 'Purchase document ' l_ponum
    ' successfully created'.
  ENDIF.
ENDFORM. " create_po