< 사용 용도>
1.공휴일 => '다음평일 = 입금일' 일경우만 => 다음 평일로 만기일 계산
2.해당일이 휴일인지 체크
< 사용방법>
DATA : LV_DAYTXT LIKE HRVSCHED-DAYTXT,
LV_DAYNR LIKE HRVSCHED-DAYNR.
DO 7 TIMES. "연속휴일 체크
CALL FUNCTION 'RH_GET_DATE_DAYNAME' "요일 찾는 Function
EXPORTING
LANGU = SY-LANGU
DATE = PLANDATE "입력된 변수임
CHECK = ' '
IMPORTING
DAYNR = LV_DAYNR
DAYTXT = LV_DAYTXT.
IF LV_DAYNR = '7'. "일요일
PLANDATE = PLANDATE + 1.
ENDIF.
*---(회사 공휴일 및 년도별 특정 등록 휴일체크;창립일,국민투표일등)
SELECT SINGLE * FROM THOC WHERE IDENT = CALENDAR_ID
"각 회사 calendar:KO,KR
AND DATUM = PLANDATE.
IF SY-SUBRC = 0. "공휴일
PLANDATE = PLANDATE + 1.
ELSE.
EXIT.
ENDIF.
* 썬님에 의해서 게시물 이동되었습니다 (2010-03-30 13:09)
1.공휴일 => '다음평일 = 입금일' 일경우만 => 다음 평일로 만기일 계산
2.해당일이 휴일인지 체크
< 사용방법>
DATA : LV_DAYTXT LIKE HRVSCHED-DAYTXT,
LV_DAYNR LIKE HRVSCHED-DAYNR.
DO 7 TIMES. "연속휴일 체크
CALL FUNCTION 'RH_GET_DATE_DAYNAME' "요일 찾는 Function
EXPORTING
LANGU = SY-LANGU
DATE = PLANDATE "입력된 변수임
CHECK = ' '
IMPORTING
DAYNR = LV_DAYNR
DAYTXT = LV_DAYTXT.
IF LV_DAYNR = '7'. "일요일
PLANDATE = PLANDATE + 1.
ENDIF.
*---(회사 공휴일 및 년도별 특정 등록 휴일체크;창립일,국민투표일등)
SELECT SINGLE * FROM THOC WHERE IDENT = CALENDAR_ID
"각 회사 calendar:KO,KR
AND DATUM = PLANDATE.
IF SY-SUBRC = 0. "공휴일
PLANDATE = PLANDATE + 1.
ELSE.
EXIT.
ENDIF.
* 썬님에 의해서 게시물 이동되었습니다 (2010-03-30 13:09)
댓글 5
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
» | 공휴일 체크 및 다음 휴일 구하기 [5] | ecbase | 2006.12.01 | 11086 |
1 | (-)부호를 앞으로 바꿔주는 함수입니다 [13] | ecbase | 2006.12.01 | 4842 |