Validation for absence duplicate

Question

Dear brothers,
How can i validate the absence when the employee inserts it , like the employee inserted an absence from "01-jan-2012" to "05-jan-2012" ... and for any reason HRMS manager or he himself inserts again the same leave with same dates?
The system is raising caution only now i want it to raise error and stops the user and not let him complete the insertion for the same dates absence.
Any help please
Thank you

Answer 1

Hi,
We had the same requirements and solved it by calling a package to check whether any Absence is overlapping with any another. So write the below pl/sql.Once done . Register this function and called the function from "BG_ABSENCE_DURATION" . Note: test it in Test instance before doing it in Production instance.
================================
BG_ABSENCE_DURATION
================================
l_lv_overlap = LV_OVERLAP_VALID(date_start,date_end)
IF l_lv_overlap = 0 THEN
duration = 'FAILED'
     invalid_msg = 'Your applied leave date overlaps with another leave date,please change the date and try again'
               RETURN duration
                    ,invalid_msg
================================
BG_ABSENCE_DURATION ENDS
================================
================================
LV_OVERLAP_VALID FUNCTION
================================
function xx_lv_overlap_valid(P_ASSIGNMENT_ID IN NUMBER,
P_START_DATE IN DATE,
P_DATE_END IN DATE)
RETURN NUMBER
IS
V_VALID_FLAG NUMBER DEFAULT 9;
V_OVERLAP_VAILD VARCHAR2(50) := 'XX';
BEGIN
BEGIN
SELECT PAAT.NAME INTO V_OVERLAP_VAILD
-- , PAA.DATE_START
-- , PAA.DATE_END
FROM PER_ABSENCE_ATTENDANCES PAA
, PER_ABSENCE_ATTENDANCE_TYPES PAAT
, PER_ALL_ASSIGNMENTS_F PAAF
WHERE PAA.ABSENCE_ATTENDANCE_TYPE_ID = PAAT.ABSENCE_ATTENDANCE_TYPE_ID
AND PAA.PERSON_ID = PAAF.PERSON_ID
AND PAAF.ASSIGNMENT_ID = P_ASSIGNMENT_ID
AND P_DATE_END BETWEEN PAAF.EFFECTIVE_START_DATE AND PAAF.EFFECTIVE_END_DATE
AND (P_START_DATE <= PAA.DATE_END
AND P_DATE_END >= PAA.DATE_START);
Exception
When NO_DATA_FOUND Then
V_OVERLAP_VAILD := 'XX';
END;
IF V_OVERLAP_VAILD = 'XX' THEN
V_VALID_FLAG := 1;
-- If not overlapped
ELSE
V_VALID_FLAG := 0;
-- if overlapped
END IF;
RETURN V_VALID_FLAG;
END xx_lv_overlap_valid;
Regards,
Shabeer