Error while creating a Service PO using BAPI_PO_CREATE1

Question

Hi,
Im facing Error as "In case of account assignment, please enter acc. assignment data for item" while creating Service PO using BAPI_PO_CREATE1.
Header Data
      w_poheader-comp_code = w_src-bukrs.  "Company Code
      w_poheader-doc_type = w_src-bsart.   "Document type
     w_poheader-delete_ind = w_src-vrtkz. "Deletion Indicator
      CLEAR: lv_date.
      CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
        EXPORTING
          date_external            = w_src-aedat
        IMPORTING
          date_internal            = lv_date
        EXCEPTIONS
          date_external_is_invalid = 1
          OTHERS                   = 2.
      w_poheader-creat_date = lv_date.    "Creation Date
      w_poheader-created_by = sy-uname.    "Creator Name
      w_poheader-vendor = w_src-lifnr.     "Vendor
      w_poheader-pmnttrms = w_src-zterm.   "Payment Terms
      w_poheader-purch_org = w_src-ekorg.  "Purchase Organization
      w_poheader-pur_group = w_src-ekgrp.  "Purchase Group
      w_poheader-ref_1    = w_src-ihrez.   "OLD PO
      w_poheaderx-comp_code = 'X'.  "Company Code
      w_poheaderx-doc_type = 'X'.   "Document type
     w_poheaderx-delete_ind = 'X'.      "Deletion Indicator
      w_poheaderx-creat_date = 'X'.    "Creation Date
      w_poheaderx-created_by = 'X'.
      w_poheaderx-vendor = 'X'.
      w_poheaderx-pmnttrms = 'X'.   "Payment Terms
      w_poheaderx-purch_org = 'X'.  "Purchase Organization
      w_poheaderx-pur_group = 'X'.  "Purchase Group
      w_poheaderx-ref_1 = 'X'.
Item Data
      w_poitem-po_item = w_src-ebelp.
      IF NOT w_src-elikz IS INITIAL.
        w_poitem-delete_ind = w_src-elikz.
      ENDIF.
      IF NOT w_src-txz01 IS INITIAL.
        w_poitem-short_text = w_src-txz01.
      ENDIF.
      IF NOT w_src-werks IS INITIAL.
        w_poitem-plant = w_src-werks.
      ENDIF.
Material group
      IF NOT w_src-matkl IS INITIAL.
        w_poitem-matl_group = w_src-matkl.
      ENDIF.
Open or Partial Qty
      IF w_src-opqty IS  NOT INITIAL.
        w_poitem-quantity = w_src-opqty.
      ELSEIF NOT w_src-paqty IS INITIAL.
        w_poitem-quantity = w_src-paqty.
      ENDIF.
      IF NOT w_src-meins IS INITIAL.
        w_poitem-po_unit = w_src-meins. "Base Unit of Measure
      ENDIF.
      IF NOT w_src-netpr IS INITIAL.
        w_poitem-net_price = w_src-netpr.  "Net Price
      ENDIF.
      IF NOT w_src-mwskz IS INITIAL.
        w_poitem-tax_code = w_src-mwskz.
      ENDIF.
      IF NOT w_src-pstyp IS INITIAL.
        w_poitem-item_cat = w_src-pstyp.
      ENDIF.
      IF NOT w_src-knttp IS INITIAL.
        w_poitem-acctasscat = w_src-knttp.
      ENDIF.
      IF NOT w_src-vrtkz IS INITIAL.
        w_poitem-distrib = w_src-vrtkz.
      ENDIF.
Package No
      IF NOT w_src-packno IS INITIAL.
        w_poitem-pckg_no = w_src-packno.  "Package no
      ENDIF.
      IF w_poitem-delete_ind IS INITIAL AND
         w_poitem-short_text IS INITIAL AND
         w_poitem-plant IS INITIAL AND
         w_poitem-matl_group IS INITIAL AND
         w_poitem-quantity IS INITIAL AND
         w_poitem-po_unit IS INITIAL AND
         w_poitem-net_price IS INITIAL AND
         w_poitem-tax_code IS INITIAL.
        CLEAR lv_item.
      ELSE.
        APPEND w_poitem TO i_poitem.
        CLEAR: w_poitem.
        lv_item = 'X'.
      ENDIF.
      w_poitemx-po_item = w_src-ebelp.
      w_poitemx-delete_ind = 'X'.
      w_poitemx-short_text = 'X'.
      w_poitemx-plant = 'X'.
      w_poitemx-matl_group = 'X'.
      w_poitemx-quantity = 'X'.
      w_poitemx-po_unit = 'X'.
      w_poitemx-net_price = 'X'.
      w_poitemx-tax_code = 'X'.
      w_poitemx-item_cat = 'X'.
      w_poitemx-acctasscat = 'X'.
      w_poitemx-distrib = 'X'.
      IF NOT w_src-packno IS INITIAL.
        w_poitemx-pckg_no = 'X'.
      ENDIF.
      IF lv_item = 'X'.
        APPEND w_poitemx TO i_poitemx.
        CLEAR: w_poitemx,
               lv_item.
      ENDIF.
PO Deliery Address
      w_poaddrdelivery-po_item = w_src-ebelp.
      IF NOT w_src-adrn2 IS INITIAL.
        w_poaddrdelivery-addr_no = w_src-adrn2.
        APPEND w_poaddrdelivery TO i_poaddrdelivery.
        CLEAR w_poaddrdelivery.
      ENDIF.
POschedule
      w_poschedule-po_item = w_src-ebelp.
      CLEAR: lv_date.
      CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
        EXPORTING
          date_external            = w_src-eindt
        IMPORTING
          date_internal            = lv_date
        EXCEPTIONS
          date_external_is_invalid = 1
          OTHERS                   = 2.
      IF NOT lv_date IS INITIAL.
        w_poschedule-del_datcat_ext = 'D'. "Delivery Date in Day Format
        w_poschedule-delivery_date = lv_date.
        w_poschedule-quantity = w_src-menge.
        APPEND w_poschedule TO i_poschedule.
        CLEAR w_poschedule.
        lv_schd = 'X'.
      ENDIF.
      w_poschedulex-po_item = w_src-ebelp.
      w_poschedulex-del_datcat_ext = 'X'.
      w_poschedulex-delivery_date = 'X'.
      w_poschedulex-quantity = 'X'.
      IF lv_schd = 'X'.
        APPEND w_poschedulex TO i_poschedulex.
        CLEAR : w_poschedulex,
                lv_schd.
      ENDIF.
PO Account Assignment
      w_poaccount-po_item = w_src-ebelp.
      w_poaccount-serial_no = w_src-zekkn.
Distribution Indicator is 1
      IF w_src-vrtkz EQ '1'.
        w_poaccount-distr_perc = w_src-vproz.
        IF NOT w_src-menge IS INITIAL.
          CLEAR lv_menge.
          lv_menge = w_src-menge.
        ENDIF.
        lv_acct_qty = lv_menge * w_src-vproz / 100.
Get Round value of Quanity
        frac = FRAC( lv_acct_qty ).
        IF frac EQ 0.
          lv_acct_qty = FLOOR( lv_acct_qty ).
        ELSE.
          lv_acct_qty = CEIL( lv_acct_qty ).
        ENDIF.
        w_poaccount-quantity = lv_acct_qty.
      ELSEIF w_src-vrtkz IS INITIAL.
        w_poaccount-quantity = w_src-menge.
      ENDIF.
      w_poaccount-gl_account = w_src-saknr.
      w_poaccount-costcenter = w_src-kostl.
      w_poaccount-asset_no = w_src-anln1.
      w_poaccount-wbs_element = w_src-wbs.
      w_poaccount-network = w_src-nplnr.
      w_poaccount-tax_code = w_src-mwskz.
      w_poaccount-activity = w_src-vornr.
      APPEND w_poaccount TO i_poaccount.
      CLEAR w_poaccount.
      w_poaccountx-po_item = w_src-ebelp.
      w_poaccountx-serial_no = w_src-zekkn.
      IF w_src-vrtkz EQ '1'.
        w_poaccountx-distr_perc =  'X'.
      ENDIF.
      w_poaccountx-quantity = 'X'.
      w_poaccountx-gl_account = 'X'.
      w_poaccountx-costcenter = 'X'.
      w_poaccountx-wbs_element = 'X'.
      w_poaccountx-network = 'X'.
      w_poaccountx-tax_code = 'X'.
      w_poaccountx-activity = 'X'.
      APPEND w_poaccountx TO i_poaccountx.
      CLEAR w_poaccountx.
PO Services
      w_poservices-pckg_no = w_src-packno.  "Package no
      w_poservices-line_no = w_src-srv_line_no.    "Line item
      w_poservices-ext_line = w_src-extrow.    "External line
     w_poservices-outl_level = 0.
     w_poservices-outl_ind = 'X'.
      w_poservices-subpckg_no = w_src-sub_packno.  "Sub package no
      w_poservices-quantity = w_src-srqty.  "Service Quantity
      w_poservices-base_uom = w_src-srmeins.  "Service Basic unit of Measure
      w_poservices-price_unit = '1'.
     w_poservices-from_line = '1'.
      w_poservices-gr_price  = w_src-brtwr.  "GR Price
      w_poservices-short_text = w_src-sh_text1.    "Service Short Text
     w_poservices-matl_group = w_src-matkl.  "Material Group
      APPEND w_poservices TO i_poservices.
      CLEAR w_poservices.
PO Service Access values
      w_posrvacc-pckg_no = w_src-packno.  "Package no
      w_posrvacc-line_no = w_src-srv_line_no. "Line item
      w_posrvacc-serno_line = w_src-zekkn.                  "'01'..
      IF w_src-vproz IS INITIAL.
        w_posrvacc-percentage = '100.0'.
      ENDIF.
      w_posrvacc-serial_no = w_src-zekkn.                   "'01'.
      w_posrvacc-quantity = w_src-srqty.  "Service Quantity
      w_posrvacc-net_value = w_src-srqty.  "Net value
      APPEND w_posrvacc TO i_posrvacc.
      CLEAR w_posrvacc.
    ENDIF.
***Create a NEW PO
    AT END OF ihrez.
Call BAPI
      CALL FUNCTION 'BAPI_PO_CREATE1'
        EXPORTING
          poheader          = w_poheader
          poheaderx         = w_poheaderx
        IMPORTING
          exppurchaseorder  = gv_ebeln
        TABLES
          return            = i_return
          poitem            = i_poitem[]
          poitemx           = i_poitemx[]
          poaddrdelivery    = i_poaddrdelivery[]
          poschedule        = i_poschedule[]
          poschedulex       = i_poschedulex[]
          poaccount         = i_poaccount[]
          poaccountx        = i_poaccountx[]
          poservices        = i_poservices[]
          posrvaccessvalues = i_posrvacc[]
          extensionin       = i_extensionin[].
Commit the Transaction
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
       EXPORTING
         WAIT          = 'X'.
Regards,
Deepthi.

Answer 1

1. If we get error as  "In case of account assignment, please enter acc. assignment data for item" than First cehck whetaher u have authorization to Tcode ME23n or not. In my case, I din't had authorization to Me23n tcode.
2. If we get Error as "Please Mainatain Services or Limits". Please create a Service PO in the following Order.
*& Internal Table Declaration
DATA : i_intern         TYPE STANDARD TABLE OF alsmex_tabline WITH HEADER LINE,
       i_poitem         TYPE STANDARD TABLE OF bapimepoitem,
       i_poitemx        TYPE STANDARD TABLE OF bapimepoitemx,
       i_poaddrdelivery TYPE STANDARD TABLE OF bapimepoaddrdelivery,
       i_poschedule     TYPE STANDARD TABLE OF bapimeposchedule,
       i_poschedulex    TYPE STANDARD TABLE OF bapimeposchedulx,
       i_poaccount      TYPE STANDARD TABLE OF bapimepoaccount,
       i_poaccountx     TYPE STANDARD TABLE OF bapimepoaccountx,
       i_poservices     TYPE STANDARD TABLE OF bapiesllc,
       i_posrvacc       TYPE STANDARD TABLE OF bapiesklc,
       i_extensionin    TYPE STANDARD TABLE OF bapiparex,
       i_return         TYPE STANDARD TABLE OF bapiret2.
*& Work Area Declaration
DATA:
      w_poheader       TYPE bapimepoheader,
      w_poheaderx      TYPE bapimepoheaderx,
      w_poitem         TYPE bapimepoitem,
      w_poitemx        TYPE bapimepoitemx,
      w_poaddrdelivery TYPE bapimepoaddrdelivery,
      w_poschedule     TYPE bapimeposchedule,
      w_poschedulex    TYPE bapimeposchedulx,
      w_poaccount      TYPE bapimepoaccount,
      w_poaccountx     TYPE bapimepoaccountx,
      w_poservices     TYPE bapiesllc,
      w_posrvacc       TYPE bapiesklc,
      w_extensionin    TYPE bapiparex,
      w_return         TYPE bapiret2.
START-OF-SELECTION.
Header Data
  w_poheader-comp_code = '5791'.  "Company Code
  w_poheader-doc_type = 'Z0CM'.   "Document type
  w_poheader-creat_date = sy-datum.  "lv_date.    "Creation Date
  w_poheader-created_by = sy-uname.    "Creator Name
  w_poheader-vendor = '0005012343'.     "Vendor
  w_poheader-pmnttrms = 'Z004'.   "Payment Terms
  w_poheader-purch_org = 'P000'.  "Purchase Organization
  w_poheader-pur_group = '001'.  "Purchase Group
  w_poheader-ref_1    = '004500007671'.   "OLD PO
  w_poheaderx-comp_code = 'X'.  "Company Code
  w_poheaderx-doc_type = 'X'.   "Document type
  w_poheaderx-creat_date = 'X'.    "Creation Date
  w_poheaderx-created_by = 'X'.
  w_poheaderx-vendor = 'X'.
  w_poheaderx-pmnttrms = 'X'.   "Payment Terms
  w_poheaderx-purch_org = 'X'.  "Purchase Organization
  w_poheaderx-pur_group = 'X'.  "Purchase Group
  w_poheaderx-ref_1 = 'X'.
Item Data
  w_poitem-po_item = '000010'.
  w_poitem-short_text = 'Z0CM - Default Appr. Test  '.
  w_poitem-plant = '5368'.
  Trackign no
  w_poitem-trackingno = ''.
Material group
  w_poitem-matl_group = '119'.
  w_poitem-po_unit = 'EA'. "Base Unit of Measure
  w_poitem-net_price = '17500.00'.  "Net Price
  w_poitem-tax_code = 'I0'.
  w_poitem-item_cat = '9'.
  w_poitem-acctasscat = 'K'.
  w_poitem-distrib = space.
Package must be given in item to create Service PO
  w_poitem-pckg_no = 0000000001.
  APPEND w_poitem TO i_poitem.
  CLEAR: w_poitem.
  w_poitemx-po_item = '000010'.
  w_poitemx-delete_ind = 'X'.
  w_poitemx-short_text = 'X'.
  w_poitemx-plant = 'X'.
  w_poitemx-trackingno = 'X'.
  w_poitemx-matl_group = 'X'.
  w_poitemx-quantity = 'X'.
  w_poitemx-po_unit = 'X'.
  w_poitemx-net_price = 'X'.
  w_poitemx-tax_code = 'X'.
  w_poitemx-item_cat = 'X'.
  w_poitemx-acctasscat = 'X'.
  w_poitemx-distrib = 'X'.
  w_poitemx-pckg_no = 'X'.
  APPEND w_poitemx TO i_poitemx.
  CLEAR: w_poitemx.
PO Deliery Address
      w_poaddrdelivery-po_item = '000010'.
        w_poaddrdelivery-addr_no = '0000061208'.
        APPEND w_poaddrdelivery TO i_poaddrdelivery.
        CLEAR w_poaddrdelivery.
POschedule
      w_poschedule-po_item = '000010'..
DATA : LV_DATE TYPE SY-DATUM,
       lv_schd.
      CLEAR: lv_date.
      CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
        EXPORTING
          date_external            = '12/2/2009'
        IMPORTING
          date_internal            = lv_date
        EXCEPTIONS
          date_external_is_invalid = 1
          OTHERS                   = 2.
      IF NOT lv_date IS INITIAL.
        w_poschedule-del_datcat_ext = 'D'. "Delivery Date in Day Format
        w_poschedule-delivery_date = lv_date.
        w_poschedule-quantity = '1.000'.
        APPEND w_poschedule TO i_poschedule.
        CLEAR w_poschedule.
        lv_schd = 'X'.
      ENDIF.
      w_poschedulex-po_item = '000010'.
      w_poschedulex-del_datcat_ext = 'X'.
      w_poschedulex-delivery_date = 'X'.
      w_poschedulex-quantity = 'X'.
      IF lv_schd = 'X'.
        APPEND w_poschedulex TO i_poschedulex.
        CLEAR : w_poschedulex,
                lv_schd.
      ENDIF.
PO Account Assignment
  w_poaccount-po_item = '000010'.
  w_poaccount-serial_no = '01'.
  w_poaccount-distr_perc = ''.
  w_poaccount-quantity = '1.000'.
  w_poaccount-gl_account = '0000603064'.
  w_poaccount-costcenter = '0053680100'.
  w_poaccount-asset_no = ''.
  w_poaccount-wbs_element = ''.
  w_poaccount-network = ''.
  w_poaccount-tax_code = 'I0'.
  w_poaccount-activity = ''.
  APPEND w_poaccount TO i_poaccount.
  CLEAR w_poaccount.
  w_poaccountx-po_item = '000010'.
  w_poaccountx-serial_no = '01'.
  w_poaccountx-distr_perc =  'X'.
  w_poaccountx-quantity = 'X'.
  w_poaccountx-gl_account = 'X'.
  w_poaccountx-costcenter = 'X'.
  w_poaccountx-wbs_element = 'X'.
  w_poaccountx-network = 'X'.
  w_poaccountx-tax_code = 'X'.
  w_poaccountx-activity = 'X'.
  w_poaccountx-cmmt_item = 'X'.
  APPEND w_poaccountx TO i_poaccountx.
  CLEAR w_poaccountx.
Extension for ZZSub
  w_extensionin-structure = 'BAPI_TE_MEPOACCOUNTING'.
  w_extensionin-valuepart1+0(5) = '00010'..
  w_extensionin-valuepart1+5(2) = '01'.
  w_extensionin-valuepart1+28(5) = ''.
  APPEND w_extensionin TO i_extensionin.
  CLEAR w_extensionin.
  w_extensionin-structure = 'BAPI_TE_MEPOACCOUNTINGX'.
  w_extensionin-valuepart1+0(5) = '00010'.
  w_extensionin-valuepart1+5(2) = '01'.
  w_extensionin-valuepart1+11(1) = 'X'.
  APPEND w_extensionin TO i_extensionin.
  CLEAR w_extensionin.
Extension to add Expense Type only
  w_extensionin-structure = 'BAPI_TE_MEPOHEADER'.
  w_extensionin-valuepart1+10(4) = '0131'.
  APPEND w_extensionin TO i_extensionin.
  CLEAR w_extensionin.
  w_extensionin-structure = 'BAPI_TE_MEPOHEADERX'.
  w_extensionin-valuepart1+10(4) = 'X'.
  APPEND w_extensionin TO i_extensionin.
  CLEAR w_extensionin.
  EXPORT i_extensionin[] TO MEMORY ID 'SUB'.
PO Services
PO Services( One Line Iem)
Assign the dummy no as Pacakage no
  w_poservices-pckg_no = 0000000001.  "(assign package no as a dummy number)
  w_poservices-line_no = 0000000001.      "Line item
  w_poservices-outl_ind = 'X'.
Assign Dummy no as sub package no
  w_poservices-subpckg_no = 0000000003.   "(Dummy No.) "Sub package no
  w_poservices-from_line = '1'.
  APPEND w_poservices TO i_poservices.
  CLEAR w_poservices.
PO Services(Second Line Item )
Assign the same sub package dummy no which is mentioned above
  w_poservices-pckg_no = 0000000003.   "(Dummy No.) "Sub package no
  w_poservices-line_no = 0000000002.
  w_poservices-ext_line = '0000000010'.     "External line
  w_poservices-quantity = '17500.0'.    "Service Quantity
  w_poservices-base_uom = 'EA'.    "Service Basic unit of Measure
  w_poservices-price_unit = '1'.
  w_poservices-gr_price  = '1'.    "GR Price
  w_poservices-short_text = 'Z0CM - Default Appr. T'.      "Service Short Text
w_poservices-matl_group = '119'.  "w_src-matkl.  "Material Group
  APPEND w_poservices TO i_poservices.
  CLEAR w_poservices.
PO Service Access values
  w_posrvacc-pckg_no = 0000000003.  "w_src-sub_packno.  "Sub package no
  w_posrvacc-line_no = 0000000002.  "w_src-srv_line_no. "Line item
  w_posrvacc-serno_line = '01'.
  w_posrvacc-percentage = '100.0'.
  w_posrvacc-serial_no = '01'.
  w_posrvacc-quantity = '17500.0'.  "w_src-srqty.  "Service Quantity
  APPEND w_posrvacc TO i_posrvacc.
  CLEAR w_posrvacc.
  DATA : gv_ebeln TYPE ebeln.
Call BAPI
  CALL FUNCTION 'BAPI_PO_CREATE1'
    EXPORTING
      poheader          = w_poheader
      poheaderx         = w_poheaderx
    IMPORTING
      exppurchaseorder  = gv_ebeln
    TABLES
      return            = i_return
      poitem            = i_poitem[]
      poitemx           = i_poitemx[]
      poaddrdelivery    = i_poaddrdelivery[]
      poschedule        = i_poschedule[]
      poschedulex       = i_poschedulex[]
      poaccount         = i_poaccount[]
      poaccountx        = i_poaccountx[]
      poservices        = i_poservices[]
      posrvaccessvalues = i_posrvacc[]
      extensionin       = i_extensionin[].
Commit the Transaction
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
  WRITE:/5 gv_ebeln COLOR 5.
  SKIP 2.
  DATA : lv_msg TYPE string.
  LOOP AT i_return INTO w_return WHERE type = 'E'.
    CALL FUNCTION 'FORMAT_MESSAGE'
      EXPORTING
        id        = w_return-id
        lang      = 'EN'
        no        = w_return-number
        v1        = w_return-message_v1
        v2        = w_return-message_v2
        v3        = w_return-message_v3
        v4        = w_return-message_v4
      IMPORTING
        msg       = lv_msg
      EXCEPTIONS
        not_found = 1
        OTHERS    = 2.
    WRITE:/10 lv_msg.
  ENDLOOP.