UWVA#65182 Bewaartermijnen/automatische schoning in core

svn path=/Database/trunk/; revision=52677
2021-08-11 13:29:43 +00:00
parent 1132aefb1b
commit 3cbf971cc4
2 changed files with 17 additions and 0 deletions
--- 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;