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

사이트운영 : http://sapjoy.co.kr  

저         서 : Easy ABAP, Plus ABAP

경         험 : SAP ABAP Tuning, SAP SCM(SD/PP/QM/PM/WM/APO)

자         격 : SAP SD / PP  / SAP ABAP Certification 등

메         일 : sapjoy@naver.com