From 3cbf971cc400f994e5b2739e4429dc3cfa2cbcce Mon Sep 17 00:00:00 2001
From: Erik Groener <erik.groener@aareon.nl>
Date: Wed, 11 Aug 2021 13:29:43 +0000
Subject: [PATCH] UWVA#65182 Bewaartermijnen/automatische schoning in core

svn path=/Database/trunk/; revision=52677
---
 BES/BES_PAC.SRC | 8 ++++++++
 CNT/CNT_PAC.SRC | 9 +++++++++
 2 files changed, 17 insertions(+)

diff --git a/BES/BES_PAC.SRC b/BES/BES_PAC.SRC
index 3a8b2bb3..f8a324f9 100644
--- a/BES/BES_PAC.SRC
+++ b/BES/BES_PAC.SRC
@@ -2216,6 +2216,14 @@ AS
         -- Alle bestelopdrachten onder de bestelling verwijderen.
         FOR ref_opdracht IN c_opdracht(p_bes_bestelling_key)
         LOOP
+            FOR ref_contract IN (SELECT cnt_contract_key
+                                   FROM cnt_contract
+                                  WHERE bes_bestelopdr_key = ref_opdracht.bes_bestelopdr_key
+                                )
+            LOOP
+                -- Verwijder contracten die aan deze bestelopdracht zitten.
+                cnt.remove(ref_contract.cnt_contract_key);
+            END LOOP;
             bes.remove_opdr(ref_opdracht.bes_bestelopdr_key);
         END LOOP;
 
diff --git a/CNT/CNT_PAC.SRC b/CNT/CNT_PAC.SRC
index 8a3bc303..6620ec60 100644
--- a/CNT/CNT_PAC.SRC
+++ b/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);