SAP의 통화단위는 원화의 통화단위와 다르다.
전표치기 위해서 변환이 필요하다.
DATA : LV_CURRENCY TYPE WAERS,
LV_INPUT TYPE WERTV9,
WRITE LV_INPUT TO LV_OUTPUT CURRENCY LV_CURRENCY.
CONDENSE LV_OUTPUT NO-GAPS.
" 마이너스일때는 부호를 앞으로 이동하는 펑션
CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'
CHANGING
VALUE = LV_OUTPUT.
CONDENSE LV_OUTPUT. NO-GAPS.
WRITE LV_VALUE TO LV_COSTAMT.
SHIFT LV_COSTAMT RIGHT DELETING TRAILING '0 '.
SHIFT LV_COSTAMT LEFT DELETING LEADING SPACE.
REPLACE ALL OCCURRENCES OF '.' IN LV_COSTAMT WITH SPACE.
DATA : LV_CURRENCY TYPE WAERS,
LV_INPUT TYPE WERTV9,
LV_VALUE TYPE DMBTR,
LV_OUTPUT(40) TYPE C.
LV_OUTPUT(40) TYPE C.
"CHECK 조건이 True면 프로세스 진행 (False면 진행되지 않음)
WRITE LV_INPUT TO LV_OUTPUT CURRENCY LV_CURRENCY.
CONDENSE LV_OUTPUT NO-GAPS.
" 마이너스일때는 부호를 앞으로 이동하는 펑션
CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'
CHANGING
VALUE = LV_OUTPUT.
CONDENSE LV_OUTPUT. NO-GAPS.
" 여기까지가 CHAR 자리로 표시 .
" 원화단위로 표시 (, )
LV_VALUE = LV_OUTPUT.WRITE LV_VALUE TO LV_COSTAMT.
SHIFT LV_COSTAMT RIGHT DELETING TRAILING '0 '.
SHIFT LV_COSTAMT LEFT DELETING LEADING SPACE.
REPLACE ALL OCCURRENCES OF '.' IN LV_COSTAMT WITH SPACE.
Tags:
SAP ABAP