topic Re: VA02 partner function in Application Development and Automation Discussions

VA02 partner function

Former Member — Fri, 10 Dec 2010 07:05:11 GMT

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.

Re: VA02 partner function

Former Member — Fri, 10 Dec 2010 12:18:01 GMT

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

Re: VA02 partner function

Former Member — Sat, 11 Dec 2010 05:13:23 GMT

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

Re: VA02 partner function

Former Member — Tue, 14 Dec 2010 09:01:44 GMT

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.

ENDENHANCEMENT.

Thanks,