Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

function module to convert document currency to local currency

Former Member
0 Likes
2,639

Hi Guys,

Can anyone tell me the name of function module through which we can convert amount from document currency to local currency.

waiting for reply .

regards

Hi Guys,

Can anyone tell me the name of function module through which we can convert amount from document currency to local currency.

waiting for reply .

regards

4 REPLIES 4
Read only

Former Member
0 Likes
1,194

'CONVERT_TO_LOCAL_CURRENCY'

Read only

peter_ruiz2
Active Contributor
0 Likes
1,194

hi,

you can use any of the following


CONVERT_TO_LOCAL_CURRENCY

CONVERT_TO_LOCAL_CURRENCY_O

CONVERT_TO_LOCAL_CURRENCY_N

Regards,

Peter

Read only

Former Member
0 Likes
1,194

Hi,

CONVERT_TO_LOCAL_CURRENCY - Conversion of currency

CONVERT_TO_FOREIGN_CURRENCY Convert local currency to foreign currency.

CONVERT_TO_LOCAL_CURRENCY Convert from foreign currency to local currency

Regards,

Priya.

Read only

Former Member
0 Likes
1,194

hi neelesh,

below r the tow progs it may be useful...

Pass Foreign currency,

Local Currency

type_rate:Type of rate M=Average rate

G=Bank buying rate

B=bank selling rate.

DATA: l_er TYPE tcurr-ukurs, "

l_ff TYPE tcurr-ffact,

l_lf TYPE tcurr-tfact,

l_erate(12) TYPE c,

CALL FUNCTION 'READ_EXCHANGE_RATE'

EXPORTING

date = sy-datum

foreign_currency = wa_bseg-pswsl

local_currency = c_euro

type_of_rate = 'M'

IMPORTING

exchange_rate = l_er

foreign_factor = l_ff

local_factor = l_lf

EXCEPTIONS

no_rate_found = 1

no_factors_found = 2

no_spread_found = 3

derived_2_times = 4

overflow = 5

OTHERS = 6.

IF sy-subrc = 0.

l_erate = l_er / ( l_ff / l_lf ).

wa_itab-wrbtr = wa_itab-wrbtr * l_erate.

ENDIF.

===========================================================================

===========================================================================

===========================================================================

**Currency Convertion (i.e. from EUR to GBP)

**

DATA: gd_fcurr TYPE tcurr-fcurr,

gd_tcurr TYPE tcurr-tcurr,

gd_date TYPE sy-datum,

gd_value TYPE i.

gd_fcurr = 'EUR'.

gd_tcurr = 'GBP'.

gd_date = sy-datum.

gd_value = 10.

PERFORM currency_conversion USING gd_fcurr

gd_tcurr

gd_date

CHANGING gd_value.

  • Convert value to Currency value

&----


*& Form currency_conversion

&----


  • text

----


  • -->P_GD_FCURR text

  • -->P_GD_TCURR text

  • -->P_GD_DATE text

  • <--P_GD_VALUE text

----


FORM currency_conversion USING p_fcurr

p_tcurr

p_date

CHANGING p_value.

DATA: t_er TYPE tcurr-ukurs,

t_ff TYPE tcurr-ffact,

t_lf TYPE tcurr-tfact,

t_vfd TYPE datum,

ld_erate(12) TYPE c.

CALL FUNCTION 'READ_EXCHANGE_RATE'

EXPORTING

  • CLIENT = SY-MANDT

date = p_date

foreign_currency = p_fcurr

local_currency = p_tcurr

TYPE_OF_RATE = 'M'

  • EXACT_DATE = ' '

IMPORTING

exchange_rate = t_er

foreign_factor = t_ff

local_factor = t_lf

valid_from_date = t_vfd

  • DERIVED_RATE_TYPE =

  • FIXED_RATE =

  • OLDEST_RATE_FROM =

EXCEPTIONS

no_rate_found = 1

no_factors_found = 2

no_spread_found = 3

derived_2_times = 4

overflow = 5

zero_rate = 6

OTHERS = 7

.

IF sy-subrc EQ 0.

ld_erate = t_er / ( t_ff / t_lf ).

p_value = p_value * ld_erate.

ENDIF.

ENDFORM. " currency_conversion

<REMOVED BY MODERATOR>

Prarthan

Edited by: Alvaro Tejada Galindo on Apr 14, 2008 5:07 PM