Ticket MARX#90284 Registreren van 'eigen' opdrachten met AI - MARX_MONTHLY ruimt oude (mail)records uit fac_opdracht_queue op.

svn path=/Mareon/trunk/; revision=70021

sql/mareon.sql

@@ -22351,11 +22351,49 @@ CREATE OR REPLACE VIEW mar_v_tmp_premium_staffelkorting
   END;
   /
   
+  -- MARX#90284 Registreren van 'eigen' opdrachten met AI
+  CREATE OR REPLACE PROCEDURE marx_delete_opdracht_queue
+  IS
+      l_einddatum                 DATE;
+      l_kill_opdracht_queue_period NUMBER (10);
+      l_prs_perslid_key_fclt      NUMBER (10);
+  
+      -- Deze opdracht_queue records die ouder zijn dan '365' dagen (=instelling $MAR_KILL_ORDER_QUEUE_PERIOD) worden verwijderd:
+  
+      CURSOR c_opdracht_queue (p_einddatum  DATE)
+      IS
+            SELECT mar_opdracht_queue_key
+            FROM mar_opdracht_queue
+            WHERE mar_opdracht_queue_aanmaak < p_einddatum;
+                      
+  BEGIN
+      -- Perslid Facilitor is in alle omgevingen (prod, accept, labs, develop) waarde 4.
+      l_prs_perslid_key_fclt := 4;
+  
+  
+      SELECT fac.safe_to_number (ud.fac_usrdata_omschr)
+      INTO l_kill_opdracht_queue_period
+      FROM fac_usrdata ud
+      WHERE ud.fac_usrtab_key = 1 AND ud.fac_usrdata_code = '$MAR_KILL_ORDER_QUEUE_PERIOD' AND ud.fac_usrdata_verwijder IS NULL;
+  
+      l_einddatum := SYSDATE - l_kill_opdracht_queue_period;
+  
+      FOR rec IN c_opdracht_queue (l_einddatum)
+      LOOP
+          BEGIN
+              DELETE FROM mar_opdracht_queue WHERE mar_opdracht_queue_key = rec.mar_opdracht_queue_key;
+          END;
+      END LOOP;
+  
+      COMMIT;
+  END;
+  /
   
   CREATE OR REPLACE PROCEDURE MARX_MONTHLY
   IS
   BEGIN
       marx_delete_factuur_queue();
+      marx_delete_opdracht_queue();
   END;
   /