FSN#40347 -- Parkeerplaatsenlijst houdt geen rekening met vervallen parkeerplaatsen

svn path=/Database/branches/DB30/; revision=33688

BEZ/BEZ_PAC.SRC

@@ -295,6 +295,8 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                                         POWER(2,
                                               (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
                                  POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
+                             AND (   d.res_deel_vervaldatum IS NULL
+                                  OR d.res_deel_vervaldatum > lbegin)
                   ORDER BY   id.ins_deel_upper)
          WHERE   aantal IS NULL;
       ELSE
@@ -327,6 +329,8 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                                         POWER(2,
                                               (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
                                  POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
+                             AND (   d.res_deel_vervaldatum IS NULL
+                                  OR d.res_deel_vervaldatum > lbegin)
                   ORDER BY   id.ins_deel_upper)
          WHERE   aantal IS NULL;
       END IF;

FAC/FAC_PAC.SRC

@@ -2804,7 +2804,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         lbenotify                mld_disc_params.mld_disc_params_benotify%TYPE;
         lworkflowstep_key        mld_melding.mld_workflowstep_key%TYPE;
         lstart_key               mld_melding.mld_melding_start_key%TYPE;
-        lintern                  mld_v_uitvoerende.intern%TYPE;
+        luitvtype                mld_v_uitvoerende.TYPE%TYPE;
         lemail                   prs_bedrijf.prs_bedrijf_email%TYPE;
         lemail3                  alg_gebouw.alg_gebouw_email%TYPE;
         lphone                   prs_bedrijf.prs_bedrijf_telefoon2%TYPE;
@@ -3008,14 +3008,14 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                       FROM mld_opdr
                      WHERE mld_opdr_key = prefkey;
 
-                    SELECT u.intern
-                      INTO lintern
+                    SELECT u.TYPE
+                      INTO luitvtype
                       FROM mld_v_uitvoerende u
                      WHERE u.mld_uitvoerende_key = lreceiver;
 
-                    IF lintern = 0 -- Extern
+                    IF luitvtype = 'B'
                     THEN
-                        -- Het gaat om een externe receiver
+                        -- Het gaat om een bedrijf receiver
                         BEGIN
                             SELECT prs_bedrijf_email, prs_bedrijf_telefoon2
                               INTO lemail, lphone

FCLT.NMK

@@ -62,7 +62,7 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 CURRENTVERSION=29
 NEXTVERSION=30
-FILEVERSION=c
+FILEVERSION=f
 NEXTCAREVERSION=32
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)

RES/RES_PAC.SRC

@@ -497,8 +497,9 @@ AS
             -- Controleer op blokkade van ruimte ivm middagpauze
             IF (ruimte_blok_van IS NOT NULL AND ruimte_blok_tot IS NOT NULL)
             THEN
-                IF prsv_ruimte.res_rsv_ruimte_van BETWEEN TRUNC(prsv_ruimte.res_rsv_ruimte_van)+ruimte_blok_van AND TRUNC(prsv_ruimte.res_rsv_ruimte_van)+ruimte_blok_tot
-                OR prsv_ruimte.res_rsv_ruimte_tot BETWEEN TRUNC(prsv_ruimte.res_rsv_ruimte_tot)+ruimte_blok_van AND TRUNC(prsv_ruimte.res_rsv_ruimte_tot)+ruimte_blok_tot
+                IF (   (prsv_ruimte.res_rsv_ruimte_van < TRUNC(prsv_ruimte.res_rsv_ruimte_van)+ruimte_blok_tot - 1/24/60)
+                   AND (prsv_ruimte.res_rsv_ruimte_tot > TRUNC(prsv_ruimte.res_rsv_ruimte_van)+ruimte_blok_van + 1/24/60)
+                   )
                 THEN
                     n_overlap := 1;
                 END IF;