Profit center substitution ?

Question

Hi ALL,
I am working on a client requirement u201CContract wise Profitabilityu201D (PCA is activated and Document splitting is not activated). thought i am able to get the Contract wise Profitability report , but PC reporting is effected
Business process:
1)Contract is created (T.code Va41) with different lines item and the profit center is populated on the line item based on Product hierarchy+ Plant combination (Z table maintained )
2) An internal order type u201Csapsu201D with revenue postings allowed is created and assigned to the line items (this is capture the actual revenue and Actual costs and develop a Contract wise profitability through BI)
3) But when the internal order is assigned to the line item, the profit center is getting changed to DUMMY profit center (as no profit center is maintained on the internal order type master data)
4) When ever the billing is done the off set account is getting posted to the Dummy profit center (I am aware this is STD behavior as the co real assignment profit center supersede the FI account assignment)
I am able to get the Contract wise Profitability as desired, but at the cost of Profit center reporting,
Please help me to get the posting to done on to the right profit center.
Can we achieve the desired result through Substitution? (If yes which is better, order substitution, PCA substitution or Gl line item substitution)
Or can we achieve this through any Note/BAdi/BTE
Kindly advice, waiting for your suggestions!
Thanks
RS

Answer 1

HI, We used  the mentioned BADI, we are able to change the  profit center but the internal order is getting passed to the Accounting  document   and when we  doing the reveersal , the  reversal Accouting document (revenue account )is Getting populated with wrong Profit center (Dummy) Kindly advice,
This  code is what we put  in to the BDAI
thanks
Method IF_EX_AC_DOCUMENT~CHANGE_AFTER_CHECK.
**// This Badi is only for " ZYES  " Contract Document Type
**// This Badi will get the Profit center at the time of Billing acc.doc generation
**// aswell at the time of Rev.Reg Document Generation
DATA:  IMT_ITEM    TYPE ACCIT_T,
        IMS_ITEM1   TYPE ACCIT,
        IMS_ITEM2   TYPE ACCIT,
        IMS_HEAD    TYPE ACCHD,
        EXT_ITEM    TYPE ACCIT_SUB_T,
        EXS_ITEM    TYPE ACCIT_SUB,
        EX_DOC      TYPE ACC_DOCUMENT_SUBST,
        LV_VBELN    TYPE VBELN_VA,
        LV_POSNR    TYPE POSNR_VA,
        LV_AUART    TYPE AUART,
        LV_PRODH    TYPE PRODH_D,
        LV_VTWEG    TYPE VTWEG,
        LV_SPART    TYPE SPART.
  IMS_HEAD    = IM_DOCUMENT-HEADER.
  IMT_ITEM    = IM_DOCUMENT-ITEM.
  IF IMS_HEAD-AWTYP  = 'VBRK' AND ( IMS_HEAD-TCODE EQ 'VF01' OR IMS_HEAD-TCODE EQ 'VF11' ). " Billing & Cancel
    READ TABLE IMT_ITEM INTO IMS_ITEM1 INDEX 1.
    IF SY-SUBRC EQ 0.
      SELECT SINGLE AUART FROM VBAK INTO LV_AUART WHERE VBELN EQ IMS_ITEM1-XBLNR.
      IF LV_AUART EQ 'ZYES'. " CRM Contracts
        LOOP AT IMT_ITEM INTO IMS_ITEM2.
          IF IMS_ITEM2-PRCTR IS NOT INITIAL.
            CLEAR IMS_ITEM2-PRCTR.
            SELECT SINGLE PRCTR FROM VBAP
                                INTO EXS_ITEM-PRCTR
                               WHERE VBELN EQ IMS_ITEM2-AUBEL
                                 AND POSNR EQ IMS_ITEM2-AUPOS.
            IF SY-SUBRC EQ 0.
              EXS_ITEM-MANDT = SY-MANDT.
              EXS_ITEM-AWTYP = IMS_ITEM2-AWTYP.
              EXS_ITEM-AWREF = IMS_ITEM2-AWREF.
              EXS_ITEM-POSNR = IMS_ITEM2-POSNR.
              EXS_ITEM-GSBER = IMS_ITEM2-GSBER.
              APPEND EXS_ITEM TO  EXT_ITEM.
            ENDIF.
          ENDIF.
        ENDLOOP.
        EX_DOC-ITEM[] = EXT_ITEM[].
        EX_DOCUMENT = EX_DOC.
      ENDIF.
    ENDIF.
  ELSEIF IMS_HEAD-AWTYP  = 'VBRR' AND ( IMS_HEAD-TCODE EQ 'VF44' OR IMS_HEAD-TCODE EQ 'VF46' ). " Revenue Reg & Cancel
    LOOP AT IMT_ITEM INTO IMS_ITEM2 WHERE PRCTR IS NOT INITIAL.
        CLEAR:LV_AUART,LV_VBELN,LV_POSNR,IMS_ITEM2-PRCTR.
        LV_VBELN = IMS_ITEM2-ZUONR+0(10).
        LV_POSNR = IMS_ITEM2-ZUONR+10(6).
        SELECT SINGLE AUART VTWEG SPART FROM VBAK INTO
                           (LV_AUART,LV_VTWEG,LV_SPART) WHERE VBELN EQ LV_VBELN.
        IF LV_AUART EQ 'ZYES'.
          SELECT SINGLE PRCTR FROM VBAP
                              INTO EXS_ITEM-PRCTR
                             WHERE VBELN EQ LV_VBELN
                               AND POSNR EQ LV_POSNR.
         IF SY-SUBRC EQ 0.
            EXS_ITEM-MANDT = SY-MANDT.
            EXS_ITEM-AWTYP = IMS_ITEM2-AWTYP.
            EXS_ITEM-AWREF = IMS_ITEM2-AWREF.
            EXS_ITEM-POSNR = IMS_ITEM2-POSNR.
            EXS_ITEM-GSBER = IMS_ITEM2-GSBER.
            EXS_ITEM-AWORG = IMS_ITEM2-AWORG.
            APPEND EXS_ITEM TO  EXT_ITEM.
          ENDIF.
        ENDIF.
      ENDLOOP.
      IF EXT_ITEM[] IS NOT INITIAL.
       EX_DOC-ITEM[] = EXT_ITEM[].
       EX_DOCUMENT = EX_DOC.
      ENDIF.
  ENDIF.
endmethod.