Puedes utilizar esta funcion.
FORM convertir_a_pts USING valor_euros.
DATA: l_euros TYPE aubet.
*Convierto de EUR a PTS.
CLEAR valor_pesetas.
l_euros = valor_euros * 100.
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
EXPORTING
date = sy-datum
foreign_amount = l_euros
foreign_currency = 'EUR'
local_currency = 'ESP'
IMPORTING
local_amount = valor_pesetas
EXCEPTIONS
no_rate_found = 1
overflow = 2
no_factors_found = 3
no_spread_found = 4
derived_2_times = 5
OTHERS = 6.
ENDFORM. " convertir_a_pts
Saludos.
|