Currency conversion using FM

It was about foreign currency convert to local.
The factor in 'read_exchange_rate' was read from table tcurf, maintain by tc:obbs;
The code was below:
DATA:       
        l_factor1 TYPE p DECIMALS 3,
        l_factor2 TYPE p DECIMALS 3,
        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 = COMM_STRUCTURE-doc_currcy
      local_currency   = COMM_STRUCTURE-loc_currcy
      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 EQ 0.
    l_erate = l_er / ( l_ff / l_lf ).
    CALL FUNCTION 'CURRENCY_CONVERTING_FACTOR'
        EXPORTING
          currency = COMM_STRUCTURE-loc_currcy
        IMPORTING
          factor   = l_factor1.
    CALL FUNCTION 'CURRENCY_CONVERTING_FACTOR'
        EXPORTING
          currency = COMM_STRUCTURE-doc_currcy
        IMPORTING
          factor   = l_factor2.
       RESULT = COMM_STRUCTURE-netval_inv *
         l_erate / ( l_factor1 / l_factor2 ).

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/22792542/viewspace-722386/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/22792542/viewspace-722386/