SAP 콤마(,) 찍기, . 없애기

시작하기 전.

---

프로그램을 개발하고 사용자에게 데이터를 보여주었을 때

 

콤마를 보여달라고 할 수도 있다. 

 

원래는 

위와 같은 데이터 타입을 선택해서 콤마가 자동적으로 나오게 할 수도 있다. 

 

어쩔 수 없는 상황에서 C, N 등 데이터 타입을 선택했을 때 쓰이는 방법을 알아보겠다.

 

 

바로 실전으로 가보자

 

 

콤마(,)  추가하기(세자리)

---

원래는 Standard Function Module 있다. 거기서 약간 변경을 한 내용이다.

 

혹시 몰라서  Standard Function Module ( BUX_DECIMAL_START )이다.

 

변경.

 

실행 화면.

 

이런 식으로 콤마를 추가해 주는 방법도 있다. 

 

 

 

도움이 되셨으면 클릭 한번 부탁드립니다!!

 

 

 

 

로직

 

PARAMETERS I_VA TYPE NUMC15.

DATA:
      LV_VALUE(16) TYPE P DECIMALS 14,
      LV_CHAR      TYPE CHAR30,
      LT_RESULTS   TYPE MATCH_RESULT_TAB,
      LS_RESULT    TYPE LINE OF MATCH_RESULT_TAB,
      LV_CNT       TYPE I.

IF NOT I_VA IS INITIAL.
  FIND ALL OCCURRENCES OF '.' IN
   I_VA RESULTS LT_RESULTS.
  LOOP AT LT_RESULTS INTO LS_RESULT.
    LV_CNT = LV_CNT + 1.
  ENDLOOP.
  IF LV_CNT > 1.
    RAISE FORMAT_EXCEPTION.
  ENDIF.

  IF I_VA CO '0123456789. '.
    LV_VALUE = I_VA.
    WRITE LV_VALUE TO LV_CHAR.
    SHIFT LV_CHAR RIGHT DELETING TRAILING '0 '.
    SHIFT LV_CHAR RIGHT DELETING TRAILING '.'.
    SHIFT LV_CHAR LEFT DELETING LEADING SPACE.
    WRITE LV_CHAR TO I_VA LEFT-JUSTIFIED.
  ELSE.
    RAISE FORMAT_EXCEPTION.
  ENDIF.
ENDIF.

WRITE: I_VA.