FORM change_tcurx USING p_waerk
CHANGING p_netwr.
DATA l_dec TYPE tcurx-currdec.
IF p_waerk IS NOT INITIAL.
SELECT SINGLE currdec
INTO l_dec
FROM tcurx
WHERE currkey = p_waerk.
IF sy-subrc EQ 0.
IF l_dec > 0.
p_netwr = p_netwr * ( 100 / 10 ** l_dec ) .
ELSE.
p_netwr = p_netwr * 100.
ENDIF.
ELSE.
p_netwr = p_netwr.
ENDIF.
* ENDIF.
ELSE.
p_netwr = p_netwr * 100.
ENDIF.
ENDFORM. " CHANGE_TCURX
CHANGING p_netwr.
DATA l_dec TYPE tcurx-currdec.
IF p_waerk IS NOT INITIAL.
SELECT SINGLE currdec
INTO l_dec
FROM tcurx
WHERE currkey = p_waerk.
IF sy-subrc EQ 0.
IF l_dec > 0.
p_netwr = p_netwr * ( 100 / 10 ** l_dec ) .
ELSE.
p_netwr = p_netwr * 100.
ENDIF.
ELSE.
p_netwr = p_netwr.
ENDIF.
* ENDIF.
ELSE.
p_netwr = p_netwr * 100.
ENDIF.
ENDFORM. " CHANGE_TCURX
댓글 4
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
7 | REPORT z_demo_alv_refresh_button [1] | 노름마치 | 2007.11.05 | 2888 |
6 | REPORT z_demo_alv_sort_2 [1] | 노름마치 | 2007.11.05 | 2884 |
5 | REPORT z_demo_alv_sort [1] | 노름마치 | 2007.11.05 | 2832 |
4 | REPORT z_alv_grid_and_popup [1] | 노름마치 | 2007.11.05 | 2817 |
3 | A Simple search program for Dictionary objects [2] | sapjoy | 2007.06.03 | 2791 |
2 | REPORT z_demo_alv_event_exit_3 [1] | 노름마치 | 2007.11.05 | 2722 |
1 | KR_POSTCODE : 한국주소입력 Version 2.0 | 대략나 | 2021.03.31 | 1022 |
감사합니다