获取当月汇率函数

记录获取当月汇率函数

CONCATENATE gs_likp-budat+0(6) '01' INTO lv_data_f.

CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'

EXPORTING

i_date = lv_data_f

IMPORTING

e_date = lv_data_t.

CALL FUNCTION 'CONVERSION_EXIT_INVDT_INPUT'

EXPORTING

input = lv_data_f

IMPORTING

output = lv_str1.

CALL FUNCTION 'CONVERSION_EXIT_INVDT_INPUT'

EXPORTING

input = lv_data_t

IMPORTING

output = lv_str2.

IF gs_likp-waerk = 'EUR'.

SELECT SINGLE ukurs

INTO lv_ukurs

FROM tcurr

WHERE kurst = 'EURX'

AND fcurr = 'CNY'

AND tcurr = gs_likp-waerk

AND ( gdatu >= lv_str2

AND gdatu <= lv_str1 ).

lv_ukurs = lv_ukurs * -1.

ELSE.

SELECT SINGLE ukurs

INTO lv_ukurs

FROM tcurr

WHERE kurst = 'M'

AND fcurr = gs_likp-waerk

AND tcurr = 'CNY'

AND ( gdatu >= lv_str2

AND gdatu <= lv_str1 ).

ENDIF.