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 | 4.6c 에서 Xml 파일을 읽어오는 로직 예제 입니다. [2] | woong | 2009.05.11 | 14841 |
6 | REPORT z_alv_list_block_2 [1] | 노름마치 | 2007.11.05 | 15186 |
» | 통화단위, krw, usd 일반 필드에 변환시 로직(소수점, 자리수) [4] | sapjoy | 2011.07.19 | 15632 |
4 | 셀(cell) 레벨의 ALV EDIT(편집) 가능 소스 [5] | sapjoy | 2008.09.25 | 17382 |
3 | Mass Download [5] | 소주와 막걸리 | 2009.11.13 | 17397 |
2 | 스크린에서 버튼을 tree 처럼 만들기. [32] | Jenny | 2011.08.11 | 17695 |
1 | Dynamic Select 소스 [5] | 떡밥 | 2011.06.03 | 17815 |
감사합니다