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
감사합니다