Skip to Content
avatar image
Former Member

which function module i have to use to convert Indian currency to EUR?

which function module i have to use to convert Indian currency to EUR?

Reward to all.

Thanks

Anu.

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

2 Answers

  • Sep 25, 2007 at 04:26 AM

    You can use FM "CONVERT_TO_FOREIGN_CURRENCY"

    Ex:

    DATA: tot_amount TYPE p DECIMALS 2.

    CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY'

    EXPORTING

    date = sy-datum

    foreign_currency = 'EUR'

    local_amount = '1.00'

    local_currency = 'INR'

    IMPORTING

    foreign_amount = tot_amount

    EXCEPTIONS

    no_rate_found = 1

    overflow = 2

    no_factors_found = 3

    no_spread_found = 4

    derived_2_times = 5

    OTHERS = 6.

    IF sy-subrc = 0.

    WRITE: / ' Indian rupee to EUR - ', tot_amount.

    ENDIF.

    Close the thread if your question is answered.

    Regards,

    Sairam

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Sep 25, 2007 at 11:34 AM

    Hi,

    Below is the code for converting currency values from one currency to another.

    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.  

    Add comment
    10|10000 characters needed characters exceeded