Changing the G/L Account while Posting the Goods Receipts in MIGO

Question

Hi All,
I have requirement in which G/L Account needs to be changed based on some validation while Posting the Goods Receipt in MIGO.
I have created exit in OBBH by copying the standard SAP Program RGGBS800 in view V_T80D.
I changed following entry in view V_T80D:
GBLS     ZGGBS800     Val/sub:Exits for substitution
Now Inside program ZGGBS800, I have written the logic to change the BSEG-HKONT value with the new G/L Account which gets called inside the standard function module G_VSR_SUBSTITUTION_CALL.
FORM U999.
   DATA : V_HKONT TYPE BSEG-HKONT.
   clear : V_HKONT.
   SELECT SINGLE SAKNR FROM ZMASH1 INTO V_HKONT WHERE MATNR = BSEG-MATNR AND WERKS = BSEG-WERKS.
     IF SY-SUBRC EQ 0.
       BSEG-HKONT = V_HKONT.
     ENDIF.
ENDFORM.
After the execution of the above code the value of BSEG-HKONT changes with new value of V_HKONT but after this when I go further in Standard SAP code of function module G_VSR_SUBSTITUTION_CALL, there is one subroutine FORM EXP_TAB_009_BSEG  being called which changes the value of BSEG-HKONT to initial value of HKONT also while moving the data from BSEG to TEMP_STRUCT it doesn't passes the HKONT value, which I want it be passed as I want the changed value to be passed finally to OUT_RESULT. Please look at the code below.
Following is the SAP standard code of subroutione FORM EXP_TAB_009_BSEG :
FORM EXP_TAB_009_BSEG
         USING
           IN_ORIG STRUCTURE        BSEG
        CHANGING
           OUT_RESULT STRUCTURE     BSEG
           B_RESULT.
  DATA:  ORIG LIKE BSEG.
  DATA:  BEGIN OF TEMP_STRUCT,
         ABPER                          LIKE   BSEG-ABPER,
         AUGGJ                          LIKE   BSEG-AUGGJ,
         DOCLN                          LIKE   BSEG-DOCLN,
         FIPOS                          LIKE   BSEG-FIPOS,
         FISTL                          LIKE   BSEG-FISTL,
         FKBER                          LIKE   BSEG-FKBER,
         FKBER_LONG                     LIKE   BSEG-FKBER_LONG,
         GEBER                          LIKE   BSEG-GEBER,
         GMVKZ                          LIKE   BSEG-GMVKZ,
         GRANT_NBR                      LIKE   BSEG-GRANT_NBR,
         HKTID                          LIKE   BSEG-HKTID,
         HZUON                          LIKE   BSEG-HZUON,
         INTRENO                        LIKE   BSEG-INTRENO,
         MEASURE                        LIKE   BSEG-MEASURE,
         PARGB                          LIKE   BSEG-PARGB,
         PPA_EX_IND                     LIKE   BSEG-PPA_EX_IND,
         PPRCT                          LIKE   BSEG-PPRCT,
         PRCTR                          LIKE   BSEG-PRCTR,
         PRODPER                        LIKE   BSEG-PRODPER,
         PRZNR                          LIKE   BSEG-PRZNR,
         PSEGMENT                       LIKE   BSEG-PSEGMENT,
         SAMNR                          LIKE   BSEG-SAMNR,
         SCTAX                          LIKE   BSEG-SCTAX,
         SEGMENT                        LIKE   BSEG-SEGMENT,
         SGTXT                          LIKE   BSEG-SGTXT,
         SRTYPE                         LIKE   BSEG-SRTYPE,
         UZAWE                          LIKE   BSEG-UZAWE,
         XREF1                          LIKE   BSEG-XREF1,
         XREF2                          LIKE   BSEG-XREF2,
         XREF3                          LIKE   BSEG-XREF3,
         ZUONR                          LIKE   BSEG-ZUONR,
         ZZBUSPARTN                     LIKE   BSEG-ZZBUSPARTN,
         ZZCHAN                         LIKE   BSEG-ZZCHAN,
         ZZLOB                          LIKE   BSEG-ZZLOB,
         ZZLOCA                         LIKE   BSEG-ZZLOCA,
         ZZPRODUCT                      LIKE   BSEG-ZZPRODUCT,
         ZZREGION                       LIKE   BSEG-ZZREGION,
         ZZSPREG                        LIKE   BSEG-ZZSPREG,
         ZZSTATE                        LIKE   BSEG-ZZSTATE,
         ZZUSERFLD1                     LIKE   BSEG-ZZUSERFLD1,
         ZZUSERFLD2                     LIKE   BSEG-ZZUSERFLD2,
         ZZUSERFLD3                     LIKE   BSEG-ZZUSERFLD3,
         END OF TEMP_STRUCT.
  IF IN_ORIG = BSEG .
    B_RESULT = B_FALSE.
    OUT_RESULT = IN_ORIG.
    EXIT.
  ENDIF.
  MOVE-CORRESPONDING BSEG TO TEMP_STRUCT.
  OUT_RESULT = IN_ORIG.
  MOVE-CORRESPONDING TEMP_STRUCT TO OUT_RESULT.
  IF IN_ORIG = OUT_RESULT .
    B_RESULT = B_FALSE.
  ELSE.
    B_RESULT = B_TRUE.
  ENDIF.
  BSEG = OUT_RESULT.
ENDFORM.                               " EXP_TAB_009_BSEG
I need the value of BSEG-HKONT should be passed to OUT_RESULT-HKONT.
I am not able to find any userexit or BADI for this.
Please guide me on this.
Thanks,
Chandravadan
Edited by: Chandravadan Jaiswal on May 8, 2009 2:18 PM
Edited by: Chandravadan Jaiswal on May 8, 2009 3:45 PM

Answer 1

Hi
I also need to change hkont while posting MIGO and MIRO transaction..
Any suggestion for this?
Here's my problem.. Substitution of account(HKONT) when posting in MIGO/MIRO