ABAP币种对应的转换因子(处理日元台币等) 因为涉及到日元和台币问题,太久不写了,写了个小demo测了下 主要用的就是函数CURRENCY_CONVERTING_FACTOR *&---------------------------------------------------------------------* *& Report ZLM_0001 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zlm_0001. DATA: lt_price TYPE zlm_t_curr. DATA: ls_price LIKE LINE OF lt_price. ls_price-price = 123. ls_price-curr = 'USD'. APPEND ls_price TO lt_price. ls_price-price = '12.3'. ls_price-curr = 'USD'. APPEND ls_price TO lt_price. ls_price-price = '12.31'. ls_price-curr = 'USD'. APPEND ls_price TO lt_price. ls_price-price = 123. ls_price-curr = 'TWD'. APPEND ls_price TO lt_price. ls_price-price = '12.3'. ls_price-curr = 'TWD'. APPEND ls_price TO lt_price. ls_price-price = '12.31'. ls_price-curr = 'TWD'. APPEND ls_price TO lt_price. DATA: lv_curr TYPE tcurr-tcurr. DATA: lv_factor TYPE isoc_factor. FIELD-SYMBOLS LIKE LINE OF lt_price. LOOP AT lt_price ASSIGNING . lv_curr= -curr. CALL EXPORTING currency = lv_curr IMPORTING factor = lv_factor. IF lv_factor IS NOT INITIAL. -price = -price / lv_factor. ENDIF. ENDLOOP. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_structure_name = 'ZLM_STR_CURR' TABLES t_outtab = lt_price. 如果不加 LOOP AT lt_price ASSIGNING . lv_price = -curr. CALL EXPORTING currency = lv_price IMPORTING FUNCTION 'CURRENCY_CONVERTING_FACTOR' FUNCTION 'CURRENCY_CONVERTING_FACTOR' 本文来源:https://www.wddqw.com/doc/6e74f56c2c60ddccda38376baf1ffc4ffe47e224.html