FCLT#67810 AiAi bij verwijderen bijlage

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

FAC/FAC_PACFLEX.SRC

@@ -323,6 +323,16 @@
         -- Nu mag dit record verwijderd worden
         IF (p_fileisgone)
         THEN
+            IF (v_cur_root_key IS NULL AND v_new_root_key IS NULL)
+            THEN
+                -- Query heeft geen andere bijlage gevonden die de nieuwe root_key kan worden.
+                -- Er zijn dan geen kopieen van de bijlage, of van alle kopieen is ook de verwijderdatum gezet.
+                -- Verwijder eerst de kopieen met verwijderdatum.
+                DELETE FROM fac_bijlagen
+                 WHERE fac_bijlagen_verwijder IS NOT NULL
+                   AND fac_bijlagen_root_key = p_bijlagen_key;
+            END IF;
+
             DELETE FROM fac_bijlagen
              WHERE fac_bijlagen_key = p_bijlagen_key;
         ELSE