根据币种转换金额



1、显示金额时:

*&---------------------------------------------------------------------*
*&      Form  F_TRANSFER_AMT_disp
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PV_CURRENCY  text
*      -->PV_AMT       text
*----------------------------------------------------------------------*
FORM F_TRANSFER_AMT_DISP USING PV_CURRENCY  "
                      CHANGING PV_AMT.      "

  DATA: LV_FACTOR  TYPE P DECIMALS 3,
        LV_AMT     TYPE WTGXXX,
        LV_CURR    TYPE TCURR-TCURR.

  LV_AMT  = PV_AMT.
  LV_CURR = PV_CURRENCY.
  CALL FUNCTION 'CURRENCY_CONVERTING_FACTOR'
    EXPORTING
      CURRENCY          = LV_CURR
    IMPORTING
      FACTOR            = LV_FACTOR
    EXCEPTIONS
      TOO_MANY_DECIMALS = 1
      OTHERS            = 2.

  IF SY-SUBRC NE 0.
    LV_FACTOR = 1.
  ENDIF.

  LV_AMT = LV_AMT * LV_FACTOR.

ENDFORM.                    " F_TRANSFER_AMT


2、金额保存时:

*&---------------------------------------------------------------------*
*&      Form  F_TRANSFER_AMT_save
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PV_CURRENCY  text
*      -->PV_AMT       text
*----------------------------------------------------------------------*
FORM F_TRANSFER_AMT_SAVE USING PV_CURRENCY   "
                      CHANGING PV_AMT.       "

  DATA: LV_FACTOR  TYPE P DECIMALS 3,
        LV_AMT     TYPE WTGXXX,
        LV_CURR    TYPE TCURR-TCURR.

  LV_AMT  = PV_AMT.
  LV_CURR = PV_CURRENCY.
  CALL FUNCTION 'CURRENCY_CONVERTING_FACTOR'
    EXPORTING
      CURRENCY          = LV_CURR
    IMPORTING
      FACTOR            = LV_FACTOR
    EXCEPTIONS
      TOO_MANY_DECIMALS = 1
      OTHERS            = 2.

  IF SY-SUBRC NE 0.
    LV_FACTOR = 1.
  ENDIF.

  IF LV_FACTOR NE 0.
    LV_AMT = LV_AMT / LV_FACTOR.
  ENDIF.

ENDFORM.                    "F_TRANSFER_AMT_save

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值