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

#1993: laatste resten onderdeel en element verwijderd

Browse Source 
svn path=/Database/trunk/; revision=6379
This commit is contained in:
Peter Feij
1998-12-01 16:08:38 +00:00
parent 9144dd392b
commit 401000c433
1 changed files with 14 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

124
INS/INS_TRI.SRC
View File

@@ -11,8 +11,9 @@
/*
* History
*
* 01-12-1998 PF set_verwijder_children van deel aangepast aan #1993
* 01-12-1998 PF #1993 srtonderdeel, srtelement, onderdeel en elementtriggers uitgezet
* --- 01.40 ---
* xx/09/1998 KTH IS HIER NOG IETS GEWIJZIGD DOOR BIV TBV BV LOG#1993 ???
* --- 01.39 ---
* --- 01.38 ---
* --- 01.37 ---
@@ -190,8 +191,8 @@ BEGIN
// 16/04/1998 AH #1593, Speciale CHECK_NOG_REFERENCE, maakt geen gebruik van AANWEZIG-views.
INS_CHECK_NOG_REFERENCES(ins_srtdeel,ins_srtdeel_verwijder,ins_deel, ins_deel_verwijder,
ins_srtdeel_key,'ins_m013');
SET_VERWIJDER_CHILDREN(ins_srtonderdeel, ins_srtdeel_key, ins_srtdeel_verwijder,
ins_srtonderdeel_verwijder);
/* SET_VERWIJDER_CHILDREN(ins_srtonderdeel, ins_srtdeel_key, ins_srtdeel_verwijder,
ins_srtonderdeel_verwijder); */
#ifdef INV
CHECK_NOG_REFERENCES(ins_srtdeel,ins_srtdeel_verwijder,inv_v_aanwezigdeel,
ins_srtdeel_key,'inv_m031');
@@ -278,6 +279,7 @@ BEGIN
END;
/
/*
CREATE_TRIGGER(ins_t_ins_srtonderdeel_B_IU)
BEFORE INSERT OR UPDATE ON ins_srtonderdeel
FOR EACH ROW
@@ -295,7 +297,8 @@ BEGIN
LOG('Eind INS_T_INS_SRTONDERDEEL_B_IU');
END;
/
*/
/*
CREATE_TRIGGER(ins_t_ins_srtelement_B_IU)
BEFORE INSERT OR UPDATE ON ins_srtelement
FOR EACH ROW
@@ -311,7 +314,7 @@ BEGIN
LOG('Eind INS_T_INS_SRTELEMENT_B_IU');
END;
/
*/
CREATE_TRIGGER(ins_t_ins_deel_S_B_IU)
BEFORE INSERT OR UPDATE ON ins_deel
DECLARE
@@ -328,8 +331,8 @@ BEGIN
LOG('Begin INS_T_INS_DEEL_B_IU');
UPDATE_PRIMARY_KEY(ins_deel_key,ins_s_ins_inst_keys);
UPDATE_UPPER(ins_deel_omschrijving,ins_deel_upper);
SET_VERWIJDER_CHILDREN(ins_onderdeel, ins_deel_key, ins_deel_verwijder,
ins_onderdeel_verwijder);
SET_VERWIJDER_CHILDREN2(ins_deel, ins_deel_key,ins_deel_parent_key,
ins_deel_verwijder,ins_deel_verwijder);
/* Verwijderen van INS_DEELKOPPELING-records gebeurt via FAC_P_FAC_SAVE_RESTORE-package.
* Hier hoeft alleen de INS_DEEL_KEY onthouden te worden.
* anders krijg je ORA-4094: Mutating-trigger-bla.
@@ -568,54 +571,6 @@ BEGIN
END IF;
END IF;
#endif // INV
#if 0 // #ifdef ATT 13/01/1998 AH Er zijn geen FAC-velden meer in INS_DEEL
/* Gedeelte t.b.v. eventuele attributen */
DECLARE
nAttribs NUMBER(10);
BEGIN
/* Controleer eerst of er uberhaupt attributen zijn
* bij dit Srtdeel.
*/
SELECT count(*)
INTO nAttribs
FROM ins_v_attribute_gegevens
WHERE ins_srtdeel_key = :new.ins_srtdeel_key;
/* Attributen aanwezig
*/
IF nAttribs <> 0
THEN
CHECK_ATTRIBUTE(fac0, 0);
CHECK_ATTRIBUTE(fac1, 1);
CHECK_ATTRIBUTE(fac2, 2);
CHECK_ATTRIBUTE(fac3, 3);
CHECK_ATTRIBUTE(fac4, 4);
CHECK_ATTRIBUTE(fac5, 5);
CHECK_ATTRIBUTE(fac6, 6);
CHECK_ATTRIBUTE(fac7, 7);
CHECK_ATTRIBUTE(fac8, 8);
CHECK_ATTRIBUTE(fac9, 9);
#if 0 // Oude situatie maakt een te grote trigger aan.
IF (:old.fac0 <> :new.fac0)
OR (:old.fac0 IS NOT NULL AND :new.fac0 IS NULL)
OR (:old.fac0 IS NULL AND :new.fac0 IS NOT NULL)
THEN
INS_P_INS_CHECK_ATTRIBUTE(:new.fac0, :new.ins_srtdeel_key, 0);
END IF;
IF :new.fac1 <> :old.fac1 OR :new.fac1 IS NULL OR :old.fac1 IS NULL THEN CHECK_ATTRIBUTE(fac1,1); END IF;
IF :new.fac2 <> :old.fac2 OR :new.fac2 IS NULL OR :old.fac2 IS NULL THEN CHECK_ATTRIBUTE(fac2,2); END IF;
IF :new.fac3 <> :old.fac3 OR :new.fac3 IS NULL OR :old.fac3 IS NULL THEN CHECK_ATTRIBUTE(fac3,3); END IF;
IF :new.fac4 <> :old.fac4 OR :new.fac4 IS NULL OR :old.fac4 IS NULL THEN CHECK_ATTRIBUTE(fac4,4); END IF;
IF :new.fac5 <> :old.fac5 OR :new.fac5 IS NULL OR :old.fac5 IS NULL THEN CHECK_ATTRIBUTE(fac5,5); END IF;
IF :new.fac6 <> :old.fac6 OR :new.fac6 IS NULL OR :old.fac6 IS NULL THEN CHECK_ATTRIBUTE(fac6,6); END IF;
IF :new.fac7 <> :old.fac7 OR :new.fac7 IS NULL OR :old.fac7 IS NULL THEN CHECK_ATTRIBUTE(fac7,7); END IF;
IF :new.fac8 <> :old.fac8 OR :new.fac8 IS NULL OR :old.fac8 IS NULL THEN CHECK_ATTRIBUTE(fac8,8); END IF;
IF :new.fac9 <> :old.fac9 OR :new.fac9 IS NULL OR :old.fac9 IS NULL THEN CHECK_ATTRIBUTE(fac9,9); END IF;
#endif // 0
END IF;
END;
#endif // 0 (ATT)
LOG('Eind INS_T_INS_DEEL_B_IU');
END;
/
@@ -629,6 +584,7 @@ BEGIN
END;
/
/*
CREATE_TRIGGER(ins_t_ins_onderdeel_B_IU)
BEFORE INSERT OR UPDATE ON ins_onderdeel
FOR EACH ROW
@@ -647,7 +603,8 @@ BEGIN
LOG('Eind INS_T_INS_ONDERDEEL_B_IU');
END;
/
*/
/*
CREATE_TRIGGER(ins_t_ins_element_B_IU)
BEFORE INSERT OR UPDATE ON ins_element
FOR EACH ROW
@@ -661,60 +618,7 @@ BEGIN
LOG('Eind INS_T_INS_ELEMENT_B_IU');
END;
/
#if 0 // 14/01/1998 AH INS_ATTRIBUTE is vervangen door INS_KENMERK
CREATE_TRIGGER(ins_t_ins_attribute_B_IU)
BEFORE INSERT OR UPDATE ON ins_attribute
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(ins_attribute_main_key, ins_s_ins_attribute_key);
END;
/
CREATE_TRIGGER(ins_t_ins_attribute_D_B)
BEFORE DELETE ON ins_attribute
FOR EACH ROW
BEGIN
IF :old.ins_srtinst_type = 'D'
THEN
CHECK_DISCIPLINE_ATT_VULLING(fac0, 0);
CHECK_DISCIPLINE_ATT_VULLING(fac1, 1);
CHECK_DISCIPLINE_ATT_VULLING(fac2, 2);
CHECK_DISCIPLINE_ATT_VULLING(fac3, 3);
CHECK_DISCIPLINE_ATT_VULLING(fac4, 4);
CHECK_DISCIPLINE_ATT_VULLING(fac5, 5);
CHECK_DISCIPLINE_ATT_VULLING(fac6, 6);
CHECK_DISCIPLINE_ATT_VULLING(fac7, 7);
CHECK_DISCIPLINE_ATT_VULLING(fac8, 8);
CHECK_DISCIPLINE_ATT_VULLING(fac9, 9);
ELSIF :old.ins_srtinst_type = 'G'
THEN
CHECK_SRTGROEP_ATT_VULLING(fac0, 0);
CHECK_SRTGROEP_ATT_VULLING(fac1, 1);
CHECK_SRTGROEP_ATT_VULLING(fac2, 2);
CHECK_SRTGROEP_ATT_VULLING(fac3, 3);
CHECK_SRTGROEP_ATT_VULLING(fac4, 4);
CHECK_SRTGROEP_ATT_VULLING(fac5, 5);
CHECK_SRTGROEP_ATT_VULLING(fac6, 6);
CHECK_SRTGROEP_ATT_VULLING(fac7, 7);
CHECK_SRTGROEP_ATT_VULLING(fac8, 8);
CHECK_SRTGROEP_ATT_VULLING(fac9, 9);
ELSIF :old.ins_srtinst_type = 'S'
THEN
CHECK_SRTDEEL_ATT_VULLING(fac0, 0);
CHECK_SRTDEEL_ATT_VULLING(fac1, 1);
CHECK_SRTDEEL_ATT_VULLING(fac2, 2);
CHECK_SRTDEEL_ATT_VULLING(fac3, 3);
CHECK_SRTDEEL_ATT_VULLING(fac4, 4);
CHECK_SRTDEEL_ATT_VULLING(fac5, 5);
CHECK_SRTDEEL_ATT_VULLING(fac6, 6);
CHECK_SRTDEEL_ATT_VULLING(fac7, 7);
CHECK_SRTDEEL_ATT_VULLING(fac8, 8);
CHECK_SRTDEEL_ATT_VULLING(fac9, 9);
END IF;
END;
/
#endif // 0
*/
CREATE_TRIGGER(ins_t_ins_import_B_IU)
BEFORE INSERT OR UPDATE ON ins_import