FSN#26427 Numerieke flexvelden hebben lengtebeperking (38)

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

ALG/ALG_TRI.SRC

@@ -455,6 +455,12 @@ BEGIN
    THEN
       APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
    END IF;
+   -- Numeriek mag niet te lang zijn (numeric overflow)
+   IF :new.alg_kenmerk_kenmerktype = 'N'
+   AND :new.alg_kenmerk_lengte > 38
+   THEN
+      :new.alg_kenmerk_lengte := 38;
+   END IF;
    IF :new.alg_kenmerk_kenmerktype = 'N' AND :old.alg_kenmerk_key IS NOT NULL
    THEN
      IF :old.alg_kenmerk_nmin <> :new.alg_kenmerk_nmin OR

BES/BES_TRI.SRC

@@ -174,6 +174,12 @@ BEGIN
    THEN
       raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_LENGTE');
    END IF;
+   -- Numeriek mag niet te lang zijn (numeric overflow)
+   IF :new.bes_srtkenmerk_kenmerktype = 'N'
+   AND :new.bes_srtkenmerk_lengte > 38
+   THEN
+      :new.bes_srtkenmerk_lengte := 38;
+   END IF;
 
    IF :NEW.bes_srtkenmerk_kenmerktype = 'N' AND :OLD.bes_srtkenmerk_key IS NOT NULL
    THEN

BEZ/BEZ_TRI.SRC

@@ -105,6 +105,11 @@ BEGIN
    THEN
       APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
    END IF;
+   IF :new.bez_kenmerk_kenmerktype = 'N'
+   AND :new.bez_kenmerk_lengte > 38
+   THEN
+      :new.bez_kenmerk_lengte := 38;
+   END IF;
 
    IF :new.bez_kenmerk_kenmerktype = 'N' AND :old.bez_kenmerk_key IS NOT NULL
    THEN

CNT/CNT_TRI.SRC

@@ -140,6 +140,12 @@ BEGIN
   THEN
     raise_application_error(-20000, 'CNT_C_CNT_SRTKENMERK_LENGTE');
   END IF;
+  -- Numeriek mag niet te lang zijn (numeric overflow)
+  IF :new.cnt_srtkenmerk_kenmerktype = 'N'
+  AND :new.cnt_srtkenmerk_lengte > 38
+  THEN
+     :new.cnt_srtkenmerk_lengte := 38;
+  END IF;
   --
   IF  :new.cnt_srtkenmerk_kenmerktype = 'N'
   AND :old.cnt_srtkenmerk_key IS NOT NULL

FAC/FAC_TRI.SRC

@@ -786,6 +786,11 @@ BEGIN
    THEN
       APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_LENGTE');
    END IF;
+   IF :new.faq_kenmerk_kenmerktype = 'N'
+   AND :new.faq_kenmerk_lengte > 38
+   THEN
+      :new.faq_kenmerk_lengte := 38;
+   END IF;
    IF :new.faq_kenmerk_kenmerktype = 'N' AND :old.faq_kenmerk_key IS NOT NULL
    THEN
      IF :old.faq_kenmerk_nmin <> :new.faq_kenmerk_nmin OR

FIN/FIN_TRI.SRC

@@ -171,6 +171,12 @@ BEGIN
    AND :new.fin_kenmerk_lengte IS NULL
    THEN
       APPLICATION_ERROR(-20000, 'fin_C_fin_KENMERK_LENGTE');
+   END IF;
+    -- Numeriek mag niet te lang zijn (numeric overflow)
+   IF :new.fin_kenmerk_kenmerktype = 'N'
+   AND :new.fin_kenmerk_lengte > 38
+   THEN
+      :new.fin_kenmerk_lengte := 38;
    END IF;
    IF :new.fin_kenmerk_kenmerktype = 'N' AND :old.fin_kenmerk_key IS NOT NULL
    THEN

INS/INS_TRI.SRC

@@ -471,6 +471,12 @@ BEGIN
     THEN
        APPLICATION_ERROR(-20000, 'INS_C_INS_SRTKENMERK_LENGTE');
     END IF;
+    -- Numeriek mag niet te lang zijn (numeric overflow)
+    IF :new.ins_srtkenmerk_kenmerktype = 'N'
+    AND :new.ins_srtkenmerk_lengte > 38
+    THEN
+       :new.ins_srtkenmerk_lengte := 38;
+    END IF;
 
     IF :new.ins_srtkenmerk_kenmerktype = 'N' AND :old.ins_srtkenmerk_key IS NOT NULL
     THEN

MLD/MLD_TRI.SRC

@@ -321,6 +321,11 @@ BEGIN
   THEN
     raise_application_error(-20000, 'MLD_C_MLD_SRTKENMERK_LENGTE');
   END IF;
+  IF :new.mld_srtkenmerk_kenmerktype = 'N'
+  AND :new.mld_srtkenmerk_lengte > 38
+  THEN
+     :new.mld_srtkenmerk_lengte := 38;
+  END IF;
   --
   IF  :new.mld_srtkenmerk_kenmerktype = 'N'
   AND :old.mld_srtkenmerk_key IS NOT NULL

PRS/PRS_TRI.SRC

@@ -355,7 +355,11 @@ BEGIN
    THEN
       APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
    END IF;
-
+   IF :new.prs_kenmerk_kenmerktype = 'N'
+   AND :new.prs_kenmerk_lengte > 38
+   THEN
+      :new.prs_kenmerk_lengte := 38;
+   END IF;
    IF :new.prs_kenmerk_kenmerktype = 'N' AND :old.prs_kenmerk_key IS NOT NULL
    THEN
      -- An existing property of type N

RES/RES_TRI.SRC

@@ -236,6 +236,12 @@ BEGIN
   THEN
     raise_application_error(-20000, 'res_C_res_SRTKENMERK_LENGTE');
   END IF;
+  -- Numeriek mag niet te lang zijn (numeric overflow)
+  IF :new.res_srtkenmerk_kenmerktype = 'N'
+  AND :new.res_srtkenmerk_lengte > 38
+  THEN
+     :new.res_srtkenmerk_lengte := 38;
+  END IF;
   --
   IF  :new.res_srtkenmerk_kenmerktype = 'N'
   AND :old.res_srtkenmerk_key IS NOT NULL