FSN#24161 check bij verwijderen ook op actieve contracten

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

INS/INS_TRI.SRC

@@ -76,6 +76,32 @@ BEGIN
             raise_application_error (-20000, 'ins_m999 Catalogus heeft nog open bestelopdrachten');
       END;
    END IF;
+
+   IF (    :new.ins_discipline_verwijder IS NOT NULL
+       AND:old.ins_discipline_verwijder IS NULL
+       AND:new.ins_discipline_module = 'CNT')
+   THEN
+      DECLARE
+         dummy CHAR;
+      BEGIN
+         SELECT   'x'
+           INTO   dummy
+           FROM   cnt_contract c
+          WHERE   c.ins_discipline_key = :new.ins_discipline_key
+            AND   c.cnt_contract_status = 0
+            AND   c.cnt_contract_verwijder IS NULL
+            AND   c.cnt_contract_looptijd_tot >= SYSDATE;
+         raise_application_error (-20000, 'ins_m999 Contractsoort heeft nog actieve contracten');
+      EXCEPTION
+         WHEN NO_DATA_FOUND
+         THEN
+            NULL;
+         WHEN TOO_MANY_ROWS
+         THEN
+            raise_application_error (-20000, 'ins_m999 Contractsoort heeft nog actieve contracten');
+      END;
+   END IF;
+
     SET_VERWIJDER_CHILDREN(ins_srtgroep, ins_discipline_key, ins_discipline_verwijder,
         ins_srtgroep_verwijder,ins_tab_discipline);
     SET_VERWIJDER_CHILDREN(bes_srtgroep, ins_discipline_key, ins_discipline_verwijder,