메뉴 건너뛰기

SAP 한국 커뮤니티

>p타입 decimals 4 인 변수값에서



>1234.1200   =>  1234.12


>1234.1230   =>  1234.123


>1234.0000   =>  1234



>식으로 소수점 이하 값이 없는 부분의 0만 지우려면 어떻게 해야하나요?


>alv가 아니고 write 해야합니다. 즐거운 월요일 되십시요~


 


 


이게 맞는지는 모르겠지만 이런 방법도....


 


DATA : l_amount1(10) TYPE p DECIMALS 4,
       l_amount2     LIKE l_amount1,
       l_amount3     LIKE l_amount1,
       l_text        TYPE char15 ,
       l_num         TYPE char10 ,
       l_decimal     TYPE char4.


*&---------------------------------------------------------------------*
START-OF-SELECTION.


* 금액반영
  l_amount1 = '1234.123'.
  l_amount2 = '2345.034'.
  l_amount3 = '1234.01'.
*
  SKIP 3.
  l_text = l_amount1.
* 소수점 기준으로 정수부와 소수부 자름
  SPLIT l_text AT '.' INTO l_num l_decimal.
  WRITE :/ l_amount1 COLOR 4 , ' -> '    COLOR 2,
           l_num     COLOR 1 , l_decimal COLOR 1.
* 소수부의 '0' 제거
  SHIFT l_decimal RIGHT DELETING TRAILING '0'.
  CONDENSE l_decimal.
  IF l_decimal EQ ''.
    l_text = l_num.
  ELSE.
    CONCATENATE l_num '.' l_decimal INTO l_text.
  ENDIF.
  WRITE : ' => ' COLOR 2 , l_text COLOR 7.


*
  SKIP .
  l_text = l_amount2.
* 소수점 기준으로 정수부와 소수부 자름
  SPLIT l_text AT '.' INTO l_num l_decimal.
  WRITE :/ l_amount2 COLOR 4 , ' -> '    COLOR 2,
           l_num     COLOR 1 , l_decimal COLOR 1.
* 소수부의 '0' 제거
  SHIFT l_decimal RIGHT DELETING TRAILING '0'.
  CONDENSE l_decimal.
  IF l_decimal EQ ''.
    l_text = l_num.
  ELSE.
    CONCATENATE l_num '.' l_decimal INTO l_text.
  ENDIF.
  WRITE : ' => ' COLOR 2, l_text COLOR 7.


  SKIP .
  l_text = l_amount3.
* 소수점 기준으로 정수부와 소수부 자름
  SPLIT l_text AT '.' INTO l_num l_decimal.
  WRITE :/ l_amount3 COLOR 4 , ' -> '    COLOR 2,
           l_num     COLOR 1 , l_decimal COLOR 1.
* 소수부의 '0' 제거
  SHIFT l_decimal RIGHT DELETING TRAILING '0'.
  CONDENSE l_decimal.
  IF l_decimal EQ ''.
    l_text = l_num.
  ELSE.
    CONCATENATE l_num '.' l_decimal INTO l_text.
  ENDIF.
  WRITE :' => ' COLOR 2, l_text COLOR 7.


 

번호 제목 글쓴이 날짜 조회 수
6212 OPEN DATASET & R3 Non-Unicode system등 2가지 질문 합니다. [3] bd 2007.05.30 3028
6211 dump 좀 해석 부탁드립니다. [6] file 김지성 2007.05.31 1686
6210 unicode 관련되서 소스를 수정한 결과 한글에 대해선 값이 출력이 안되내용. [2] file bd 2007.05.31 2342
6209 'Gui_downlod' function 사용사 pop-up에 관한 질문입니다. [5] 하늘만 2007.05.31 2115
6208 unicode 관련된 간단한 질문입니다... 그러나 헤매고 있다는;; [3] file bd 2007.05.31 1887
6207 ABAP에서 작성한 프로그램 다운로드 방법이.. 김지성 2007.06.01 2152
6206 unicode 에서 Structure Enhancements 되었다는 말이 있는대요.. file bd 2007.06.01 1986
6205 [re] ABAP에서 작성한 프로그램 다운로드 방법이.. [3] file sapjoy 2007.06.01 2145
6204 BDC 생성시 수량필드 입력에 대해.. [2] file 김지성 2007.06.04 2213
6203 assign 질문입니다. bd 2007.06.04 1896
6202 CALL METHOD cl_gui_frontend_services 에 관해서 [3] file 하늘만 2007.06.04 2157
6201 [질문] class alv로 이렇게 표현이 가능합니까? [1] 나도아밥퍼 2007.06.04 1695
6200 4.6와 ECC6.0 다른 문법 정리자료 요청 [1] BlackBean 2007.06.05 1969
6199 [re] CALL METHOD cl_gui_frontend_services 에 관해서 [1] 하늘만 2007.06.05 1686
6198 [질문]select-option에 관련된 질문입니다. [1] 나도아밥퍼 2007.06.05 1741
6197 테이블 만들 때 에러 [4] file mean 2007.06.05 2435
6196 value테이블과 check테이블 차이가 뭔가요? kyeinho 2007.06.07 2013
6195 [re] value테이블과 check테이블 차이가 뭔가요? [4] file sapjoy 2007.06.07 3681
6194 web dynpro 한글 자료 없으시나요?? ㅠ.ㅠ [2] 기절하고파 2007.06.07 2021
6193 급합니다..스탠다드화면 카피 어떻게 하나요 [2] 정미영 2007.06.07 2012