Quantcast
Channel: SCN : All Content - All Communities
Viewing all articles
Browse latest Browse all 8735

BAPI_PO_CREATE1 - In case of account assignment, please enter acc. assignment data for item

$
0
0

Hi,

 

Currently I'm facing an error "In case of account assignment, please enter acc. assignment data for item" when create a Purchase Order using BAPI_PO_CREATE1. The condition of the data that need to pump into the system is that this PO is an open item PO where does not require a metarial code for input, but it will pump in Short Text and Material Group. Other than that, the account assignment category is "K" and the item category is "9".

 

Below is the coding that I have implemented.

------------------------------------------------------------------------------

IF wa_temp_upr1-waers IS NOT INITIAL.

       MOVE wa_temp_upr1-waers TO wa_header-currency.

       wa_headerx-currency = abap_true.

     ENDIF.

 

     MOVE: wa_temp_upr1-lifnr TO wa_header-vendor,

           wa_temp_upr1-unsez TO wa_header-collect_no,

           wa_temp_upr1-bukrs TO wa_header-comp_code,

           sy-datum      TO wa_header-doc_date,

           sy-langu      TO wa_header-langu,

           'KTN1'        TO wa_header-purch_org,

           wa_temp_upr1-bkgrp TO wa_header-pur_group,

           wa_temp_upr1-zterm TO wa_header-pmnttrms.

 

     wa_headerx-collect_no = abap_true.

     wa_headerx-po_number = abap_true.

     wa_headerx-comp_code = abap_true.

     wa_headerx-vendor = abap_true.

     wa_headerx-doc_date = abap_true.

     wa_headerx-langu = abap_true.

     wa_headerx-purch_org = abap_true.

     wa_headerx-pur_group = abap_true.

     wa_headerx-pmnttrms = abap_true.

 

     IF wa_temp_upr1-meins IS NOT INITIAL.

       MOVE wa_temp_upr1-meins TO zunit_e.

       CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'

         EXPORTING

           INPUT                zunit_e

           LANGUAGE             = 'E'

         IMPORTING

           OUTPUT               = zunit_e.

       IF SY-SUBRC <> 0.

* Implement suitable error handling here

       ELSE.

         MOVE zunit_e TO wa_temp_upr1-meins.

       ENDIF.

       MODIFY it_upr1 FROM wa_temp_upr1.

     ENDIF.

 

     ADD 10 TO line_item.

 

     CALL FUNCTION 'NUMBER_GET_NEXT'

       EXPORTING

         NR_RANGE_NR = '01'

         OBJECT      = 'SERVICE'

       IMPORTING

         NUMBER      = pckg_no.

     IF SY-SUBRC <> 0.

* Implement suitable error handling here

     ENDIF.

     CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

       EXPORTING

         INPUT  = wa_temp_upr1-matnr

       IMPORTING

         OUTPUT = wa_po_item-material.

 

     MOVE: line_item TO wa_po_item-po_item,

           wa_temp_upr1-ewerks TO wa_po_item-plant,

           wa_temp_upr1-lgort TO wa_po_item-stge_loc,

           wa_temp_upr1-matnr TO wa_po_item-material,

           wa_temp_upr1-menge TO wa_po_item-quantity,

           wa_temp_upr1-peinh TO wa_po_item-price_unit,

           wa_temp_upr1-netpr TO wa_po_item-net_price,

           wa_temp_upr1-meins TO wa_po_item-po_unit,

           wa_temp_upr1-afnam TO wa_po_item-preq_name,

           wa_temp_upr1-eeind TO wa_po_item-price_date,

           ' ' TO wa_po_item-gr_ind,

           'X' TO wa_po_item-ir_ind,

           'X' TO wa_po_item-prnt_price,

           ' ' TO wa_po_item-distrib.

 

     wa_po_item-acctasscat = 'K'.

     MOVE pckg_no TO wa_po_item-pckg_no.

     wa_po_itemx-pckg_no = abap_true.

     IF wa_temp_upr1-bismt IS INITIAL.

       MOVE: wa_temp_upr1-short_text TO wa_po_item-short_text,

             wa_temp_upr1-matl_group TO wa_po_item-matl_group,

              '9' TO wa_po_item-item_cat.

 

       wa_po_itemx-short_text = abap_true.

       wa_po_itemx-matl_group = abap_true.

       wa_po_itemx-item_cat = abap_true.

 

       wa_potext-po_item = wa_po_item-po_item.

       wa_potext-text_id = 'F01'.

       APPEND wa_potext TO it_potext.

     ENDIF.

     MOVE wa_po_item-po_item TO wa_po_itemx-po_item.

     wa_po_itemx-plant = abap_true.

     wa_po_itemx-po_itemx = abap_true.

     wa_po_itemx-stge_loc = abap_true.

     IF wa_po_item-material IS NOT INITIAL.

       wa_po_itemx-material = abap_true.

     ENDIF.

     wa_po_itemx-quantity = abap_true.

     wa_po_itemx-price_unit = abap_true.

     wa_po_itemx-net_price = abap_true.

     wa_po_itemx-po_unit = abap_true.

     wa_po_itemx-preq_name = abap_true.

     wa_po_itemx-price_date = abap_true.

     wa_po_itemx-acctasscat = abap_true.

     wa_po_itemx-gr_ind = abap_true.

     wa_po_itemx-distrib = abap_true.

     wa_po_itemx-part_inv = abap_true.

 

     APPEND wa_po_item TO it_item.

     APPEND wa_po_itemx TO it_itemx.

 

     CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

         EXPORTING

           INPUT  = wa_temp_upr1-kostl

         IMPORTING

           OUTPUT = wa_temp_upr1-kostl.

 

       wa_account-costcenter = wa_temp_upr1-kostl.

       ADD 1 TO l_acc.

       ADD 10 TO v_po_item.

       MOVE v_po_item TO wa_account-po_item.

       MOVE '01' TO wa_account-serial_no.

       APPEND wa_account TO it_account.

 

       wa_accountx-costcenter = abap_true.

       MOVE v_po_item TO wa_accountx-po_item.

       MOVE '01' TO wa_accountx-serial_no.

       wa_accountx-SERIAL_NOX = abap_true.

       wa_accountx-po_itemx = abap_true.

       APPEND wa_accountx TO it_accountx.

 

*********** services

       wa_services-pckg_no = pckg_no.

       wa_services-line_no = '0000000001'.

       wa_services-outl_ind = 'X'.

       wa_services-subpckg_no = pckg_no + 1.

*******

       wa_services-quantity = wa_temp_upr1-menge.

       wa_services-base_uom = wa_temp_upr1-meins.

       wa_services-price_unit = wa_temp_upr1-peinh.

       wa_services-gr_price = wa_temp_upr1-netpr.

       IF wa_temp_upr1-short_text IS NOT INITIAL.

         wa_services-short_text = wa_temp_upr1-short_text.

       ENDIF.

*********

       APPEND wa_services TO it_services.

 

       CLEARwa_services,

               val_lin.

       wa_services-pckg_no = pckg_no + 1.

       wa_services-line_no = '0000000002'.

       wa_services-quantity = wa_temp_upr1-menge.

       wa_services-base_uom = wa_temp_upr1-meins.

       wa_services-price_unit = wa_temp_upr1-peinh.

       wa_services-gr_price = wa_temp_upr1-netpr.

       IF wa_temp_upr1-short_text IS NOT INITIAL.

         wa_services-short_text = 'SERVICE 1'.

       ENDIF.

       IF NOT wa_temp_upr1-matl_group IS INITIAL.

         wa_services-matl_group = wa_temp_upr1-matl_group.

       ENDIF.

       APPEND wa_services TO it_services.

 

************* service account assignment

       wa_services_acc-pckg_no = pckg_no + 1.

       wa_services_acc-line_no = '0000000002'.

       wa_services_acc-serno_line = '01'.

       wa_services_acc-quantity = wa_temp_upr1-menge.

       wa_services_acc-serial_no = '01'.

       wa_services_acc-net_value = wa_temp_upr1-netpr.

       APPEND wa_services_acc TO it_services_acc.

 

       CALL FUNCTION 'BAPI_PO_CREATE1'

         EXPORTING

           POHEADER          = wa_header

           POHEADERX         = wa_headerx

           TESTRUN           = pa_test

           NO_PRICE_FROM_PO  = 'X'

 

         IMPORTING

           EXPPURCHASEORDER  = va_ebeln

           EXPHEADER         = wa_expheader

 

         TABLES

           RETURN            = it_return

           POITEM            = it_item

           POITEMX           = it_itemx

 

           POACCOUNT         = it_account

           POACCOUNTX        = it_accountx

           POSERVICES        = it_services

           POSRVACCESSVALUES = it_services_acc

           POTEXTITEM        = it_potext.


I have done some search regarding this error and try to implemented it, but still does not working.

example website that i found for this error is:

David Klein's Corner: SAP Purchase Order Creation Error via BAPI - &quot;In case of account assignment, please enter acc…

PO Upload through BAPI_PO_CREATE1 - Problem in Service Item


Currently my system is using: SAP_APPL SAPKH60604


I am really stuck on this error. Hope you all can help me on this matter.


Thanks.


Viewing all articles
Browse latest Browse all 8735

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>