PCHE#62772.sql Verkoopfacturen van een bepaalde datum opnieuw klaarzetten voor verzenden.

svn path=/Customer/; revision=47135

onces/PCHE/PCHE#62772.sql

@@ -0,0 +1,90 @@
+--
+-- $Id: PCHE#62772.sql 36063 2020-06-15 12:50:05Z sandersc$
+--
+-- Zet facturen van een bepaalde dag weer klaar om aangemaakt te worden (PDF) en verzonden wordt. 
+
+DEFINE thisfile = 'PCHE#62772.SQL'
+DEFINE dbuser   = '^PCHE'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+WHENEVER SQLERROR EXIT;
+SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+SPOOL &fcltlogfile
+SET DEFINE OFF
+
+------ payload begin ------
+
+DECLARE
+
+--   Onderstaande cursor bepaalt welke facturen klaargezet moeten worden. 
+   CURSOR c_noti
+   IS
+        SELECT vk.fin_verkoopfactuurkop_key,
+               vk.fin_verkoopfactuurkop_id,
+               fin_verkoopfactuur_c2,
+               fin_verkoopfactuur_c5
+          FROM fin_verkoopfactuur v, fin_verkoopfactuurkop vk
+         WHERE v.fin_verkoopfactuurkop_key = vk.fin_verkoopfactuurkop_key
+               AND TO_CHAR (v.fin_verkoopfactuur_aanmaak, 'YYYY-MM-DD') =
+                     '2020-05-25'
+      GROUP BY vk.fin_verkoopfactuurkop_key,
+               vk.fin_verkoopfactuurkop_id,
+               fin_verkoopfactuur_c2,
+               fin_verkoopfactuur_c5;
+
+BEGIN
+-- facturen klaarzetten voor verzenden (via PCHE_SELECT_EXACT_OUTPUT).
+   FOR rec IN c_noti
+   LOOP
+      BEGIN
+
+            -- CUST01 notificatie heeft key 181
+            -- Datum van de notificatie wordt op middernacht gezet om er voor te zorgen dat na kantooruren de pdf generatie
+            -- kan plaatsvinden.
+            INSERT INTO fac_notificatie (fac_srtnotificatie_key,
+                                         fac_notificatie_status,
+                                         fac_notificatie_receiver_email,
+                                         fac_notificatie_oms,
+                                         fac_notificatie_refkey,
+                                         fac_notificatie_prioriteit,
+                                         fac_notificatie_attachments,
+                                         fac_notificatie_datum)
+              VALUES (181,
+                      2,   -- mail
+                      rec.fin_verkoopfactuur_c2,  -- email
+                      'Factuur parking Strijp-S',
+                      rec.fin_verkoopfactuurkop_key,
+                      2,
+                      '/../../Fplace5i/CUST/PCHE/export/PDF/' || rec.fin_verkoopfactuur_c5,
+                      TRUNC(SYSDATE)+1);
+
+		   -- Normaal wordt ook de factuurdatum op huidige dag gezet. Deze verkoopfacturen hebben al een datum (25 mei), die houden we aan
+           -- UPDATE fin_verkoopfactuur
+           --    SET fin_verkoopfactuur_d5 = SYSDATE
+           --  WHERE fin_verkoopfactuurkop_key = rec.fin_verkoopfactuurkop_key;
+
+      EXCEPTION WHEN OTHERS
+      THEN
+         fac.writelog ('EXACT_OUTPUT', 'E', 'Overwachte fout bij notificeren: ' || rec.fin_verkoopfactuurkop_key || ' (' || rec.fin_verkoopfactuur_c2 || ')', '');
+      END;
+   END LOOP;
+
+END;
+/
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id: PCHE#62772.sql 36063 2020-06-15 12:50:05Z sandersc$', 1); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile
+
+--@@ &custid