币种对应的转换因子（处理日元台币…

 

因为涉及到日元和台币问题，太久不写了，写了个小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 FUNCTION 'CURRENCY_CONVERTING_FACTOR'
    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 FUNCTION 'CURRENCY_CONVERTING_FACTOR'
    EXPORTING
      currency = lv_price
    IMPORTING
      factor   = lv_factor.

  IF lv_factor IS NOT INITIAL.
    -price = -price / lv_factor.
  ENDIF.

ENDLOOP.

如果加上那段代码处理后