02-22-2008 3:10 AM
02-22-2008 3:14 AM
02-22-2008 4:03 AM
Vinay,
PARAMETERS: p_date TYPE datum, " Date
p_cal TYPE wfcid. " Calendar
DATA: l_mon_start TYPE datum, " Start Date
l_mon_end TYPE datum. " End Date
DATA: flg TYPE boole_d.
START-OF-SELECTION.
CALL FUNCTION 'HR_JP_MONTH_BEGIN_END_DATE'
EXPORTING
iv_date = p_date
IMPORTING
ev_month_begin_date = l_mon_start " Month Start Date
ev_month_end_date = l_mon_end. " Month End Date
" Check Month Start end date is working day
PERFORM check_working_date USING l_mon_start CHANGING flg.
IF NOT flg IS INITIAL.
" Get next working day
CALL FUNCTION 'BKK_GET_NEXT_WORKDAY'
EXPORTING
i_date = l_mon_start
i_calendar1 = p_cal
IMPORTING
e_workday = l_mon_start " First Working Day of Month
EXCEPTIONS
calendar_error = 1
OTHERS = 2.
ENDIF.
DO.
" Check if end date is working
PERFORM check_working_date USING l_mon_end CHANGING flg.
IF NOT flg IS INITIAL.
l_mon_end = l_mon_end - 1.
ELSE.
EXIT.
ENDIF.
ENDDO.
WRITE:/ 'Start Date: ', l_mon_start,
/ 'End Date: ', l_mon_end.
&----
*& Form CHECK_WORKING_DATE
&----
FORM check_working_date USING p_date_chk TYPE datum
CHANGING p_flg TYPE boole_d.
CLEAR: p_flg.
CALL FUNCTION 'BKK_CHECK_HOLIDAY'
EXPORTING
i_date = p_date_chk
i_calendar1 = p_cal
IMPORTING
e_x_no_workingday = p_flg
EXCEPTIONS
not_found = 1
calendar_error = 2
OTHERS = 3.
ENDFORM. " CHECK_WORKING_DATE
02-22-2008 4:07 AM
02-22-2008 4:42 AM
uniquely identified document type in SAP in referred to as message type .. eg-- ORDERS.This message type is based on the idoc structure which is defined as idoc type .eg--ORDERS02,ORDERS03... so on....