VNOG#87348 -- Opdrachtverstrekking cateraar na fiattering

svn path=/Customer/trunk/; revision=67845

VNOG/vnog.sql

@@ -687,10 +687,40 @@ fac_update_ins (p_import_key);
 END vnog_update_bepakkinglijst;
 /
 
--- VNOG#83941 ORDUPD ontdubbelen
 CREATE OR REPLACE PROCEDURE vnog_pre_putorders
 AS
+
+-- VNOG#87348
+-- Proces 1: Gefiatteerde reserveringen versturen naar de cateraar
+CURSOR c1
+IS
+          SELECT rr.res_rsv_ruimte_key rkey,
+                 f.fac_tracking_datum fiatdate,
+                 rr.res_rsv_ruimte_van resdate
+            FROM fac_tracking f,
+                 res_rsv_ruimte rr,
+                 res_rsv_artikel ra
+           WHERE f.fac_srtnotificatie_key = 128 -- RESFOK
+             AND f.fac_tracking_refkey = rr.res_rsv_ruimte_key
+             AND ra.res_rsv_ruimte_key = rr.res_rsv_ruimte_key -- er is catering
+             AND rr.res_rsv_ruimte_verwijder IS NULL -- niet verwijderd
+             AND rr.res_rsv_ruimte_verzonden IS NULL -- nog niet verzonden
+             AND rr.res_rsv_ruimte_teverzenden = 0   -- staat ook nog niet klaar
+             AND rr.res_rsv_ruimte_van > sysdate;
+             
 BEGIN
+
+   FOR rec IN c1
+   LOOP
+   BEGIN
+            UPDATE res_rsv_ruimte
+               SET res_rsv_ruimte_teverzenden = 1
+             WHERE res_rsv_ruimte_key = rec.rkey;
+   END;
+   END LOOP;
+   
+-- VNOG#83941 ORDUPD ontdubbelen
+-- Proces 2: Dubbele ORDUPD notificaties afvangen
     DELETE FROM fac_notificatie fn1
           WHERE     fn1.fac_srtnotificatie_key = 80                   --ORDUPD
                 AND EXISTS                               -- er is een nieuwere
@@ -701,6 +731,7 @@ BEGIN
                                 AND fn2.fac_srtnotificatie_key = 80
                                 AND fn2.fac_notificatie_key >
                                     fn1.fac_notificatie_key);
+                                    
 END;
 /