Merge DB40f patches

svn path=/Database/trunk/; revision=52715
2021-08-17 13:01:49 +00:00
parent c2073bb400
commit 1e210e11b4
4 changed files with 25 additions and 2 deletions
--- a/BES/BES_PAC.SRC
+++ b/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;