Problem creating Service POs with BAPI_PO_CREATE1

Question

Hi.
I'm trying to create service POs with data that i read from an excel file, to do this I'm using the bapi: <b>BAPI_PO_CREATE1</b> I'm passing the following parameters:
IMPORT:
- poheader
- poheaderx
TABLES:
- return
- poitem
- poitemx
- poaccount
- poaccountx
- poservices
- posrvaccessvalues
- poservices text
- extensionin
When I execute the bapi, I'm getting the following messages into table return:
<i>W - Error transferring ExtensionIn data for enhancement CI_EKKODB
E - No instance of object type PurchaseOrder has been created. External reference:
E - PO header data still faulty
E - Purchase order date is in the past
I - Change WBS Element could not be effected
E - You cannot maintain service specs. due to incomplete transfer structure</i>
Can anybody, please say me what am i doing wrong? How this bapi works?
Regards.
Gregory.

Answer 1

Hello My friend
Check this code:
Code listing for: LZMMIUP001F01
Description: Include LZMMIUP001F01
***INCLUDE LZMMIUP001F01 .
*&      Form  fill_item
      text
     -->P_WA  text
FORM fill_item  TABLES:  poitem STRUCTURE bapimepoitem "Item Data
                         poitemx STRUCTURE bapimepoitemx "Item Data (Change Parameter
                USING wa STRUCTURE zlo_mmcnv009
                      package.
item number
  poitem-po_item = wa-itemnum.
  poitemx-po_itemx = 'X'.
  poitemx-po_item = wa-itemnum.
  IF package <> ''.
    poitem-pckg_no = package.
    poitemx-pckg_no = 'X'.
  ENDIF.
*Account Assignment Category
  IF wa-category <> ''.
    poitem-acctasscat = wa-category.
    poitemx-acctasscat = 'X'.
  ENDIF.
*Item Category in Purchasing Document
  IF wa-itemcat <> ''.
    poitem-item_cat = wa-itemcat.
    poitemx-item_cat = 'X'.
  ENDIF.
*Short Text
  IF wa-sortxt <> ''.
    poitem-short_text = wa-sortxt.
    poitemx-short_text = 'X'.
  ENDIF.
*Material Number
  IF wa-material <> ''.
    poitem-material = wa-material.
    poitemx-material = 'X'.
  ENDIF.
Unit of Measure
  IF wa-undmesure <> ''.
    poitem-po_unit = wa-undmesure.
    poitemx-po_unit = 'X'.
  ENDIF.
*Purchase Order Quantity
  IF wa-quantity <> ''.
    poitem-quantity = wa-quantity.
    poitemx-quantity = 'X'.
  ENDIF.
*Net Price in Purchasing Document
  IF wa-netprice <> ''.
    poitem-net_price = wa-netprice.
    poitemx-net_price = 'X'.
  ENDIF.
*Plant
  IF wa-plant <> ''.
    poitem-plant = wa-plant.
    poitemx-plant = 'X'.
  ENDIF.
*Material Group
  IF wa-matgrp <> ''.
    poitem-matl_group = wa-matgrp.
    poitemx-matl_group = 'X'.
  ENDIF.
*Free Item
  IF wa-free <> ''.
    poitem-free_item = wa-free.
    poitemx-free_item = 'X'.
  ENDIF.
  APPEND poitem.
  APPEND poitemx.
ENDFORM.                    " fill_item
*&      Form  fill_header
      text
     -->P_WA  text
FORM fill_header  USING wa STRUCTURE zlo_mmcnv009
                    poheader STRUCTURE bapimepoheader "Header Data
                    poheaderx STRUCTURE bapimepoheaderx. "Header Data (Change Toolbar)
  DATA: dia(2), mes(2), ano(4),
        vendor(10) TYPE n.
  dia = wa-docdate(2).
  mes = wa-docdate+2(2).
  ano = wa-docdate+4(4).
  CONCATENATE ano mes dia INTO wa-docdate.
  dia = wa-datestart(2).
  mes = wa-datestart+2(2).
  ano = wa-datestart+4(4).
  CONCATENATE ano mes dia INTO wa-datestart.
  dia = wa-datend(2).
  mes = wa-datend+2(2).
  ano = wa-datend+4(4).
  CONCATENATE ano mes dia INTO wa-datend.
Document Type
  IF wa-doctyp <> ''.
    poheader-doc_type = wa-doctyp.
    poheaderx-doc_type = 'X'.
  ENDIF.
vendor number
  IF  wa-vendor <>  ''.
    IF NOT ( wa-vendor CA sy-abcde ).
      vendor = wa-vendor.
      poheader-vendor = vendor.
      poheaderx-vendor = 'X'.
    ELSE.
      poheader-vendor = wa-vendor.
      poheaderx-vendor = 'X'.
    ENDIF.
  ENDIF.
Document Date
  IF wa-docdate <> ''.
    poheader-doc_date = wa-docdate.
    poheaderx-doc_date = 'X'.
  ENDIF.
purchasing organization
  IF wa-organiz <> ''.
    poheader-purch_org = wa-organiz.
    poheaderx-purch_org = 'X'.
  ENDIF.
Purchasing Group
  IF wa-purgroup <> ''.
    poheader-pur_group = wa-purgroup.
    poheaderx-pur_group = 'X'.
  ENDIF.
Start of Validity Period
  IF wa-datestart <> ''.
    poheader-vper_start = wa-datestart.
    poheaderx-vper_start = 'X'.
  ENDIF.
End of Validity Period
  IF wa-datend <> ''.
    poheader-vper_end = wa-datend.
    poheaderx-vper_end = 'X'.
  ENDIF.
Company Code
  IF wa-compcode <> ''.
    poheader-comp_code = wa-compcode.
    poheaderx-comp_code = 'X'.
  ENDIF.
  Status of Purchasing Document
  IF wa-status <> ''.
    poheader-status = wa-status.
    poheaderx-status =  'X'.
  ENDIF.
ENDFORM.                    " fill_header
*&      Form  fill_account
      text
     -->P_WA  text
FORM fill_account  TABLES  poaccount STRUCTURE bapimepoaccount
                           poaccountx STRUCTURE bapimepoaccountx
                   USING wa STRUCTURE zlo_mmcnv009.
  DATA: account(10) TYPE n.
  poaccount-po_item = wa-itemnum.
  poaccountx-po_item = wa-itemnum.
*Cost Centre
  poaccount-costcenter = wa-coscenter.
  poaccountx-costcenter = 'X'.
*Order Number
  poaccount-orderid = wa-ordernumb.
  poaccountx-orderid = 'X'.
*"G/L Account Number
  IF wa-accnumb <> ''.
    account = wa-accnumb.
    poaccount-gl_account = account."wa-accnumb.
    poaccountx-gl_account = 'X'.
  ENDIF.
  IF NOT ( wa-coscenter = '' AND
     wa-ordernumb = '' AND
     wa-accnumb = '' ).
    APPEND poaccount.
    APPEND poaccountx.
  ENDIF.
ENDFORM.                    " fill_account
*&      Form  fill_schedule
      text
     -->P_WA  text
FORM fill_schedule  TABLES  poschedule STRUCTURE bapimeposchedule
                            poschedulex STRUCTURE bapimeposchedulx
                    USING wa STRUCTURE zlo_mmcnv009.
  DATA: dia(2), mes(2), ano(4).
  dia = wa-delivdate(2).
  mes = wa-delivdate+2(2).
  ano = wa-delivdate+4(4).
  CONCATENATE ano mes dia INTO wa-delivdate.
*Delivery Date
  poschedule-po_item = wa-itemnum.
  poschedulex-po_item = wa-itemnum.
  poschedule-delivery_date = wa-delivdate.
  poschedulex-delivery_date = 'X'.
  IF NOT wa-delivdate = ''.
    APPEND poschedule.
    APPEND poschedulex.
  ENDIF.
ENDFORM.                    " fill_schedule
*&      Form  fill_header_contract
      text
     -->P_WA  text
     -->P_HEADER  text
     -->P_HEADERX  text
FORM fill_header_contract  USING wa STRUCTURE zlo_mmcnv009
                             coheader STRUCTURE bapimeoutheader
                             coheaderx STRUCTURE bapimeoutheaderx.
  DATA: dia(2), mes(2), ano(4).
  dia = wa-datestart(2).
  mes = wa-datestart+2(2).
  ano = wa-datestart+4(4).
  CONCATENATE ano mes dia INTO wa-datestart.
  dia = wa-datend(2).
  mes = wa-datend+2(2).
  ano = wa-datend+4(4).
  CONCATENATE ano mes dia INTO wa-datend.
Purchasing Document Date
  coheader-doc_date = sy-datum.
  coheaderx-doc_date = 'X'.
*Item Number Interval
  coheader-item_intvl = '10'.
  coheaderx-item_intvl = 'X'.
Currency Key
  coheader-currency = 'BHD'.
  coheaderx-currency =  'X'.
languaje
  coheader-langu = 'EN'.
  coheaderx-langu = 'X'.
Document Type
  IF wa-doctyp <> ''.
    coheader-doc_type = wa-doctyp.
    coheaderx-doc_type = 'X'.
  ENDIF.
vendor number
  IF  wa-vendor <>  ''.
    coheader-vendor = wa-vendor.
    coheaderx-vendor = 'X'.
  ENDIF.
purchasing organization
  IF wa-organiz <> ''.
    coheader-purch_org = wa-organiz.
    coheaderx-purch_org = 'X'.
  ENDIF.
Purchasing Group
  IF wa-purgroup <> ''.
    coheader-pur_group = wa-purgroup.
    coheaderx-pur_group = 'X'.
  ENDIF.
Start of Validity Period
  IF wa-datestart <> ''.
    coheader-vper_start = wa-datestart.
    coheaderx-vper_start = 'X'.
  ENDIF.
End of Validity Period
  IF wa-datend <> ''.
    coheader-vper_end = wa-datend.
    coheaderx-vper_end = 'X'.
  ENDIF.
ENDFORM.                    " fill_header_contract
*&      Form  fill_item_contract
      text
     -->P_WA  text
     -->P_COITEM  text
     -->P_COITEMX  text
FORM fill_item_contract  TABLES: coitem STRUCTURE bapimeoutitem
                                 coitemx STRUCTURE bapimeoutitemx
                         USING  wa STRUCTURE zlo_mmcnv009.
item number
  coitem-item_no = wa-itemnum.
  coitemx-item_no = wa-itemnum.
  coitemx-item_nox = 'X'.
*Material Number
  IF wa-material <> ''.
    coitem-material = wa-material.
    coitemx-material = 'X'.
  ENDIF.
*Target Quantity
  IF wa-quantity <> ''.
    coitem-target_qty = wa-quantity.
    coitemx-target_qty = 'X'.
  ENDIF.
*Net Price in Purchasing Document
  IF wa-netprice <> ''.
    coitem-net_price = wa-netprice.
    coitemx-net_price = 'X'.
  ENDIF.
  APPEND coitem.
  APPEND coitemx.
ENDFORM.                    " fill_item_contract
*&      Form  fill_service
      text
     -->P_POSERVICES  text
     -->P_T_ITEM  text
     -->P_ITEMNUM  text
FORM fill_service  TABLES   poservices STRUCTURE bapiesllc
                            t_item STRUCTURE zlo_mmcnv009
                            poservices_2  STRUCTURE  bapiesklc
                   USING    itemnum packno.
  DATA: line(10) TYPE n,
        service(18) TYPE n,
        packno2(10) TYPE n.
  poservices-pckg_no = packno.
  packno2 = packno.
  packno = packno + 1.
  poservices-line_no = '0000000001'.
  poservices-outl_ind = 'X'.
  poservices-subpckg_no = packno.
  APPEND poservices.
  line = '0000000002'.
  LOOP AT t_item WHERE itemnum = itemnum.
    IF t_item-activity <> ''.
      IF NOT ( t_item-activity CA sy-abcde ).
        service = t_item-activity.
        poservices-service = service.
      ELSE.
        poservices-service = t_item-activity.
      ENDIF.
    ELSE.
      poservices-service = t_item-activity.
    ENDIF.
    poservices-pckg_no = packno.
    poservices-line_no = line. "itemnum.
    poservices-ext_line = t_item-line.
    poservices-quantity = t_item-quantity1.
    poservices-base_uom = t_item-undmed.
    poservices-gr_price = t_item-price.
    poservices-short_text = t_item-shortxt.
    poservices-subpckg_no = '0000000000'.
    poservices-outl_ind = ''.
    APPEND poservices.
    poservices_2-pckg_no = packno.
    poservices_2-line_no = line.
  poservices_2-SERNO_LINE =
  poservices_2-SERIAL_NO =
    poservices_2-quantity = t_item-quantity1.
    poservices_2-net_value = t_item-price.
    APPEND poservices_2.
    line = line + 1.
  ENDLOOP.
ENDFORM.                    " fill_service
*&      Form  fill_pocond
      text
     -->P_POCOND  text
     -->P_POCONDX  text
     -->P_WA  text
FORM fill_pocond TABLES  pocond      STRUCTURE bapimepocond
                         pocondx STRUCTURE bapimepocondx
                   USING wa STRUCTURE zlo_mmcnv009.
*Net Price in Purchasing Document
  IF wa-netprice <> ''.
    pocond-itm_number = wa-itemnum.
    pocondx-itm_number = wa-itemnum.
    pocond-cond_value = wa-netprice.
    pocondx-cond_value = 'X'.
    pocond-currency = 'BHD'.
    pocondx-currency = 'X'.
    pocond-cond_type = 'PBXX'.
    pocondx-cond_type = 'X'.
*COND_TYPE
    APPEND pocond.
    APPEND pocondx.
  ENDIF.
ENDFORM.                    " fill_pocond