金額処理
ABAPにおける金額項目は常に特定の通貨と結び付けられています。異なる通貨の金額換算や、内部書式と外部書式間の変換など、SAP標準から様々な汎用モジュールを用意されています。 このトピックでは、金額処理に関わる様々な方法を目的毎に纏めて説明します。
通貨情報取得
通貨換算係数取得
CURRENCY_CONVERTING_FACTOR
通貨換算係数を取得する関数。
DATA: WK_WAERS TYPE VBRK-WAERK. DATA: WK_FACTOR TYPE P DECIMALS 3.
CALL FUNCTION 'CURRENCY_CONVERTING_FACTOR' EXPORTING CURRENCY = WK_WAERS “ 通貨コード IMPORTING FACTOR = WK_FACTOR ” 通貨換算係数 EXCEPTIONS TOO_MANY_DECIMALS = 1 OTHERS = 2.
為替レート換算係数取得
READ_EXCHANGE_RATE
為替レート取得
READ_EXCHANGE_RATE
金額換算
外貨通貨→国内通貨
外貨通貨金額から国内通貨金額を換算するには、汎用モジュールCONVERT_TO_LOCAL_CURRENCYを利用できます。
REPORT Y_TEST_XXXX. DATA: F_CURR TYPE TCURR-FCURR, L_CURR TYPE TCURR-TCURR, F_VALUE TYPE P LENGTH 8 DECIMALS 2, L_VALUE TYPE P LENGTH 8 DECIMALS 2, EX_RATE TYPE TCURR-UKURS, F_FACTOR TYPE TCURR-FFACT, L_FACTOR TYPE TCURR-TFACT. F_CURR = 'JPY'. L_CURR = 'THB'. F_VALUE = '0.02'. CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING * CLIENT = SY-MANDT DATE = SY-DATUM "為替レート自動取得時の基準日 FOREIGN_AMOUNT = F_VALUE "外貨通貨金額 FOREIGN_CURRENCY = F_CURR "外貨通貨 LOCAL_CURRENCY = L_CURR "国内通貨 * RATE = '29.36' "為替レートを指定する場合は、このパラメータを利用すると "ともにREAD_TCURRを''にする TYPE_OF_RATE = 'B' "為替レートタイプ B: READ_TCURR = 'X' "'X':為替レートはTCURRより取得、'':為替レートは "RATEパラメータの値を使用 IMPORTING EXCHANGE_RATE = EX_RATE "換算時の為替レート FOREIGN_FACTOR = F_FACTOR "換算時の換算係数(外貨) LOCAL_AMOUNT = L_VALUE "換算後国内通貨金額 LOCAL_FACTOR = L_FACTOR "換算時の換算係数(国内通貨) * EXCHANGE_RATEX = * FIXED_RATE = * DERIVED_RATE_TYPE = * EXCEPTIONS * NO_RATE_FOUND = 1 * OVERFLOW = 2 * NO_FACTORS_FOUND = 3 * NO_SPREAD_FOUND = 4 * DERIVED_2_TIMES = 5 * OTHERS = 6 . IF SY-SUBRC <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. WRITE:/'FOREIGN CURRENCY=', F_CURR, /'FOREIGN_FACTOR=', F_FACTOR, /'FOREIGN VALUE=', F_VALUE, /'EXCHANGE_RATE=', EX_RATE, /'LOCAL CURRENCY=', L_CURR, /'LOCAL_FACTOR=', L_FACTOR, /'LOCAL VALUE=', L_VALUE. WRITE:/ F_CURR,F_VALUE CURRENCY F_CURR. WRITE:/ L_CURR,L_VALUE CURRENCY L_CURR.
国内通貨→外貨通貨
CONVERT_TO_FOREIGN_CURRENCY 国内通貨額の外貨への換算
REPORT Y_TEST_XXXX. DATA: F_CURR TYPE TCURR-FCURR, L_CURR TYPE TCURR-TCURR, F_VALUE TYPE P LENGTH 8 DECIMALS 2, L_VALUE TYPE P LENGTH 8 DECIMALS 2, EX_RATE TYPE TCURR-UKURS, F_FACTOR TYPE TCURR-FFACT, L_FACTOR TYPE TCURR-TFACT. F_CURR = 'JPY'. L_CURR = 'THB'. L_VALUE = '3'. CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY' EXPORTING * CLIENT = SY-MANDT DATE = SY-DATUM "為替レート自動取得時の基準日 LOCAL_AMOUNT = L_VALUE "国内通貨金額 FOREIGN_CURRENCY = F_CURR "外貨通貨 LOCAL_CURRENCY = L_CURR "国内通貨 * RATE = '0.07' "為替レートを指定する場合は、このパラメータを利用すると "ともにREAD_TCURRを''にする TYPE_OF_RATE = 'B' "為替レートタイプ B: READ_TCURR = 'X' "'X':為替レートはTCURRより取得、'':為替レートは "RATEパラメータの値を使用 IMPORTING EXCHANGE_RATE = EX_RATE "換算時の為替レート FOREIGN_FACTOR = F_FACTOR "換算時の換算係数(外貨) FOREIGN_AMOUNT = F_VALUE "換算後外貨金額 LOCAL_FACTOR = L_FACTOR "換算時の換算係数(国内通貨) * EXCHANGE_RATEX = * FIXED_RATE = * DERIVED_RATE_TYPE = * EXCEPTIONS * NO_RATE_FOUND = 1 * OVERFLOW = 2 * NO_FACTORS_FOUND = 3 * NO_SPREAD_FOUND = 4 * DERIVED_2_TIMES = 5 * OTHERS = 6 . IF SY-SUBRC <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. WRITE: /'LOCAL CURRENCY=', L_CURR, /'LOCAL_FACTOR=', L_FACTOR, /'LOCAL VALUE=', L_VALUE, /'FOREIGN CURRENCY=', F_CURR, /'FOREIGN_FACTOR=', F_FACTOR, /'FOREIGN VALUE=', F_VALUE, /'EXCHANGE_RATE=', EX_RATE . WRITE:/ L_CURR,L_VALUE CURRENCY L_CURR. WRITE:/ F_CURR,F_VALUE CURRENCY F_CURR.
任意通貨間の換算
任意通貨間の換算に関しては、標準から以下二つの汎用モジュールが提供されていますが、
- CONVERT_FOREIGN_TO_FOREIGN_CUR 外貨金額の別外貨通貨への換算
- CONVERT_CURRENCY_BY_RATE 与えられたレートを使用した通貨の変換
いずれも未リリースの属性状態であり、正しく動作しないようです。
書式変換
SAPシステムでは、多通貨が混在しているため、実際に内部管理された金額値は、通貨毎にそれぞれ異なります。例えば、JPYの通貨型項目は通常本来の値の1/100で内部格納されています。 そのため、金額を入出力する際に、内部⇔外部の間に都度書式を変換する必要があります。
外部書式→内部書式変換
汎用モジュール利用
CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_INTERNAL' EXPORTING currency = 'JPY' amount_external = l_external_amount max_number_of_digits = 15 IMPORTING amount_internal = l_internal_amount.
内部書式→外部書式変換
汎用モジュール利用
CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_EXTERNAL' EXPORTING currency = 'JPY' amount_internal = l_internal_amount IMPORTING amount_external = l_external_amount.
命令利用
WRITE XXX TO XXX 'JPY'