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

AAIT#36710: Berekende waarde van velden in Facilitor.

Browse Source 
svn path=/Database/trunk/; revision=31619
This commit is contained in:
Maykel Geerdink
2016-11-22 15:08:14 +00:00
parent 57f2c7ff68
commit ad46327612
7 changed files with 20 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
PRS/PRS_TRI.SRC
View File

@@ -414,17 +414,15 @@ BEGIN
APPLICATION_ERROR(-20003, 'ALG_M238');
END IF;
IF (:new.prs_kenmerk_kenmerktype IN ('C','N'))
AND :new.prs_kenmerk_lengte IS NULL
IF :new.prs_kenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.prs_kenmerk_lengte IS NULL
THEN
APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
END IF;
IF :new.prs_kenmerk_kenmerktype = 'N'
AND :new.prs_kenmerk_lengte > 20
IF :new.prs_kenmerk_kenmerktype IN ('N', 'B') AND :new.prs_kenmerk_lengte > 20
THEN
:new.prs_kenmerk_lengte := 20;
END IF;
IF :new.prs_kenmerk_kenmerktype = 'N' AND :old.prs_kenmerk_key IS NOT NULL
IF :new.prs_kenmerk_kenmerktype IN ('N', 'B') 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
@@ -584,7 +582,7 @@ BEGIN
APPLICATION_ERROR_GOTO(-20004, 'ALG_M232,'|| KenmerkOmschr ||','
|| TO_CHAR(KenmerkLengte));
END IF;
ELSIF KenmerkType = 'N'
ELSIF KenmerkType IN ('N', 'B')
/*
** Number
*/