admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

WDKA#80394 kenmerksoort contraints mbt het kenmerktype verwijderd, tevens kenmerktype 'B' referenties verwijderd.

Browse Source 
svn path=/Database/trunk/; revision=64938
This commit is contained in:
Koen Reefman
2024-06-03 09:45:23 +00:00
parent 624d0c34e9
commit 7386127aa8
28 changed files with 93 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
ALG/ALG_TAB.SRC
View File

@@ -724,7 +724,6 @@ CREATE_TABLE(alg_kenmerk,0)
VARCHAR2(10)
,alg_kenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT alg_c_alg_kenmerk_type1 CHECK(alg_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
,alg_kenmerk_systeem
NUMBER(2)
,alg_kenmerk_toonbaar

8
ALG/ALG_TRI.SRC
View File

@@ -417,16 +417,16 @@ BEGIN
THEN
raise_application_error(-20000, 'ALG_M238');
END IF;
IF :new.alg_kenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.alg_kenmerk_lengte IS NULL
IF :new.alg_kenmerk_kenmerktype IN ('C', 'N') AND :new.alg_kenmerk_lengte IS NULL
THEN
raise_application_error(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
END IF;
-- Numeriek mag niet te lang zijn (numeric overflow)
IF :new.alg_kenmerk_kenmerktype IN ('N', 'B') AND :new.alg_kenmerk_lengte > 20
IF :new.alg_kenmerk_kenmerktype = 'N' AND :new.alg_kenmerk_lengte > 20
THEN
:new.alg_kenmerk_lengte := 20;
END IF;
IF :new.alg_kenmerk_kenmerktype IN ('N', 'B') AND :old.alg_kenmerk_key IS NOT NULL
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
:old.alg_kenmerk_nmin IS NULL AND :new.alg_kenmerk_nmin IS NOT NULL
@@ -581,7 +581,7 @@ BEGIN
APPLICATION_ERROR_GOTO(-20004, 'ALG_M232,'|| KenmerkOmschr ||','
|| TO_CHAR(KenmerkLengte));
END IF;
ELSIF KenmerkType IN ('N', 'B')
ELSIF KenmerkType = 'N'
/*
** Number
*/

3
BES/BES_TAB.SRC
View File

@@ -564,7 +564,6 @@ CREATE_TABLE(bes_srtkenmerk, 0)
, CONSTRAINT bes_c_bes_srtkenmerk_omschr CHECK(bes_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT bes_srtkenmerk_omschrijving CHECK(bes_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT bes_u_bes_srtkenmerk_upper UNIQUE(bes_srtkenmerk_upper, bes_srtkenmerk_verwijder)
, CONSTRAINT bes_c_bes_srtkenmerk_kenmtype CHECK(bes_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
, CONSTRAINT bes_c_bes_srtkenmerk_lengte CHECK(bes_srtkenmerk_lengte >= 1
AND bes_srtkenmerk_lengte <= 4000)
, CONSTRAINT bes_c_bes_srtkenmerk_max_min CHECK(bes_srtkenmerk_nmax >= bes_srtkenmerk_nmin)
@@ -584,7 +583,7 @@ CREATE_TABLE(bes_kenmerk, 0)
, bes_kenmerk_type
VARCHAR2(1)
CONSTRAINT bes_c_ins_kenmerk_type CHECK
(bes_kenmerk_type is not null and (bes_kenmerk_type IN( 'B', 'I')))
(bes_kenmerk_type IS NOT NULL AND bes_kenmerk_type IN ('B', 'I')))
, bes_kenmerk_niveau
VARCHAR2(1)
CONSTRAINT bes_c_ins_kenmerk_niveau2 CHECK

10
BES/BES_TRI.SRC
View File

@@ -252,17 +252,17 @@ BEGIN
raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_SYSTEEM');
END IF;
IF :NEW.bes_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :NEW.bes_srtkenmerk_lengte IS NULL
IF :NEW.bes_srtkenmerk_kenmerktype IN ('C', 'N') AND :NEW.bes_srtkenmerk_lengte IS NULL
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 IN ('N', 'B') AND :new.bes_srtkenmerk_lengte > 20
IF :new.bes_srtkenmerk_kenmerktype = 'N' AND :new.bes_srtkenmerk_lengte > 20
THEN
:new.bes_srtkenmerk_lengte := 20;
END IF;
IF :NEW.bes_srtkenmerk_kenmerktype IN ('N', 'B') AND :OLD.bes_srtkenmerk_key IS NOT NULL
IF :NEW.bes_srtkenmerk_kenmerktype = 'N' AND :OLD.bes_srtkenmerk_key IS NOT NULL
THEN
IF :OLD.bes_srtkenmerk_nmin <> :NEW.bes_srtkenmerk_nmin
OR (:OLD.bes_srtkenmerk_nmin IS NULL AND :NEW.bes_srtkenmerk_nmin IS NOT NULL)
@@ -400,7 +400,7 @@ BEGIN
THEN
APPLICATION_ERROR_GOTO(-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
END IF;
ELSIF srtkenmerktype IN ('N', 'B')
ELSIF srtkenmerktype = 'N'
THEN
-- NUMBER
-- Controleer of er een numerieke waarde ingevuld is.
@@ -515,7 +515,7 @@ BEGIN
THEN
APPLICATION_ERROR_GOTO(-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
END IF;
ELSIF srtkenmerktype IN ('N', 'B')
ELSIF srtkenmerktype = 'N'
THEN
-- NUMBER
-- Controleer of er een numerieke waarde ingevuld is.

2
BEZ/BEZ_TAB.SRC
View File

@@ -177,8 +177,6 @@ CREATE_TABLE(bez_kenmerk,0)
VARCHAR2(10)
,bez_kenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT bez_c_bez_kenmerk_type2 CHECK
(bez_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
,bez_kenmerk_systeem -- &1 = systeemkm, &8 = anonimiseren
NUMBER(2)
DEFAULT 0 NOT NULL

4
CND/CND_PAC.SRC
View File

@@ -1810,13 +1810,13 @@ AS
INTO v_srtkenmerk_key
FROM mld_srtkenmerk -- ins_v_aanwezigsrtkenmerk
WHERE mld_srtkenmerk_upper = UPPER (v_kw)
AND mld_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
AND mld_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V');
ELSE -- kenmerkwaarde is numeriek (dus key)!
SELECT mld_srtkenmerk_key
INTO v_srtkenmerk_key
FROM mld_srtkenmerk -- ins_v_aanwezigsrtkenmerk
WHERE mld_srtkenmerk_key = fac.safe_to_number (v_kw)
AND mld_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
AND mld_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V');
END IF;
RETURN TO_CHAR(v_srtkenmerk_key) || '|' || TO_CHAR(v_kenmerk_groep);

1
CNT/CNT_TAB.SRC
View File

@@ -328,7 +328,6 @@ CREATE_TABLE(cnt_srtkenmerk, 0)
, CONSTRAINT cnt_c_cnt_srtkenmerk_omschr CHECK(cnt_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT cnt_srtkenmerk_omschrijving CHECK(cnt_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT cnt_u_cnt_srtkenmerk_upper UNIQUE(cnt_srtkenmerk_upper, cnt_srtkenmerk_verwijder)
, CONSTRAINT cnt_c_cnt_srtkenmerk_kenmtype CHECK(cnt_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
, CONSTRAINT cnt_c_cnt_srtkenmerk_systeem CHECK(cnt_srtkenmerk_systeem IS NULL
OR cnt_srtkenmerk_systeem = 1)
, CONSTRAINT cnt_c_cnt_srtkenmerk_lengte CHECK(cnt_srtkenmerk_lengte >= 1

8
CNT/CNT_TRI.SRC
View File

@@ -143,18 +143,18 @@ BEGIN
raise_application_error(-20000, 'CNT_C_CNT_SRTKENMERK_SYSTEEM');
END IF;
--
IF :new.cnt_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.cnt_srtkenmerk_lengte IS NULL
IF :new.cnt_srtkenmerk_kenmerktype IN ('C', 'N') AND :new.cnt_srtkenmerk_lengte IS NULL
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 IN ('N', 'B')
IF :new.cnt_srtkenmerk_kenmerktype = 'N'
AND :new.cnt_srtkenmerk_lengte > 20
THEN
:new.cnt_srtkenmerk_lengte := 20;
END IF;
--
IF :new.cnt_srtkenmerk_kenmerktype IN ('N', 'B')
IF :new.cnt_srtkenmerk_kenmerktype = 'N'
AND :old.cnt_srtkenmerk_key IS NOT NULL
THEN
IF :old.cnt_srtkenmerk_nmin <> :new.cnt_srtkenmerk_nmin
@@ -280,7 +280,7 @@ BEGIN
THEN
APPLICATION_ERROR_GOTO(-20004, 'cnt_m241,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
END IF;
ELSIF SrtKenmerkType IN ('N', 'B')
ELSIF SrtKenmerkType = 'N'
THEN
-- NUMBER
-- Controleer of er een numerieke waarde ingevuld is.

4
CNT/CNT_VIE.SRC
View File

@@ -137,8 +137,7 @@ AS
'N',
'R',
'S',
'X',
'B')
'X')
AND EXISTS
(SELECT 1
FROM cnt_kenmerk k
@@ -780,7 +779,6 @@ AS
waarde_c,
CASE
WHEN skm.cnt_srtkenmerk_kenmerktype = 'N'
OR skm.cnt_srtkenmerk_kenmerktype = 'B'
THEN
TO_NUMBER (km.cnt_kenmerkcontract_waarde)
ELSE

20
FAC/FAC_PACF.SRC
View File

@@ -1921,7 +1921,7 @@ AS
WHERE alg_kenmerk_verwijder IS NULL
AND alg_kenmerk_niveau IN ('L', 'G')
AND alg_kenmerk_upper = UPPER (ok)
AND alg_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
AND alg_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V');
ELSE -- Kenmerkwaarde is numeriek (dus key)!
SELECT alg_kenmerk_key
INTO v_kenmerk_key
@@ -1929,7 +1929,7 @@ AS
WHERE alg_kenmerk_verwijder IS NULL
AND alg_kenmerk_niveau IN ('L', 'G')
AND alg_kenmerk_key = fac.safe_to_number (ok)
AND alg_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
AND alg_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V');
END IF;
RETURN v_kenmerk_key;
@@ -3385,7 +3385,7 @@ AS
WHERE alg_kenmerk_upper = UPPER (kw)
AND alg_kenmerk_verwijder IS NULL
AND alg_kenmerk_niveau = 'R'
AND alg_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
AND alg_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V');
ELSE -- kenmerkwaarde is numeriek (dus key)!
SELECT alg_kenmerk_key
INTO v_kenmerk_key
@@ -3393,7 +3393,7 @@ AS
WHERE alg_kenmerk_key = fac.safe_to_number (kw)
AND alg_kenmerk_verwijder IS NULL
AND alg_kenmerk_niveau = 'R'
AND alg_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
AND alg_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V');
END IF;
RETURN v_kenmerk_key;
@@ -8585,7 +8585,7 @@ IS
WHERE k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
AND k.ins_kenmerk_groep = v_kenmerk_groep
AND COALESCE(UPPER(k.ins_kenmerk_omschrijving), sk.ins_srtkenmerk_upper) = UPPER(v_kw)
AND sk.ins_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
AND sk.ins_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V');
ELSE -- kenmerkwaarde is numeriek (dus key)!
SELECT k.ins_kenmerk_key
INTO v_kenmerk_key
@@ -8594,7 +8594,7 @@ IS
WHERE k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
AND k.ins_kenmerk_groep = v_kenmerk_groep
AND k.ins_kenmerk_key = fac.safe_to_number (v_kw)
AND sk.ins_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
AND sk.ins_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V');
END IF;
IF v_kenmerk_key IS NULL
@@ -9882,7 +9882,7 @@ AS
OR (k.ins_srtinstallatie_key = sg.ins_discipline_key
AND k.ins_kenmerk_niveau = 'D'))
AND COALESCE(UPPER(k.ins_kenmerk_omschrijving), sk.ins_srtkenmerk_upper) = UPPER(v_kenmerk)
AND sk.ins_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V')
AND sk.ins_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V')
ORDER BY k.ins_kenmerk_volgnummer)
WHERE ROWNUM = 1;
ELSE
@@ -9897,7 +9897,7 @@ AS
WHERE k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
AND k.ins_kenmerk_groep = v_groep
AND k.ins_kenmerk_key = v_kenmerk
AND sk.ins_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V')
AND sk.ins_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V')
ORDER BY k.ins_kenmerk_volgnummer;
END IF;
@@ -20248,7 +20248,7 @@ AS
WHERE k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key
AND k.cnt_kenmerk_groep = v_kenmerk_groep
AND COALESCE(UPPER(k.cnt_kenmerk_omschrijving), sk.cnt_srtkenmerk_upper) = UPPER(v_kw)
AND sk.cnt_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V')
AND sk.cnt_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V')
AND k.cnt_kenmerk_verwijder IS NULL
AND sk.cnt_srtkenmerk_verwijder IS NULL;
ELSE -- kenmerkwaarde is numeriek (dus key)!
@@ -20259,7 +20259,7 @@ AS
WHERE k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key
AND k.cnt_kenmerk_groep = v_kenmerk_groep
AND k.cnt_kenmerk_key = fac.safe_to_number (v_kw)
AND sk.cnt_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V')
AND sk.cnt_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V')
AND k.cnt_kenmerk_verwijder IS NULL
AND sk.cnt_srtkenmerk_verwijder IS NULL;
END IF;

4
FAC/FAC_PACX.SRC
View File

@@ -922,13 +922,13 @@ AS
IF (p_kenmerk_type = 'R' OR p_kenmerk_type = 'S')
THEN
RETURN flx.getdomeinwaarde (p_kenmerkdomein_key, p_kenmerk_waarde, CASE WHEN xmlnode_depth = 0 THEN 1 ELSE 0 END);
ELSIF ( p_kenmerk_type = 'B'
ELSIF ( p_kenmerk_type = 'N'
AND srtkenmerk_nmin = 0
AND srtkenmerk_nmax = 1
AND p_kenmerk_waarde = 0)
THEN
RETURN lcl.L ('lcl_check_xml_0');
ELSIF ( p_kenmerk_type = 'B'
ELSIF ( p_kenmerk_type = 'N'
AND srtkenmerk_nmin = 0
AND srtkenmerk_nmax = 1
AND p_kenmerk_waarde = 1)

7
FAC/FAC_TAB.SRC
View File

@@ -1835,8 +1835,7 @@ CREATE_TABLE (fac_kenmwaarden, 0)
fac_kenmwaarden_exprwaarde
VARCHAR2 (4000),
fac_kenmwaarden_kenmerktype
VARCHAR2(1)
CONSTRAINT fac_c_fac_kenmwaarden_kenmtype CHECK(fac_kenmwaarden_kenmerktype IN ('C','N','D','T','R','S','X','F','E','M','L','l','b','Q','B','V')),
VARCHAR2(1),
fac_kenmwaarden_kenmerklen
NUMBER(4),
fac_kenmwaarden_kenmerkdec
@@ -2294,9 +2293,7 @@ CREATE_TABLE(faq_kenmerk,0)
faq_kenmerk_default VARCHAR2(4000),
faq_kenmerk_show_expr VARCHAR2(4000),
faq_kenmerk_dimensie VARCHAR2(10),
faq_kenmerk_kenmerktype VARCHAR2(1)
CONSTRAINT faq_c_faq_kenmerk_type1
CHECK(faq_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V')),
faq_kenmerk_kenmerktype VARCHAR2(1),
faq_kenmerk_systeem NUMBER(2),
faq_kenmerk_toonbaar NUMBER(1),
faq_kenmerk_inlijst NUMBER(1) DEFAULT 0 NOT NULL,

8
FAC/FAC_TRI.SRC
View File

@@ -851,7 +851,7 @@ BEGIN
APPLICATION_ERROR_GOTO(-20004, 'faq_m232,'|| KenmerkOmschr ||','
|| TO_CHAR(KenmerkLengte));
END IF;
ELSIF KenmerkType IN ('N', 'B')
ELSIF KenmerkType 'N'
/*
** Number
*/
@@ -937,15 +937,15 @@ BEGIN
THEN
raise_application_error(-20000, 'faq_m238');
END IF;
IF :new.faq_kenmerk_kenmerktype IN ('C','N', 'B') AND :new.faq_kenmerk_lengte IS NULL
IF :new.faq_kenmerk_kenmerktype IN ('C','N') AND :new.faq_kenmerk_lengte IS NULL
THEN
raise_application_error(-20000, 'FAQ_C_FAQ_KENMERK_LENGTE');
END IF;
IF :new.faq_kenmerk_kenmerktype IN ('N', 'B') AND :new.faq_kenmerk_lengte > 20
IF :new.faq_kenmerk_kenmerktype = 'N' AND :new.faq_kenmerk_lengte > 20
THEN
:new.faq_kenmerk_lengte := 20;
END IF;
IF :new.faq_kenmerk_kenmerktype IN ('N', 'B') AND :old.faq_kenmerk_key IS NOT NULL
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
:old.faq_kenmerk_nmin IS NULL AND :new.faq_kenmerk_nmin IS NOT NULL

2
FAC/FAC_VIE.SRC
View File

@@ -2685,7 +2685,7 @@ AS
END
waarde_c,
CASE
WHEN km.faq_kenmerk_kenmerktype IN ('N', 'B')
WHEN km.faq_kenmerk_kenmerktype = 'N'
THEN
TO_NUMBER (kw.faq_kenmerkwaarde_waarde)
ELSE

1
FIN/FIN_TAB.SRC
View File

@@ -209,7 +209,6 @@ CREATE_TABLE(fin_kenmerk,0)
VARCHAR2(10)
,fin_kenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT fin_c_fin_kenmerk_type1 CHECK(fin_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
,fin_kenmerk_systeem
NUMBER(2)
,fin_kenmerk_toonbaar

6
FIN/FIN_TRI.SRC
View File

@@ -84,7 +84,7 @@ BEGIN
APPLICATION_ERROR_GOTO(-20004, 'fin_M232,'|| KenmerkOmschr ||','
|| TO_CHAR(KenmerkLengte));
END IF;
ELSIF KenmerkType IN ('N', 'B')
ELSIF KenmerkType = 'N'
/*
** Number
*/
@@ -304,12 +304,12 @@ BEGIN
THEN
raise_application_error(-20000, 'fin_M238');
END IF;
IF :new.fin_kenmerk_kenmerktype IN ('C','N', 'B') AND :new.fin_kenmerk_lengte IS NULL
IF :new.fin_kenmerk_kenmerktype IN ('C','N') AND :new.fin_kenmerk_lengte IS NULL
THEN
raise_application_error(-20000, 'fin_C_fin_KENMERK_LENGTE');
END IF;
-- Numeriek mag niet te lang zijn (numeric overflow)
IF :new.fin_kenmerk_kenmerktype IN ('N', 'B') AND :new.fin_kenmerk_lengte > 20
IF :new.fin_kenmerk_kenmerktype = 'N' AND :new.fin_kenmerk_lengte > 20
THEN
:new.fin_kenmerk_lengte := 20;
END IF;

3
INS/INS_TAB.SRC
View File

@@ -773,8 +773,7 @@ CREATE_TABLE(ins_srtkenmerk, 0)
ins_srtkenmerk_dimensie
VARCHAR2(10),
ins_srtkenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V')),
VARCHAR2(1),
ins_srtkenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list
NUMBER(2)
DEFAULT 0 NOT NULL,

10
INS/INS_TRI.SRC
View File

@@ -802,17 +802,17 @@ BEGIN
raise_application_error(-20000, 'INS_M156');
END IF;
IF :new.ins_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.ins_srtkenmerk_lengte IS NULL
IF :new.ins_srtkenmerk_kenmerktype IN ('C', 'N') AND :new.ins_srtkenmerk_lengte IS NULL
THEN
raise_application_error(-20000, 'INS_C_INS_SRTKENMERK_LENGTE');
END IF;
-- Numeriek mag niet te lang zijn (numeric overflow)
IF :new.ins_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.ins_srtkenmerk_lengte > 20
IF :new.ins_srtkenmerk_kenmerktype = 'N' AND :new.ins_srtkenmerk_lengte > 20
THEN
:new.ins_srtkenmerk_lengte := 20;
END IF;
IF :new.ins_srtkenmerk_kenmerktype IN ('N', 'B') AND :old.ins_srtkenmerk_key IS NOT NULL
IF :new.ins_srtkenmerk_kenmerktype = 'N' AND :old.ins_srtkenmerk_key IS NOT NULL
THEN
IF :old.ins_srtkenmerk_nmin <> :new.ins_srtkenmerk_nmin OR
(:old.ins_srtkenmerk_nmin IS NULL AND :new.ins_srtkenmerk_nmin IS NOT NULL)
@@ -928,7 +928,7 @@ BEGIN
THEN
APPLICATION_ERROR_GOTO(-20004, 'ins_m143,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
END IF;
ELSIF SrtKenmerkType IN ('N', 'B') /* Number */
ELSIF SrtKenmerkType = 'N' /* Number */
THEN
/* Controleer of er een numerieke waarde ingevuld is */
IF SrtKenmerkDec IS NULL OR SrtKenmerkDec = 0
@@ -1037,7 +1037,7 @@ BEGIN
THEN
APPLICATION_ERROR_GOTO(-20004, 'ins_m143,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
END IF;
ELSIF SrtKenmerkType IN ('N', 'B') /* Number */
ELSIF SrtKenmerkType = 'N' /* Number */
THEN
/* Controleer of er een numerieke waarde ingevuld is */
IF SrtKenmerkDec IS NULL OR SrtKenmerkDec = 0

2
INS/INS_VIE.SRC
View File

@@ -2164,7 +2164,7 @@ AS
END
waarde_c,
CASE
WHEN skm.ins_srtkenmerk_kenmerktype = 'N' OR skm.ins_srtkenmerk_kenmerktype = 'B'
WHEN skm.ins_srtkenmerk_kenmerktype = 'N'
THEN TO_NUMBER (km.ins_kenmerkdeel_waarde)
ELSE TO_NUMBER (NULL)
END

1
MLD/MLD_TAB.SRC
View File

@@ -1371,7 +1371,6 @@ CREATE_TABLE(mld_srtkenmerk, 0)
, CONSTRAINT mld_c_mld_srtkenmerk_omschr CHECK(mld_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT mld_srtkenmerk_omschrijving CHECK(mld_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT mld_u_mld_srtkenmerk_upper UNIQUE(mld_srtkenmerk_upper, mld_srtkenmerk_verwijder)
, CONSTRAINT mld_c_mld_srtkenmerk_kenmtype CHECK(mld_srtkenmerk_kenmerktype IN ('C','N','D','T','R','S','X','F','E','M','L','l','b','Q','B','V'))
, CONSTRAINT mld_c_mld_srtkenmerk_lengte CHECK(mld_srtkenmerk_lengte >= 1
AND mld_srtkenmerk_lengte <= 4000)
, CONSTRAINT mld_c_mld_srtkenmerk_max_min CHECK(mld_srtkenmerk_nmax >= mld_srtkenmerk_nmin)

10
MLD/MLD_TRI.SRC
View File

@@ -440,16 +440,16 @@ BEGIN
raise_application_error(-20000, 'MLD_C_MLD_SRTKENMERK_SYSTEEM');
END IF;
--
IF :new.mld_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.mld_srtkenmerk_lengte IS NULL
IF :new.mld_srtkenmerk_kenmerktype IN ('C', 'N') AND :new.mld_srtkenmerk_lengte IS NULL
THEN
raise_application_error(-20000, 'MLD_C_MLD_SRTKENMERK_LENGTE');
END IF;
IF :new.mld_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.mld_srtkenmerk_lengte > 20
IF :new.mld_srtkenmerk_kenmerktype = 'N' AND :new.mld_srtkenmerk_lengte > 20
THEN
:new.mld_srtkenmerk_lengte := 20;
END IF;
--
IF :new.mld_srtkenmerk_kenmerktype IN ('N', 'B') AND :old.mld_srtkenmerk_key IS NOT NULL
IF :new.mld_srtkenmerk_kenmerktype = 'N' AND :old.mld_srtkenmerk_key IS NOT NULL
THEN
IF :old.mld_srtkenmerk_nmin <> :new.mld_srtkenmerk_nmin
OR (:old.mld_srtkenmerk_nmin IS NULL AND :new.mld_srtkenmerk_nmin IS NOT NULL)
@@ -581,7 +581,7 @@ BEGIN
THEN
APPLICATION_ERROR_GOTO(-20004, 'mld_m241,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
END IF;
ELSIF SrtKenmerkType IN ('N', 'B')
ELSIF SrtKenmerkType = 'N'
THEN
-- NUMBER
-- Controleer of er een numerieke waarde ingevuld is.
@@ -710,7 +710,7 @@ BEGIN
THEN
APPLICATION_ERROR_GOTO(-20004, 'mld_m241,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
END IF;
ELSIF SrtKenmerkType IN ('N', 'B')
ELSIF SrtKenmerkType = 'N'
THEN
-- NUMBER
-- Controleer of er een numerieke waarde ingevuld is.

4
MLD/MLD_VIE.SRC
View File

@@ -1653,7 +1653,7 @@ AS
END
waarde_c,
CASE
WHEN skm.mld_srtkenmerk_kenmerktype IN ('N', 'B')
WHEN skm.mld_srtkenmerk_kenmerktype = 'N'
THEN TO_NUMBER (km.mld_kenmerkmelding_waarde)
ELSE TO_NUMBER (NULL)
END
@@ -1705,7 +1705,7 @@ SELECT o.*,
END
waarde_c,
CASE
WHEN skm.mld_srtkenmerk_kenmerktype IN ('N', 'B')
WHEN skm.mld_srtkenmerk_kenmerktype = 'N'
THEN TO_NUMBER (ko.mld_kenmerkopdr_waarde)
ELSE TO_NUMBER (NULL)
END

4
PRS/PRS_PAC.SRC
View File

@@ -986,7 +986,7 @@ AS
WHERE prs_kenmerk_upper = UPPER (kw)
AND prs_kenmerk_verwijder IS NULL
AND prs_kenmerk_niveau = 'P'
AND prs_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
AND prs_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V');
ELSE -- kenmerkwaarde is numeriek (dus key)!
SELECT prs_kenmerk_key
INTO v_kenmerk_key
@@ -994,7 +994,7 @@ AS
WHERE prs_kenmerk_key = fac.safe_to_number (kw)
AND prs_kenmerk_verwijder IS NULL
AND prs_kenmerk_niveau = 'P'
AND prs_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
AND prs_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'V');
END IF;
RETURN v_kenmerk_key;

2
PRS/PRS_TAB.SRC
View File

@@ -1126,8 +1126,6 @@ CREATE_TABLE(prs_kenmerk,0)
VARCHAR2(10)
,prs_kenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT prs_c_prs_kenmerk_type2 CHECK
(prs_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
,prs_kenmerk_systeem -- &1 = systeemkm, &8 = anonimiseren
NUMBER(2)
DEFAULT 0

8
PRS/PRS_TRI.SRC
View File

@@ -475,15 +475,15 @@ BEGIN
raise_application_error(-20000, 'ALG_M238');
END IF;
IF :new.prs_kenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.prs_kenmerk_lengte IS NULL
IF :new.prs_kenmerk_kenmerktype IN ('C', 'N') AND :new.prs_kenmerk_lengte IS NULL
THEN
raise_application_error(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
END IF;
IF :new.prs_kenmerk_kenmerktype IN ('N', 'B') AND :new.prs_kenmerk_lengte > 20
IF :new.prs_kenmerk_kenmerktype = 'N' AND :new.prs_kenmerk_lengte > 20
THEN
:new.prs_kenmerk_lengte := 20;
END IF;
IF :new.prs_kenmerk_kenmerktype IN ('N', 'B') AND :old.prs_kenmerk_key IS NOT NULL
IF :new.prs_kenmerk_kenmerktype = 'N' AND :old.prs_kenmerk_key IS NOT NULL
THEN
-- An existing property of type N
IF :old.prs_kenmerk_nmin <> :new.prs_kenmerk_nmin OR
@@ -643,7 +643,7 @@ BEGIN
APPLICATION_ERROR_GOTO(-20004, 'ALG_M232,'|| KenmerkOmschr ||','
|| TO_CHAR(KenmerkLengte));
END IF;
ELSIF KenmerkType IN ('N', 'B')
ELSIF KenmerkType = 'N'
/*
** Number
*/

1
RES/RES_TAB.SRC
View File

@@ -814,7 +814,6 @@ CREATE_TABLE(res_srtkenmerk, 0)
, CONSTRAINT res_c_res_srtkenmerk_omschr CHECK(res_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT res_srtkenmerk_omschrijving CHECK(res_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT res_u_res_srtkenmerk_upper UNIQUE(res_srtkenmerk_upper, res_srtkenmerk_verwijder)
, CONSTRAINT res_c_res_srtkenmerk_kenmtype CHECK(res_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
, CONSTRAINT res_c_res_srtkenmerk_lengte CHECK(res_srtkenmerk_lengte >= 1
AND res_srtkenmerk_lengte <= 4000)
, CONSTRAINT res_c_res_srtkenmerk_max_min CHECK(res_srtkenmerk_nmax >= res_srtkenmerk_nmin)

10
RES/RES_TRI.SRC
View File

@@ -312,17 +312,17 @@ BEGIN
raise_application_error(-20000, 'RES_C_RES_SRTKENMERK_SYSTEEM');
END IF;
--
IF :new.res_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.res_srtkenmerk_lengte IS NULL
IF :new.res_srtkenmerk_kenmerktype IN ('C', 'N') AND :new.res_srtkenmerk_lengte IS NULL
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 IN ('N', 'B') AND :new.res_srtkenmerk_lengte > 20
IF :new.res_srtkenmerk_kenmerktype = 'N' AND :new.res_srtkenmerk_lengte > 20
THEN
:new.res_srtkenmerk_lengte := 20;
END IF;
--
IF :new.res_srtkenmerk_kenmerktype IN ('N', 'B') AND :old.res_srtkenmerk_key IS NOT NULL
IF :new.res_srtkenmerk_kenmerktype = 'N' AND :old.res_srtkenmerk_key IS NOT NULL
THEN
IF :old.res_srtkenmerk_nmin <> :new.res_srtkenmerk_nmin
OR (:old.res_srtkenmerk_nmin IS NULL AND :new.res_srtkenmerk_nmin IS NOT NULL)
@@ -501,7 +501,7 @@ BEGIN
-20004,
'res_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
END IF;
ELSIF srtkenmerktype IN ('N', 'B')
ELSIF srtkenmerktype = 'N'
THEN
-- NUMBER
-- Controleer of er een numerieke waarde ingevuld is.
@@ -636,7 +636,7 @@ BEGIN
-20004,
'res_m245,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
END IF;
ELSIF srtkenmerktype IN ('N', 'B')
ELSIF srtkenmerktype = 'N'
THEN
-- NUMBER
-- Controleer of er een numerieke waarde ingevuld is.

24
_UP/DB47to48.src
View File

@@ -92,12 +92,14 @@ ALTER TABLE mld_kenmerk ADD
CONSTRAINT mld_r_ins_discipline_key7 REFERENCES ins_tab_discipline(ins_discipline_key);
ALTER TABLE mld_srtkenmerk DROP CONSTRAINT mld_c_mld_srtkenmerk_kenmtype;
ALTER TABLE mld_srtkenmerk ADD
CONSTRAINT mld_c_mld_srtkenmerk_kenmtype CHECK(mld_srtkenmerk_kenmerktype IN ('C','N','D','T','R','S','X','F','E','M','L','l','b','Q','B','V'));
-- Onderstaan wordt met WDKA#80394 definitief verwijderd, dus hier niet opnieuw aanmaken
-- ALTER TABLE mld_srtkenmerk ADD
-- CONSTRAINT mld_c_mld_srtkenmerk_kenmtype CHECK(mld_srtkenmerk_kenmerktype IN ('C','N','D','T','R','S','X','F','E','M','L','l','b','Q','B','V'));
ALTER TABLE fac_kenmwaarden DROP CONSTRAINT fac_c_fac_kenmwaarden_kenmtype;
ALTER TABLE fac_kenmwaarden ADD
CONSTRAINT fac_c_fac_kenmwaarden_kenmtype CHECK(fac_kenmwaarden_kenmerktype IN ('C','N','D','T','R','S','X','F','E','M','L','l','b','Q','B','V'));
-- Onderstaan wordt met WDKA#80394 definitief verwijderd, dus hier niet opnieuw aanmaken
-- ALTER TABLE fac_kenmwaarden ADD
-- CONSTRAINT fac_c_fac_kenmwaarden_kenmtype CHECK(fac_kenmwaarden_kenmerktype IN ('C','N','D','T','R','S','X','F','E','M','L','l','b','Q','B','V'));
/////////////////////////////////////////////////////////////////////////////////////////// FCLT#83243
@@ -321,6 +323,20 @@ END;
/////////////////////////////////////////////////////////////////////////////////////////// MARX#82611
ALTER TABLE fac_api ADD fac_api_errorhandling NUMBER (10) DEFAULT 1 NOT NULL; // 0=200 on error, 1=400 on error
/////////////////////////////////////////////////////////////////////////////////////////// WDKA#80394
ALTER TABLE alg_kenmerk DROP CONSTRAINT alg_c_alg_kenmerk_type1;
ALTER TABLE bes_srtkenmerk DROP CONSTRAINT bes_c_bes_srtkenmerk_kenmtype;
ALTER TABLE bez_kenmerk DROP CONSTRAINT bez_c_bez_kenmerk_type2;
ALTER TABLE cnt_srtkenmerk DROP CONSTRAINT cnt_c_cnt_srtkenmerk_kenmtype;
-- ALTER TABLE fac_kenmwaarden DROP CONSTRAINT fac_c_fac_kenmwaarden_kenmtype; Reeds met FCLT#82594 verwijderd (hierboven)
ALTER TABLE faq_kenmerk DROP CONSTRAINT faq_kenmerk_kenmerktype;
ALTER TABLE faq_kenmerk DROP CONSTRAINT faq_c_faq_kenmerk_type1;
ALTER TABLE fin_kenmerk DROP CONSTRAINT fin_c_fin_kenmerk_type1;
ALTER TABLE ins_srtkenmerk DROP CONSTRAINT ins_c_ins_srtkenmerk_kenmtype;
-- ALTER TABLE mld_srtkenmerk DROP CONSTRAINT mld_c_mld_srtkenmerk_kenmtype; Reeds met FCLT#82594 verwijderd (hierboven)
ALTER TABLE prs_kenmerk DROP CONSTRAINT prs_c_prs_kenmerk_type2;
ALTER TABLE res_srtkenmerk DROP CONSTRAINT res_c_res_srtkenmerk_kenmtype;
/////////////////////////////////////////////////////////////////////////////////////////// FCLT#00000
REGISTERONCE('$Id$')