UWVA#65182 Bewaartermijnen/automatische schoning in core

svn path=/Database/branches/DB40/; revision=52679

BES/BES_PAC.SRC

@@ -2261,6 +2261,15 @@ AS
                    FROM bes_bestelopdr_item
                   WHERE bes_bestelopdr_key = p_bes_opdr_key);
 
+        FOR ref_contract IN (SELECT cnt_contract_key
+                               FROM cnt_contract
+                              WHERE bes_bestelopdr_key = p_bes_opdr_key
+                            )
+        LOOP
+            -- Verwijder contracten die aan deze bestelopdracht zitten.
+            cnt.remove(ref_contract.cnt_contract_key);
+        END LOOP;
+
         DELETE FROM bes_bestelopdr
          WHERE bes_bestelopdr_key = p_bes_opdr_key;
 

CNT/CNT_PAC.SRC

@@ -553,6 +553,15 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
            flx.deleteflexbijlage (ref_bijlagen.fac_bijlagen_key);
        END LOOP;
 
+       FOR ref_mldopdr IN (SELECT mld_opdr_key
+                             FROM mld_opdr
+                            WHERE cnt_contract_key = p_contract_key
+                           )
+       LOOP
+           -- Verwijder melding-opdrachten die aan dit contract zitten.
+           mld.remove_opdr(ref_mldopdr.mld_opdr_key);
+       END LOOP;
+
        DELETE FROM cnt_contract
         WHERE cnt_contract_key = p_contract_key;