메뉴 건너뛰기

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.


 

번호 제목 글쓴이 날짜 조회 수
4207 <img src=3.gif>GUI STATUS 의 어플리케이션 툴바에 관해서 질문이 있습니다. [4] file rune 2009.11.17 1743
4206 <img src=2.gif>필드심볼로 계산 하기 질문입니다. [1] 마늘맛쿨피스 2009.11.17 1367
4205 <img src=3.gif>SMARTFORMS 안에서 Graph가 출력가능한가요? [4] soyo 2009.11.17 1153
4204 <img src=3.gif>다음문제의 답 좀 알려주세요.. ^^; [3] 이카루스 2009.11.17 1023
4203 <img src=3.gif> nested loop을 해결하는 방법을 알려주세요 [10] 해보자보자 2009.11.16 1746
4202 <img src=3.gif>동적으로 펑션 호출 가능한가요.. [2] 사탕수수 2009.11.14 1886
4201 <img src=2.gif>[User-Exit] PM 오더 등록시 정산리시버 체크 [4] 귀여운 아이 2009.11.14 2068
4200 <img src=3.gif> FIELD-SYMBOLS 관련 질문입니다. [6] 마늘맛쿨피스 2009.11.13 1800
4199 [re] <img src=2.gif> FIELD-SYMBOLS 관련 질문입니다. [1] 요요 2009.11.14 1751
4198 <img src=3.gif>write문으로 이루어진 list를 pdf파일로 저장하는 부분의 궁금증 [5] file 튀밥 2009.11.13 1885
4197 <img src=3.gif>엑셀 다운로드시 숫자가 2.00911E+12나오는데 방법이 없을까요? [6] 귤탱 2009.11.13 6144
4196 <img src=3.gif>ALV에서 F4 구현시 도메인의 Range값 가져오는 법? [2] 부산갈매기 2009.11.13 2192
4195 <img src=2.gif>ws_download을써서 header가 나오게 하고싶습니다. [2] CoolGuy 2009.11.13 1083
4194 <img src=1.gif>Intertable의 데이터를 cvs파일로 다운로드 CoolGuy 2009.11.12 1219
4193 <img src=2.gif>[질문수정]사용자의 SAP GUI 버전 정보 시스템 변수 또는 펑션이 있나요? [3] 도마슈노 2009.11.12 1246
4192 <img src=2.gif>Grid에서 0.000000 을 0으로 보이게... [3] CoolGuy 2009.11.12 1268
4191 <img src=3.gif>SAP GUI 710 설치 후 스크린페인터 오류 [6] 부산갈매기 2009.11.12 2845
4190 <img src=3.gif>SUBMIT 관련 해서 질문 입니다. ^^ [4] rainbow1 2009.11.12 1689
4189 <img src=3.gif>OPEN SQL에 대해 질문드립니다~ ^^; [6] 이카루스 2009.11.12 1560
4188 <img src=2.gif> SET LANGUAGE 질문입니다 ㅠㅜ [7] 아밥콩` 2009.11.12 2640