REPORT z07_01.
PARAMETERS p_cost TYPE p DECIMALS 2.
PARAMETERS p_cuky TYPE c LENGTH 3.
DATA lv_dec TYPE tcurx-currdec.
SELECT SINGLE currdec
INTO lv_dec
FROM tcurx
WHERE currkey = p_cuky.
IF sy-subrc EQ 0.
IF lv_dec > 0.
p_cost = p_cost * ( 100 / 10 ** lv_dec ) .
ELSE.
p_cost = p_cost * 100.
ENDIF.
ELSE.
p_cost = p_cost.
ENDIF.
WRITE p_cost.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
489 | REPORT z08_03. | sapjoy | 2012.07.30 | 817 |
488 | REPORT z08_02. | sapjoy | 2012.07.30 | 828 |
487 | REPORT Z08_01. | sapjoy | 2012.07.30 | 823 |
486 | REPORT Z07_06. | sapjoy | 2012.07.30 | 908 |
485 | REPORT Z07_05. | sapjoy | 2012.07.30 | 943 |
484 | REPORT z07_04. [1] | sapjoy | 2012.07.30 | 1058 |
483 | REPORT z07_03. | sapjoy | 2012.07.30 | 970 |
482 | REPORT z07_02. | sapjoy | 2012.07.30 | 909 |
» | REPORT z07_01. | sapjoy | 2012.07.30 | 1059 |
480 | REPORT z05_16. | sapjoy | 2012.07.30 | 1074 |
479 | REPORT z05_15. | sapjoy | 2012.07.30 | 948 |
478 | REPORT z05_14. | sapjoy | 2012.07.30 | 814 |
477 | REPORT z05_13. | sapjoy | 2012.07.30 | 945 |
476 | REPORT z05_12. | sapjoy | 2012.07.30 | 863 |
475 | REPORT z05_11. | sapjoy | 2012.07.30 | 912 |
474 | REPORT z05_10. | sapjoy | 2012.07.30 | 849 |
473 | REPORT z05_09. | sapjoy | 2012.07.30 | 924 |
472 | REPORT Z05_08. | sapjoy | 2012.07.30 | 923 |
471 | REPORT z05_07. | sapjoy | 2012.07.30 | 970 |
470 | REPORT z05_06. | sapjoy | 2012.07.30 | 996 |