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

FSN#203

Browse Source 
svn path=/Database/trunk/; revision=8726
This commit is contained in:
Peter Feij
2004-07-05 08:37:36 +00:00
parent 3710799b28
commit 6f7c51fae8
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
PRS/PRS_TRI.SRC
View File

@@ -1,7 +1,7 @@
/* CREA_TRI.SRC maakt de triggers aan voor PRS */
/* $Revision: 45 $
* $Modtime: 28-06-04 17:00 $
/* $Revision: 46 $
* $Modtime: 5-07-04 10:29 $
*/
#include "comsql.h"
@@ -394,8 +394,9 @@ BEGIN
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
:old.prs_kenmerk_nmin IS NULL
(:old.prs_kenmerk_nmin IS NULL AND :new.prs_kenmerk_nmin IS NOT NULL)
THEN
DECLARE
Dummy CHAR;
@@ -403,7 +404,7 @@ BEGIN
SELECT 'X'
INTO Dummy
FROM prs_kenmerkLink
WHERE TO_NUMBER(prs_kenmerkLink_waarde) < :new.prs_kenmerk_nmin
WHERE FAC.SAFE_TO_NUMBER(prs_kenmerkLink_waarde) < :new.prs_kenmerk_nmin
AND prs_kenmerk_key = :old.prs_kenmerk_key;
IF :new.prs_kenmerk_niveau = 'G' THEN
raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MIN_G');
@@ -425,7 +426,7 @@ BEGIN
END IF;
IF :old.prs_kenmerk_nmax <> :new.prs_kenmerk_nmax OR
:old.prs_kenmerk_nmax IS NULL
:(old.prs_kenmerk_nmax IS NULL AND :new.prs_kenmerk_nmax IS NOT NULL)
THEN
DECLARE
Dummy CHAR;
@@ -433,7 +434,7 @@ BEGIN
SELECT 'X'
INTO Dummy
FROM prs_kenmerkLink
WHERE TO_NUMBER(prs_kenmerkLink_waarde) > :new.prs_kenmerk_nmax
WHERE FAC.SAFE_TO_NUMBER(prs_kenmerkLink_waarde) > :new.prs_kenmerk_nmax
AND prs_kenmerk_key = :old.prs_kenmerk_key;
IF :new.prs_kenmerk_niveau = 'G' THEN
raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MAX_G');