Esta BAPI es eficiente en la ejecución en Loop y debe recopilarse manualmente
datos: comienzo de gs_exch_rate,
kurst tipo kurst,
tipo de datum datum,
waers_f tipo waers,
obleas tipo waers_t,
kursf tipo kursf,
fin de gs_exch_rate.
datos gt_exch_rate como tabla estándar de gs_exch_rate con línea de encabezado.
realice frm_exchangerate_get usando 'Z100' lv_datum_i gt_alv-waers gt_alv-waers_bb cambiando gt_alv-kursf.
formulario frm_exchangerate_get usando uv_kurst uv_datum_i
uv_waers
uv_waers_bb
cambiando cv_kursf.
datos:
ls_exch_rate tipo bapi1093_0,
ls_return tipo bapiret1.
leer tabla gt_exch_rate con clave kurst = uv_kurst datum = uv_datum_i waers_f = uv_waers waers_t = uv_waers_bb binary search.
si sy-subrc = 0.
cv_kursf = gt_exch_rate-kursf.
demás.
función de llamada 'BAPI_EXCHANGERATE_GETDETAIL'
exportador
rate_type = uv_kurst
from_curr = uv_waers
to_currncy = uv_waers_bb
fecha = uv_datum_i
importador
exch_rate = ls_exch_rate
return = ls_return.
cv_kursf = ls_exch_rate-exch_rate.
gt_exch_rate-kurst = uv_kurst.
gt_exch_rate-datum = uv_datum_i.
gt_exch_rate-waers_f = uv_waers.
gt_exch_rate-waers_t = uv_waers_bb.
gt_exch_rate-kursf = cv_kursf.
inserte gt_exch_rate en la tabla gt_exch_rate.
terminara si.
endform.