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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
490 | REPORT z15_12. | sapjoy | 2012.08.01 | 1295 |
489 | REPORT z12_31. | sapjoy | 2012.07.30 | 1312 |
488 | REPORT z03_25. | sapjoy | 2012.07.30 | 1367 |
487 | REPORT z15_24. | sapjoy | 2012.08.01 | 1392 |
486 | REPORT z16_11. | sapjoy | 2012.08.01 | 1398 |
485 | PROGRAM z13_01. | sapjoy | 2012.08.01 | 1410 |
484 | REPORT z04_04. | sapjoy | 2012.07.30 | 1411 |
483 | REPORT z17_13 . | sapjoy | 2012.08.01 | 1426 |
482 | REPORT z03_24 [1] | sapjoy | 2012.07.30 | 1428 |
481 | REPORT z04_05. | sapjoy | 2012.07.30 | 1439 |
480 | REPORT z04_02. | sapjoy | 2012.07.30 | 1442 |
479 | REPORT Z04_12. | sapjoy | 2012.07.30 | 1443 |
478 | REPORT z03_26. | sapjoy | 2012.07.30 | 1445 |
477 | REPORT z04_10. | sapjoy | 2012.07.30 | 1479 |
476 | REPORT z04_03. | sapjoy | 2012.07.30 | 1494 |
475 | REPORT Z03_17. | sapjoy | 2012.07.30 | 1495 |
474 | REPORT Z03_18. | sapjoy | 2012.07.30 | 1495 |
473 | REPORT Z03_12. | sapjoy | 2012.07.30 | 1498 |
472 | REPORT z03_11. | sapjoy | 2012.07.30 | 1500 |
471 | REPORT z04_15. | sapjoy | 2012.07.30 | 1500 |