‎2010 Dec 10 7:05 AM
Hai all,
We have a requirement, in VA02 : at Partner functions, when user changes ship-to-party, then automatically
bill-to-party and payer should be filled with ship-to-party's customer code in redetermine screen.
Pls, suggest us for any enhancements/exits/BADI's.
Thanks in advance.
‎2010 Dec 10 12:18 PM
Hi,
Try these EXITS:
EXIT_SAPLV09A_002
EXIT_SAPLV09A_003
EXIT_SAPLV09A_004
I hope in your case, EXIT_SAPLV09A_003 might be useful, Please read the documentation in SE37 for more information.
Regards,
Shashwath
‎2010 Dec 10 12:18 PM
Hi,
Try these EXITS:
EXIT_SAPLV09A_002
EXIT_SAPLV09A_003
EXIT_SAPLV09A_004
I hope in your case, EXIT_SAPLV09A_003 might be useful, Please read the documentation in SE37 for more information.
Regards,
Shashwath
‎2010 Dec 11 5:13 AM
Hi Shashwath,
Thanks for your sugessions.
The above exits i already tried and they are not triggering in my functionality . I need the exits after going to the partner's tab after changing the ship to party customer code when i press enter it will show popups for screen redetermine at that point of time automatically bill to party and payer customer code should be replace with Ship to party customer code.
Any more Sugessions !.
Thanks in advance
‎2010 Dec 14 9:01 AM
Hi All,
This is resolved by self.
I didn't found any exits suitable to this req .
i did enhancement for this req details are given below.
FM: SD_PARTNER_DATA_GET
code: ENHANCEMENT 1 ZEN_SHIPTOPARTY. "active version
*
DATA : SHPART TYPE VBPA-KUNNR , " ship to party
SOLDPARt TYPE VBPA-KUNNR , " sold to party
PAYPART TYPE VBPA-KUNNR , " payer
BILLPART TYPE VBPA-KUNNR , " bill to party
ADDRESSNO TYPE VBPA-ADRNR,
TABIX TYPE INDEX.
IF ( sy-tcode = 'VA01' OR sy-tcode = 'VA02' ).
IF screen-name = 'MESSTXT8'.
READ TABLE fet_xvbpa WITH KEY parvw = 'AG'.
IF SY-SUBRC = 0.
soldpart = fet_xvbpa-kunnr .
ENDIF.
READ TABLE fet_xvbpa WITH KEY parvw = 'RE'.
IF SY-SUBRC = 0.
billpart = fet_xvbpa-kunnr.
ENDIF.
READ TABLE fet_XVBPA WITH KEY PARVW = 'RG'.
IF SY-SUBRC = 0.
paypart = fet_xvbpa-kunnr.
ENDIF.
READ TABLE fet_XVBPA WITH KEY PARVW = 'WE'.
IF SY-SUBRC = 0.
shpart = fet_xvbpa-kunnr.
addressno = fet_xvbpa-adrnr.
ENDIF.
IF shpart NE soldpart.
LOOP AT fet_xvbpa.
IF fet_xvbpa-parvw = 'RE'.
fet_xvbpa-kunnr = shpart.
fet_xvbpa-adrnr = addressno.
MODIFY fet_xvbpa INDEX sy-tabix.
ENDIF.
IF fet_xvbpa-parvw = 'RG'.
fet_xvbpa-kunnr = shpart.
fet_xvbpa-adrnr = addressno.
MODIFY fet_xvbpa INDEX sy-tabix.
ENDIF.
ENDLOOP.
GVT_LOCAL_MEMORY-XVBPA[] = FET_XVBPA[].
MODIFY GVT_LOCAL_MEMORY index 1.
ENDIF.
ENDIF.
ENDIF.
ENDENHANCEMENT.
Thanks,