本文展示了一个ABAP程序示例，该程序从RESB表中选择数据，并使用BAPI_CURRENCY_CONV_TO_EXTERNAL函数将内部货币金额转换为外部货币金额。示例中使用了台湾元(TWD)作为货币单位。
REPORT z_barry_test NO STANDARD PAGE HEADING .
TABLES resb.
DATA: amount_in LIKE bapicurr-bapicurr ,
amount_ex LIKE bapicurr-bapicurr .
SELECT * FROM resb UP TO 100 ROWS WHERE waers = 'TWD'.
amount_in = resb-gpreis.
CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_EXTERNAL'
EXPORTING
currency = resb-waers
amount_internal = amount_in
IMPORTING
amount_external = amount_ex.
WRITE: / resb-gpreis,amount_ex,resb-waers.
ENDSELECT.
TABLES resb.
DATA: amount_in LIKE bapicurr-bapicurr ,
amount_ex LIKE bapicurr-bapicurr .
SELECT * FROM resb UP TO 100 ROWS WHERE waers = 'TWD'.
amount_in = resb-gpreis.
CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_EXTERNAL'
EXPORTING
currency = resb-waers
amount_internal = amount_in
IMPORTING
amount_external = amount_ex.
WRITE: / resb-gpreis,amount_ex,resb-waers.
ENDSELECT.
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
