topic Re: Exchange Rate in Application Development and Automation Discussions

Exchange Rate

Former Member — Wed, 23 May 2007 06:24:06 GMT

Hi Expert,

Pls anyone tell me the Function module to find out exchange rate for a particular day and currency.

Thanks in advance.

Re: Exchange Rate

Former Member — Wed, 23 May 2007 06:25:48 GMT

Check the Table TCURR for this

other related tables are

TCURB Exchange Rate Calculation Indicator

TCURP Direct/Indirect Quotation Prefixes for Exchang

TCURR Exchange Rates

TCURV Exchange rate types for currency translation

TCURW Usage of Exchange Rate Types

See the fun modules

CALCULATE_EXCHANGE_RATE

READ_EXCHANGE_RATE

COPA_READ_EXCHANGE_RATE

ISSR_CALC_EXCHANGE_RATE

Reward points if useful

Regards

Anji

Message was edited by:

Anji Reddy Vangala

Re: Exchange Rate

Former Member — Wed, 23 May 2007 06:27:39 GMT

chk FMs

READ_EXCHANGE_RATE

BAPI_EXCHANGERATE_GETDETAIL

Re: Exchange Rate

Former Member — Wed, 23 May 2007 06:28:16 GMT

Hai,

EXCHANGE_RATE_ADJUST_NOTATION

F4_EXCHANGE_RATE

Regards,

Padmam.

Re: Exchange Rate

Former Member — Wed, 23 May 2007 06:33:04 GMT

Hi,

I need to convert USD TO EURO FOR THE GIVEN DATE. PLS HELP ME TO SOLVE.

Re: Exchange Rate

anversha_s — Wed, 23 May 2007 06:36:07 GMT

hi,

directly us this FM.


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
            .

Rgds

Anversha

Re: Exchange Rate

Former Member — Wed, 23 May 2007 07:10:31 GMT

Hi,

See the complete Report code here.

Hope this helps you for your solution.

REPORT Z_CURRENCY_CONVERSION.

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

Regdards,

Rama chary.Pammi

Re: Exchange Rate

Former Member — Wed, 23 May 2007 07:26:31 GMT

Using Function Module:COPA_CALCULATE_EXCHANGE_RATE