UWVA#65182 Bewaartermijnen/automatische schoning in core

svn path=/Database/trunk/; revision=52677

CNT/CNT_PAC.SRC

@@ -543,6 +543,15 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
            cnt.remove(ref_contract.cnt_contract_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;
+
        FOR ref_factuur IN c_factuur
        LOOP
            fin.remove(ref_factuur.fin_factuur_key);