AKZA#33693 Reserveringen uit Exchange uitlezen en verwerken: periodieke import

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

BEZ/BEZ_PAC.SRC

@@ -209,11 +209,21 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       IF ldeelreskey IS NOT NULL
       THEN
          -- Zoek de noodzakelijke gegevens op
-         SELECT   r.res_rsv_ruimte_van, r.res_rsv_ruimte_tot, r.res_ruimte_opstel_key, r.alg_ruimte_key
-           INTO   lbegin, leinde, topstel, talgruimte
+         SELECT   r.res_ruimte_opstel_key, r.alg_ruimte_key
+           INTO   topstel, talgruimte
            FROM   res_rsv_ruimte r
           WHERE   res_rsv_ruimte_key = ldeelreskey;
 
+         -- Begin- en eindtijd zouden al bekend moeten zijn via afspraak (zal eigenlijk altijd gevuld zijn)
+         -- Zo niet, dan nog ophalen uit rsv_ruimte
+         IF lbegin IS NULL OR leinde IS NULL
+         THEN
+            SELECT   r.res_rsv_ruimte_van, r.res_rsv_ruimte_tot
+              INTO   lbegin, leinde
+              FROM   res_rsv_ruimte r
+             WHERE   res_rsv_ruimte_key = ldeelreskey;
+         END IF;
+
          IF talgruimte IS NOT NULL
          THEN
             SELECT   g.alg_locatie_key