Hi All,
Was busy with coding. never mind.. ;-) here is the climax. the code below, have been at every part of 'MV45AFZZ' finally i left this block inside FORM USEREXIT_MOVE_FIELD_TO_VBAK as per guidance from my tech-lead. The life span of functionality and modified values is as of
runtime's. After coming out from VA01/VA02 transaction, Database has its own(unchanged) value. So, either am changing value through my
code in wrong internal table i.e xvbpa OR its not the right form/user exit to place my code.
have a look....******.....
data : lt_zsd_pfcheck01 type table of zsd_pfcheck01,
ls_zsd_pfcheck01 like line of lt_zsd_pfcheck01,
lt_zsd_pfcheck02 type table of zsd_pfcheck02,
ls_zsd_pfcheck02 like line of lt_zsd_pfcheck02,
ls_xvbpa like line of xvbpa,
lt_kna1 type table of kna1,
ls_kna1 like line of lt_kna1.
* lt_adrc type table of adrc,
* ls_adrc like line of lt_adrc.
if sy-tcode = 'VA01' or sy-tcode = 'VA02'. " FOR T-CODE CHECK
select single * from zsd_pfcheck01 into ls_zsd_pfcheck01 where
zf_vbak = xvbak-vkorg.
* and
* kuwev = xvbpa-kunnr and
* mara = xvbap-matnr and
* zf_knvp = xvbpa-parvw.
if sy-subrc = 0.
select single * from kna1 into ls_kna1 where kunnr = ls_zsd_pfcheck01-zf_kunnr.
* select single * from adrc into ls_adrc where ADDRNUMBER = ls_kna1-ADRNR.
loop at xvbpa into ls_xvbpa where posnr <> '000000' and parvw = ls_zsd_pfcheck01-zf_knvp. "FOR ITEM NOT EQ '000000'
ls_xvbpa-kunnr = ls_zsd_pfcheck01-zf_kunnr.
ls_xvbpa-adrnr = ls_kna1-adrnr.
modify xvbpa from ls_xvbpa transporting kunnr adrnr.
* modify XVBADR_SAV.
endloop.
else. "if not found in ZSD_PFCHECK01.
select single * from zsd_pfcheck02 into ls_zsd_pfcheck02 where
zf_vbak = xvbak-vkorg ."and
* mvke = xvbap-mvgr4 and
* zf_knvp = xvbpa-parvw.
if sy-subrc = 0.
loop at xvbpa into ls_xvbpa where posnr <> '000000' and parvw = ls_zsd_pfcheck02-zf_knvp. "FOR ITEM NOT EQ '000000'
ls_xvbpa-kunnr = ls_zsd_pfcheck02-zf_kunnr.
ls_xvbpa-adrnr = ls_kna1-adrnr.
modify xvbpa from ls_xvbpa transporting kunnr adrnr.
endloop.
endif."if not found in ZSD_PFCHECK02.
endif. " data found in table ZSD_PFCHECK01.
endif. " FOR T-CODE CHECK
look forward to any suggestion to accomplish the task and achieve my value in database VBPA.
Best Regards,
Vikas Kumar.
+91 99800 29028.
| | | ---------------Original Message---------------
From: TerryB
Sent: Friday, May 27, 2011 12:44 PM
Subject: Enhancement for VA01 & VA02
Neal,
I guess SAP agrees with your viewpoint because now, with implicit enhancements, we're pretty much back to "anything goes." And it's not a matter of trust, it's just the cost of those hard-learned lessons we all must learn. Of course, if a programmer makes the same mistakes repeatedly, then it may be time for that individual to consider a new career path.
Cheers,
Terry |
| __.____._ Copyright © 2011 Toolbox.com and message author.
Toolbox.com 4343 N. Scottsdale Road Suite 280, Scottsdale, AZ 85251
| | Popular White Papers
In the Spotlight  _.____.__ |
