Service PO for Multiple Acct Assig is not created using BAPI_PO_CREATE1

Question

Hi,
Im unable to create the Service po with multiple acct assiignment 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.
      w_src-vrtkz = '2'.    "Added
      IF NOT w_src-vrtkz IS INITIAL.
        w_poitem-distrib = w_src-vrtkz.
      ENDIF.
Package No
      IF w_src-srv_line_no EQ '2'.
        w_poitem-pckg_no = 0000000001. "Assign dummy package no "w_src-packno.  "Package no
      ELSEIF w_src-srv_line_no EQ '3'.
        w_poitem-pckg_no = 0000000004. "Assign dummy package 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'.
      w_poitemx-pckg_no = 'X'.
      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.
   w_poschedule-SCHED_LINE = w_src-
      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_poschedule-SCHED_LINE = 'X'.
      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-quantity = w_src-menge.    "added
      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'.
      w_poaccountx-cmmt_item = 'X'.
      APPEND w_poaccountx TO i_poaccountx.
      CLEAR w_poaccountx.
Extension for ZZSub
      IF NOT w_src-zzsub IS INITIAL.
        w_extensionin-structure = 'BAPI_TE_MEPOACCOUNTING'.
        w_extensionin-valuepart1+0(5) = w_src-ebelp.
        w_extensionin-valuepart1+5(2) = '01'.
        w_extensionin-valuepart1+28(5) = w_src-zzsub.
        APPEND w_extensionin TO i_extensionin.
        CLEAR w_extensionin.
        w_extensionin-structure = 'BAPI_TE_MEPOACCOUNTINGX'.
        w_extensionin-valuepart1+0(5) = w_src-ebelp.
        w_extensionin-valuepart1+5(2) = '01'.
        w_extensionin-valuepart1+11(1) = 'X'.
        APPEND w_extensionin TO i_extensionin.
        CLEAR w_extensionin.
      ENDIF.
Extension to add Expense Type only
      IF NOT  w_src-zzexptype IS INITIAL.
        w_extensionin-structure = 'BAPI_TE_MEPOHEADER'.
        w_extensionin-valuepart1+10(4) = w_src-zzexptype.
        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.
      ENDIF.
      EXPORT i_extensionin[] TO MEMORY ID 'SUB'.
PO Services( One Line Iem)
      IF w_src-srv_line_no EQ '2'.
        w_poservices-pckg_no = 0000000001.  "w_src-packno. "(assign package no as a dummy number)
        w_poservices-line_no = 0000000001.  "w_src-srv_line_no.    "Line item
        w_poservices-outl_ind = 'X'.
        w_poservices-subpckg_no = 0000000003.  "w_src-sub_packno. "(Dummy No.) "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
        APPEND w_poservices TO i_poservices.
        CLEAR w_poservices.
PO Services(Second Line Item )
        w_poservices-pckg_no = 0000000003.  "w_src-sub_packno. "(Dummy No.) "Sub package no
        w_poservices-line_no = 0000000002.
        w_poservices-ext_line = w_src-extrow.    "External line
        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-gr_price  = w_src-brtwr.  "GR Price
        w_poservices-short_text = w_src-sh_text1.    "Service Short Text
        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 = w_src-zekkn.                "'01'.
        IF w_src-vproz IS INITIAL.
          w_posrvacc-percentage = '100.0'.
        ENDIF.
        w_posrvacc-serial_no = '01'.
        w_posrvacc-quantity = w_src-srqty.  "Service Quantity
        APPEND w_posrvacc TO i_posrvacc.
        CLEAR w_posrvacc.
      ELSEIF w_src-srv_line_no EQ '3'.
PO Services
        if w_src-srv_line_no EQ '2'.
        w_poservices-pckg_no = 0000000004.  "(assign package no as a dummy number)
        w_poservices-line_no = 0000000001.  "Line item
        w_poservices-outl_ind = 'X'.
        w_poservices-subpckg_no = 0000000005.  "(Dummy No.) "Sub package no
        w_poservices-from_line = '1'.
        APPEND w_poservices TO i_poservices.
        CLEAR w_poservices.
        w_poservices-pckg_no = 0000000005.  "w_src-sub_packno. "(Dummy No.) "Sub package no
        w_poservices-line_no = 0000000002.
        w_poservices-ext_line = w_src-extrow.    "External line
        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-gr_price  = w_src-brtwr.  "GR Price
        w_poservices-short_text = w_src-sh_text1.    "Service Short Text
        APPEND w_poservices TO i_poservices.
        CLEAR w_poservices.
        endif.
        if  w_src-srv_line_no EQ '3'.
        w_poservices-pckg_no = 0000000005.  "w_src-sub_packno. "(Dummy No.) "Sub package no
        w_poservices-line_no = 0000000003.
        w_poservices-ext_line = w_src-extrow.    "External line
        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-gr_price  = w_src-brtwr.  "GR Price
        w_poservices-short_text = w_src-sh_text1.    "Service Short Text
        APPEND w_poservices TO i_poservices.
        CLEAR w_poservices.
        endif.
PO Service Access values
       if  w_src-srv_line_no EQ '2'.
        w_posrvacc-pckg_no = 0000000005.  "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_src-zekkn.
        w_posrvacc-quantity = w_src-srqty.  "Service Quantity
        APPEND w_posrvacc TO i_posrvacc.
        CLEAR w_posrvacc.
        endif.
        if  w_src-srv_line_no EQ '3'.
        w_posrvacc-pckg_no = 0000000005.  "w_src-sub_packno.  "Sub package no
        w_posrvacc-line_no = 0000000003.  "w_src-srv_line_no. "Line item
        w_posrvacc-serno_line = '01'.
        w_posrvacc-percentage = '100.0'.
        w_posrvacc-serial_no = '02'.  "w_src-zekkn.  "'01'.
        w_posrvacc-quantity = w_src-srqty.  "Service Quantity
        APPEND w_posrvacc TO i_posrvacc.
        CLEAR w_posrvacc.
        endif.
      ENDIF.
    ENDIF.
***Create a NEW PO
Call BAPI
      CALL FUNCTION 'BAPI_PO_CREATE1'
        EXPORTING
          poheader          = w_poheader
          poheaderx         = w_poheaderx
          TESTRUN           = ' '
        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

it is solved