ABAP币种对应的转换因子(处理日元台币等)

时间:2023-01-25 11:07:14 阅读: 最新文章 文档下载
说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。
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