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

Trigger ins_t_ins_refsrtkenmerk aangepast.

Browse Source 
svn path=/Database/trunk/; revision=6581
This commit is contained in:
Bert in het Veld
1999-03-10 12:36:58 +00:00
parent 6b5675363e
commit 781532b78c
1 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
INS/INS_TRI.SRC
View File

@@ -721,19 +721,22 @@ BEGIN
/* Controleer of de ingevulde tablenaam, kolomnaam en kolomtxt
* wel bestaan.
*/
IF :new.ins_refsrtkenmerk_objectnaam <> :old.ins_refsrtkenmerk_objectnaam
OR :old.ins_refsrtkenmerk_objectnaam IS NULL
THEN
BEGIN
SELECT OBJECT_TYPE
INTO ObjectType
FROM USER_OBJECTS
WHERE OBJECT_NAME = :new.ins_refsrtkenmerk_objectnaam;
EXCEPTION
WHEN NO_DATA_FOUND
THEN ObjectType := NULL;
END;
END IF;
/* 990310/BIV - Controle moet ook gebeuren als de omschrijving is gewijzigd,
de objectnaam is dan hetzelfde ...
IF :new.ins_refsrtkenmerk_objectnaam <> :old.ins_refsrtkenmerk_objectnaam
OR :old.ins_refsrtkenmerk_objectnaam IS NULL
THEN
*/
BEGIN
SELECT OBJECT_TYPE
INTO ObjectType
FROM USER_OBJECTS
WHERE OBJECT_NAME = :new.ins_refsrtkenmerk_objectnaam;
EXCEPTION
WHEN NO_DATA_FOUND THEN
ObjectType := NULL;
END;
/* END IF; */
IF ObjectType IS NULL
THEN
APPLICATION_ERROR(-20000, 'ins_m139');