Proble in Creating Multiple Item PO using BAPI_PO_CREATE1

Question

Hi All..
      I am creating PO using BAPI_PO_CREATE1. I have successfully created with single line item but when i tried to create with multiple line items it gives me error in partners(vendors) which i have used in table POPARTNER.
      One more thing, I have created using BAPI with same partner roles with single line item but it gives me error in 2 or more line items.
      So, Can Anybody help me in this..
Regards,
Meet Gohel
[email protected]

Answer 1

Hi ,
U can use this code n check
*& Report  ZPOBAPITRIAL
REPORT  ZPOBAPITRIAL.
*DATA DECLARATION
CONSTANTS : C_X VALUE 'X'.
*Structures to hold PO header data
DATA : HEADER LIKE  BAPIMEPOHEADER   ,
       HEADERX LIKE  BAPIMEPOHEADERX .
*Internal Tables to hold PO ITEM DATA
DATA : ITEM   LIKE BAPIMEPOITEM  OCCURS 0 WITH HEADER LINE,
       ITEMX  LIKE BAPIMEPOITEMX OCCURS 0 WITH HEADER LINE,
*Internal table to hold messages from BAPI call
       RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
data : w_header(40) value 'PO Header'.
DATA : it_item type standard table of BAPIMEPOITEM.
DATA : wa_item like BAPIMEPOITEM occurs 0 with header line.
DATA : it_itemx type standard table of BAPIMEPOITEMX.
DATA : wa_itemx like BAPIMEPOITEMX occurs 0 with header line.
data : ws_langu like sy-langu.
*text-001 = 'PO Header' - define as text element
selection-screen begin of block b1 with frame title text-001.
parameters : company like header-comp_code  default '0103'      ,
             doctyp  like HEADER-DOC_TYPE   default 'NB'        ,
             item_int like header-item_intvl default '10'     ,
             cdate   like HEADER-CREAT_DATE default sy-datum    ,
             vendor  like HEADER-VENDOR     default '0000500001',
             pmnttrms like header-pmnttrms default '0007'       ,
             pur_org like HEADER-PURCH_ORG  default '9000'      ,
             pur_grp like HEADER-PUR_GROUP  default '401'       ,
             currency like header-currency  default 'INR'       .
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-002.
parameters : item_num like ITEM-PO_ITEM  default '10',
             material like ITEM-MATERIAL default '000000000300000014'   ,
             plant    like ITEM-PLANT    default '7640' ,
             quantity like ITEM-QUANTITY default 10.
selection-screen end of block b2.
START-OF-SELECTION.
*DATA POPULATION
ws_langu = sy-langu.   "Language variable
*POPULATE HEADER DATA FOR PO
HEADER-COMP_CODE  = company    .
HEADER-DOC_TYPE   = doctyp     .
*HEADER-CREAT_DATE = cdate      .
header-item_intvl = item_int .
HEADER-VENDOR     = vendor     .
HEADER-LANGU      = ws_langu   .
header-pmnttrms   = pmnttrms   .
HEADER-PURCH_ORG  = pur_org    .
HEADER-PUR_GROUP  = pur_grp    .
header-currency   = currency   .
*POPULATE HEADER FLAG.
HEADERX-comp_code  = c_x.
HEADERX-doc_type   = c_x.
*HEADERX-creat_date = c_x.
headerx-item_intvl = c_x .
HEADERX-vendor     = c_x.
HEADERX-langu      = c_x.
headerx-pmnttrms   = c_x   .
HEADERX-purch_org  = c_x.
HEADERX-pur_group  = c_x.
*HEADERX-doc_date   = c_x.
*POPULATE ITEM DATA.
wa_ITEM-PO_ITEM  = item_num.
wa_ITEM-MATERIAL = material.
wa_ITEM-PLANT    = plant.
wa_ITEM-QUANTITY = quantity.
append wa_item to it_item.
wa_ITEM-PO_ITEM  = '20'.
wa_ITEM-MATERIAL = '000000000300000020'.
wa_ITEM-PLANT    = plant.
wa_ITEM-QUANTITY = quantity.
append wa_item to it_item.
*APPEND ITEM.
*POPULATE ITEM FLAG TABLE
wa_ITEMX-PO_ITEM    = item_num.
wa_itEMX-MATERIAL   = C_X.
wa_ITEMX-PLANT      = C_X .
wa_ITEMX-STGE_LOC   = C_X .
wa_ITEMX-QUANTITY   = C_X .
wa_ITEMX-TAX_CODE   = C_X .
wa_ITEMX-ITEM_CAT   = C_X .
wa_ITEMX-ACCTASSCAT = C_X .
append wa_itemx to it_itemx.
*APPEND ITEMX.
wa_ITEMX-PO_ITEM    = '20'.
wa_itEMX-MATERIAL   = C_X.
wa_ITEMX-PLANT      = C_X .
wa_ITEMX-STGE_LOC   = C_X .
wa_ITEMX-QUANTITY   = C_X .
wa_ITEMX-TAX_CODE   = C_X .
wa_ITEMX-ITEM_CAT   = C_X .
wa_ITEMX-ACCTASSCAT = C_X .
append wa_itemx to it_itemx.
*BAPI CALL
CALL FUNCTION 'BAPI_PO_CREATE1'
  EXPORTING
    POHEADER                     = HEADER
    POHEADERX                    = HEADERX
  POADDRVENDOR                 =
  TESTRUN                      =
IMPORTING
  EXPPURCHASEORDER             =
  EXPHEADER                    =
  EXPPOEXPIMPHEADER            =
TABLES
   RETURN                       = RETURN
   POITEM                       = it_ITEM
   POITEMX                      = it_ITEMX.
*Confirm the document creation by calling database COMMIT
*CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
  WAIT          = 'X'
IMPORTING
  RETURN        =
end-of-selection.
*Output the messages returned from BAPI call
LOOP AT RETURN.
WRITE: /001 return-type,
  /001 return-message.
ENDLOOP.
award points if helpfull