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

FSN#21030

Browse Source 
svn path=/Database/trunk/; revision=10781
This commit is contained in:
Peter Feij
2011-07-20 09:07:42 +00:00
parent 1e624e943c
commit 73e256bde9
6 changed files with 96 additions and 302 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
BEZ/BEZ_TRI.SRC
View File

@@ -1,6 +1,6 @@
#ifdef BEZ // 03-11-2000 PF
/* $Revision: 32 $
* $Modtime: 6-09-10 15:20 $
/* $Revision: 33 $
* $Modtime: 12-07-11 17:03 $
*/
CREATE_TRIGGER(bez_t_bez_afspraak_B_IU)
@@ -76,74 +76,6 @@ END;
CREATE_TRIGGER(bez_t_bez_refkenmerk_b_iu)
BEFORE INSERT OR UPDATE ON bez_refkenmerk
FOR EACH ROW
DECLARE
ObjectType USER_OBJECTS.OBJECT_TYPE%TYPE;
BEGIN
UPDATE_PRIMARY_KEY(bez_refkenmerk_key,bez_s_bez_refkenmerk_key);
UPDATE_UPPER(bez_refkenmerk_omschrijving,bez_refkenmerk_upper,bez_refkenmerk);
UPDATE_AANMAAKDATUM(bez_refkenmerk, bez_refkenmerk_aanmaak);
/* Controleer of de ingevulde tablenaam, kolomnaam en kolomtxt
** wel bestaan.
*/
BEGIN
SELECT OBJECT_TYPE
INTO ObjectType
FROM USER_OBJECTS
WHERE OBJECT_NAME = :new.bez_refkenmerk_objectnaam;
EXCEPTION
WHEN NO_DATA_FOUND
THEN ObjectType := NULL;
END;
/* END IF; */
IF ObjectType IS NULL
THEN
APPLICATION_ERROR(-20000, 'ALG_M235');
ELSIF ObjectType IN ('TABLE','VIEW')
THEN
/* Bij een TABLE of VIEW staan de kolommen in USER_TAB_COLUMNS
** Controleer of deze KOLOMNAAM en KOLOMTXT bestaan.
**/
DECLARE
Dummy VARCHAR2(30);
BEGIN
SELECT COLUMN_NAME
INTO Dummy
FROM USER_TAB_COLUMNS
WHERE TABLE_NAME = :new.bez_refkenmerk_objectnaam
AND COLUMN_NAME = :new.bez_refkenmerk_kolomnaam
AND DATA_TYPE = 'NUMBER';
EXCEPTION
WHEN NO_DATA_FOUND
THEN APPLICATION_ERROR(-20000, 'ALG_M236');
END;
DECLARE
Dummy VARCHAR2(30);
BEGIN
SELECT COLUMN_NAME
INTO Dummy
FROM USER_TAB_COLUMNS
WHERE TABLE_NAME = :new.bez_refkenmerk_objectnaam
AND COLUMN_NAME = :new.bez_refkenmerk_kolomtxt
AND DATA_TYPE LIKE '%CHAR%';
EXCEPTION
WHEN NO_DATA_FOUND
THEN APPLICATION_ERROR(-20000, 'ALG_M237');
END;
ELSIF ObjectType <> 'SYNONYM'
THEN
/* Bij een SYNONYM kan er niet gecontroleerd worden
* of de ingevulde kolommen bestaan.
*/
/* NULL;
ELSE */
APPLICATION_ERROR(-20000, 'ALG_M235');
END IF;
END;
/
CREATE_TRIGGER(bez_t_bez_kenmerk_b_iu)
BEFORE INSERT OR UPDATE ON bez_kenmerk
@@ -358,6 +290,6 @@ BEGIN
END;
/
REGISTERRUN('$Workfile: BEZ_TRI.SRC $','$Revision: 32 $')
REGISTERRUN('$Workfile: BEZ_TRI.SRC $','$Revision: 33 $')
#endif // BEZ

106
CNT/CNT_TRI.SRC
View File

@@ -1,6 +1,6 @@
#ifdef CNT
/* $Revision: 32 $
* $Modtime: 6-09-10 15:30 $
/* $Revision: 33 $
* $Modtime: 12-07-11 17:04 $
*/
CREATE_TRIGGER(cnt_t_cnt_disc_params_b_iu)
@@ -62,7 +62,7 @@ BEGIN
APPLICATION_ERROR_GOTO(-20000,'cnt_m002');
ELSE
UPDATE_PRIMARY_KEY(cnt_contract_key,cnt_s_cnt_contract_key);
IF :new.cnt_contract_nummer_intern IS NULL
IF :new.cnt_contract_nummer_intern IS NULL
THEN
:new.cnt_contract_nummer_intern := TO_CHAR(:new.cnt_contract_key);
END IF;
@@ -70,13 +70,13 @@ BEGIN
SET_VERWIJDER_CHILDREN(cnt_contract_object,cnt_contract_key,cnt_contract_verwijder,cnt_contract_object_verwijder,cnt_contract);
SET_VERWIJDER_CHILDREN(cnt_contract_plaats,cnt_contract_key,cnt_contract_verwijder,cnt_contract_plaats_verwijder,cnt_contract);
BEGIN IF :new.cnt_contract_verwijder IS NOT NULL
OR ( :new.cnt_contract_verwijder IS NULL
AND :old.cnt_contract_verwijder IS NOT NULL)
THEN
DELETE cnt_contract_onrgoed
WHERE cnt_contract_onrgoed.cnt_contract_key = :new.cnt_contract_key;
END IF;
BEGIN IF :new.cnt_contract_verwijder IS NOT NULL
OR ( :new.cnt_contract_verwijder IS NULL
AND :old.cnt_contract_verwijder IS NOT NULL)
THEN
DELETE cnt_contract_onrgoed
WHERE cnt_contract_onrgoed.cnt_contract_key = :new.cnt_contract_key;
END IF;
END;
END;
/
@@ -89,7 +89,7 @@ BEGIN
SELECT cnt_s_cnt_contr_dienst_key.nextval
INTO :new.cnt_contract_dienst_key FROM DUAL;
END IF;
IF :new.PRS_BEDRIJF_KEY IS NULL THEN
IF :new.PRS_BEDRIJF_KEY IS NULL THEN
SELECT C.cnt_prs_bedrijf_key, P.prs_perslid_naam_full
INTO :new.prs_bedrijf_key, :new.CNT_CONTRACT_DIENST_CONTACTEXT
FROM cnt_contract C, PRS_V_PERSLID_FULLNAMES_ALL P
@@ -97,97 +97,27 @@ BEGIN
AND P.prs_perslid_key = C.prs_contactpersoon_key;
--:new.CNT_CONTRACT_DIENST_CONTACTEXT := NULL;
END IF;
IF :new.CNT_CONTRACT_DIENST_CONTACTINT IS NULL THEN
IF :new.CNT_CONTRACT_DIENST_CONTACTINT IS NULL THEN
SELECT P.prs_perslid_naam_full
INTO :new.CNT_CONTRACT_DIENST_CONTACTINT
FROM cnt_contract C, PRS_V_PERSLID_FULLNAMES_ALL P
WHERE C.cnt_contract_key=:new.cnt_contract_key
AND P.prs_perslid_key = C.prs_contactpersoon_key;
END IF;
DECLARE
DECLARE
dummy VARCHAR2(1);
BEGIN
SELECT 'x'
SELECT 'x'
INTO dummy
from mld_stdmelding S, cnt_contract C
from mld_stdmelding S, cnt_contract C
where mld_stdmelding_key=:new.mld_stdmelding_key
and c.ins_discipline_key=s.mld_ins_discipline_key
and c.CNT_CONTRACT_KEY=:new.cnt_contract_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN raise_application_error(-20000, 'cnt_m031');
THEN raise_application_error(-20000, 'cnt_m031');
END;
END;
/
CREATE_TRIGGER(cnt_t_cnt_refsrtkenmerk_b_iu)
BEFORE INSERT OR UPDATE ON cnt_refsrtkenmerk
FOR EACH ROW
DECLARE
ObjectType USER_OBJECTS.OBJECT_TYPE%TYPE;
BEGIN
UPDATE_PRIMARY_KEY(cnt_refsrtkenmerk_key, cnt_s_cnt_refsrtkenmerk_key);
UPDATE_UPPER(cnt_refsrtkenmerk_omschrijving, cnt_refsrtkenmerk_upper,cnt_refsrtkenmerk);
UPDATE_AANMAAKDATUM(cnt_refsrtkenmerk, cnt_refsrtkenmerk_aanmaak);
--
-- Controleer of de ingevulde tablenaam, kolomnaam en kolomtxt
-- wel bestaan. Controle moet ook gebeuren als de omschrijving
-- is gewijzigd; de objectnaam is dan hetzelfde.
--
BEGIN
SELECT object_type
INTO ObjectType
FROM USER_OBJECTS
WHERE object_name = :new.cnt_refsrtkenmerk_objectnaam;
EXCEPTION
WHEN NO_DATA_FOUND THEN ObjectType := NULL;
END;
--
IF ObjectType IS NULL
THEN
raise_application_error(-20000, 'cnt_m244');
ELSIF ObjectType = 'TABLE'
OR ObjectType = 'VIEW'
THEN
-- Bij een TABLE of VIEW staan de kolommen in USER_TAB_COLUMNS
-- Controleer of deze KOLOMNAAM en KOLOMTXT bestaan.
--
DECLARE
Dummy VARCHAR2(30);
BEGIN
SELECT column_name
INTO Dummy
FROM USER_TAB_COLUMNS
WHERE table_name = :new.cnt_refsrtkenmerk_objectnaam
AND column_name = :new.cnt_refsrtkenmerk_kolomnaam
AND data_type = 'NUMBER';
EXCEPTION
WHEN NO_DATA_FOUND THEN raise_application_error(-20000, 'cnt_m245');
END;
--
DECLARE
Dummy VARCHAR2(30);
BEGIN
SELECT column_name
INTO Dummy
FROM USER_TAB_COLUMNS
WHERE table_name = :new.cnt_refsrtkenmerk_objectnaam
AND column_name = :new.cnt_refsrtkenmerk_kolomtxt
AND data_type LIKE '%CHAR%';
EXCEPTION
WHEN NO_DATA_FOUND THEN raise_application_error(-20000, 'cnt_m246');
END;
ELSIF ObjectType <> 'SYNONYM'
THEN
-- Bij een SYNONYM kan er niet gecontroleerd worden
-- of de ingevulde kolommen bestaan.
--
/* NULL;
ELSE */
raise_application_error(-20000, 'cnt_m244');
END IF;
END;
/
@@ -198,7 +128,7 @@ BEGIN
UPDATE_PRIMARY_KEY(cnt_srtkenmerk_key, cnt_s_cnt_srtkenmerk_key);
UPDATE_UPPER(cnt_srtkenmerk_omschrijving, cnt_srtkenmerk_upper,cnt_srtkenmerk);
UPDATE_AANMAAKDATUM(cnt_srtkenmerk, cnt_srtkenmerk_aanmaak);
IF (:new.cnt_srtkenmerk_verwijder IS NOT NULL AND :old.cnt_srtkenmerk_verwijder IS NULL AND
IF (:new.cnt_srtkenmerk_verwijder IS NOT NULL AND :old.cnt_srtkenmerk_verwijder IS NULL AND
:new.cnt_srtkenmerk_systeem = 1)
THEN
raise_application_error(-20003, 'CNT_C_CNT_SRTKENMERK_SYSTEEM');
@@ -436,6 +366,6 @@ BEGIN
END;
/
REGISTERRUN('$Workfile: CNT_TRI.SRC $','$Revision: 32 $')
REGISTERRUN('$Workfile: CNT_TRI.SRC $','$Revision: 33 $')
#endif // CNT

7
FAC/FAC_SEQ.SRC
View File

@@ -1,6 +1,6 @@
/*
* $Revision: 25 $
* $Modtime: 17-12-10 11:06 $
* $Revision: 26 $
* $Modtime: 12-07-11 14:52 $
*/
CREATE SEQUENCE fac_s_fac_functie_key MINVALUE 1;
@@ -31,5 +31,6 @@ CREATE SEQUENCE fac_s_fac_locale_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_localeitems_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_locale_mgt_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_locale_xsl_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_kenmerkdomein_key MINVALUE 1;
REGISTERONCE('$Workfile: FAC_SEQ.SRC $','$Revision: 25 $')
REGISTERONCE('$Workfile: FAC_SEQ.SRC $','$Revision: 26 $')

68
FAC/FAC_TRI.SRC
View File

@@ -1,6 +1,6 @@
/*
* $Revision: 51 $
* $Modtime: 19-05-11 12:44 $
* $Revision: 52 $
* $Modtime: 12-07-11 17:00 $
*
*/
@@ -499,4 +499,66 @@ BEGIN
END;
/
REGISTERRUN('$Workfile: FAC_TRI.SRC $','$Revision: 51 $')
CREATE_TRIGGER(fac_t_fac_kenmerkdomein_B_IU)
BEFORE INSERT OR UPDATE ON fac_kenmerkdomein
FOR EACH ROW
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);
BEGIN
SELECT object_type
INTO objecttype
FROM user_objects
WHERE object_name = :new.fac_kenmerkdomein_objectnaam;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
objecttype := NULL;
END;
IF objecttype IS NULL
THEN
raise_application_error (-20000, 'ALG_M235');
ELSIF objecttype IN ('TABLE', 'VIEW')
THEN
DECLARE
dummy VARCHAR2 (30);
BEGIN
SELECT column_name
INTO dummy
FROM user_tab_columns
WHERE table_name = :new.fac_kenmerkdomein_objectnaam
AND column_name = :new.fac_kenmerkdomein_kolomnaam
AND data_type = 'NUMBER';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
raise_application_error (-20000, 'ALG_M236');
END;
DECLARE
dummy VARCHAR2 (30);
BEGIN
SELECT column_name
INTO dummy
FROM user_tab_columns
WHERE table_name = :new.fac_kenmerkdomein_objectnaam
AND column_name = :new.fac_kenmerkdomein_kolomtxt
AND data_type LIKE '%CHAR%';
EXCEPTION
WHEN NO_DATA_FOUND
THEN
raise_application_error (-20000, 'ALG_M237');
END;
ELSIF objecttype <> 'SYNONYM'
THEN
raise_application_error (-20000, 'ALG_M235');
END IF;
END;
/
REGISTERRUN('$Workfile: FAC_TRI.SRC $','$Revision: 52 $')

68
FIN/FIN_TRI.SRC
View File

@@ -1,7 +1,7 @@
#ifdef FIN
/* FIN_TRI.SRC
* $Revision: 6 $
* $Modtime: 15-10-10 15:16 $
* $Revision: 7 $
* $Modtime: 12-07-11 17:03 $
*/
CREATE_TRIGGER(fin_t_fin_factuur_b_iu)
@@ -238,69 +238,7 @@ BEGIN
UPDATE_AANMAAKDATUM(fin_kenmerk, fin_kenmerk_aanmaak);
END;
/
CREATE_TRIGGER(fin_t_fin_refkenmerk_b_iu)
BEFORE INSERT OR UPDATE ON fin_refkenmerk
FOR EACH ROW
DECLARE
ObjectType USER_OBJECTS.OBJECT_TYPE%TYPE;
BEGIN
UPDATE_PRIMARY_KEY(fin_refkenmerk_key, fin_s_fin_refkenmerk_key);
UPDATE_UPPER(fin_refkenmerk_omschrijving,fin_refkenmerk_upper,fin_refkenmerk);
UPDATE_AANMAAKDATUM(fin_refkenmerk, fin_refkenmerk_aanmaak);
/* Controleer of de ingevulde tablenaam, kolomnaam en kolomtxt
** wel bestaan.
*/
BEGIN
SELECT object_type
INTO objecttype
FROM user_objects
WHERE object_name = :new.fin_refkenmerk_objectnaam;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
objecttype := NULL;
END;
IF ObjectType IS NULL
THEN
APPLICATION_ERROR(-20000, 'FIN_M235');
ELSIF ObjectType IN ('TABLE','VIEW')
THEN
/* Bij een TABLE of VIEW staan de kolommen in USER_TAB_COLUMNS
** Controleer of deze KOLOMNAAM en KOLOMTXT bestaan.
**/
DECLARE
Dummy VARCHAR2(30);
BEGIN
SELECT COLUMN_NAME
INTO Dummy
FROM USER_TAB_COLUMNS
WHERE TABLE_NAME = :new.fin_refkenmerk_objectnaam
AND COLUMN_NAME = :new.fin_refkenmerk_kolomnaam
AND DATA_TYPE = 'NUMBER';
EXCEPTION
WHEN NO_DATA_FOUND
THEN APPLICATION_ERROR(-20000, 'FIN_M236');
END;
DECLARE
Dummy VARCHAR2(30);
BEGIN
SELECT COLUMN_NAME
INTO Dummy
FROM USER_TAB_COLUMNS
WHERE TABLE_NAME = :new.fin_refkenmerk_objectnaam
AND COLUMN_NAME = :new.fin_refkenmerk_kolomtxt
AND DATA_TYPE LIKE '%CHAR%';
EXCEPTION
WHEN NO_DATA_FOUND
THEN APPLICATION_ERROR(-20000, 'FIN_M237');
END;
ELSIF ObjectType <> 'SYNONYM'
THEN
APPLICATION_ERROR(-20000, 'FIN_M235');
END IF;
END;
/
CREATE_TRIGGER(fin_t_fin_btwtabel_b_iu)
BEFORE INSERT OR UPDATE ON fin_btwtabel
FOR EACH ROW
@@ -317,6 +255,6 @@ END;
/
REGISTERRUN('$Workfile: fin_tri.src $','$Revision: 6 $')
REGISTERRUN('$Workfile: fin_tri.src $','$Revision: 7 $')
#endif // FIN

75
RES/RES_TRI.SRC
View File

@@ -1,7 +1,7 @@
#ifdef RES
/*
* $Revision: 102 $
* $Modtime: 24-03-11 17:42 $
* $Revision: 103 $
* $Modtime: 12-07-11 17:49 $
*/
CREATE_TRIGGER(res_t_res_disc_params_b_iu)
@@ -214,75 +214,6 @@ BEGIN
END;
/
CREATE_TRIGGER(res_t_res_refsrtkenmerk_b_iu)
BEFORE INSERT OR UPDATE ON res_refsrtkenmerk
FOR EACH ROW
DECLARE
ObjectType USER_OBJECTS.OBJECT_TYPE%TYPE;
BEGIN
UPDATE_PRIMARY_KEY(res_refsrtkenmerk_key, res_s_res_refsrtkenmerk_key);
UPDATE_UPPER(res_refsrtkenmerk_omschrijving, res_refsrtkenmerk_upper,res_refsrtkenmerk);
UPDATE_AANMAAKDATUM(res_refsrtkenmerk, res_refsrtkenmerk_aanmaak);
--
-- Controleer of de ingevulde tablenaam, kolomnaam en kolomtxt
-- wel bestaan. Controle moet ook gebeuren als de omschrijving
-- is gewijzigd; de objectnaam is dan hetzelfde.
--
BEGIN
SELECT object_type
INTO ObjectType
FROM USER_OBJECTS
WHERE object_name = UPPER(:new.res_refsrtkenmerk_objectnaam);
EXCEPTION
WHEN NO_DATA_FOUND THEN ObjectType := NULL;
END;
--
IF ObjectType IS NULL
THEN
raise_application_error(-20000, 'res_m244');
ELSIF ObjectType = 'TABLE'
OR ObjectType = 'VIEW'
THEN
-- Bij een TABLE of VIEW staan de kolommen in USER_TAB_COLUMNS
-- Controleer of deze KOLOMNAAM en KOLOMTXT bestaan.
--
DECLARE
Dummy VARCHAR2(30);
BEGIN
SELECT column_name
INTO Dummy
FROM USER_TAB_COLUMNS
WHERE table_name = UPPER(:new.res_refsrtkenmerk_objectnaam)
AND column_name = UPPER(:new.res_refsrtkenmerk_kolomnaam)
AND data_type = 'NUMBER';
EXCEPTION
WHEN NO_DATA_FOUND THEN raise_application_error(-20000, 'res_m245');
END;
--
DECLARE
Dummy VARCHAR2(30);
BEGIN
SELECT column_name
INTO Dummy
FROM USER_TAB_COLUMNS
WHERE table_name = UPPER(:new.res_refsrtkenmerk_objectnaam)
AND column_name = UPPER(:new.res_refsrtkenmerk_kolomtxt)
AND data_type LIKE '%CHAR%';
EXCEPTION
WHEN NO_DATA_FOUND THEN raise_application_error(-20000, 'res_m246');
END;
ELSIF ObjectType <> 'SYNONYM'
THEN
-- Bij een SYNONYM kan er niet gecontroleerd worden
-- of de ingevulde kolommen bestaan.
--
/* NULL;
ELSE */
raise_application_error(-20000, 'res_m244');
END IF;
END;
/
CREATE_TRIGGER(res_t_res_srtkenmerk_b_iu)
BEFORE INSERT OR UPDATE ON res_srtkenmerk
FOR EACH ROW
@@ -415,6 +346,6 @@ BEGIN
END;
/
REGISTERRUN('$Workfile: RES_TRI.SRC $','$Revision: 102 $')
REGISTERRUN('$Workfile: RES_TRI.SRC $','$Revision: 103 $')
#endif // RES