UWVA#65182 Bewaartermijnen/automatische schoning in core

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

FIN/FIN_PAC.SRC

@@ -45,6 +45,8 @@ AS
       RETURN NUMBER;
 
   FUNCTION sprintf (ps IN VARCHAR2 , p_factuur_key IN NUMBER) RETURN VARCHAR2;
+
+  PROCEDURE remove(p_factuur_key IN NUMBER);
 END fin;
 /
 
@@ -1050,6 +1052,24 @@ AS
       END IF;
       RETURN s;
    END;
+
+   PROCEDURE remove(p_factuur_key IN NUMBER)
+   IS
+   -- **
+   BEGIN
+       DELETE FROM fin_factuur
+        WHERE fin_factuur_key = p_factuur_key;
+
+       -- Van de volgende tabellen worden de records die naar deze p_afspraak_key
+       -- verwijzen met ON DELETE CASCADE ook verwijderd:
+       --  fin_factuur_note
+       --  fin_kenmerkfactuur
+       -- Hierdoor worden de afhankelijkheden in de volgende tabellen ook verwijderd:
+       --  fin_factuurregel
+       --  fin_kenmerkfactregel
+
+       fac.remove_tracking('factuur', p_factuur_key);
+   END;
 END fin;
 /
 

FIN/FIN_TAB.SRC

@@ -144,7 +144,7 @@ CREATE_TABLE(fin_factuurregel,0)
     CONSTRAINT fin_k_fin_regel PRIMARY KEY
 , fin_factuur_key
     NUMBER(10)
-    CONSTRAINT fin_r_fin_factuurregel1 REFERENCES fin_factuur(fin_factuur_key)
+    CONSTRAINT fin_r_fin_factuurregel1 REFERENCES fin_factuur(fin_factuur_key) ON DELETE CASCADE
     NOT_NULL(fin_factuur_key, fin_c_fin_factuurregel1)
 , fin_factuurregel_nr
     NUMBER
@@ -242,7 +242,7 @@ CREATE_TABLE(fin_kenmerkfactuur,0)
         CONSTRAINT fin_k_fin_kenmerkfactuur_key PRIMARY KEY
     ,fin_factuur_key
         NUMBER(10)
-        CONSTRAINT fin_r_fin_factuur_key REFERENCES fin_factuur(fin_factuur_key)
+        CONSTRAINT fin_r_fin_factuur_key REFERENCES fin_factuur(fin_factuur_key) ON DELETE CASCADE
     ,fin_kenmerk_key
         NUMBER(10)
     ,fin_kenmerkfactuur_waarde
@@ -263,7 +263,7 @@ CREATE_TABLE(fin_kenmerkfactregel,0)
         CONSTRAINT fin_k_kenmerkfactregel_key PRIMARY KEY
     ,fin_factuurregel_key
         NUMBER(10)
-        CONSTRAINT fin_r_fin_factuurregel_key REFERENCES fin_factuurregel(fin_factuurregel_key)
+        CONSTRAINT fin_r_fin_factuurregel_key REFERENCES fin_factuurregel(fin_factuurregel_key) ON DELETE CASCADE
     ,fin_kenmerk_key
         NUMBER(10)
         CONSTRAINT fin_r_fin_kenmerk_key2 REFERENCES fin_kenmerk(fin_kenmerk_key)