KFNS#34161 Notificatie achtervang

svn path=/Database/trunk/; revision=28786

FAC/FAC_PAC.SRC

@@ -60,6 +60,8 @@ CREATE OR REPLACE PACKAGE fac
     FUNCTION getdomeinwaarde (dkey IN NUMBER, waarde IN VARCHAR2, ignorewhenxmlnode IN NUMBER DEFAULT 0) RETURN VARCHAR2;
     FUNCTION count_Work_Days  ( pdate1 IN DATE , pdate2 IN DATE  ) RETURN NUMBER;
     FUNCTION count_Work_Days_InclTime ( pdate1 IN DATE , pdate2 IN DATE  ) RETURN NUMBER;
+    FUNCTION iswerkdag (begindatum IN DATE) RETURN NUMBER;
+    FUNCTION iswerktijd RETURN NUMBER;
     FUNCTION datumtijdplusuitvoertijd (begindatum IN DATE, uitvoertijd IN NUMBER, uitvoertijdtype IN VARCHAR2) RETURN DATE;
     FUNCTION datumtijdplusuitvoertijd (begindatum IN DATE, uitvoertijd IN NUMBER, uitvoertijdtype IN VARCHAR2,
                       pBeginWerkUur IN NUMBER, pEindWerkUur IN NUMBER, pMode IN NUMBER) RETURN DATE;
@@ -388,6 +390,23 @@ CREATE OR REPLACE PACKAGE BODY fac AS
        END IF;
     END;
 
+    FUNCTION iswerktijd
+       RETURN NUMBER
+    AS
+       lBeginWerkUur NUMBER;
+       lEindWerkUur NUMBER;
+    BEGIN
+       lBeginWerkUur := fac.safe_to_number(fac.getsetting('fac_t_startofworkday'));
+       lEindWerkUur := fac.safe_to_number(fac.getsetting('fac_t_endofworkday'));
+       IF SYSDATE BETWEEN TRUNC(SYSDATE) + (lBeginWerkUur / 24)
+                      AND TRUNC(SYSDATE) + (lEindWerkUur  / 24)
+       THEN
+          RETURN 1;
+       ELSE
+          RETURN 0;
+       END IF;
+    END;
+
     -- Return number of workdays between two dates, not including the startdate, weekends and holidays
     FUNCTION count_Work_Days0( pdate1 IN DATE , pdate2 IN DATE, pInclTime IN BOOLEAN ) RETURN NUMBER IS
     eikdag NUMBER;