05-24-2007 8:38 AM
hi,
how to convert the currency usd to inr in scripts? i need urgent?
conversion in driver program r script?
05-24-2007 8:43 AM
Hello,
Check this code:
REPORT ZV_CONVERT_CURR .
DATA : L_NETWR TYPE VBAP-NETWR.
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
EXPORTING
DATE = SY-DATUM
FOREIGN_AMOUNT = '10.00'
FOREIGN_CURRENCY = 'USD'
LOCAL_CURRENCY = 'INR'
IMPORTING
LOCAL_AMOUNT = L_NETWR
EXCEPTIONS
NO_RATE_FOUND = 1
OVERFLOW = 2
NO_FACTORS_FOUND = 3
NO_SPREAD_FOUND = 4
DERIVED_2_TIMES = 5
OTHERS = 6.
WRITE: L_NETWR.
" Pass this above variable to Script
Regards,
VAsanth
05-24-2007 8:43 AM
Hello,
Check this code:
REPORT ZV_CONVERT_CURR .
DATA : L_NETWR TYPE VBAP-NETWR.
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
EXPORTING
DATE = SY-DATUM
FOREIGN_AMOUNT = '10.00'
FOREIGN_CURRENCY = 'USD'
LOCAL_CURRENCY = 'INR'
IMPORTING
LOCAL_AMOUNT = L_NETWR
EXCEPTIONS
NO_RATE_FOUND = 1
OVERFLOW = 2
NO_FACTORS_FOUND = 3
NO_SPREAD_FOUND = 4
DERIVED_2_TIMES = 5
OTHERS = 6.
WRITE: L_NETWR.
" Pass this above variable to Script
Regards,
VAsanth
05-24-2007 8:45 AM
05-24-2007 8:49 AM
hi,
Go through the following Code
Use the following F.M's
CONVERT_TO_FOREIGN_CURRENCY Convert local currency to foreign currency.
CONVERT_TO_LOCAL_CURRENCY Convert from foreign currency to local currency
Check the following Code
PARAMETERS: P_UKURS LIKE TCURR-UKURS.
DATA: BEGIN OF GI_TAB OCCURS 0,
KONWA LIKE KONP-KONWA,
STPRS LIKE MBEW-STPRS,
WAERS LIKE T001-WAERS,
END OF GI_TAB.
DATA: L_STPRS LIKE MBEW-STPRS,
L_RATE LIKE TCURR-UKURS.
IF P_UKURS IS INITIAL.
CLEAR L_RATE.
ELSE.
L_RATE = P_UKURS / 100.
ENDIF.
CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY'
EXPORTING
DATE = SY-DATUM
FOREIGN_CURRENCY = GI_TAB-KONWA
LOCAL_AMOUNT = GI_TAB-STPRS
LOCAL_CURRENCY = GI_TAB-WAERS
RATE = L_RATE
IMPORTING
FOREIGN_AMOUNT = L_STPRS
EXCEPTIONS
NO_RATE_FOUND = 1
OVERFLOW = 2
NO_FACTORS_FOUND = 3
NO_SPREAD_FOUND = 4
DERIVED_2_TIMES = 5
OTHERS = 6.
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
EXPORTING
DATE = SY-DATUM
FOREIGN_AMOUNT = L_BELOEB
FOREIGN_CURRENCY = 'USD'
LOCAL_CURRENCY = 'DKK'
RATE = L_RATE
TYPE_OF_RATE = 'M'
IMPORTING
EXCHANGE_RATE = L_RATE
FOREIGN_FACTOR =
LOCAL_AMOUNT = L_BELOEB
LOCAL_FACTOR =
EXCHANGE_RATEX =
FIXED_RATE =
DERIVED_RATE_TYPE =
EXCEPTIONS
NO_RATE_FOUND = 1
OVERFLOW = 2
NO_FACTORS_FOUND = 3
NO_SPREAD_FOUND = 4
DERIVED_2_TIMES = 5
OTHERS = 6.
pls give reward if it helpful
Thanks
vana
05-24-2007 8:51 AM
if you have missed that INFORMATION:
you need to add this in your driver program
05-24-2007 9:23 AM