topic Re: Function Module for Currency conversion in Application Development and Automation Discussions

Function Module for Currency conversion

SG141 — Mon, 27 Aug 2007 20:40:01 GMT

I there any FM available for Currency Conversion from one to another....

Re: Function Module for Currency conversion

Former Member — Mon, 27 Aug 2007 20:41:39 GMT

Karthik,

Use

CONVERT_TO_LOCAL_CURRENCY

CONVERT_TO_FOREIGN_CURRENCY

Regards

Aneesh.

Re: Function Module for Currency conversion

SG141 — Mon, 27 Aug 2007 20:42:24 GMT

I mean the exchange rate between two currencies on a given date...(typically sy-datum)

Re: Function Module for Currency conversion

Former Member — Mon, 27 Aug 2007 20:43:18 GMT

CONVERT_TO_LOCAL_CURRENCY

Re: Function Module for Currency conversion

Former Member — Mon, 27 Aug 2007 20:43:23 GMT

You can take a look at these two FMs.

CONVERT_TO_FOREIGN_CURRENCY

CONVERT_TO_LOCAL_CURRENCY

Re: Function Module for Currency conversion

Former Member — Mon, 27 Aug 2007 20:44:12 GMT

Yes this will work for a given date...

Re: Function Module for Currency conversion

Former Member — Mon, 27 Aug 2007 20:45:31 GMT

Hello

Check this sample I found on sdn:

Please check this..for sure it will help you.

First get the Exchange rate for the Currency.

Then get the Currency conversion factor, and Multiply the Document cuurency * Exchange rate * Conversion factor.

CATCH SYSTEM-EXCEPTIONS arithmetic_errors = 5.

If Document Currncy in SGD, Donot Display Exchange Rate XXX
Condition for SGD and SGD4

IF wa_bkpf-waers+0(3) NE 'SGD'.

v_fmcur = wa_bkpf-waers.

Get Current Exchange Rate - Ref: SD Logic

IF ( NOT v_fmcur IS INITIAL ) AND ( NOT wa_bkpf-budat IS INITIAL ).

CALL FUNCTION 'BAPI_EXCHANGERATE_GETDETAIL'

EXPORTING

rate_type = 'M'

from_curr = 'SGD'

to_currncy = v_fmcur

date = wa_bkpf-budat

IMPORTING

exch_rate = v_kurs2.

ENDIF.

Get Conversion Factor

CALL FUNCTION 'CURRENCY_CONVERTING_FACTOR'

EXPORTING

currency = wa_bkpf-waers

importing

factor = v_fact

exceptions

too_many_decimals = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE s208(00) WITH

'May be too many Decimals for Currency Factor'(013).

ENDIF.

IF v_kurs2-exch_rate NE 0.

Inverse the Exchange Rate from USD to SGD

v_exrat = 1 / ( v_kurs2-exch_rate ).

WRITE v_exrat TO wa_summary-exrat DECIMALS 4.

v_wrbtr = ( v_tamnt * v_exrat * v_fact ).

v_taxsum1 = ( v_taxsum * v_exrat * v_fact ).

v_ntotl = ( v_dmbtr * v_exrat * v_fact ).

ELSE.

WRITE:/ 'Over flow, Exchange rate is ZERO'(005).

ENDIF.

CLEAR v_kurs2.

ELSE.

wa_summary-exrat = 1.

v_wrbtr = ( v_tamnt * 1 ).

v_taxsum1 = ( v_taxsum * 1 ).

v_ntotl = ( v_dmbtr * 1 ).

ENDIF.

ENDCATCH.

IF sy-subrc = 5.

WRITE: / 'Overflow! Sum can not be calculated.'(011).

ENDIF.

Gabriel

Message was edited by:

Alvaro Tejada Galindo

Re: Function Module for Currency conversion

Former Member — Mon, 27 Aug 2007 20:46:00 GMT

Karthik,

Try,

READ_EXCHANGE_RATE

CALCULATE_EXCHANGE_RATE

If those wont work you have to code it urself.

All the exchange rates are stored in TCURR

Regards

Aneesh.

Re: Function Module for Currency conversion

SG141 — Mon, 27 Aug 2007 20:59:51 GMT

read_exchange_rate and

convert_to_local_currency are returing exceptions when i am test on it....

can some one let me know how to use it....

Re: Function Module for Currency conversion

Former Member — Mon, 27 Aug 2007 21:00:13 GMT

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