<img src=3.gif>공부중인 아밥 초보입니다 ^^;;; 달력을 만들어봤는데요..

그림장이 2011.02.21 12:54 조회 수 : 1989

달력을 한번 만들어 봤는데요 ^^;; 밑에 보시다시피 너무 노가다 성인데요..

특히 각 달의 1일의 위치를 잡아 주는 부분이 많이 노가다 성이 되던데...

그부분을 좀더 간소화할 방법이 있나요...?

REPORT  zljs_test8 LINE-SIZE 92.

PARAMETERS: g_yea(4),
            g_mon(2) TYPE n.
DATA: g_day(2) TYPE n,
      g_2mon TYPE i.                 "윤달 구분 값.
DATA: g_ymf TYPE scal-date.          "function에 넣을 값.
DATA: g_result TYPE scal-indicator.  "function에서 받을 값.
DATA: day TYPE i.    "지정 달의 일수를 받는 부분
DATA: g_space(10).   "1일 날짜 앞에 빈칸 만들기용

data: 1_day(10) VALUE '일요일', 2_day(10) VALUE '월요일', 3_day(10) VALUE '화요일',
      4_day(10) VALUE '수요일', 5_day(10) VALUE '목요일', 6_day(10) VALUE '금요일',
      7_day(10) VALUE '토요일'.

write: sy-uline,
      / sy-vline, 1_day, sy-vline, 2_day, sy-vline, 3_day, sy-vline, 4_day,
        sy-vline, 5_day, sy-vline, 6_day, sy-vline, 7_day, sy-vline,
      / sy-uline.

IF g_mon = 1 or g_mon = 3 or g_mon = 5 or g_mon = 7 or g_mon = 8 or g_mon = 10 or g_mon = 12.
  day = 31.
ELSEIF g_mon = 4 or g_mon = 6 or g_mon = 9 or g_mon = 11.
  day = 30.
ELSEIF g_mon = 2.                                           "2월 윤달 구분
  g_2mon = g_yea MOD 4.
  IF g_2mon = 0.
    day = 29.
  ELSE.
    day = 28.
  ENDIF.
ENDIF.

DO day TIMES.
  g_day = sy-index.
  CONCATENATE g_yea g_mon INTO g_ymf.
  CONCATENATE g_ymf g_day INTO g_ymf.    "펑션에 넣어줄 형태로 만들어주기.

  CALL FUNCTION 'DATE_COMPUTE_DAY'
    EXPORTING
      date = g_ymf
    IMPORTING
      day  = g_result.
  IF g_result = 6.
    WRITE:  (10)g_day , sy-vline,
           / sy-uline, sy-vline.
  ELSEIF g_result <> 6.
    IF g_day = 1.                   "매월 1일 위치 잡는 부분...
      CASE g_result.
        WHEN '1'.
          WRITE : sy-vline, g_space, sy-vline, (10)g_day, sy-vline.
        WHEN '2'.
          WRITE : sy-vline, g_space, sy-vline, g_space, sy-vline,
                 (10)g_day, sy-vline.
        WHEN '3'.
          WRITE : sy-vline, g_space, sy-vline, g_space, sy-vline,
                  g_space, sy-vline, (10)g_day, sy-vline.
        WHEN '4'.
          WRITE : sy-vline, g_space, sy-vline, g_space, sy-vline,
                  g_space, sy-vline, g_space, sy-vline, (10)g_day,
                  sy-vline.
        WHEN '5'.
          WRITE : sy-vline, g_space, sy-vline, g_space, sy-vline,
                  g_space, sy-vline, g_space, sy-vline, g_space,
                  sy-vline, (10)g_day, sy-vline.
        WHEN '6'.
          WRITE : sy-vline, g_space, sy-vline, g_space, sy-vline,
                  g_space, sy-vline, g_space, sy-vline, g_space,
                  sy-vline, g_space, sy-vline, (10)g_day, sy-vline.
        WHEN '7'.
          WRITE : sy-vline, (10)g_day, sy-vline.
      ENDCASE.
    ELSE.
      WRITE: (10)g_day, sy-vline.
    ENDIF.
  ENDIF.
ENDDO.
WRITE: / sy-uline.

TOP-OF-PAGE.
  FORMAT COLOR 3.
  WRITE: g_yea, '년', g_mon, '월'.        "TOP OF PAGE 지정.

이 게시물을

수정 삭제 목록

남군

2011.02.21 13:55

안녕하세요~

하기 1일 위치 잡는 부분을 이렇게 바꿔 봤습니다.

IF g_day = 1.                   "매월 1일 위치 잡는 부분...
  CASE g_result.



WHEN '7'.
     WRITE : SY-VLINE, (10)G_DAY, SY-VLINE.
   WHEN OTHERS.
     WRITE : SY-VLINE .
     DO G_RESULT TIMES.
       WRITE : G_SPACE, SY-VLINE.
     ENDDO.
     WRITE : (10)G_DAY, SY-VLINE.

   ENDCASE.

ENDIF.

댓글 수정 삭제
그림장이

2011.02.21 16:16

아 정말 감사 합니다 ^^ 이런방법이 있는데 정말 생각지도 못했네요 ^^ 이제 머리를 좀

더 많이 굴려야겠네요 ㅎㅎ

아 이거 수정하다가 ^^;;; 토요일이 1일인 경우 스패이스 안먹던 오류를 발견 수정 완료하게 되었습니다

추가로 월에 12월 이상 값이 들어가면 잘못된값이라는 메세지 뿌리고 프로그램 종료하게 수정하였습니다.

다시한번 재검토가 중요함을 알게되었습니다 ^^ 남군님 감사요~~~

댓글 수정 삭제
양키

2011.02.22 09:51

공부 재밌게 하시네요 ^^ 화이팅입니다.

댓글 수정 삭제
ABAPCHOJJA

2011.02.22 09:56

ㅎㅎ 공부하신다니 저두 따라쟁이 해 봅니다. ^^

PARAMETERS: G_YEA(4)        DEFAULT SY-DATUM(4),
            G_MON(2) TYPE N DEFAULT SY-DATUM+4(2).

DATA START_DATE TYPE D.
DATA LAST_DATE  TYPE D.
DATA DATE       TYPE D.
DATA WEEKDAY    TYPE TABLE OF T246 WITH HEADER LINE.
DATA MOD        TYPE I.
DATA DAY        TYPE CIND.
DATA POS        TYPE I.

* start-date
START_DATE(4)   = G_YEA.
START_DATE+4(2) = G_MON.
START_DATE+6(2) = '01'.

* last-date
CALL FUNCTION 'LAST_DAY_OF_MONTHS'
  EXPORTING
    DAY_IN            = START_DATE
  IMPORTING
    LAST_DAY_OF_MONTH = LAST_DATE.

* Weekday
CALL FUNCTION 'WEEKDAY_GET'
  EXPORTING
    LANGUAGE = SY-LANGU
  TABLES
    WEEKDAY  = WEEKDAY.

* start-weekday.
CALL FUNCTION 'DATE_COMPUTE_DAY'
  EXPORTING
    DATE = START_DATE
  IMPORTING
    DAY  = DAY.

* 순서 : 일, 월, 화,...
LOOP AT WEEKDAY.
  WEEKDAY-WOTNR = WEEKDAY-WOTNR MOD 7.
  MODIFY WEEKDAY.
ENDLOOP.
SORT WEEKDAY BY WOTNR.

* Header
WRITE : SY-ULINE(78).
SKIP.
LOOP AT WEEKDAY.
  WRITE (10) WEEKDAY-LANGT CENTERED COLOR COL_HEADING.
ENDLOOP.
WRITE / SY-ULINE(78).

DATE = START_DATE.

WRITE /.

WHILE DATE <= LAST_DATE.
  DAY = DAY MOD 7.
  IF DAY = '0'.
    WRITE /.
  ENDIF.
  POS = DAY * 10 + DAY + 1.
  WRITE AT POS(10) DATE+6(2) CENTERED.
  ADD 1 TO : DAY, DATE.
ENDWHILE.

WRITE / SY-ULINE(78).

TOP-OF-PAGE.
  FORMAT COLOR 3.
  WRITE: G_YEA, '년', G_MON, '월'.        "TOP OF PAGE 지정.

댓글 수정 삭제
그림장이

2011.02.23 09:01

핡 ^^ 깔끔하다...먼가 정리된 느낌 ^^ 이렇게 해보도록 노력해봐야겠네요 ㅎㅎ

댓글 수정 삭제

번호	제목	글쓴이	날짜	조회 수
5885	<img src=3.gif>예제 15-4-5에서 leave to list-processing으로 이동한 list 화면에서 헤더를 안 보이게 하는 방법 좀 알려주세요. [2]	페르츠	2010.10.15	1195
5884	<img src=3.gif>교재에 대한 질문입니다. 오탈자 인지 제가 이해를 못하는건지 모르겠네요 [2]	광돈	2010.10.06	1355
5883	<img src=3.gif>[완전초보입니다.] Chapt3부터 막히네요~ 예제실습을 어떻게하지요? [7]	베르테르	2010.09.30	1186
5882	<img src=3.gif>플러스 abap 교제의 smartforms image 관련 문의 [4]	날곰	2010.06.28	1095
5881	<img src=2.gif>4-2-10 에서 '' 에 대한 질문입니다. [2]	웅냐공주사랑	2010.06.16	1138
5880	<img src=3.gif>type t -> type i 로 변환시 의 질문 [2]	웅냐공주사랑	2010.06.07	1257
5879	<img src=3.gif>넷위버 트라이얼 버전 프로그램 생성문의.. [2]	abap왕초보	2010.05.19	1055
5878	<img src=2.gif>ABAP에서 오늘 연도 및 날짜 구하는 법 알려주시기 바랍니다. [3]	체사레	2010.05.12	1213
5877	<img src=3.gif>넷위버 설치관련해서 설치 파일 담아논곳을 찾습니다~ [2]	abap왕초보	2010.05.12	1071
5876	<img src=3.gif>200번 화면에서 기본값을 바꾼 후 엔터시 다시 기본값으로 돌아가는 현상 [3]	맨날초보	2011.02.24	1518
5875	<img src=2.gif>[proxy] 개발에 생성한 proxy를 운영에 cts 하는 방법??? [1]	맹꽁이	2011.02.24	1644
5874	<img src=3.gif> Function 만들떄 Typing에 TYPE REF TO는 어떤때 쓰는 것 인가요? [1]	초보자라네	2011.02.24	2013
5873	<img src=2.gif>GUI다운로드로 파일 다운받은 후 변환에 대해서 [1]	열공합시다	2011.02.23	1618
5872	<img src=1.gif>F-04에서 전표 부분반제 하려는데 BAPI 있나요?	yang	2011.02.23	2357
5871	<img src=1.gif>itutor 설치시 문의 사항입니다..	슈퍼복덩이	2011.02.23	1368
5870	<img src=2.gif>structure 생성시 specify reference table AND reference field 에러 발생 [1]	모포	2011.02.23	1942
5869	<img src=3.gif>리포트프로그램 엑셀 다운로드시 총계도 같이 출력하려면???;; [2]	ymjeong	2011.02.22	1716
5868	<img src=2.gif>userexit, badi, 대체관련 질문입니다. [3]	쓰나미	2011.02.22	2490
5867	<img src=2.gif>C#으로 해서 RFC Fuction 호출하고 싶습니다. 어떻게 해야 한데요?? [1]	젊은시인	2011.02.22	2619
5866	<img src=2.gif>A프로그램에서 B프로그램의 결과 ITAB을 받아오고싶습니다. [3]	아밥맨	2011.02.22	2168

쓰기 태그

첫 페이지 28 29 30 31 32 33 34 35 36 37 끝 페이지

SAP 한국 커뮤니티

로그인

<img src=3.gif>공부중인 아밥 초보입니다 ^^;;; 달력을 만들어봤는데요..

댓글 5

남군

그림장이

양키

ABAPCHOJJA

그림장이