DLLG#82309 Ook bij fac.DatumTijdPlusUitvoerTijd rekening houden wanneer de eerste dag in het weekend valt

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

FAC/FAC_PAC.SRC

@@ -677,12 +677,28 @@ CREATE OR REPLACE PACKAGE BODY fac AS
          THEN
             datumbegin := begindatum;
             LOOP
-               -- Verschuif datumbegin als deze valt [a] buiten de meegegeven uren of [b] op
-               -- een vrije dag. Dit geldt Kantoortijden- of Openingstijden-regime!
+               -- Verschuif datumbegin als deze valt
+               -- [a] in het weekend (alleen als pMode = 1)
+               -- [b] buiten de meegegeven uren, hier geldt Kantoortijden- of Openingstijden-regime!
+               -- [c] op een vrije dag
+               IF pMode = 1
+               THEN
+                  weekdagbegin := fac.getweekdaynum (datumbegin); -- zo=1 t/m za=7
+                  IF weekdagbegin = 1
+                  THEN
+                     -- Als zo=1, dan schuif 1 dag door naar maandag 'pBeginWerkUur'.
+                     datumbegin := TRUNC (datumbegin + 1) + (pBeginWerkUur / 24);
+                  ELSIF weekdagbegin = 7
+                  THEN
+                     -- Als za=7, dan schuif 2 dagen door naar maandag 'pBeginWerkUur'.
+                     datumbegin := TRUNC (datumbegin + 2) + (pBeginWerkUur / 24);
+                  END IF;
+               END IF;
+
                SELECT COUNT ( * )
-               INTO vrijedag
-               FROM mld_vrije_dagen
-               WHERE mld_vrije_dagen_datum = TRUNC (datumbegin)
+                 INTO vrijedag
+                 FROM mld_vrije_dagen
+                WHERE mld_vrije_dagen_datum = TRUNC (datumbegin)
                   AND mld_vrije_dagen_id = pCalendarId;
 
                IF (datumbegin > TRUNC (datumbegin) + (pEindWerkUur / 24) OR vrijedag = 1)