FORM convert_currency  USING    p_tarih
                                p_netwr_from
                                p_waers_from
                                p_waers_to
                                p_kurst
                                p_lcl_waers "TRY
                       CHANGING p_netwr_to.
 
 
 IF p_waers_from NE p_waers_to.
    IF p_waers_from NE p_lcl_waers.
      CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
        EXPORTING
          date             = p_tarih
          foreign_amount   = p_netwr_from
          foreign_currency = p_waers_from
          local_currency   = p_lcl_waers
          type_of_rate     = p_kurst
        IMPORTING
          local_amount     = p_netwr_to
        EXCEPTIONS
          no_rate_found    = 1
          overflow         = 2
          no_factors_found = 3
          no_spread_found  = 4
          derived_2_times  = 5
          OTHERS           = 6.
    ENDIF.
    IF p_waers_to NE p_lcl_waers.
      IF p_netwr_to EQ 0.
        p_netwr_to = p_netwr_from.
      ENDIF.
      CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY'
        EXPORTING
          date             = p_tarih
          foreign_currency = p_waers_to
          local_amount     = p_netwr_to
          local_currency   = p_lcl_waers
          type_of_rate     = p_kurst
        IMPORTING
          foreign_amount   = p_netwr_to
        EXCEPTIONS
          no_rate_found    = 1
          overflow         = 2
          no_factors_found = 3
          no_spread_found  = 4
          derived_2_times  = 5
          OTHERS           = 6.
    ENDIF.
  ELSE.
    p_netwr_to = p_netwr_from.
  ENDIF.
ENDFORM.                    " convert_currency
 
Serkan AKKAVAK
Computer Engineer
serkurumsal@yandex.com