UWVA#65182 Bewaartermijnen/automatische schoning in core

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

FIN/FIN_PAC.SRC

@@ -1055,8 +1055,19 @@ AS
 
    PROCEDURE remove(p_factuur_key IN NUMBER)
    IS
-   -- **
+       CURSOR c_bijlagen(p_refkey IN NUMBER) IS
+           SELECT fac_bijlagen_key
+             FROM fac_bijlagen b
+                , fin_factuur r
+            WHERE b.fac_bijlagen_refkey = r.fin_factuur_key
+              AND b.fac_bijlagen_module = 'FIN'
+              AND b.fac_bijlagen_refkey = p_refkey;
    BEGIN
+       FOR ref_bijlagen IN c_bijlagen(p_factuur_key)
+       LOOP
+           flx.deleteflexbijlage (ref_bijlagen.fac_bijlagen_key);
+       END LOOP;
+
        DELETE FROM fin_factuur
         WHERE fin_factuur_key = p_factuur_key;