调用CONVERT_TO_LOCAL_CURRENCY时，要注意货币单位小数点的问题

原文首发于http://www.itpub.net/thread-1063918-1-1.html[@more@]

例子程序

1. REPORT ztest.
3. DATA: USD TYPE WRBTR, JPY TYPE WRBTR, JPY_E TYPE BAPICURR-BAPICURR.
4. DATA: USD_K TYPE WAERS, JPY_K TYPE WAERS.
5. DATA: RET TYPE BAPIRETURN.
7. JPY = '10000.01'.
8. USD_K = 'USD'.
9. JPY_K = 'JPY'.
11. CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
12. EXPORTING
13. date = SY-DATUM
14. foreign_amount = JPY
15. foreign_currency = JPY_K
16. local_currency = USD_K
17. IMPORTING
18. LOCAL_AMOUNT = USD
19. .
21. WRITE: JPY CURRENCY JPY_K, JPY_K,
22. USD CURRENCY USD_K, USD_K.
24. ULINE.
26. JPY_E = JPY.
28. CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_INTERNAL'
29. EXPORTING
30. currency = JPY_K
31. amount_external = JPY_E
32. max_number_of_digits = 23
33. IMPORTING
34. AMOUNT_INTERNAL = JPY
35. RETURN = RET
36. .
38. IF RET IS NOT INITIAL.
39. MESSAGE ID RET-CODE(2) TYPE RET-TYPE NUMBER RET-CODE+2(3)
40. WITH RET-MESSAGE_V1 RET-MESSAGE_V2 RET-MESSAGE_V3 RET-MESSAGE_V4.
41. ENDIF.
43. CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
44. EXPORTING
45. date = SY-DATUM
46. foreign_amount = JPY
47. foreign_currency = JPY_K
48. local_currency = USD_K
49. IMPORTING
50. LOCAL_AMOUNT = USD.
52. WRITE: JPY CURRENCY JPY_K, JPY_K,
53. USD CURRENCY USD_K, USD_K.

测试的输出结果为

1,000,001 JPY 8,714.61 USD
10,000 JPY 87.15 USD

你看懂了么？

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/54246/viewspace-1023948/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/54246/viewspace-1023948/