UWVA#65182 Bewaartermijnen/automatische schoning in core

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

FIN/FIN_PAC.SRC

@@ -1063,6 +1063,25 @@ AS
               AND b.fac_bijlagen_module = 'FIN'
               AND b.fac_bijlagen_refkey = p_refkey;
    BEGIN
+       -- Bijlagen van factuurregels verwijderen.
+       -- Zoek alle factuurregels bij deze factuur.
+       -- Garandeer dat de bijlage bij de factuurregel hoort en niet bij een factuur met dezelfde refkey als de factuurregel,
+       -- door alleen kenmerken te gebruiken die alleen voor factuurregels zijn.
+       FOR ref_bijlagen IN (SELECT fac_bijlagen_key
+                              FROM fac_bijlagen b
+                                 , fin_factuurregel r
+                                 , fin_kenmerk k
+                             WHERE b.fac_bijlagen_kenmerk_key = k.fin_kenmerk_key
+                               AND b.fac_bijlagen_refkey = r.fin_factuurregel_key
+                               AND b.fac_bijlagen_module = 'FIN'
+                               AND k.fin_kenmerk_type = 'R'
+                               AND r.fin_factuur_key = p_factuur_key
+                           )
+       LOOP
+           flx.deleteflexbijlage (ref_bijlagen.fac_bijlagen_key);
+       END LOOP;
+
+
        FOR ref_bijlagen IN c_bijlagen(p_factuur_key)
        LOOP
            flx.deleteflexbijlage (ref_bijlagen.fac_bijlagen_key);