UWVA#65182 Bewaartermijnen/automatische schoning in core

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

CNT/CNT_PAC.SRC

@@ -527,9 +527,24 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
            SELECT fin_factuur_key
              FROM fin_factuur
             WHERE cnt_contract_key = p_contract_key;
+
+       CURSOR c_bijlagen(p_refkey IN NUMBER) IS
+           SELECT fac_bijlagen_key
+             FROM fac_bijlagen b
+                , cnt_contract r
+            WHERE b.fac_bijlagen_refkey = r.cnt_contract_key
+              AND b.fac_bijlagen_module = 'CNT'
+              AND b.fac_bijlagen_refkey = p_refkey;
+
    BEGIN
+       -- Verwijder alle subcontracten van dit contract.
        FOR ref_contract IN c_contract
        LOOP
+           FOR ref_bijlagen IN c_bijlagen(ref_contract.cnt_contract_key)
+           LOOP
+               flx.deleteflexbijlage (ref_bijlagen.fac_bijlagen_key);
+           END LOOP;
+
            cnt.remove(ref_contract.cnt_contract_key);
        END LOOP;
 
@@ -538,6 +553,11 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
            fin.remove(ref_factuur.fin_factuur_key);
        END LOOP;
 
+       FOR ref_bijlagen IN c_bijlagen(p_contract_key)
+       LOOP
+           flx.deleteflexbijlage (ref_bijlagen.fac_bijlagen_key);
+       END LOOP;
+
        DELETE FROM cnt_contract
         WHERE cnt_contract_key = p_contract_key;