AAGB#75630 Graag kolom ins_srtkenmerk_code toevoegen aan tabel

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

ALG/ALG_TRI.SRC

@@ -412,6 +412,10 @@ BEGIN
    UPDATE_PRIMARY_KEY(alg_kenmerk_key, alg_s_alg_kenmerk_key);
    UPDATE_UPPER(alg_kenmerk_omschrijving, alg_kenmerk_upper, alg_kenmerk);
    UPDATE_UPPER(alg_kenmerk_code, alg_kenmerk_code, alg_kenmerk);
+   IF (:new.alg_kenmerk_verwijder IS NOT NULL AND :old.alg_kenmerk_verwijder IS NULL AND :new.alg_kenmerk_code IS NULL)
+   THEN
+       :new.alg_kenmerk_code = :new.alg_kenmerk_key;
+   END IF;
    IF (:new.alg_kenmerk_verwijder IS NOT NULL AND :old.alg_kenmerk_verwijder IS NULL AND
        :new.alg_kenmerk_systeem = 1)
    THEN

BES/BES_TRI.SRC

@@ -222,6 +222,10 @@ BEGIN
    UPDATE_PRIMARY_KEY(bes_srtkenmerk_key, bes_s_bes_srtkenmerk_key);
    UPDATE_UPPER(bes_srtkenmerk_omschrijving, bes_srtkenmerk_upper,bes_srtkenmerk);
    UPDATE_UPPER(bes_srtkenmerk_code, bes_srtkenmerk_code, bes_srtkenmerk);
+   IF (:new.bes_srtkenmerk_verwijder IS NOT NULL AND :old.bes_srtkenmerk_verwijder IS NULL AND :new.bes_srtkenmerk_code IS NULL)
+   THEN
+       :new.bes_srtkenmerk_code = :new.bes_srtkenmerk_key;
+   END IF;
 
    UPDATE_AANMAAKDATUM(bes_srtkenmerk,bes_srtkenmerk_aanmaak);
    IF (:new.bes_srtkenmerk_verwijder IS NOT NULL AND :old.bes_srtkenmerk_verwijder IS NULL AND
@@ -321,6 +325,10 @@ BEGIN
    UPDATE_PRIMARY_KEY(bes_kenmerk_key, bes_s_bes_kenmerk_key);
    UPDATE_AANMAAKDATUM(bes_kenmerk, bes_kenmerk_aanmaak);
    UPDATE_UPPER(bes_kenmerk_code, bes_kenmerk_code, bes_kenmerk);
+   IF (:new.bes_kenmerk_verwijder IS NOT NULL AND :old.bes_kenmerk_verwijder IS NULL AND :new.bes_kenmerk_code IS NULL)
+   THEN
+       :new.bes_kenmerk_code = :new.bes_kenmerk_key;
+   END IF;
 
 END;
 /

BEZ/BEZ_TRI.SRC

@@ -117,6 +117,10 @@ BEGIN
    UPDATE_PRIMARY_KEY(bez_kenmerk_key, bez_s_bez_kenmerk_key);
    UPDATE_UPPER(bez_kenmerk_omschrijving, bez_kenmerk_upper, bez_kenmerk);
    UPDATE_UPPER(bez_kenmerk_code, bez_kenmerk_code, bez_kenmerk);
+   IF (:new.bez_kenmerk_verwijder IS NOT NULL AND :old.bez_kenmerk_verwijder IS NULL AND :new.bez_kenmerk_code IS NULL)
+   THEN
+       :new.bez_kenmerk_code = :new.bez_kenmerk_key;
+   END IF;
 
    IF (:new.bez_kenmerk_verwijder IS NOT NULL AND :old.bez_kenmerk_verwijder IS NULL AND
        :new.bez_kenmerk_systeem = 1)

CNT/CNT_TRI.SRC

@@ -135,6 +135,10 @@ BEGIN
   UPDATE_PRIMARY_KEY(cnt_srtkenmerk_key, cnt_s_cnt_srtkenmerk_key);
   UPDATE_UPPER(cnt_srtkenmerk_omschrijving, cnt_srtkenmerk_upper, cnt_srtkenmerk);
   UPDATE_UPPER(cnt_srtkenmerk_code, cnt_srtkenmerk_code, cnt_srtkenmerk);
+   IF (:new.cnt_srtkenmerk_verwijder IS NOT NULL AND :old.cnt_srtkenmerk_verwijder IS NULL AND :new.cnt_srtkenmerk_code IS NULL)
+   THEN
+       :new.cnt_srtkenmerk_code = :new.cnt_srtkenmerk_key;
+   END IF;
 
   UPDATE_AANMAAKDATUM(cnt_srtkenmerk, cnt_srtkenmerk_aanmaak);
   IF (:new.cnt_srtkenmerk_verwijder IS NOT NULL AND :old.cnt_srtkenmerk_verwijder IS NULL AND
@@ -216,6 +220,10 @@ BEGIN
   UPDATE_PRIMARY_KEY(cnt_kenmerk_key, cnt_s_cnt_kenmerk_key);
   UPDATE_AANMAAKDATUM(cnt_kenmerk, cnt_kenmerk_aanmaak);
   UPDATE_UPPER(cnt_kenmerk_code, cnt_kenmerk_code, cnt_kenmerk);
+   IF (:new.cnt_kenmerk_verwijder IS NOT NULL AND :old.cnt_kenmerk_verwijder IS NULL AND :new.cnt_kenmerk_code IS NULL)
+   THEN
+       :new.cnt_kenmerk_code = :new.cnt_kenmerk_key;
+   END IF;
 
 END;
 /

FAC/FAC_TRI.SRC

@@ -919,6 +919,10 @@ BEGIN
    UPDATE_PRIMARY_KEY(faq_kenmerk_key, faq_s_faq_kenmerk_key);
    UPDATE_UPPER(faq_kenmerk_omschrijving, faq_kenmerk_upper, faq_kenmerk);
    UPDATE_UPPER(faq_kenmerk_code, faq_kenmerk_code, faq_kenmerk);
+   IF (:new.faq_kenmerk_verwijder IS NOT NULL AND :old.faq_kenmerk_verwijder IS NULL AND :new.faq_kenmerk_code IS NULL)
+   THEN
+       :new.faq_kenmerk_code = :new.faq_kenmerk_key;
+   END IF;
 
    IF (:new.faq_kenmerk_verwijder IS NOT NULL AND :old.faq_kenmerk_verwijder IS NULL AND
        :new.faq_kenmerk_systeem = 1)

FIN/FIN_TRI.SRC

@@ -298,6 +298,10 @@ BEGIN
    UPDATE_PRIMARY_KEY(fin_kenmerk_key, fin_s_fin_kenmerk_key);
    UPDATE_UPPER(fin_kenmerk_omschrijving, fin_kenmerk_upper, fin_kenmerk);
    UPDATE_UPPER(fin_kenmerk_code, fin_kenmerk_code, fin_kenmerk);
+   IF (:new.fin_kenmerk_verwijder IS NOT NULL AND :old.fin_kenmerk_verwijder IS NULL AND :new.fin_kenmerk_code IS NULL)
+   THEN
+       :new.fin_kenmerk_code = :new.fin_kenmerk_key;
+   END IF;
 
    IF (:new.fin_kenmerk_verwijder IS NOT NULL AND :old.fin_kenmerk_verwijder IS NULL AND
        :new.fin_kenmerk_systeem = 1)

INS/INS_TRI.SRC

@@ -582,6 +582,10 @@ BEGIN
     UPDATE_PRIMARY_KEY(ins_srtkenmerk_key, ins_s_ins_srtkenmerk_key);
     UPDATE_UPPER(ins_srtkenmerk_omschrijving, ins_srtkenmerk_upper,ins_srtkenmerk);
     UPDATE_UPPER(ins_srtkenmerk_code, ins_srtkenmerk_code, ins_srtkenmerk);
+    IF (:new.ins_srtkenmerk_verwijder IS NOT NULL AND :old.ins_srtkenmerk_verwijder IS NULL AND :new.ins_srtkenmerk_code IS NULL)
+    THEN
+      :new.ins_srtkenmerk_code = :new.ins_srtkenmerk_key;
+    END IF;
 
     UPDATE_AANMAAKDATUM(ins_srtkenmerk, ins_srtkenmerk_aanmaak);
     IF (:new.ins_srtkenmerk_verwijder IS NOT NULL AND :old.ins_srtkenmerk_verwijder IS NULL AND
@@ -658,6 +662,10 @@ BEGIN
     UPDATE_PRIMARY_KEY(ins_kenmerk_key, ins_s_ins_kenmerk_key);
     UPDATE_AANMAAKDATUM(ins_kenmerk, ins_kenmerk_aanmaak);
     UPDATE_UPPER(ins_kenmerk_code, ins_kenmerk_code, ins_kenmerk);
+    IF (:new.ins_kenmerk_verwijder IS NOT NULL AND :old.ins_kenmerk_verwijder IS NULL AND :new.ins_kenmerk_code IS NULL)
+    THEN
+      :new.ins_kenmerk_code = :new.ins_kenmerk_key;
+    END IF;
 END;
 /
 

MLD/MLD_TRI.SRC

@@ -387,6 +387,10 @@ BEGIN
   UPDATE_PRIMARY_KEY(mld_srtkenmerk_key, mld_s_mld_srtkenmerk_key);
   UPDATE_UPPER(mld_srtkenmerk_omschrijving, mld_srtkenmerk_upper,mld_srtkenmerk);
   UPDATE_UPPER(mld_srtkenmerk_code, mld_srtkenmerk_code, mld_srtkenmerk);
+  IF (:new.mld_srtkenmerk_verwijder IS NOT NULL AND :old.mld_srtkenmerk_verwijder IS NULL AND :new.mld_srtkenmerk_code IS NULL)
+  THEN
+    :new.mld_srtkenmerk_code = :new.mld_srtkenmerk_key;
+  END IF;
   UPDATE_AANMAAKDATUM(mld_srtkenmerk, mld_srtkenmerk_aanmaak);
   IF (:new.mld_srtkenmerk_verwijder IS NOT NULL AND :old.mld_srtkenmerk_verwijder IS NULL AND
     BITAND(:new.mld_srtkenmerk_systeem, 1) = 1)
@@ -464,6 +468,10 @@ BEGIN
   UPDATE_PRIMARY_KEY(mld_kenmerk_key, mld_s_mld_kenmerk_key);
   UPDATE_UPPER(mld_kenmerk_code, mld_kenmerk_code, mld_kenmerk);
   UPDATE_AANMAAKDATUM(mld_kenmerk, mld_kenmerk_aanmaak);
+  IF (:new.mld_kenmerk_verwijder IS NOT NULL AND :old.mld_kenmerk_verwijder IS NULL AND :new.mld_kenmerk_code IS NULL)
+  THEN
+    :new.mld_kenmerk_code = :new.mld_kenmerk_key;
+  END IF;
 END;
 /
 

PRS/PRS_TRI.SRC

@@ -467,6 +467,10 @@ BEGIN
    UPDATE_PRIMARY_KEY(prs_kenmerk_key, prs_s_prs_kenmerk_key);
    UPDATE_UPPER(prs_kenmerk_omschrijving, prs_kenmerk_upper,prs_kenmerk);
    UPDATE_UPPER(prs_kenmerk_code, prs_kenmerk_code, prs_kenmerk);
+   IF (:new.prs_kenmerk_verwijder IS NOT NULL AND :old.prs_kenmerk_verwijder IS NULL AND :new.prs_kenmerk_code IS NULL)
+   THEN
+       :new.prs_kenmerk_code = :new.prs_kenmerk_key;
+   END IF;
 
    IF (:new.prs_kenmerk_verwijder IS NOT NULL AND :old.prs_kenmerk_verwijder IS NULL AND
        :new.prs_kenmerk_systeem = 1)

RES/RES_TRI.SRC

@@ -304,6 +304,10 @@ BEGIN
   UPDATE_PRIMARY_KEY(res_srtkenmerk_key, res_s_res_srtkenmerk_key);
   UPDATE_UPPER(res_srtkenmerk_omschrijving, res_srtkenmerk_upper,res_srtkenmerk);
   UPDATE_UPPER(res_srtkenmerk_code, res_srtkenmerk_code, res_srtkenmerk);
+  IF (:new.res_srtkenmerk_verwijder IS NOT NULL AND :old.res_srtkenmerk_verwijder IS NULL AND :new.res_srtkenmerk_code IS NULL)
+  THEN
+    :new.res_srtkenmerk_code = :new.res_srtkenmerk_key;
+  END IF;
 
   UPDATE_AANMAAKDATUM(res_srtkenmerk, res_srtkenmerk_aanmaak);
   IF (:new.res_srtkenmerk_verwijder IS NOT NULL AND :old.res_srtkenmerk_verwijder IS NULL AND
@@ -424,6 +428,10 @@ BEGIN
   UPDATE_PRIMARY_KEY(res_kenmerk_key, res_s_res_kenmerk_key);
   UPDATE_AANMAAKDATUM(res_kenmerk, res_kenmerk_aanmaak);
   UPDATE_UPPER(res_kenmerk_code, res_kenmerk_code, res_kenmerk);
+  IF (:new.res_kenmerk_verwijder IS NOT NULL AND :old.res_kenmerk_verwijder IS NULL AND :new.res_kenmerk_code IS NULL)
+  THEN
+    :new.res_kenmerk_code = :new.res_kenmerk_key;
+  END IF;
 
 END;
 /

_UP/DB44to45.src

@@ -19,8 +19,8 @@ UPDATE fac_setting
 
 /////////////////////////////////////////////////////////////////////////////////////////// AAGB#75630
 BEGIN
-    adm.tryalter ('TABLE mld_kenmerk DROP CONSTRAINT mld_u_mld_kenmerk_code');
+    adm.tryalter ('TABLE mld_kenmerk DROP CONSTRAINT mld_u_mld_kenmerk_code DROP INDEX');
-    adm.tryalter ('TABLE mld_srtkenmerk DROP CONSTRAINT mld_u_mld_srtkenmerk_code');
+    adm.tryalter ('TABLE mld_srtkenmerk DROP CONSTRAINT mld_u_mld_srtkenmerk_code DROP INDEX');
 END;
 /
 ALTER TABLE alg_kenmerk ADD alg_kenmerk_code VARCHAR2(60);
@@ -32,14 +32,29 @@ ALTER TABLE fin_kenmerk ADD fin_kenmerk_code VARCHAR2(60);
 ALTER TABLE ins_kenmerk ADD ins_kenmerk_code VARCHAR2(60);
 ALTER TABLE prs_kenmerk ADD prs_kenmerk_code VARCHAR2(60);
 ALTER TABLE res_kenmerk ADD res_kenmerk_code VARCHAR2(60);
-
 ALTER TABLE bes_srtkenmerk ADD bes_srtkenmerk_code VARCHAR2(60);
 ALTER TABLE cnt_srtkenmerk ADD cnt_srtkenmerk_code VARCHAR2(60);
 ALTER TABLE ins_srtkenmerk ADD ins_srtkenmerk_code VARCHAR2(60);
 ALTER TABLE res_srtkenmerk ADD res_srtkenmerk_code VARCHAR2(60);
-
 ALTER TABLE fac_imp_flex ADD (srtkenmerk_code VARCHAR2(255), kenmerk_code VARCHAR2(255));
 
+-- Als er al meerdere verwijderde records zijn dan kan unique niet gezet worden: vul voor code dan de key in!
+UPDATE alg_kenmerk SET alg_kenmerk_code = alg_kenmerk_key WHERE alg_kenmerk_verwijder IS NOT NULL;
+UPDATE bes_kenmerk SET bes_kenmerk_code = bes_kenmerk_key WHERE bes_kenmerk_verwijder IS NOT NULL;
+UPDATE bez_kenmerk SET bez_kenmerk_code = bez_kenmerk_key WHERE bez_kenmerk_verwijder IS NOT NULL;
+UPDATE cnt_kenmerk SET cnt_kenmerk_code = cnt_kenmerk_key WHERE cnt_kenmerk_verwijder IS NOT NULL;
+UPDATE faq_kenmerk SET faq_kenmerk_code = faq_kenmerk_key WHERE faq_kenmerk_verwijder IS NOT NULL;
+UPDATE fin_kenmerk SET fin_kenmerk_code = fin_kenmerk_key WHERE fin_kenmerk_verwijder IS NOT NULL;
+UPDATE ins_kenmerk SET ins_kenmerk_code = ins_kenmerk_key WHERE ins_kenmerk_verwijder IS NOT NULL;
+UPDATE mld_kenmerk SET mld_kenmerk_code = mld_kenmerk_key WHERE mld_kenmerk_verwijder IS NOT NULL AND mld_kenmerk_code IS NULL;
+UPDATE prs_kenmerk SET prs_kenmerk_code = prs_kenmerk_key WHERE prs_kenmerk_verwijder IS NOT NULL;
+UPDATE res_kenmerk SET res_kenmerk_code = res_kenmerk_key WHERE res_kenmerk_verwijder IS NOT NULL;
+UPDATE bes_srtkenmerk SET bes_srtkenmerk_code = bes_srtkenmerk_key WHERE bes_srtkenmerk_verwijder IS NOT NULL;
+UPDATE cnt_srtkenmerk SET cnt_srtkenmerk_code = cnt_srtkenmerk_key WHERE cnt_srtkenmerk_verwijder IS NOT NULL;
+UPDATE ins_srtkenmerk SET ins_srtkenmerk_code = ins_srtkenmerk_key WHERE ins_srtkenmerk_verwijder IS NOT NULL;
+UPDATE mld_srtkenmerk SET mld_srtkenmerk_code = mld_srtkenmerk_key WHERE mld_srtkenmerk_verwijder IS NOT NULL AND mld_srtkenmerk_code IS NULL;
+UPDATE res_srtkenmerk SET res_srtkenmerk_code = res_srtkenmerk_key WHERE res_srtkenmerk_verwijder IS NOT NULL;
+
 ALTER TABLE alg_kenmerk ADD CONSTRAINT alg_u_alg_kenmerk_code UNIQUE(alg_kenmerk_code, alg_kenmerk_verwijder);
 ALTER TABLE bes_kenmerk ADD CONSTRAINT bes_u_bes_kenmerk_code UNIQUE(bes_kenmerk_code, bes_kenmerk_verwijder);
 ALTER TABLE bez_kenmerk ADD CONSTRAINT bez_u_bez_kenmerk_code UNIQUE(bez_kenmerk_code, bez_kenmerk_verwijder);
@@ -50,7 +65,6 @@ ALTER TABLE ins_kenmerk ADD CONSTRAINT ins_u_ins_kenmerk_code UNIQUE(ins_kenmerk
 ALTER TABLE mld_kenmerk ADD CONSTRAINT mld_u_mld_kenmerk_code UNIQUE(mld_kenmerk_code, mld_kenmerk_verwijder);
 ALTER TABLE prs_kenmerk ADD CONSTRAINT prs_u_prs_kenmerk_code UNIQUE(prs_kenmerk_code, prs_kenmerk_verwijder);
 ALTER TABLE res_kenmerk ADD CONSTRAINT res_u_res_kenmerk_code UNIQUE(res_kenmerk_code, res_kenmerk_verwijder);
-
 ALTER TABLE bes_srtkenmerk ADD CONSTRAINT bes_u_bes_srtkenmerk_code UNIQUE(bes_srtkenmerk_code, bes_srtkenmerk_verwijder);
 ALTER TABLE cnt_srtkenmerk ADD CONSTRAINT cnt_u_bes_srtkenmerk_code UNIQUE(cnt_srtkenmerk_code, cnt_srtkenmerk_verwijder);
 ALTER TABLE ins_srtkenmerk ADD CONSTRAINT ins_u_bes_srtkenmerk_code UNIQUE(ins_srtkenmerk_code, ins_srtkenmerk_verwijder);