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

FSN#25718 objectvalidatie

Browse Source 
svn path=/Database/trunk/; revision=17199
This commit is contained in:
Peter Feij
2013-03-14 15:24:16 +00:00
parent 2f5e28f1d8
commit a81a7e4b80
1 changed files with 12 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
FAC/FAC_TRI.SRC
View File

@@ -190,20 +190,11 @@ CREATE_TRIGGER(fac_t_fac_usrrap_B_IU)
BEFORE INSERT OR UPDATE ON fac_usrrap
FOR EACH ROW
DECLARE
objecttype user_objects.object_type%TYPE;
BEGIN
BEGIN
SELECT object_type
INTO objecttype
FROM user_objects
WHERE object_name = :new.fac_usrrap_view_name;
UPDATE_PRIMARY_KEY(fac_usrrap_key, fac_s_fac_usrrap_key);
UPDATE_AANMAAKDATUM(fac_usrrap, fac_usrrap_aanmaak);
EXCEPTION
WHEN NO_DATA_FOUND
THEN
raise_application_error (-20000, 'FAC_MXX1 Invalid object');
END;
-- Geeft een 44002 als invalid
:new.fac_usrrap_view_name := DBMS_ASSERT.SQL_OBJECT_NAME(:new.fac_usrrap_view_name);
UPDATE_PRIMARY_KEY(fac_usrrap_key, fac_s_fac_usrrap_key);
UPDATE_AANMAAKDATUM(fac_usrrap, fac_usrrap_aanmaak);
END;
/
@@ -211,20 +202,11 @@ CREATE_TRIGGER(fac_t_fac_usrgraph_B_IU)
BEFORE INSERT OR UPDATE ON fac_usrgraph
FOR EACH ROW
DECLARE
objecttype user_objects.object_type%TYPE;
BEGIN
BEGIN
SELECT object_type
INTO objecttype
FROM user_objects
WHERE object_name = :new.fac_usrgraph_view_name;
UPDATE_PRIMARY_KEY(fac_usrgraph_key, fac_s_fac_usrgraph_key);
UPDATE_AANMAAKDATUM(fac_usrgraph, fac_usrgraph_aanmaak);
EXCEPTION
WHEN NO_DATA_FOUND
THEN
raise_application_error (-20000, 'FAC_MXX2 Invalid object');
END;
-- Geeft een 44002 als invalid
:new.fac_usrgraph_view_name := DBMS_ASSERT.SQL_OBJECT_NAME(:new.fac_usrgraph_view_name);
UPDATE_PRIMARY_KEY(fac_usrgraph_key, fac_s_fac_usrgraph_key);
UPDATE_AANMAAKDATUM(fac_usrgraph, fac_usrgraph_aanmaak);
END;
/
@@ -543,14 +525,14 @@ DECLARE
objecttype user_objects.object_type%TYPE;
BEGIN
UPDATE_PRIMARY_KEY(fac_kenmerkdomein_key, fac_s_fac_kenmerkdomein_key);
:new.fac_kenmerkdomein_upper := UPPER(:new.fac_kenmerkdomein_omschrijving);
:new.fac_kenmerkdomein_module := UPPER(:new.fac_kenmerkdomein_module);
:new.fac_kenmerkdomein_xmlnode := LOWER(:new.fac_kenmerkdomein_xmlnode);
:new.fac_kenmerkdomein_upper := UPPER(:new.fac_kenmerkdomein_omschrijving);
:new.fac_kenmerkdomein_module := UPPER(:new.fac_kenmerkdomein_module);
:new.fac_kenmerkdomein_xmlnode := LOWER(:new.fac_kenmerkdomein_xmlnode);
BEGIN
SELECT object_type
INTO objecttype
FROM user_objects
WHERE object_name = :new.fac_kenmerkdomein_objectnaam;
WHERE UPPER(object_name) = UPPER(DBMS_ASSERT.SQL_OBJECT_NAME(:new.fac_kenmerkdomein_objectnaam));
EXCEPTION
WHEN NO_DATA_FOUND
THEN