Validation of SC/PO

Question

Hi all,
I am doing FI validation in SRM 4.0.Actually i am getting error based on the GL account and company code at line item which are based on the costcenter or internal order or WBS using...for this i am using FM BAPI_ACC_GL_POSTING_CHECK(RFC enabled) from R3 to SRM.the error message i am getting i was populating while creating SC/PO in the DOC_CHECK_BADI ..One strange thing is for testing i have commented the code in DOC_CHECK_BADI still i am getting the error based on GL account and company code ..firstly i thought i might be some other error but this is the same error i am getting from the BAPI_ACC_GL_POSTING_CHECK..
I want to know is there any standard functionality that the error is coming from the backend or it is the code that i have written
Thank you

Answer 1

<b>BADI CODE IN DOC_CHECK_BADI FOR POS</b>
For direct PO's, R/3 validation. Get PO details
Data: WA_HEADER TYPE BBP_PDS_PO_HEADER_D,
      LT_ITEMDATA TYPE TABLE OF BBP_PDS_PO_ITEM_D,
      WA_ITEMDATA LIKE LINE OF LT_ITEMDATA,
      LT_ACC TYPE TABLE OF BBP_PDS_ACC,
      WA_ACC LIKE LINE OF LT_ACC,
      lt_bapiache08 type zbapiache08,
      lt_bapiacgl08 type table of ZBAPIACGL08,
      wa_bapiacgl08 type ZBAPIACGL08,
      lt_bapiaccr08 type table of ZBAPIACCR08,
      wa_bapiaccr08 type ZBAPIACCR08,
      lt_return type table of BAPIRET2,
      wa_return type BAPIRET2,
      wa_messages type BBP_SMESSAGES_BADI,
      lv_docdate(8),
      lv_pstngdate(8),
      lv_counter type i,
      lv_value(15),
      lv_amount(16),
      lv_len type i,
      LV_SYSID(9).
UPDK900880
DATA : LV_PROFIT_CTR(4).
UPDK900880
get purchase order details
IF SY-UCOMM = 'SAVE' AND SY-TCODE = 'BBP_POC'.
*IF SY-UCOMM = 'CHEC' AND SY-TCODE = 'BBP_POC'.
  CALL FUNCTION 'BBP_PD_PO_GETDETAIL'
   EXPORTING
     I_GUID                           = IV_DOC_GUID
    I_OBJECT_ID                      =
     I_WITH_ITEMDATA                  = 'X'
   IMPORTING
     E_HEADER                         = WA_HEADER
   TABLES
     E_ITEM                           = LT_ITEMDATA
     E_ACCOUNT                        = LT_ACC
UPDK900880
   LOOP AT LT_ACC INTO WA_ACC.
      MOVE WA_ACC-PROFIT_CTR+0(4) TO LV_PROFIT_CTR.
   ENDLOOP.
UPDK900880
Concatenate document date and posting date, default system date
     concatenate  sy-datum0(4) sy-datum4(2) sy-datum+6(2) into lv_docdate.
     concatenate  sy-datum0(4) sy-datum4(2) sy-datum+6(2) into lv_pstngdate.
build structure bapiache08 of RFC BAPI_ACC_GL_POSTING_CHECK
UPDK900880
    move:  LV_PROFIT_CTR TO lt_bapiache08-comp_code,
          wa_header-co_code to lt_bapiache08-comp_code,
UPDK900880
          'BTUSER' to lt_bapiache08-username,
          sy-datum+0(4) to lt_bapiache08-fisc_year,
          lv_docdate to lt_bapiache08-doc_date,
          lv_pstngdate to lt_bapiache08-pstng_date,
          'SA' to lt_bapiache08-doc_type.
build structure bapiacgl08 of RFC BAPI_ACC_GL_POSTING_CHECK
    loop at lt_acc into wa_acc.
      lv_counter = lv_counter + 1.
      move: lv_counter to wa_bapiacgl08-itemno_acc,
            wa_acc-g_l_acct to wa_bapiacgl08-gl_account,
UPDK900880
           wa_header-co_code to wa_bapiacgl08-comp_code,
            LV_PROFIT_CTR TO wa_bapiacgl08-comp_code,
UPDK900880
            lv_pstngdate to wa_bapiacgl08-pstng_date,
            'SA' to wa_bapiacgl08-doc_type,
            sy-datum+0(4) to wa_bapiacgl08-fisc_year.
            if wa_acc-cost_ctr is not initial.
              move wa_acc-cost_ctr to wa_bapiacgl08-costcenter.
            elseif wa_acc-wbs_elem_e is not initial.
              move wa_acc-wbs_elem_e to wa_bapiacgl08-wbs_element.
            elseif wa_acc-order_no is not initial.
              move wa_acc-order_no to wa_bapiacgl08-orderid.
            endif.
            append wa_bapiacgl08 to lt_bapiacgl08.
            clear wa_bapiacgl08.
       lv_counter = lv_counter + 1.
       move: lv_counter to wa_bapiacgl08-itemno_acc,
UPDK900880
            wa_header-co_code to wa_bapiacgl08-comp_code,
             LV_PROFIT_CTR TO wa_bapiacgl08-comp_code,
UPDK900880
             '0014109889' to wa_bapiacgl08-gl_account,
             lv_pstngdate to wa_bapiacgl08-pstng_date,
             'SA' to wa_bapiacgl08-doc_type,
             sy-datum+0(4) to wa_bapiacgl08-fisc_year.
       append wa_bapiacgl08 to lt_bapiacgl08.
       clear wa_bapiacgl08.
    endloop.
    clear lv_counter.
build structure bapiaccr08 of RFC BAPI_ACC_GL_POSTING_CHECK
    loop at lt_itemdata into wa_itemdata.
      lv_counter = lv_counter + 1.
      move: lv_counter to wa_bapiaccr08-itemno_acc,
      wa_itemdata-value to wa_bapiaccr08-amt_doccur,
      'USD' to wa_bapiaccr08-currency.
      append wa_bapiaccr08 to lt_bapiaccr08.
      clear wa_bapiaccr08.
      lv_counter = lv_counter + 1.
      move wa_itemdata-value to lv_value.
      concatenate lv_value '-' into lv_amount.
      move: lv_counter to wa_bapiaccr08-itemno_acc,
      lv_amount to wa_bapiaccr08-amt_doccur,
      'USD' to wa_bapiaccr08-currency.
      append wa_bapiaccr08 to lt_bapiaccr08.
      clear wa_bapiaccr08.
    endloop.
    clear lv_counter.
Check the SRM system
    IF SY-SYSID = 'UPD'.                                                                     "3
      LV_SYSID = 'UHD_111'.
      CONDENSE LV_SYSID NO-GAPS.
    ELSEIF SY-SYSID = 'UPX'.                                                                 "3
      LV_SYSID = 'SAPUHD111'.
      CONDENSE LV_SYSID NO-GAPS.
    ELSEIF SY-SYSID = 'UPQ'.                                                                 "3
      LV_SYSID = 'SAPUHQ100'.
      CONDENSE LV_SYSID NO-GAPS.
    ELSEIF SY-SYSID = 'UPP'.                                                                 "3
      LV_SYSID = 'SAPUHP100'.
      CONDENSE LV_SYSID NO-GAPS.
    ENDIF.
RFC call
    Call Function 'BAPI_ACC_GL_POSTING_CHECK' destination LV_SYSID
    Exporting
      DOCUMENTHEADER      = lt_bapiache08
    Tables
      ACCOUNTGL           = lt_bapiacgl08
      CURRENCYAMOUNT      = lt_bapiaccr08
      RETURN              = lt_return.
    Loop at lt_return into wa_return.
      lv_len = strlen( wa_return-message ).
      if lv_len le 49.
        move: wa_return to wa_messages-msgty,
              'BBP_PD' to wa_messages-msgid,
              '047' to wa_messages-msgno,
              wa_return-message to wa_messages-msgv1.
           append wa_messages to et_messages.
      elseif lv_len gt 50 and lv_len le 99.
        move: wa_return to wa_messages-msgty,
              'BBP_PD' to wa_messages-msgid,
              '047' to wa_messages-msgno,
              wa_return-message+0(49) to wa_messages-msgv1,
              wa_return-message+50(49) to wa_messages-msgv2.
              append wa_messages to et_messages.
      elseif lv_len ge 100 and lv_len le 149.
        move: wa_return to wa_messages-msgty,
              'BBP_PD' to wa_messages-msgid,
              '047' to wa_messages-msgno,
              wa_return-message+0(49) to wa_messages-msgv1,
              wa_return-message+50(49) to wa_messages-msgv2,
              wa_return-message+100(49) to wa_messages-msgv3.
              append wa_messages to et_messages.
      elseif lv_len ge 150 and lv_len le 199.
        move: wa_return to wa_messages-msgty,
              'BBP_PD' to wa_messages-msgid,
              '047' to wa_messages-msgno,
              wa_return-message+0(49) to wa_messages-msgv1,
              wa_return-message+50(49) to wa_messages-msgv2,
              wa_return-message+100(49) to wa_messages-msgv3,
              wa_return-message+150(49) to wa_messages-msgv4.
              append wa_messages to et_messages.
      endif.
      clear: wa_messages, wa_return.
    endloop.
endif.
<b>BADI CODE FOR DOC_CHECK_BADI FOR SCs</b>
*---Declaration
Data: WA_HEADER      TYPE BBP_PDS_SC_HEADER_D,
      LT_ITEMDATA    TYPE TABLE OF BBP_PDS_SC_ITEM_D,
      WA_ITEMDATA    LIKE LINE OF LT_ITEMDATA,
      LT_ACC         TYPE TABLE OF BBP_PDS_ACC,
      WA_ACC         LIKE LINE OF LT_ACC,
      lt_bapiache08  type zbapiache08,
      lt_bapiacgl08  type table of ZBAPIACGL08,
      wa_bapiacgl08  type ZBAPIACGL08,
      lt_bapiaccr08  type table of ZBAPIACCR08,
      wa_bapiaccr08  type ZBAPIACCR08,
      lt_return      type table of BAPIRET2,
      wa_return      type BAPIRET2,
      wa_messages    type BBP_SMESSAGES_BADI,
      lv_docdate(8),
      lv_pstngdate(8),
      lv_counter type i,
      lv_value(15),
      lv_amount(16),
      lv_len type i,
      LV_SYSID(9).
*------Changes for Line item company code
DATA : LV_PROFIT_CTR(4).
Get SC Details
IF ( SY-UCOMM = 'SC_CHECK' AND SY-TCODE = 'BBPSC03' ) OR ( SY-UCOMM = 'SC_ORDER' AND SY-TCODE = 'BBPSC03' ).
  CALL FUNCTION 'BBP_PD_SC_GETDETAIL'
   EXPORTING
     I_GUID                           = IV_DOC_GUID
    I_OBJECT_ID                      =
     I_WITH_ITEMDATA                  = 'X'
   IMPORTING
     E_HEADER                         = WA_HEADER
   TABLES
     E_ITEM                           = LT_ITEMDATA
     E_ACCOUNT                        = LT_ACC
Concatenate document date and posting date, default system date
   concatenate  sy-datum6(2) sy-datum0(4) sy-datum+4(2)  into lv_docdate.
   concatenate  sy-datum6(2) sy-datum0(4) sy-datum+4(2) into lv_pstngdate.
     concatenate  sy-datum0(4) sy-datum4(2) sy-datum+6(2) into lv_docdate.
     concatenate  sy-datum0(4) sy-datum4(2) sy-datum+6(2) into lv_pstngdate.
build structure bapiache08 of RFC BAPI_ACC_GL_POSTING_CHECK
*loop at LT_ITEMDATA into wa_ITEMDATA.
move wa_itemdata-BE_CO_CODE to lt_bapiache08-comp_code.
*endloop.
   LOOP AT LT_ACC INTO WA_ACC.
      MOVE WA_ACC-PROFIT_CTR+0(4) TO LV_PROFIT_CTR.
   ENDLOOP.
Chnages for Line item company code
    move:  LV_PROFIT_CTR TO lt_bapiache08-comp_code,
         wa_header-co_code to lt_bapiache08-comp_code,
End of Chnages for Line item company code
          'BTUSER' to lt_bapiache08-username,
          sy-datum+0(4) to lt_bapiache08-fisc_year,
          lv_docdate to lt_bapiache08-doc_date,
          lv_pstngdate to lt_bapiache08-pstng_date,
          'SA' to lt_bapiache08-doc_type.
build structure bapiacgl08 of RFC BAPI_ACC_GL_POSTING_CHECK
    loop at lt_acc into wa_acc.
      lv_counter = lv_counter + 1.
      move: lv_counter to wa_bapiacgl08-itemno_acc,
            wa_acc-g_l_acct to wa_bapiacgl08-gl_account,
Chnages for Line item company code
           wa_header-co_code to wa_bapiacgl08-comp_code,
            LV_PROFIT_CTR TO wa_bapiacgl08-comp_code,
End of Chnages for Line item company code
            lv_pstngdate to wa_bapiacgl08-pstng_date,
            'SA' to wa_bapiacgl08-doc_type,
            sy-datum+0(4) to wa_bapiacgl08-fisc_year.
            if wa_acc-cost_ctr is not initial.
              move wa_acc-cost_ctr to wa_bapiacgl08-costcenter.
            elseif wa_acc-wbs_elem_e is not initial.
              move wa_acc-wbs_elem_e to wa_bapiacgl08-wbs_element.
            elseif wa_acc-order_no is not initial.
              move wa_acc-order_no to wa_bapiacgl08-orderid.
            endif.
            append wa_bapiacgl08 to lt_bapiacgl08.
            clear wa_bapiacgl08.
       lv_counter = lv_counter + 1.
       move: lv_counter to wa_bapiacgl08-itemno_acc,
Chnages for Line item company code
            wa_header-co_code to wa_bapiacgl08-comp_code,
               LV_PROFIT_CTR TO wa_bapiacgl08-comp_code,
End of Chnages for Line item company code
             '0014109889' to wa_bapiacgl08-gl_account,
             lv_pstngdate to wa_bapiacgl08-pstng_date,
             'SA' to wa_bapiacgl08-doc_type,
             sy-datum+0(4) to wa_bapiacgl08-fisc_year.
       append wa_bapiacgl08 to lt_bapiacgl08.
       clear wa_bapiacgl08.
    endloop.
    clear lv_counter.
build structure bapiaccr08 of RFC BAPI_ACC_GL_POSTING_CHECK
    loop at lt_itemdata into wa_itemdata.
      lv_counter = lv_counter + 1.
      move: lv_counter to wa_bapiaccr08-itemno_acc,
      wa_itemdata-value to wa_bapiaccr08-amt_doccur,
      'USD' to wa_bapiaccr08-currency.
      append wa_bapiaccr08 to lt_bapiaccr08.
      clear wa_bapiaccr08.
      lv_counter = lv_counter + 1.
      move wa_itemdata-value to lv_value.
      concatenate lv_value '-' into lv_amount.
      move: lv_counter to wa_bapiaccr08-itemno_acc,
      lv_amount to wa_bapiaccr08-amt_doccur,
      'USD' to wa_bapiaccr08-currency.
      append wa_bapiaccr08 to lt_bapiaccr08.
      clear wa_bapiaccr08.
    endloop.
    clear lv_counter.
Check the SRM system
    IF SY-SYSID = 'UPD'.                                                                     "3
      LV_SYSID = 'UHD_111'.
      CONDENSE LV_SYSID NO-GAPS.
    ELSEIF SY-SYSID = 'UPX'.                                                                 "3
      LV_SYSID = 'SAPUHD111'.
      CONDENSE LV_SYSID NO-GAPS.
    ELSEIF SY-SYSID = 'UPQ'.                                                                 "3
      LV_SYSID = 'SAPUHQ100'.
      CONDENSE LV_SYSID NO-GAPS.
    ELSEIF SY-SYSID = 'UPP'.                                                                 "3
      LV_SYSID = 'SAPUHP100'.
      CONDENSE LV_SYSID NO-GAPS.
    ENDIF.
RFC call
    Call Function 'BAPI_ACC_GL_POSTING_CHECK' destination LV_SYSID
    Exporting
      DOCUMENTHEADER      = lt_bapiache08
    Tables
      ACCOUNTGL           = lt_bapiacgl08
      CURRENCYAMOUNT      = lt_bapiaccr08
      RETURN              = lt_return.
     break-point.
    Loop at lt_return into wa_return.
      lv_len = strlen( wa_return-message ).
      if lv_len le 49.
        move: wa_return to wa_messages-msgty,
              'BBP_PD' to wa_messages-msgid,
              '047' to wa_messages-msgno,
              wa_return-message to wa_messages-msgv1.
           append wa_messages to et_messages.
      elseif lv_len gt 50 and lv_len le 99.
        move: wa_return to wa_messages-msgty,
              'BBP_PD' to wa_messages-msgid,
              '047' to wa_messages-msgno,
              wa_return-message+0(49) to wa_messages-msgv1,
              wa_return-message+50(49) to wa_messages-msgv2.
              append wa_messages to et_messages.
      elseif lv_len ge 100 and lv_len le 149.
        move: wa_return to wa_messages-msgty,
              'BBP_PD' to wa_messages-msgid,
              '047' to wa_messages-msgno,
              wa_return-message+0(49) to wa_messages-msgv1,
              wa_return-message+50(49) to wa_messages-msgv2,
              wa_return-message+100(49) to wa_messages-msgv3.
              append wa_messages to et_messages.
      elseif lv_len ge 150 and lv_len le 199.
        move: wa_return to wa_messages-msgty,
              'BBP_PD' to wa_messages-msgid,
              '047' to wa_messages-msgno,
              wa_return-message+0(49) to wa_messages-msgv1,
              wa_return-message+50(49) to wa_messages-msgv2,
              wa_return-message+100(49) to wa_messages-msgv3,
              wa_return-message+150(49) to wa_messages-msgv4.
              append wa_messages to et_messages.
      endif.
      clear: wa_messages, wa_return.
    endloop.
endif.
This is what i wrote in BADI except this i wrote nothing ...and no where