02-13-2010 3:31 PM
I have got 1 requirement while creating Billing document through VL01 transaction the user change the header data Billing date as per billing date the exchange rate also will be change automatically.
Enhancement : SDVFX008
Exit Name : SAPLV60B_008.
Include : ZXVVF008.
in that the client have 2 marketing place one is india and another is US the if user change the invoice Billing date VBRK-FKDAT as per billing date US$ exchange rate will be change automatically in the field VBRP-KURST. i written code but i did not fetching data in to table in this exchange rate maintained in table TCURR and my code is.
"" Data : ukurs1 type tcurr-ukurs,
date(10 )type c.
if cvbrk-fkdat is not initial .
select singe ukurs into ukirs1 from tcurr
where gdatu = date and
tcurr = 'USD'.
loop at vbrk where vbeln = doc_number.
clear cvbrp-kursk.
cvbrp-kurst = ukurs1.
endloop
endif.""
02-14-2010 12:26 PM
Hai,
"" Data : ukurs1 type tcurr-ukurs,
date(10 )type c.
if cvbrk-fkdat is not initial .
select singe ukurs into ukirs1 from tcurr
where gdatu = date and
tcurr = 'USD'.
loop at vbrk where vbeln = doc_number.
clear cvbrp-kursk.
cvbrp-kurst = ukurs1.
*MODIFY cvbrp.*
endloop
endif.""
Modify the internal table & check it.
Regards,
Sudhakar Rayala
Edited by: SudhakarRayala on Feb 14, 2010 1:28 PM
02-14-2010 12:26 PM
Hai,
"" Data : ukurs1 type tcurr-ukurs,
date(10 )type c.
if cvbrk-fkdat is not initial .
select singe ukurs into ukirs1 from tcurr
where gdatu = date and
tcurr = 'USD'.
loop at vbrk where vbeln = doc_number.
clear cvbrp-kursk.
cvbrp-kurst = ukurs1.
*MODIFY cvbrp.*
endloop
endif.""
Modify the internal table & check it.
Regards,
Sudhakar Rayala
Edited by: SudhakarRayala on Feb 14, 2010 1:28 PM