VNOG#87348 -- Catering opnieuw verzenden na herfiattering

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

VNOG/vnog.sql

@@ -729,7 +729,22 @@ IS
              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_teverzenden = 0   -- nog nooit verzonden
+             AND rr.res_rsv_ruimte_van > sysdate;
+
+-- Nog een keer sturen wanneer er geherfiatteerd is             
+CURSOR c2
+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_verzonden < f.fac_tracking_datum -- er is fiat tracking na de eerste verzend actie
              AND rr.res_rsv_ruimte_van > sysdate;
              
 BEGIN
@@ -743,6 +758,16 @@ BEGIN
    END;
    END LOOP;
    
+   FOR rec IN c2
+   LOOP
+   BEGIN
+            UPDATE res_rsv_ruimte
+               SET res_rsv_ruimte_teverzenden = 1,
+                   res_rsv_ruimte_verzonden = NULL
+             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