From 0d4877bd6fe9dcf0500753bdc833c7b52371b551 Mon Sep 17 00:00:00 2001 From: Peter Feij Date: Mon, 6 Sep 2010 13:53:52 +0000 Subject: [PATCH] FSN#18275 svn path=/Database/trunk/; revision=10393 --- INS/INS_IND.SRC | 9 ++-- INS/INS_INI.SRC | 106 ++---------------------------------------------- INS/INS_PAC.SRC | 50 +++-------------------- INS/INS_SEQ.SRC | 18 +++----- INS/INS_TAB.SRC | 19 ++++----- INS/INS_TRI.SRC | 88 ++++------------------------------------ INS/INS_VIE.SRC | 102 +++++++++++++++++++++++----------------------- MLD/MLD_IND.SRC | 6 ++- MLD/MLD_INI.SRC | 6 ++- MLD/MLD_PAC.SRC | 10 ++--- MLD/MLD_SEQ.SRC | 9 ++-- MLD/MLD_TAB.SRC | 10 ++--- MLD/MLD_TRI.SRC | 56 ++----------------------- MLD/MLD_VIE.SRC | 9 ++-- MRK/MRK_IND.SRC | 17 ++++---- MRK/MRK_INI.SRC | 22 +++------- MRK/MRK_PAC.SRC | 19 +++------ MRK/MRK_SEQ.SRC | 13 +++--- MRK/MRK_TAB.SRC | 36 ++++------------ MRK/MRK_TRI.SRC | 13 ++---- MRK/MRK_VIE.SRC | 27 ++++-------- MSG/MSG_IND.SRC | 8 ++-- MSG/MSG_INI.SRC | 6 ++- MSG/MSG_PAC.SRC | 7 ++-- MSG/MSG_SEQ.SRC | 7 ++-- MSG/MSG_TAB.SRC | 14 +++---- MSG/MSG_TRI.SRC | 9 ++-- MSG/MSG_VIE.SRC | 6 ++- PRJ/PRJ_IND.SRC | 6 +-- PRJ/PRJ_INI.SRC | 60 +++++++++++++++------------ PRJ/PRJ_PAC.SRC | 12 +++--- PRJ/PRJ_SEQ.SRC | 7 ++-- PRJ/PRJ_TAB.SRC | 13 +++--- PRJ/PRJ_TRI.SRC | 7 ++-- PRJ/PRJ_VIE.SRC | 16 +++----- RES/RES_IND.SRC | 8 ++-- RES/RES_INI.SRC | 39 ++---------------- RES/RES_SEQ.SRC | 7 ++-- RES/RES_TAB.SRC | 8 ++-- RES/RES_TRI.SRC | 12 +++--- RES/RES_VIE.SRC | 73 ++++++++++++++++----------------- SCH/SCH_IND.SRC | 49 ++-------------------- SCH/SCH_INI.SRC | 57 ++------------------------ SCH/SCH_PAC.SRC | 92 ++--------------------------------------- SCH/SCH_SEQ.SRC | 14 +++---- SCH/SCH_TAB.SRC | 60 ++++----------------------- SCH/SCH_TRI.SRC | 15 +++---- SCH/SCH_VIE.SRC | 7 ++-- WEB/WEB_IND.SRC | 7 ++-- WEB/WEB_INI.SRC | 7 ++-- WEB/WEB_PAC.SRC | 6 +-- WEB/WEB_SEQ.SRC | 9 ++-- WEB/WEB_TAB.SRC | 23 ++--------- WEB/WEB_TRI.SRC | 9 ++-- WEB/WEB_VIE.SRC | 9 ++-- 55 files changed, 366 insertions(+), 968 deletions(-) diff --git a/INS/INS_IND.SRC b/INS/INS_IND.SRC index 8009895f..d5774399 100644 --- a/INS/INS_IND.SRC +++ b/INS/INS_IND.SRC @@ -1,7 +1,7 @@ #ifdef INS // 13-03-96 AH - -/* REVISION: - * +/* + * $Revision: 15 $ + * $Modtime: 6-09-10 15:51 $ */ create index ins_i_ins_srtgroep1 on ins_srtgroep(ins_discipline_key); @@ -36,4 +36,7 @@ CREATE INDEX ins_i_ins_deelkoppeling2 ON ins_deelkoppeling(ins_deelkoppeling_naa CREATE INDEX ins_i_ins_deelkoppeling3 ON ins_deelkoppeling (ins_deelkoppeling_naar_key, ins_deelkoppeling_van_key); CREATE UNIQUE INDEX ins_i_ins_disc_params1 ON ins_disc_params(ins_discipline_key); + +REGISTERONCE('$Workfile: INS_IND.SRC $','$Revision: 15 $') + #endif // INS diff --git a/INS/INS_INI.SRC b/INS/INS_INI.SRC index 8b16269a..a3ded97e 100644 --- a/INS/INS_INI.SRC +++ b/INS/INS_INI.SRC @@ -1,110 +1,12 @@ #ifdef INS // 13-03-96 AH - -/* - * INS tables for Facilitor: installation time population - */ - -/* REVISIONS: - * 23-04-1999 PF INS_DATA.SRC ipv INB_DATA.SQL include; INB en INR verwijderd. - * --- 01.40 --- - * --- 01.39 --- - * --- 01.38 --- - * 01-07-1998 KTH Als vast andere INS_REFSRTKENMERKen in commentaar voorbereid - * --- 01.37 --- - * 20-05-98 KTH Gebruik macro _FAC_MODULE - * 20-05-1998 KTH LOG#1720: '#ifdef DATA AND NOT AKZ' is syntactisch onjuist - * 18-05-1998 BIV Log #1720 : Voor AKZ de default vulling weggehaald, dit wordt later overgenomen uit GMS 1. - * --- 01.36 --- - * --- 01.35 --- - * 01-04-98 KTH LOG#1583: default waarde PRS_PERSLID_NAAM in INS_REFSRTKENMERK - * --- 01.34 --- - * --- 01.33 --- - * --- 01.32 --- - * --- 01.31 --- - * 28-07-97 AH Voor installaties met INB en DATA wordt nu INB_DATA.SQL geinclude. - * --- 01.30 --- - * --- 01.29 --- - * --- 01.28 --- - * --- 01.27 --- - * --- 01.26 --- - * --- 01.25 --- - * --- 01.24 --- - * --- 01.23 --- - * --- 01.22 --- - * --- 01.21 --- - * --- 01.20 --- - * --- 01.19 --- - * --- 01.18 --- - * --- 01.17 --- - * --- 01.16 --- - * 04-06-96 KTH Module INB (installaties-bibliotheek) geintroduceerd - * --- 01.15 --- - * --- 01.14 --- - * --- 01.13 --- - * --- 01.12 --- - * 03-04-96 KTH #ifdef om 'INSERT INTO fac_module...INR...' gezet - * 01-04-96 KTH 02.03 - * 19-03-96 KTH 02.02 - * 13-03-96 AH NIEUWE OPZET SRC-files. - * 13-02-96 PF 02.01: Bibliotheekroutine-only entry in FAC_MODULE toegevoegd. - * NB: indien registratie van installaties niet gewenst is, - * moet INR uit de FAC_MODULE verwijderd worden! - * 13-02-96 PF 02.01: UNIQUE triggers vervangen door constraints - * 05-02-96 KTH Spool toegevoegd - * 17-01-96 PF Elektro en werktuigbouw als standaardvulling verwijderd [241] - * 03-01-96 PF Gebruik sysdate - * 06-12-95 PF Initialization of disciplines added - * 13-10-95 PF Creation +/* + * $Revision: 4 $ + * $Modtime: 6-09-10 15:51 $ */ _FAC_MODULE('INS','Objectbeheer') -#ifdef DATA -#ifndef AKZ -/* 980520/KTH LOG#1720: voor AKZ wordt geen default data toegepast */ -#include "ins\ins_data.src" -#endif // not AKZ - -/* - * 01-04-98/KTH LOG#1583 - * - * Default waardes voor mogelijke referenties, aan te geven bij Kenmerksoort (INS_SRTKENMERK). - * Let op dat dit allemaal tussen '#ifdef ' staat! - */ -#ifdef ALG -/* - * KTH: voorlopig niet gebruikt (omdat AKZ eigen zaken heeft) -INSERT INTO ins_refsrtkenmerk(ins_refsrtkenmerk_omschrijving,ins_refsrtkenmerk_objectnaam, - ins_refsrtkenmerk_kolomnaam,ins_refsrtkenmerk_kolomtxt) - VALUES('Locatie','ALG_V_AANWEZIGLOCATIE','ALG_LOCATIE_KEY','ALG_LOCATIE_OMSCHRIJVING'); - -INSERT INTO ins_refsrtkenmerk(ins_refsrtkenmerk_omschrijving,ins_refsrtkenmerk_objectnaam, - ins_refsrtkenmerk_kolomnaam,ins_refsrtkenmerk_kolomtxt) - VALUES('Terreinsector','ALG_V_AANWEZIGTERREINSECTOR','ALG_TERREINSECTOR_KEY','ALG_TERREINSECTOR_CODE'); - -INSERT INTO ins_refsrtkenmerk(ins_refsrtkenmerk_omschrijving,ins_refsrtkenmerk_objectnaam, - ins_refsrtkenmerk_kolomnaam,ins_refsrtkenmerk_kolomtxt) - VALUES('Gebouw','ALG_V_AANWEZIGGEBOUW','ALG_GEBOUW_KEY','ALG_GEBOUW_CODE'); -*/ -#endif // ALG - -#ifdef PRS -INSERT INTO ins_refsrtkenmerk(ins_refsrtkenmerk_omschrijving,ins_refsrtkenmerk_objectnaam, - ins_refsrtkenmerk_kolomnaam,ins_refsrtkenmerk_kolomtxt) - VALUES('Persoon','PRS_V_AANWEZIGPERSLID','PRS_PERSLID_KEY','PRS_PERSLID_NAAM'); -/* - * KTH: voorlopig niet gebruikt (omdat AKZ eigen zaken heeft) -INSERT INTO ins_refsrtkenmerk(ins_refsrtkenmerk_omschrijving,ins_refsrtkenmerk_objectnaam, - ins_refsrtkenmerk_kolomnaam,ins_refsrtkenmerk_kolomtxt) - VALUES('Afdeling','PRS_V_AANWEZIGAFDELING','PRS_AFDELING_KEY','PRS_AFDELING_NAAM'); - -INSERT INTO ins_refsrtkenmerk(ins_refsrtkenmerk_omschrijving,ins_refsrtkenmerk_objectnaam, - ins_refsrtkenmerk_kolomnaam,ins_refsrtkenmerk_kolomtxt) - VALUES('Bedrijf','PRS_V_AANWEZIGBEDRIJF','PRS_BEDRIJF_KEY','PRS_BEDRIJF_NAAM'); -*/ -#endif // PRS - -#endif // DATA +REGISTERONCE('$Workfile: INS_INI.SRC $','$Revision: 4 $') #endif // INS diff --git a/INS/INS_PAC.SRC b/INS/INS_PAC.SRC index 92afb712..316dff20 100644 --- a/INS/INS_PAC.SRC +++ b/INS/INS_PAC.SRC @@ -1,11 +1,9 @@ #ifdef INS - /* - * $Revision: 30 $ - * $Modtime: 15-11-06 17:42 $ + * $Revision: 31 $ + * $Modtime: 6-09-10 15:36 $ */ - CREATE OR REPLACE PACKAGE Ins AS PROCEDURE Ins_Update_Kenmerkdeel(kenmerkdeel_key IN NUMBER ,deel_key IN NUMBER @@ -176,7 +174,6 @@ CREATE OR REPLACE PACKAGE BODY Ins AS END IF; ELSIF historymode = '1' THEN -#ifndef MS_SQL DECLARE -- Zoek alle records voor een gegeven object en kenmerk -- en zet de meest recente bovenaan. @@ -193,40 +190,12 @@ CREATE OR REPLACE PACKAGE BODY Ins AS ORDER BY ins_kenmerkdeel_key DESC ; r_kenmerkdeel c_kenmerkdeel%ROWTYPE; -#else - DECLARE - r_kenmerkdeel_ins_kenmerkdeel_key NUMBER(10); - r_kenmerkdeel_ins_kenmerkdeel_aanmaak DATE; - r_kenmerkdeel_ins_kenmerkdeel_verwijder DATE; - r_kenmerkdeel_ins_kenmerkdeel_waarde VARCHAR2(255); -#endif BEGIN -#ifndef MS_SQL OPEN c_kenmerkdeel(kenmerk_key,deel_key); FETCH c_kenmerkdeel INTO r_kenmerkdeel; -#else -[skip] - DECLARE c_kenmerkdeel CURSOR FOR - SELECT ins_kenmerkdeel_key - , TRUNC_DATE(ins_kenmerkdeel_aanmaak) ins_kenmerkdeel_aanmaak - , TRUNC_DATE(ins_kenmerkdeel_verwijder) ins_kenmerkdeel_verwijder - , ins_kenmerkdeel_waarde - FROM ins_kenmerkdeel - WHERE ins_kenmerk_key = @kenmerk_key - AND ins_deel_key = @deel_key - ORDER BY ins_kenmerkdeel_key DESC; -[/skip] - OPEN c_kenmerkdeel; - FETCH NEXT FROM c_kenmerkdeel INTO r_kenmerkdeel_ins_kenmerkdeel_key, - r_kenmerkdeel_ins_kenmerkdeel_aanmaak, r_kenmerkdeel_ins_kenmerkdeel_verwijder, r_kenmerkdeel_ins_kenmerkdeel_waarde; -#endif -#ifndef MS_SQL IF c_kenmerkdeel%NOTFOUND THEN -#else - IF @@FETCH_STATUS = -1 THEN -#endif -- Voor dit object en kenmerk bestaat nog geen record -- dus toevoegen. Behalve als de toe te voegen waarde -- null is, dan wil je niets toevoegen dus dan ook @@ -294,9 +263,6 @@ CREATE OR REPLACE PACKAGE BODY Ins AS END IF; CLOSE c_kenmerkdeel; -#ifdef MS_SQL - DEALLOCATE c_kenmerkdeel; -#endif END; END IF; END Kmd_Update_Kenmerkdeel; @@ -331,26 +297,20 @@ END Ins_Update_Kenmerkdeel_WEB; END Ins; / -#ifdef MS_SQL -CREATE OR REPLACE PROCEDURE ins_p_delete_deelkoppeling( DeelKey IN NUMBER ) -#else CREATE OR REPLACE FUNCTION ins_p_delete_deelkoppeling( DeelKey IN NUMBER ) RETURN BOOLEAN -#endif AS BEGIN DELETE FROM ins_deelkoppeling WHERE ins_deelkoppeling_van_key = DeelKey OR ins_deelkoppeling_naar_key = DeelKey; -#ifndef MS_SQL RETURN TRUE; EXCEPTION WHEN OTHERS THEN RETURN FALSE; -#endif END; / -CREATE OR REPLACE FUNCTION _MSSQL(WEB.)ALG_F_GetRefWaarde (sk_key IN NUMBER, waarde IN VARCHAR2) RETURN VARCHAR2 IS +CREATE OR REPLACE FUNCTION ALG_F_GetRefWaarde (sk_key IN NUMBER, waarde IN VARCHAR2) RETURN VARCHAR2 IS sResult VARCHAR2(255); kolomnaam VARCHAR2(50); kolomtxt VARCHAR2(50); @@ -381,7 +341,7 @@ BEGIN END; / -CREATE OR REPLACE FUNCTION _MSSQL(WEB.)INS_F_GetRefWaarde (sk_key IN NUMBER, waarde IN VARCHAR2) RETURN VARCHAR2 IS +CREATE OR REPLACE FUNCTION INS_F_GetRefWaarde (sk_key IN NUMBER, waarde IN VARCHAR2) RETURN VARCHAR2 IS sResult VARCHAR2(255); kolomnaam VARCHAR2(50); kolomtxt VARCHAR2(50); @@ -409,4 +369,6 @@ BEGIN END; / +REGISTERRUN('$Workfile: INS_PAC.SRC $','$Revision: 31 $') + #endif // INS diff --git a/INS/INS_SEQ.SRC b/INS/INS_SEQ.SRC index ce0c600e..9cdb52e2 100644 --- a/INS/INS_SEQ.SRC +++ b/INS/INS_SEQ.SRC @@ -1,19 +1,9 @@ #ifdef INS // 13-03-96 AH - -/* $History: INS_SEQ.SRC $ - * - * ***************** Version 6 ***************** - * User: Pf Date: 26-09-05 Time: 11:52 - * Updated in $/Facilitor/SRC/SQL/INS - * FSN#1251 - * - * ***************** Version 5 ***************** - * User: Pf Date: 25-08-04 Time: 18:25 - * Updated in $/Facilitor/SRC/SQL/INS - * CONN#237 +/* + * $Revision: 7 $ + * $Modtime: 6-09-10 15:50 $ */ - CREATE SEQUENCE ins_s_ins_discipline_key MINVALUE 1; CREATE SEQUENCE ins_s_ins_srtdiscipline_key MINVALUE 1; CREATE SEQUENCE ins_s_ins_srtgroep_key MINVALUE 1; @@ -37,4 +27,6 @@ CREATE SEQUENCE ins_s_ins_srtdeel_srtdeel_key MINVALUE 1; CREATE SEQUENCE ins_s_ins_disc_params_key START WITH 1 NOCACHE; +REGISTERONCE('$Workfile: INS_SEQ.SRC $','$Revision: 7 $') + #endif // INS diff --git a/INS/INS_TAB.SRC b/INS/INS_TAB.SRC index 88a5e403..97d8118d 100644 --- a/INS/INS_TAB.SRC +++ b/INS/INS_TAB.SRC @@ -1,10 +1,8 @@ #ifdef INS - -/* $Revision: 83 $ - * $Modtime: 2-07-10 14:38 $ +/* $Revision: 84 $ + * $Modtime: 6-09-10 15:37 $ */ - CREATE_TABLE(ins_srtdiscipline,0) ( ins_srtdiscipline_key @@ -245,7 +243,7 @@ CONSTRAINT ins_u_ins_srtdeel_srtdeel UNIQUE (ins_srtdeel_key_1, ins_srtdeel_key_ ); -CREATE_TABLE(ins_deel,INS_NORMAAL_PRIVILEGE) +CREATE_TABLE(ins_deel,0) ( ins_deel_key NUMBER(10) @@ -335,7 +333,7 @@ CREATE_TABLE(ins_deel,INS_NORMAAL_PRIVILEGE) -CREATE_TABLE(ins_import, INS_BASIS_PRIVILEGE) +CREATE_TABLE(ins_import,0) ( ins_import_key NUMBER(10) @@ -492,7 +490,7 @@ CREATE_TABLE(ins_kenmerk, 0) /* De waarde mag in de tabel NULL zijn, maar om de database niet * overbodig te vullen worden de NULL-records after-statement weer verwijderd. */ -CREATE_TABLE(ins_kenmerkdeel, INS_NORMAAL_PRIVILEGE) +CREATE_TABLE(ins_kenmerkdeel,0) ( ins_kenmerkdeel_key NUMBER(10) @@ -521,7 +519,7 @@ CREATE_TABLE(ins_kenmerkdeel, INS_NORMAAL_PRIVILEGE) * CASCADE verwijderen in triggers op te kunnen lossen. In de after-statement-trigger * van INS_DEELKOPPELING worden de logisch-verwijderde deelkoppelingen echt verwijderd. */ -CREATE_TABLE(ins_deelkoppeling, INS_NORMAAL_PRIVILEGE) +CREATE_TABLE(ins_deelkoppeling,0) ( ins_deelkoppeling_key NUMBER(10) @@ -570,7 +568,7 @@ CREATE_TABLE(ins_compositie, 0) ); -CREATE_TABLE(ins_srtdeel_compositie, INS_NORMAAL_PRIVILEGE) +CREATE_TABLE(ins_srtdeel_compositie,0) ( ins_srtdeel_comp_key NUMBER(10) @@ -601,7 +599,7 @@ CREATE_TABLE(ins_srtdeel_compositie, INS_NORMAAL_PRIVILEGE) DEFAULT NULLDATUM ); -CREATE_TABLE(ins_verbinding, INS_NORMAAL_PRIVILEGE) +CREATE_TABLE(ins_verbinding,0) ( ins_verbinding_sessionid NUMBER(10), @@ -625,5 +623,6 @@ CREATE_TABLE(ins_disc_params,0) REFERENCES ins_tab_discipline (ins_discipline_key) ); +REGISTERONCE('$Workfile: INS_TAB.SRC $','$Revision: 84 $') #endif // INS diff --git a/INS/INS_TRI.SRC b/INS/INS_TRI.SRC index 22d44fba..211b2190 100644 --- a/INS/INS_TRI.SRC +++ b/INS/INS_TRI.SRC @@ -1,14 +1,11 @@ -/* CREA_TRI.SRC maakt de triggers aan voor INS */ - +#ifdef INS /* - * $Revision: 58 $ - * $Modtime: 2-04-09 12:52 $ + * $Revision: 59 $ + * $Modtime: 6-09-10 15:49 $ */ -#include "comsql.h" #include "ins\inssql.h" #include "alg\algsql.h" -#include "fac\fac_log.h" CREATE_TRIGGER(ins_t_ins_srtdiscipline_B_IU) BEFORE INSERT OR UPDATE ON ins_srtdiscipline @@ -23,7 +20,6 @@ CREATE_TRIGGER(ins_t_ins_discipline_B_IU) BEFORE INSERT OR UPDATE ON ins_tab_discipline FOR EACH ROW BEGIN - LOG('Begin INS_T_INS_DISCIPLINE_B_IU'); UPDATE_PRIMARY_KEY(ins_discipline_key,ins_s_ins_discipline_key); IF ( :new.ins_discipline_verwijder IS NOT NULL AND:old.ins_discipline_verwijder IS NULL @@ -50,7 +46,6 @@ BEGIN ins_srtgroep_verwijder,ins_tab_discipline); IF (:new.ins_discipline_verwijder IS NOT NULL AND :old.ins_discipline_verwijder IS NULL) THEN DELETE_CHILDREN(fac_groeprechten,ins_discipline_key); END IF; UPDATE_AANMAAKDATUM(ins_tab_discipline, ins_discipline_aanmaak); - LOG('Eind INS_T_INS_DISCIPLINE_B_IU'); END; / @@ -58,13 +53,11 @@ CREATE_TRIGGER(ins_t_ins_srtgroep_B_IU) BEFORE INSERT OR UPDATE ON ins_srtgroep FOR EACH ROW BEGIN - LOG('Begin INS_T_INS_SRTGROEP_B_IU'); UPDATE_PRIMARY_KEY(ins_srtgroep_key,ins_s_ins_srtgroep_key); UPDATE_UPPER(ins_srtgroep_omschrijving,ins_srtgroep_upper,ins_srtgroep); SET_VERWIJDER_CHILDREN(ins_srtdeel, ins_srtgroep_key, ins_srtgroep_verwijder, ins_srtdeel_verwijder,ins_srtgroep); UPDATE_AANMAAKDATUM(ins_srtgroep, ins_srtgroep_aanmaak); - LOG('Eind INS_T_INS_SRTGROEP_B_IU'); END; / @@ -99,9 +92,6 @@ BEGIN UPDATE_AANMAAKDATUM(ins_srtdeel, ins_srtdeel_aanmaak); SET_VERWIJDER_CHILDREN(ins_srtdeel_compositie, ins_srtdeel_key, ins_srtdeel_verwijder ,ins_srtdeel_comp_verwijder,ins_srtdeel); -#ifdef MS_SQL -lerror: -#endif END; / @@ -273,11 +263,7 @@ BEGIN WHILE PrimaryKey IS NOT NULL LOOP -#ifdef MS_SQL - exec fac_p_fac_save_restore.SavePrimaryKey 'INS_TRIGGER_BUSY', 1; -#else Dummy := fac_p_fac_save_restore.SavePrimaryKey('INS_TRIGGER_BUSY', 1); -#endif /* Jammer maar helaas, vanwege syntaxredenen moeten we weten of we met UNDO te maken hebben /* Als parent is verwijderd, dan is deletemode gevuld met zijn datum */ /* Als parent terug wordt gehaald, dan is delete-mode gevuld met NULL ( betekent FALSE) */ @@ -346,21 +332,13 @@ BEGIN END; END IF; -#ifdef MS_SQL - _EXEC1(_MSSQL(fac_p_fac_save_restore.)ResetSelectie,'INS_TRIGGER_BUSY'); -#else Dummy := fac_p_fac_save_restore.ResetSelectie('INS_TRIGGER_BUSY'); -#endif IndexNr := IndexNr + 1; PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_VERWIJDER', IndexNr); old_datum_of_deel := fac_p_fac_save_restore.GetDate('INS_DEEL_VERWIJDER', PrimaryKey); END LOOP; -#ifdef MS_SQL - _EXEC1(_MSSQL(fac_p_fac_save_restore.)ResetSelectie,'INS_DEEL_VERWIJDER'); -#else Dummy := fac_p_fac_save_restore.ResetSelectie('INS_DEEL_VERWIJDER'); -#endif IndexNr := 1; PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_CASCADE', IndexNr); WHILE PrimaryKey IS NOT NULL @@ -376,17 +354,6 @@ BEGIN IF lCount > 0 THEN -#ifdef MS_SQL - exec fac_p_fac_save_restore.SavePrimaryKey 'INS_TRIGGER_BUSY', 1; - UPDATE ins_deel - SET ins_deel.ins_alg_ruimte_key = s.ins_alg_ruimte_key - , ins_deel.ins_alg_ruimte_type = s.ins_alg_ruimte_type - , ins_deel.ins_alg_locatie_key = s.ins_alg_locatie_key from - ins_deel inner join ins_v_aanwezigdeel s on ins_deel.ins_deel_parent_key = s.ins_deel_key - WHERE s.ins_deel_key = PrimaryKey - AND ins_deel.ins_deel_parent_key = PrimaryKey - AND ins_deel.ins_deel_verwijder IS NULL; -#else Dummy := fac_p_fac_save_restore.SavePrimaryKey('INS_TRIGGER_BUSY', 1); UPDATE ins_deel SET (ins_alg_ruimte_key @@ -398,26 +365,15 @@ BEGIN WHERE ins_deel_key = PrimaryKey) WHERE ins_deel.ins_deel_parent_key = PrimaryKey AND ins_deel.ins_deel_verwijder IS NULL; -#endif -#ifdef MS_SQL - _EXEC1(_MSSQL(fac_p_fac_save_restore.)ResetSelectie,'INS_TRIGGER_BUSY'); -#else Dummy := fac_p_fac_save_restore.ResetSelectie('INS_TRIGGER_BUSY'); -#endif END IF; IndexNr := IndexNr + 1; PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_CASCADE', IndexNr); END LOOP; -#ifdef MS_SQL - _EXEC1(_MSSQL(fac_p_fac_save_restore.)ResetSelectie,'INS_DEEL_CASCADE'); -#else Dummy := fac_p_fac_save_restore.ResetSelectie('INS_DEEL_CASCADE'); -#endif -#ifndef MS_SQL ELSE NULL; -#endif END IF; -- lNested END; -- Add statements that need execution even when nested here: @@ -436,19 +392,11 @@ BEGIN PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_ONTKOPPEL', IndexNr); WHILE PrimaryKey IS NOT NULL LOOP -#ifdef MS_SQL - _EXEC1(ins_p_delete_deelkoppeling,PrimaryKey); -#else Dummy := ins_p_delete_deelkoppeling(PrimaryKey); -#endif IndexNr := IndexNr + 1; PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_ONTKOPPEL', IndexNr); END LOOP; -#ifdef MS_SQL - _EXEC1(_MSSQL(fac_p_fac_save_restore.)ResetSelectie,'INS_DEEL_ONTKOPPEL'); -#else Dummy := fac_p_fac_save_restore.ResetSelectie('INS_DEEL_ONTKOPPEL'); -#endif END; END; / @@ -692,26 +640,13 @@ BEGIN END IF; /* Controleer of er een numerieke waarde ingevuld is */ BEGIN -#ifdef MS_SQL - DECLARE isnum smallint; - isnum := WEB.IsNumberString(@KenmerkDeelWaarde) - if isnum = -1 GOTO lcontinue - if isnum = 0 BEGIN - FormatMask := REPLACE(FormatMask, '9', '#'); - FormatMask := REPLACE(FormatMask, '0', '#'); - FormatMask := REPLACE(FormatMask, 'D', '.'); - APPLICATION_ERROR_GOTO(-20004, 'ins_m146,'||SrtKenmerkOmschr||','||FormatMask); - END; -#endif NumberWaarde := TO_NUMBER(KenmerkDeelWaarde); -#ifndef MS_SQL EXCEPTION WHEN OTHERS THEN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); APPLICATION_ERROR_GOTO(-20004,'ins_m146,'||SrtKenmerkOmschr||','||FormatMask); -#endif END; /* Controleer of de waarde binnen NMin en NMax ligt */ IF (SrtKenmerkNMin IS NOT NULL @@ -737,25 +672,12 @@ BEGIN :new.ins_kenmerkdeel_waarde := KenmerkDeelWaarde; ELSIF SrtKenmerkType = 'D' /* Datum */ THEN -#ifdef MS_SQL - DECLARE isdat smallint; - isdat := WEB.IsDateString(@KenmerkDeelWaarde,'DD-MM-YYYY') - if isdat = -1 GOTO lcontinue - if isdat = 0 BEGIN - FormatMask := 'DD-MM-YYYY'; - APPLICATION_ERROR_GOTO(-20004,'ins_m146,'|| SrtKenmerkOmschr ||',' - || FormatMask); - END; -#endif KenmerkDeelWaarde := DATE_TO_CHAR(_TO_DATE2(KenmerkDeelWaarde,'DD-MM-YY'), 'DD-MM-YYYY'); /* Zet de geconverteerde waarde terug */ :new.ins_kenmerkdeel_waarde := KenmerkDeelWaarde; END IF; END; -- UPDATE_AANMAAKDATUM(ins_kenmerkdeel, ins_kenmerkdeel_aanmaak); -#ifdef MS_SQL -lcontinue: -#endif END IF; END; @@ -848,3 +770,7 @@ BEGIN IF :new.ins_disc_params_key IS NULL THEN SELECT ins_s_ins_disc_params_key.nextval INTO :new.ins_disc_params_key FROM DUAL; END IF; END; / + +REGISTERRUN('$Workfile: INS_TRI.SRC $','$Revision: 59 $') + +#endif diff --git a/INS/INS_VIE.SRC b/INS/INS_VIE.SRC index a7909e35..00ceecfa 100644 --- a/INS/INS_VIE.SRC +++ b/INS/INS_VIE.SRC @@ -1,63 +1,61 @@ #ifdef INS // 13-03-96 AH -/* $Revision: 67 $ - * $Modtime: 27-11-08 12:06 $ +/* $Revision: 68 $ + * $Modtime: 6-09-10 15:39 $ */ -#include "comsql.h" // NOTE! Originally, some views were restricted by the records authorized to the actual Oracle USER. // Since 4.40 this has been droppped, since we only use one Oracle user for all connections. -// This means this the code must and should add authorization to the use of these views. // Alle voor de gebruiker zichtbare disciplines, van alle modules, mits geautoriseerd -CREATE_VIEW(ALL_discipline, INS_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(ALL_discipline, 0) AS SELECT * FROM ins_tab_discipline INS_TD; // Alle actuele disciplines, mits geautoriseerd DEFINIEER_VIEW_AANWEZIG(ALL_discipline, ins_discipline_verwijder, - ALL_v_aanwezigdiscipline,INS_BIBLIOTHEEK_PRIVILEGE); + ALL_v_aanwezigdiscipline,0); DEFINIEER_VIEW_AANWEZIG(ins_srtdiscipline, ins_srtdiscipline_verwijder, - ins_v_aanwezigsrtdiscipline,INS_BIBLIOTHEEK_PRIVILEGE); + ins_v_aanwezigsrtdiscipline,0); // Alle actuele groepsoorten, mits geautoriseerd DEFINIEER_VIEW_AANWEZIG(ins_srtgroep, ins_srtgroep_verwijder, - ALL_v_aanwezigsrtgroep,INS_BIBLIOTHEEK_PRIVILEGE) AND + ALL_v_aanwezigsrtgroep,0) AND ins_discipline_key IN (SELECT ins_discipline_key FROM ALL_v_aanwezigdiscipline); // Alle actuele deelsoorten, mits geautoriseerd DEFINIEER_VIEW_AANWEZIG(ins_srtdeel, ins_srtdeel_verwijder, - ALL_v_aanwezigsrtdeel,INS_BIBLIOTHEEK_PRIVILEGE) AND + ALL_v_aanwezigsrtdeel,0) AND ins_srtgroep_key IN (SELECT ins_srtgroep_key FROM ALL_v_aanwezigsrtgroep); // Alle (evt verwijderde) INS disciplines, mits geautoriseerd // LETOP: DIT LIJKT WEL EEN TABEL!! (qua naamgeving) ivm autorisatie! -CREATE_VIEW(INS_discipline, INS_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(INS_discipline, 0) AS SELECT * FROM ALL_discipline WHERE ins_discipline_module = 'INS'; // Alle zichtbare INS disciplines, mits geautoriseerd DEFINIEER_VIEW_AANWEZIG(ins_discipline, ins_discipline_verwijder, - INS_v_aanwezigdiscipline,INS_BIBLIOTHEEK_PRIVILEGE); + INS_v_aanwezigdiscipline,0); // Alle zichtbare INS groepsoorten, mits geautoriseerd -CREATE_VIEW(ins_v_aanwezigsrtgroep,INS_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(ins_v_aanwezigsrtgroep,0) AS SELECT * FROM ALL_v_aanwezigsrtgroep WHERE ins_srtgroep_module = 'INS'; // Alle zichtbare INS deelsoorten, mits geautoriseerd -CREATE_VIEW(ins_v_aanwezigsrtdeel,INS_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(ins_v_aanwezigsrtdeel,0) AS SELECT * FROM ALL_v_aanwezigsrtdeel WHERE ins_srtdeel_module = 'INS'; /* Views met ins_deel moeten voorwaarde : "WHERE ins_deel_parent_key IS NULL" bevatten... */ DEFINIEER_VIEW_AANWEZIG(ins_deel, ins_deel_verwijder, - all_v_aanwezigdeel,INS_NORMAAL_PRIVILEGE) AND + all_v_aanwezigdeel,0) AND ins_deel_parent_key IS NULL; /* Views met ins_deel moeten voorwaarde : "AND ins_deel_parent_key IS NULL" bevatten... */ DEFINIEER_VIEW_AANWEZIG(ins_deel, ins_deel_verwijder, - ins_v_aanwezigdeel,INS_NORMAAL_PRIVILEGE) AND + ins_v_aanwezigdeel,0) AND ins_deel_module = 'INS' AND ins_deel_parent_key IS NULL AND ins_discipline_key IN (SELECT ins_discipline_key FROM ins_discipline); @@ -65,12 +63,12 @@ DEFINIEER_VIEW_AANWEZIG(ins_deel, ins_deel_verwijder, /* Views met ins_onderdeel moeten voorwaarde : "AND ins_deel_parent_key IS NOT NULL" bevatten... */ DEFINIEER_VIEW_AANWEZIG(ins_deel, ins_deel_verwijder, - ins_v_aanwezigonderdeel,INS_NORMAAL_PRIVILEGE) AND + ins_v_aanwezigonderdeel,0) AND ins_deel_parent_key IS NOT NULL AND ins_srtdeel_key IN (SELECT ins_srtdeel_key FROM ins_v_aanwezigsrtdeel); -CREATE_VIEW(ins_v_srtgroep_gegevens,INS_BIBLIOTHEEK_PRIVILEGE) AS +CREATE_VIEW(ins_v_srtgroep_gegevens,0) AS SELECT ins_D.ins_discipline_key, ins_D.ins_discipline_omschrijving, ins_SG.ins_srtgroep_key, ins_SG.ins_srtgroep_omschrijving, ins_SG.ins_srtgroep_upper @@ -78,7 +76,7 @@ CREATE_VIEW(ins_v_srtgroep_gegevens,INS_BIBLIOTHEEK_PRIVILEGE) AS WHERE ins_D.ins_discipline_key = ins_SG.ins_discipline_key; -CREATE_VIEW(all_v_srtgroep_gegevens,INS_BIBLIOTHEEK_PRIVILEGE) AS +CREATE_VIEW(all_v_srtgroep_gegevens,0) AS SELECT ins_D.ins_discipline_key, ins_D.ins_discipline_omschrijving, ins_SG.ins_srtgroep_key, ins_SG.ins_srtgroep_omschrijving, ins_SG.ins_srtgroep_upper, ins_SG.ins_srtgroep_module @@ -86,7 +84,7 @@ CREATE_VIEW(all_v_srtgroep_gegevens,INS_BIBLIOTHEEK_PRIVILEGE) AS WHERE ins_D.ins_discipline_key = ins_SG.ins_discipline_key; -CREATE_VIEW(ins_v_srtdeel_gegevens,INS_BIBLIOTHEEK_PRIVILEGE) AS +CREATE_VIEW(ins_v_srtdeel_gegevens,0) AS SELECT ins_D.ins_discipline_key, ins_D.ins_discipline_omschrijving, ins_SG.ins_srtgroep_key, ins_SG.ins_srtgroep_omschrijving, ins_SG.ins_srtgroep_upper, ins_SD.ins_srtdeel_key, @@ -101,7 +99,7 @@ CREATE_VIEW(ins_v_srtdeel_gegevens,INS_BIBLIOTHEEK_PRIVILEGE) AS ins_SG.ins_srtgroep_key = ins_SD.ins_srtgroep_key AND ins_D.ins_discipline_key = ins_SG.ins_discipline_key; -CREATE_VIEW(all_v_srtdeel_gegevens,INS_BIBLIOTHEEK_PRIVILEGE) AS +CREATE_VIEW(all_v_srtdeel_gegevens,0) AS SELECT ins_D.ins_discipline_key, ins_D.ins_discipline_omschrijving, ins_SG.ins_srtgroep_key, ins_SG.ins_srtgroep_omschrijving, ins_SG.ins_srtgroep_upper, ins_SD.ins_srtdeel_key, @@ -115,7 +113,7 @@ CREATE_VIEW(all_v_srtdeel_gegevens,INS_BIBLIOTHEEK_PRIVILEGE) AS ins_D.ins_discipline_key = ins_SG.ins_discipline_key; -CREATE_VIEW(ins_v_alg_overzicht,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_alg_overzicht,0) ( alg_onroerendgoed_keys , alg_onroerendgoed_type , alg_plaatsaanduiding @@ -222,7 +220,7 @@ CREATE_VIEW(ins_v_alg_overzicht,INS_NORMAAL_PRIVILEGE) -- omdat deze in de ins_v_deel.. views gebruikt wordt -- maar prs-views pas later worden aangemaakt. -- -CREATE_VIEW (prs_v_afdeling_perslid,PRS_NORMAAL_PRIVILEGE) +CREATE_VIEW (prs_v_afdeling_perslid,0) ( prs_roerendgoed_key , prs_roerendgoed_type , prs_afdeling_key @@ -235,7 +233,7 @@ CREATE_VIEW (prs_v_afdeling_perslid,PRS_NORMAAL_PRIVILEGE) AS SELECT to_number(null),null,to_number(null),null,null,to_number(null),null,null FROM DUAL; -CREATE_VIEW(ins_v_deel_gegevens,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_deel_gegevens,0) ( ins_discipline_key , ins_discipline_omschrijving , ins_srtgroep_key @@ -397,7 +395,7 @@ AS SELECT INS_D.ins_discipline_key * komt te staan. */ -CREATE_VIEW(ins_v_orgdeel_gegevens,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_orgdeel_gegevens,0) ( ins_discipline_key , ins_discipline_omschrijving , ins_srtgroep_key @@ -556,7 +554,7 @@ SELECT INS_D.ins_discipline_key AND INS_D.ins_discipline_key = INS_DE.ins_discipline_key AND INS_DE.ins_discipline_key IN (SELECT ins_discipline_key FROM ins_discipline); -CREATE_VIEW(ins_v_deel_gegevens_keys,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_deel_gegevens_keys,0) ( alg_locatie_key ,alg_gebouw_key,alg_verdieping_key,alg_ruimte_key,prs_werkplek_key,alg_terreinsector_key @@ -593,7 +591,7 @@ where ((de.ins_alg_ruimte_key = pl.prs_perslid_key) and de.ins_alg_ruimte_type and ((pl.prs_afdeling_key = af.prs_afdeling_key) and de.ins_alg_ruimte_type = 'P'); -- Delen EN onderdelen (FSN#802) -CREATE_VIEW(ins_v_xdeel_gegevens_keys,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_xdeel_gegevens_keys,0) ( ins_discipline_key,ins_srtgroep_key,ins_srtdeel_key,alg_locatie_key ,alg_gebouw_key,alg_verdieping_key,alg_ruimte_key,prs_werkplek_key,alg_terreinsector_key @@ -658,7 +656,7 @@ and de.ins_deel_module = 'INS' and de.ins_deel_verwijder IS NULL; -- FSN#14846: Uitgeleende objecten -CREATE_VIEW(ins_v_orgdeel_gegevens_keys,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_orgdeel_gegevens_keys,0) (INS_DISCIPLINE_KEY, INS_SRTGROEP_KEY, INS_SRTDEEL_KEY, ALG_LOCATIE_KEY, ALG_GEBOUW_KEY, ALG_VERDIEPING_KEY, ALG_RUIMTE_KEY, PRS_WERKPLEK_KEY, ALG_TERREINSECTOR_KEY, PRS_AFDELING_KEY, PRS_PERSLID_KEY, INS_DEEL_KEY) @@ -720,7 +718,7 @@ and ((pl.prs_afdeling_key = af.prs_afdeling_key) and de.ins_alg_ruimte_type_org and de.ins_deel_module = 'INS' and de.ins_deel_verwijder IS NULL; -CREATE_VIEW(ins_v_onderdeel_gegevens,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_onderdeel_gegevens,0) ( ins_discipline_key , ins_srtgroep_key , ins_srtdeel_key @@ -822,7 +820,7 @@ AS SELECT INS_D.ins_discipline_key View met alle sleutels van de gemeenschappelijke sequence ins_s_ins_srtinst_keys */ -CREATE_VIEW(ins_v_srtinst,INS_BIBLIOTHEEK_PRIVILEGE) (ins_srtinst_keys, +CREATE_VIEW(ins_v_srtinst,0) (ins_srtinst_keys, ins_srtdeel_key, ins_srtonderdeel_key, ins_srtelement_key, @@ -835,7 +833,7 @@ CREATE_VIEW(ins_v_srtinst,INS_BIBLIOTHEEK_PRIVILEGE) (ins_srtinst_keys, FROM ins_v_aanwezigsrtdeel; -CREATE_VIEW(ins_v_allsrtinst,INS_BIBLIOTHEEK_PRIVILEGE) (ins_srtinst_keys, +CREATE_VIEW(ins_v_allsrtinst,0) (ins_srtinst_keys, ins_srtdeel_key, ins_srtonderdeel_key, ins_srtelement_key, @@ -848,7 +846,7 @@ CREATE_VIEW(ins_v_allsrtinst,INS_BIBLIOTHEEK_PRIVILEGE) (ins_srtinst_keys, FROM ins_srtdeel; /* 17-01-96 */ -CREATE_VIEW(ins_v_srtinst_discipline,INS_BIBLIOTHEEK_PRIVILEGE) AS +CREATE_VIEW(ins_v_srtinst_discipline,0) AS SELECT INS_SI.ins_srtinst_keys, INS_SG.ins_srtgroep_key, INS_SG.ins_srtgroep_omschrijving, INS_SG.ins_srtgroep_upper, INS_D.ins_discipline_key, @@ -863,7 +861,7 @@ CREATE_VIEW(ins_v_srtinst_discipline,INS_BIBLIOTHEEK_PRIVILEGE) AS // 'INS' en 'INV'. INS_V_MODULE heeft de waardes 'INS', 'INV' en 'ALL' // 'ALL' is voor de onroerendgoed-zaken die in beide modules gebruikt kunnen // worden. -CREATE_VIEW(ins_v_alg_onroerendgoed, INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_alg_onroerendgoed, 0) (ins_v_module, alg_onrgoed_keys, alg_onrgoed_type, @@ -919,7 +917,7 @@ SELECT 'INS', FROM alg_v_aanwezigterreinsector; -CREATE_VIEW(ins_v_ins_import_deel, INS_BASIS_PRIVILEGE) +CREATE_VIEW(ins_v_ins_import_deel,0) AS SELECT INS_D.ins_deel_key, INS_D.ins_deel_omschrijving, @@ -948,12 +946,12 @@ WHERE INS_SD.ins_srtdeel_upper NOT IN (SELECT INS_D.ins_deel_upper /* Views voor INS_KENMERK-zaken */ DEFINIEER_VIEW_AANWEZIG(ins_srtkenmerk, ins_srtkenmerk_verwijder, - ins_v_aanwezigsrtkenmerk,INS_BIBLIOTHEEK_PRIVILEGE); + ins_v_aanwezigsrtkenmerk,0); DEFINIEER_VIEW_AANWEZIG(ins_kenmerk, ins_kenmerk_verwijder, - ins_v_aanwezigkenmerk,INS_BIBLIOTHEEK_PRIVILEGE); + ins_v_aanwezigkenmerk,0); -CREATE_VIEW(ins_v_srtkenmerk_gegevens, INS_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(ins_v_srtkenmerk_gegevens, 0) AS SELECT INS_SK.ins_srtkenmerk_key, INS_SK.ins_srtkenmerk_omschrijving, @@ -969,7 +967,7 @@ AS FROM ins_srtkenmerk INS_SK, ins_refsrtkenmerk INS_RSK WHERE INS_SK.ins_refsrtkenmerk_key = INS_RSK.ins_refsrtkenmerk_key (+); -CREATE_VIEW(ins_v_srtdeel_kenmerk, INS_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(ins_v_srtdeel_kenmerk, 0) (ins_kenmerk_key, ins_srtkenmerk_key, ins_srtinstallatie_key, @@ -1102,7 +1100,7 @@ CREATE_VIEW(ins_v_srtdeel_kenmerk, INS_BIBLIOTHEEK_PRIVILEGE) AND (INS_D.ins_discipline_key = INS_K.ins_srtinstallatie_key OR INS_K.ins_srtinstallatie_key IS NULL); -CREATE_VIEW(ins_v_kenmerk_gegevens, INS_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(ins_v_kenmerk_gegevens, 0) (ins_kenmerk_key, ins_srtkenmerk_key, ins_kenmerk_niveau, @@ -1257,9 +1255,9 @@ CREATE_VIEW(ins_v_kenmerk_gegevens, INS_BIBLIOTHEEK_PRIVILEGE) AND INS_K.ins_srtinstallatie_key IS NULL; DEFINIEER_VIEW_AANWEZIG(ins_kenmerkdeel, ins_kenmerkdeel_verwijder, -ins_v_aanwezigkenmerkdeel, INS_NORMAAL_PRIVILEGE); +ins_v_aanwezigkenmerkdeel, 0); -CREATE_VIEW(ins_v_srtdeel_kenmerkdeel, INS_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(ins_v_srtdeel_kenmerkdeel, 0) (INS_KENMERK_KEY, INS_DEEL_KEY, INS_KENMERKDEEL_WAARDE) AS SELECT idsk.ins_kenmerk_key, idsk.ins_deel_key, ins_kd.ins_kenmerkdeel_waarde @@ -1270,7 +1268,7 @@ SELECT idsk.ins_kenmerk_key, idsk.ins_deel_key, WHERE idsk.ins_deel_key = ins_kd.ins_deel_key(+) AND idsk.ins_kenmerk_key = ins_kd.ins_kenmerk_key(+); -CREATE_VIEW(ins_v_srtdeel_kenmerk_keys,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_srtdeel_kenmerk_keys,0) AS SELECT ins_k.ins_kenmerk_key, ins_k.ins_srtinstallatie_key ins_srtdeel_key FROM ins_v_aanwezigkenmerk ins_k @@ -1289,7 +1287,7 @@ AS AND ins_sd.ins_srtgroep_key = ins_sg.ins_srtgroep_key AND ins_sg.ins_discipline_key = ins_k.ins_srtinstallatie_key; -CREATE_VIEW(ins_v_deelkoppeling_gegevens,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_deelkoppeling_gegevens,0) ( ins_deelkoppeling_key, ins_deelkoppeling_van_key, @@ -1325,7 +1323,7 @@ AS INS_DE1.ins_deel_parent_key IS NULL AND INS_DE2.ins_deel_parent_key IS NULL; -CREATE_VIEW(ins_v_deel_onderdeel,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_deel_onderdeel,0) ( ins_deel_key, ins_deel_omschrijving, ins_onderdeel_key, ins_onderdeel_omschrijving, @@ -1346,9 +1344,9 @@ UNION FROM ins_v_aanwezigdeel D; DEFINIEER_VIEW_AANWEZIG(ins_compositie, ins_compositie_verwijder, - ins_v_aanwezigcompositie,INS_BIBLIOTHEEK_PRIVILEGE); + ins_v_aanwezigcompositie,0); -CREATE_VIEW(ins_v_compositie_gegevens,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_compositie_gegevens,0) (ins_srtdeel_comp_key, ins_compositie_key, ins_compositie_naam, @@ -1367,9 +1365,9 @@ CREATE_VIEW(ins_v_compositie_gegevens,INS_NORMAAL_PRIVILEGE) DEFINIEER_VIEW_AANWEZIG(ins_refsrtkenmerk, ins_refsrtkenmerk_verwijder, - ins_v_aanwezigrefsrtkenmerk,INS_NORMAAL_PRIVILEGE); + ins_v_aanwezigrefsrtkenmerk,0); -CREATE_VIEW(ins_v_deel_plaatsaanduiding_r,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_deel_plaatsaanduiding_r,0) ( alg_plaatsaanduiding , prs_werkplek_key , prs_werkplek_verwijder @@ -1399,7 +1397,7 @@ AS SELECT ALG_L.alg_locatie_code ||' - ' AND ALG_G.alg_locatie_key = ALG_L.alg_locatie_key ; -CREATE_VIEW(ins_v_deel_plaatsaanduiding_w,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_deel_plaatsaanduiding_w,0) ( alg_plaatsaanduiding , prs_werkplek_key , prs_werkplek_verwijder @@ -1432,14 +1430,14 @@ AS SELECT ALG_L.alg_locatie_code ||' - ' AND ALG_G.alg_locatie_key = ALG_L.alg_locatie_key ; -CREATE_VIEW(ins_v_deel_plaatsaanduiding,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW(ins_v_deel_plaatsaanduiding,0) AS SELECT * FROM ins_v_deel_plaatsaanduiding_r UNION SELECT * FROM ins_v_deel_plaatsaanduiding_w; -CREATE_VIEW (ins_v_ins_deel_verdieping,INS_NORMAAL_PRIVILEGE) +CREATE_VIEW (ins_v_ins_deel_verdieping,0) ( ins_deel_key , alg_verdieping_key) AS SELECT INS_D.ins_deel_key, @@ -1460,13 +1458,13 @@ AS SELECT INS_D.ins_deel_key, AND ins_alg_ruimte_type = 'W' AND ins_deel_verwijder IS NULL; -/* FAC-privilege, is primair voor MapGuide/WEB module */ -CREATE_VIEW (ins_v_deel_acadsymbol, FAC_NORMAAL_PRIVILEGE) +CREATE_VIEW (ins_v_deel_acadsymbol,0) ( ins_deel_key, ins_srtdeel_acadsymbol ) AS SELECT ins_deel_key, ins_srtdeel_acadsymbol FROM ins_deel, ins_srtdeel WHERE ins_deel.ins_srtdeel_key = ins_srtdeel.ins_srtdeel_key; +REGISTERRUN('$Workfile: INS_VIE.SRC $','$Revision: 68 $') #endif // INS diff --git a/MLD/MLD_IND.SRC b/MLD/MLD_IND.SRC index 2cd07f53..d1286f47 100644 --- a/MLD/MLD_IND.SRC +++ b/MLD/MLD_IND.SRC @@ -1,7 +1,7 @@ #ifdef MLD // 13-03-96 AH /* - * $Revision: 20 $ - * $Modtime: 11-05-10 18:17 $ + * $Revision: 21 $ + * $Modtime: 6-09-10 15:53 $ */ create index mld_i_mld_melding1 on mld_melding(mld_melding_module); @@ -58,4 +58,6 @@ CREATE INDEX mld_i_mld_melding_object1 ON mld_melding_object(mld_melding_key); CREATE UNIQUE INDEX mld_i_mld_opdruren_kosten1 ON mld_opdruren_kosten(mld_opdr_uren_key,mld_kosten_key); CREATE UNIQUE INDEX mld_i_mld_opdr_uren1 ON mld_opdr_uren(mld_opdr_uren_datum,mld_opdr_key,mld_impropdr_key,prs_perslid_key); +REGISTERONCE('$Workfile: MLD_IND.SRC $','$Revision: 21 $') + #endif // MLD diff --git a/MLD/MLD_INI.SRC b/MLD/MLD_INI.SRC index dbd6488a..c4ca688f 100644 --- a/MLD/MLD_INI.SRC +++ b/MLD/MLD_INI.SRC @@ -1,7 +1,7 @@ #ifdef MLD // 13-03-96 AH /* - * $Revision: 17 $ - * $Modtime: 30-01-10 0:09 $ + * $Revision: 18 $ + * $Modtime: 6-09-10 15:52 $ */ /* Installation of modules should fill or update this one */ @@ -48,4 +48,6 @@ insert into mld_statuses (mld_statuses_key, mld_statuses_omschrijving) values ( insert into mld_statuses (mld_statuses_key, mld_statuses_omschrijving) values ( 7, 'Uitgegeven'); insert into mld_statuses (mld_statuses_key, mld_statuses_omschrijving) values ( 0, 'Pending' ); +REGISTERONCE('$Workfile: MLD_INI.SRC $','$Revision: 18 $') + #endif // MLD diff --git a/MLD/MLD_PAC.SRC b/MLD/MLD_PAC.SRC index 8b9959de..2529fc1c 100644 --- a/MLD/MLD_PAC.SRC +++ b/MLD/MLD_PAC.SRC @@ -1,12 +1,10 @@ #ifdef MLD /* - * $Revision: 65 $ - * $Modtime: 17-08-10 17:13 $ - * + * $Revision: 66 $ + * $Modtime: 6-09-10 15:53 $ */ #undef TRUNC -#undef BIGINT CREATE OR REPLACE PACKAGE Mld AS PROCEDURE updatemeldingstatus (meldingkey IN NUMBER, @@ -958,7 +956,7 @@ BEGIN END IF; RETURN s; END; -FUNCTION opdrsprintf (ps IN varchar, p_opdr_key IN number) +FUNCTION opdrsprintf (ps IN varchar2, p_opdr_key IN number) RETURN varchar2 IS s varchar2 (2048 CHAR); @@ -1060,4 +1058,6 @@ END; END mld; / +REGISTERRUN('$Workfile: MLD_PAC.SRC $','$Revision: 66 $') + #endif // MLD diff --git a/MLD/MLD_SEQ.SRC b/MLD/MLD_SEQ.SRC index f8378996..45125200 100644 --- a/MLD/MLD_SEQ.SRC +++ b/MLD/MLD_SEQ.SRC @@ -1,7 +1,6 @@ #ifdef MLD // 13-03-96 AH - -/* $Revision: 15 $ - * $Modtime: 7-05-10 11:24 $ +/* $Revision: 16 $ + * $Modtime: 6-09-10 15:53 $ */ CREATE SEQUENCE mld_s_mld_disc_params_key MINVALUE 1; @@ -34,4 +33,8 @@ CREATE SEQUENCE mld_s_mld_melding_note_key MINVALUE 1; CREATE SEQUENCE mld_s_mld_opdr_uren_key MINVALUE 1; CREATE SEQUENCE mld_s_mld_impropdr_key MINVALUE 1; CREATE SEQUENCE mld_s_mld_opdruren_kosten_key MINVALUE 1; +CREATE SEQUENCE mld_s_mld_kosten_key MINVALUE 10; + +REGISTERONCE('$Workfile: MLD_SEQ.SRC $','$Revision: 16 $') + #endif // MLD diff --git a/MLD/MLD_TAB.SRC b/MLD/MLD_TAB.SRC index 5f5d6262..d54cfd94 100644 --- a/MLD/MLD_TAB.SRC +++ b/MLD/MLD_TAB.SRC @@ -1,9 +1,7 @@ #ifdef MLD // 13-03-96 AH - -/* $Revision: 132 $ - * $Modtime: 19-08-10 13:45 $ +/* $Revision: 133 $ + * $Modtime: 6-09-10 15:54 $ */ -#include "comsql.h" /* fac_activiteit_key verwijst optioneel naar een activiteit en daarmee mld_opdr, waarmee * aangegeven kan worden dat automatisch na een melding van deze discipline zo'n opdracht moet @@ -483,11 +481,9 @@ CREATE_TABLE(mld_melding,0) CONSTRAINT mld_r_mld_melding_key4 REFERENCES mld_melding(mld_melding_key) ); -[skip] COMMENT ON COLUMN mld_workflowrule.mld_workflowrule_result IS '0 is failure/rejection, 1 is success'; COMMENT ON COLUMN mld_melding.mld_workflowstep_key IS 'references the workflow step that this melding corresponds to'; COMMENT ON COLUMN mld_melding.mld_melding_start_key IS 'references the initiating mld_melding if this is a workflow step'; -[/skip] CREATE_TABLE(mld_opdr,0) @@ -910,4 +906,6 @@ CREATE_TABLE(mld_opdruren_kosten, 0) NUMBER(5,2) NOT NULL ); +REGISTERONCE('$Workfile: MLD_TAB.SRC $','$Revision: 133 $') + #endif // MLD diff --git a/MLD/MLD_TRI.SRC b/MLD/MLD_TRI.SRC index c3990917..c3f5994b 100644 --- a/MLD/MLD_TRI.SRC +++ b/MLD/MLD_TRI.SRC @@ -1,9 +1,8 @@ #ifdef MLD // 13-03-96 AH /* - * $Revision: 79 $ - * $Modtime: 27-05-10 14:12 $ + * $Revision: 80 $ + * $Modtime: 6-09-10 15:54 $ */ -#include "comsql.h" CREATE_TRIGGER(mld_t_mld_disc_params_b_iu) BEFORE INSERT OR UPDATE ON mld_disc_params @@ -465,26 +464,13 @@ BEGIN END IF; -- BEGIN -#ifdef MS_SQL - DECLARE isnum smallint; - isnum := WEB.IsNumberString(@KenmerkMeldingWaarde) - if isnum = -1 GOTO lcontinue - if isnum = 0 BEGIN - FormatMask := REPLACE(FormatMask, '9', '#'); - FormatMask := REPLACE(FormatMask, '0', '#'); - FormatMask := REPLACE(FormatMask, 'D', '.'); - APPLICATION_ERROR_GOTO(-20004,'mld_m242,'||SrtKenmerkOmschr||','||FormatMask); - END; -#endif NumberWaarde := TO_NUMBER(KenmerkMeldingWaarde); -#ifndef MS_SQL EXCEPTION WHEN OTHERS THEN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); raise_application_error(-20004,'mld_m242,'||SrtKenmerkOmschr||','||FormatMask); -#endif END; -- Controleer of de waarde binnen NMin en NMax ligt. IF (SrtKenmerkNMin IS NOT NULL AND NumberWaarde < SrtKenmerkNMin) @@ -509,23 +495,11 @@ BEGIN ELSIF SrtKenmerkType = 'D' THEN -- DATUM -#ifdef MS_SQL - DECLARE isdat smallint; - isdat := WEB.IsDateString(@KenmerkMeldingWaarde,'DD-MM-YYYY') - if isdat = -1 GOTO lcontinue - if isdat = 0 BEGIN - FormatMask := 'DD-MM-YYYY'; - APPLICATION_ERROR_GOTO(-20004,'mld_m242,'||SrtKenmerkOmschr||','||FormatMask); - END; -#endif KenmerkMeldingWaarde := DATE_TO_CHAR(_TO_DATE2(KenmerkMeldingWaarde,'DD-MM-YY'),'DD-MM-YYYY'); -- Zet de geconverteerde waarde terug. :new.mld_kenmerkmelding_waarde := KenmerkMeldingWaarde; END IF; END; -#ifdef MS_SQL -lcontinue: -#endif END IF; END; / @@ -607,26 +581,13 @@ BEGIN END IF; -- BEGIN -#ifdef MS_SQL - DECLARE isnum smallint; - isnum := WEB.IsNumberString(@KenmerkOpdrWaarde) - if isnum = -1 GOTO lcontinue - if isnum = 0 BEGIN - FormatMask := REPLACE(FormatMask, '9', '#'); - FormatMask := REPLACE(FormatMask, '0', '#'); - FormatMask := REPLACE(FormatMask, 'D', '.'); - APPLICATION_ERROR_GOTO(-20004,'mld_m242,'||SrtKenmerkOmschr||','||FormatMask); - END; -#endif NumberWaarde := TO_NUMBER(KenmerkOpdrWaarde); -#ifndef MS_SQL EXCEPTION WHEN OTHERS THEN FormatMask := REPLACE(FormatMask, '9', '#'); FormatMask := REPLACE(FormatMask, '0', '#'); FormatMask := REPLACE(FormatMask, 'D', '.'); raise_application_error(-20004,'mld_m242,'||SrtKenmerkOmschr||','||FormatMask); -#endif END; -- Controleer of de waarde binnen NMin en NMax ligt. IF (SrtKenmerkNMin IS NOT NULL AND NumberWaarde < SrtKenmerkNMin) @@ -651,23 +612,11 @@ BEGIN ELSIF SrtKenmerkType = 'D' THEN -- DATUM -#ifdef MS_SQL - DECLARE isdat smallint; - isdat := WEB.IsDateString(@KenmerkOpdrWaarde,'DD-MM-YYYY') - if isdat = -1 GOTO lcontinue - if isdat = 0 BEGIN - FormatMask := 'DD-MM-YYYY'; - APPLICATION_ERROR_GOTO(-20004,'mld_m242,'||SrtKenmerkOmschr||','||FormatMask); - END; -#endif KenmerkOpdrWaarde := DATE_TO_CHAR(_TO_DATE2(KenmerkOpdrWaarde,'DD-MM-YY'),'DD-MM-YYYY'); -- Zet de geconverteerde waarde terug. :new.mld_kenmerkopdr_waarde := KenmerkOpdrWaarde; END IF; END; -#ifdef MS_SQL -lcontinue: -#endif END IF; END; / @@ -745,5 +694,6 @@ BEGIN END; / +REGISTERRUN('$Workfile: MLD_TRI.SRC $','$Revision: 80 $') #endif // MLD diff --git a/MLD/MLD_VIE.SRC b/MLD/MLD_VIE.SRC index efc9275f..9fad114a 100644 --- a/MLD/MLD_VIE.SRC +++ b/MLD/MLD_VIE.SRC @@ -1,12 +1,9 @@ #ifdef MLD // 13-03-96 AH - /* - * $Revision: 73 $ - * $Modtime: 10-02-10 17:27 $ + * $Revision: 74 $ + * $Modtime: 6-09-10 15:54 $ */ -#include "comsql.h" - CREATE_VIEW(MLD_discipline, 0) AS SELECT * FROM ALL_discipline WHERE ins_discipline_module = 'MLD'; @@ -621,4 +618,6 @@ AS AND m.mld_melding_key = o.mld_melding_key(+) AND m.mld_melding_datum >= TO_DATE ('01-01-2000', 'DD-MM-YYYY')); +REGISTERUN('$Workfile: MLD_VIE.SRC $','$Revision: 74 $') + #endif // MLD diff --git a/MRK/MRK_IND.SRC b/MRK/MRK_IND.SRC index 01dca546..303c1a9f 100644 --- a/MRK/MRK_IND.SRC +++ b/MRK/MRK_IND.SRC @@ -1,12 +1,9 @@ -#ifdef MRK - -/* - * $History: MRK_IND.SRC $ - * - * ***************** Version 1 ***************** - * User: Pf Date: 8-09-04 Time: 13:11 - * Created in $/Facilitor/SRC/SQL/MRK - * FSN#1054 +#ifdef MRK +/* + * $Revision: 2 $ + * $Modtime: 6-09-10 15:56 $ */ -#endif // MRK \ No newline at end of file +REGISTERONCE('$Workfile: MRK_IND.SRC $','$Revision: 2 $') + +#endif // MRK diff --git a/MRK/MRK_INI.SRC b/MRK/MRK_INI.SRC index 2720dc3c..4098e53d 100644 --- a/MRK/MRK_INI.SRC +++ b/MRK/MRK_INI.SRC @@ -1,25 +1,15 @@ #ifdef MRK - -/* - * $History: MRK_INI.SRC $ - * - * ***************** Version 3 ***************** - * User: Pf Date: 15-09-04 Time: 9:52 - * Updated in $/Facilitor/SRC/SQL/MRK - * - * ***************** Version 2 ***************** - * User: Pf Date: 8-09-04 Time: 13:35 - * Updated in $/Facilitor/SRC/SQL/MRK - * - * ***************** Version 1 ***************** - * User: Pf Date: 8-09-04 Time: 13:11 - * Created in $/Facilitor/SRC/SQL/MRK - * FSN#1054 +/* + * $Revision: 4 $ + * $Modtime: 6-09-10 15:57 $ */ + _FAC_MODULE('MRK','Facilitor Marktplaats') insert into ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('MRK', 'Aangeboden'); insert into ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('MRK', 'Gevraagd'); +REGISTERONCE('$Workfile: MRK_INI.SRC $','$Revision: 4 $') + #endif // MRK diff --git a/MRK/MRK_PAC.SRC b/MRK/MRK_PAC.SRC index 3a9d3f65..a15ff936 100644 --- a/MRK/MRK_PAC.SRC +++ b/MRK/MRK_PAC.SRC @@ -1,17 +1,10 @@ #ifdef MRK - -/* - * $History: MRK_PAC.SRC $ - * - * ***************** Version 2 ***************** - * User: Jgl Date: 9-11-04 Time: 14:32 - * Updated in $/Facilitor/SRC/SQL/MRK - * FSN#1069 - * - * ***************** Version 1 ***************** - * User: Pf Date: 8-09-04 Time: 13:11 - * Created in $/Facilitor/SRC/SQL/MRK - * FSN#1054 +/* + * $Revision: 3 $ + * $Modtime: 6-09-10 15:57 $ */ + +REGISTERRUN('$Workfile: MRK_PAC.SRC $','$Revision: 3 $') + #endif // MRK diff --git a/MRK/MRK_SEQ.SRC b/MRK/MRK_SEQ.SRC index 8bf25a4b..facd0e6d 100644 --- a/MRK/MRK_SEQ.SRC +++ b/MRK/MRK_SEQ.SRC @@ -1,14 +1,11 @@ #ifdef MRK // 03-11-2000 PF - -/* - * $History: MRK_SEQ.SRC $ - * - * ***************** Version 1 ***************** - * User: Pf Date: 8-09-04 Time: 13:11 - * Created in $/Facilitor/SRC/SQL/MRK - * FSN#1054 +/* + * $Revision: 2 $ + * $Modtime: 6-09-10 15:57 $ */ CREATE SEQUENCE mrk_s_mrk_bericht_key MINVALUE 1 NOCACHE; +REGISTERONCE('$Workfile: MRK_SEQ.SRC $','$Revision: 2 $') + #endif // MRK diff --git a/MRK/MRK_TAB.SRC b/MRK/MRK_TAB.SRC index 5fa1cf58..73fb9828 100644 --- a/MRK/MRK_TAB.SRC +++ b/MRK/MRK_TAB.SRC @@ -1,29 +1,9 @@ #ifdef MRK // 07-09-04 - -/* $History: MRK_TAB.SRC $ - * - * ***************** Version 4 ***************** - * User: Pf Date: 15-09-04 Time: 9:52 - * Updated in $/Facilitor/SRC/SQL/MRK - * - * ***************** Version 3 ***************** - * User: Pf Date: 8-09-04 Time: 13:35 - * Updated in $/Facilitor/SRC/SQL/MRK - * CONN#1054 - * - * ***************** Version 2 ***************** - * User: Pf Date: 8-09-04 Time: 13:29 - * Updated in $/Facilitor/SRC/SQL/MRK - * FSN#10543 - * - * ***************** Version 1 ***************** - * User: Pf Date: 8-09-04 Time: 13:11 - * Created in $/Facilitor/SRC/SQL/MRK - * FSN#1054 +/* + * $Revision: 5 $ + * $Modtime: 6-09-10 15:57 $ */ -#include "comsql.h" - CREATE_TABLE(mrk_bericht,0) ( mrk_bericht_key @@ -36,11 +16,11 @@ CREATE_TABLE(mrk_bericht,0) mrk_bericht_titel VARCHAR2(30) NOT_NULL(mrk_bericht_titel, mrk_c_mrk_bericht_titel), - mrk_bericht_omschrijving + mrk_bericht_omschrijving VARCHAR2(1000) NOT_NULL(mrk_bericht_omschrijving, mrk_c_mrk_bericht_omschrijving), - mrk_bericht_prijs - NUMBER(8,2), + mrk_bericht_prijs + NUMBER(8,2), mrk_bericht_aanmaak DATE DEFAULT SYSDATE @@ -50,4 +30,6 @@ CREATE_TABLE(mrk_bericht,0) NOT_NULL(ins_discipline_key, mrk_c_ins_discipline_key) CONSTRAINT mrk_r_ins_discipline_key1 REFERENCES ins_tab_discipline(ins_discipline_key)); -#endif // MRK \ No newline at end of file +REGISTERONCE('$Workfile: MRK_TAB.SRC $','$Revision: 5 $') + +#endif // MRK diff --git a/MRK/MRK_TRI.SRC b/MRK/MRK_TRI.SRC index 359c5437..d805a660 100644 --- a/MRK/MRK_TRI.SRC +++ b/MRK/MRK_TRI.SRC @@ -1,17 +1,9 @@ #ifdef MRK // - /* - * $History: MRK_TRI.SRC $ - * - * ***************** Version 1 ***************** - * User: Pf Date: 8-09-04 Time: 13:11 - * Created in $/Facilitor/SRC/SQL/MRK - * FSN#1054 - * + * $Revision: 2 $ + * $Modtime: 6-09-10 15:57 $ */ -#include "comsql.h" - CREATE_TRIGGER(mrk_t_mrk_bericht_b_iu) BEFORE INSERT OR UPDATE ON mrk_bericht @@ -21,5 +13,6 @@ BEGIN END; / +REGISTERRUN('$Workfile: MRK_TRI.SRC $','$Revision: 2 $') #endif // MRK diff --git a/MRK/MRK_VIE.SRC b/MRK/MRK_VIE.SRC index ae40064e..e927112b 100644 --- a/MRK/MRK_VIE.SRC +++ b/MRK/MRK_VIE.SRC @@ -1,30 +1,17 @@ #ifdef MRK - -/* - * $History: MRK_VIE.SRC $ - * - * ***************** Version 3 ***************** - * User: Jgl Date: 9-11-04 Time: 14:32 - * Updated in $/Facilitor/SRC/SQL/MRK - * FSN#1069 - * - * ***************** Version 2 ***************** - * User: Pf Date: 8-09-04 Time: 13:58 - * Updated in $/Facilitor/SRC/SQL/MRK - * FSN#1054 - * - * ***************** Version 1 ***************** - * User: Pf Date: 8-09-04 Time: 13:11 - * Created in $/Facilitor/SRC/SQL/MRK - * FSN#1054 +/* + * $Revision: 4 $ + * $Modtime: 6-09-10 15:57 $ */ -CREATE_VIEW(mrk_discipline, FAC_BIBLIOTHEEK_PRIVILEGE) + +CREATE_VIEW(mrk_discipline, 0) AS SELECT * FROM all_discipline WHERE ins_discipline_module = 'MRK'; DEFINIEER_VIEW_AANWEZIG(mrk_discipline, ins_discipline_verwijder, - mrk_v_aanwezigdiscipline, FAC_BIBLIOTHEEK_PRIVILEGE); + mrk_v_aanwezigdiscipline, 0); +REGISTERRUN('$Workfile: MRK_VIE.SRC $','$Revision: 4 $') #endif // MRK diff --git a/MSG/MSG_IND.SRC b/MSG/MSG_IND.SRC index 0088b523..359711b7 100644 --- a/MSG/MSG_IND.SRC +++ b/MSG/MSG_IND.SRC @@ -1,7 +1,9 @@ #ifdef MSG -/* $Revision: 1 $ - * $Modtime: 28-11-06 10:15 $ +/* $Revision: 2 $ + * $Modtime: 6-09-10 15:59 $ */ -#endif // MSG \ No newline at end of file +REGISTERONCE('$Workfile: msg_IND.SRC $','$Revision: 2 $') + +#endif // MSG diff --git a/MSG/MSG_INI.SRC b/MSG/MSG_INI.SRC index c34ee64b..0b79324b 100644 --- a/MSG/MSG_INI.SRC +++ b/MSG/MSG_INI.SRC @@ -1,9 +1,11 @@ #ifdef MSG -/* $Revision: 1 $ - * $Modtime: 28-11-06 10:15 $ +/* $Revision: 2 $ + * $Modtime: 6-09-10 15:59 $ */ _FAC_MODULE('MSG','Facilitor Messenger') +REGISTERONCE('$Workfile: msg_INI.SRC $','$Revision: 2 $') + #endif // MSG diff --git a/MSG/MSG_PAC.SRC b/MSG/MSG_PAC.SRC index 06775efa..5ae69b56 100644 --- a/MSG/MSG_PAC.SRC +++ b/MSG/MSG_PAC.SRC @@ -1,7 +1,8 @@ #ifdef MSG - -/* $Revision: 1 $ - * $Modtime: 28-11-06 9:57 $ +/* $Revision: 2 $ + * $Modtime: 6-09-10 15:59 $ */ +REGISTERRUN('$Workfile: msg_PAC.SRC $','$Revision: 2 $') + #endif // MSG diff --git a/MSG/MSG_SEQ.SRC b/MSG/MSG_SEQ.SRC index a0deab00..44046e32 100644 --- a/MSG/MSG_SEQ.SRC +++ b/MSG/MSG_SEQ.SRC @@ -1,9 +1,10 @@ #ifdef MSG // 28-11-2006 10:01 - -/* $Revision: 1 $ - * $Modtime: 28-11-06 9:56 $ +/* $Revision: 2 $ + * $Modtime: 6-09-10 15:59 $ */ CREATE SEQUENCE msg_s_msg_message_key MINVALUE 1; +REGISTERONCE('$Workfile: msg_SEQ.SRC $','$Revision: 2 $') + #endif // MSG diff --git a/MSG/MSG_TAB.SRC b/MSG/MSG_TAB.SRC index 94a366ee..bf65326f 100644 --- a/MSG/MSG_TAB.SRC +++ b/MSG/MSG_TAB.SRC @@ -1,20 +1,17 @@ #ifdef MSG // 28-11-2006 9:54 - -/* $Revision: 2 $ - * $Modtime: 6-11-07 11:30 $ +/* $Revision: 3 $ + * $Modtime: 6-09-10 15:59 $ */ -#include "comsql.h" - CREATE_TABLE(msg_message, 0) ( msg_message_key NUMBER(10) PRIMARY KEY, prs_perslid_key - NUMBER(10) + NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE, msg_message_replykey - NUMBER(10) + NUMBER(10) REFERENCES msg_message(msg_message_key), msg_message_oms VARCHAR2(2000), @@ -29,5 +26,6 @@ CREATE_TABLE(msg_message, 0) DEFAULT SYSDATE ); +REGISTERONCE('$Workfile: msg_TAB.SRC $','$Revision: 3 $') -#endif // MSG \ No newline at end of file +#endif // MSG diff --git a/MSG/MSG_TRI.SRC b/MSG/MSG_TRI.SRC index 37c59bfc..63c90c52 100644 --- a/MSG/MSG_TRI.SRC +++ b/MSG/MSG_TRI.SRC @@ -1,11 +1,8 @@ #ifdef MSG // 28-11-2006 10:02 - -/* $Revision: 1 $ - * $Modtime: 28-11-06 9:57 $ +/* $Revision: 2 $ + * $Modtime: 6-09-10 15:59 $ */ -#include "comsql.h" - CREATE_TRIGGER(msg_t_msg_message_B_IU) BEFORE INSERT OR UPDATE ON msg_message FOR EACH ROW @@ -14,4 +11,6 @@ BEGIN END; / +REGISTERRUN('$Workfile: msg_TRI.SRC $','$Revision: 2 $') + #endif // MSG diff --git a/MSG/MSG_VIE.SRC b/MSG/MSG_VIE.SRC index 06775efa..77b6b594 100644 --- a/MSG/MSG_VIE.SRC +++ b/MSG/MSG_VIE.SRC @@ -1,7 +1,9 @@ #ifdef MSG -/* $Revision: 1 $ - * $Modtime: 28-11-06 9:57 $ +/* $Revision: 2 $ + * $Modtime: 6-09-10 16:00 $ */ +REGISTERRUN('$Workfile: msg_VIE.SRC $','$Revision: 2 $') + #endif // MSG diff --git a/PRJ/PRJ_IND.SRC b/PRJ/PRJ_IND.SRC index af4257e6..798cdaa3 100644 --- a/PRJ/PRJ_IND.SRC +++ b/PRJ/PRJ_IND.SRC @@ -1,8 +1,7 @@ #ifdef PRJ /* PRJ_IND.SRC - * - * $Revision: 6 $ - * $Modtime: 8-02-08 10:17 $ + * $Revision: 7 $ + * $Modtime: 6-09-10 16:02 $ */ create index prj_i_prj_scenario1 on prj_scenario(mld_melding_key); @@ -19,5 +18,6 @@ create index prj_i_prj_deel1 on prj_deel(ins_srtdeel_key); create index prj_i_prj_deel2 on prj_deel(ins_deel_key); create index prj_i_prj_deel3 on prj_deel(prj_ruimte_key, prj_werkplek_key); +REGISTERONCE('$Workfile: Prj_ind.src $','$Revision: 7 $') #endif // PRJ diff --git a/PRJ/PRJ_INI.SRC b/PRJ/PRJ_INI.SRC index e707f291..d90112dc 100644 --- a/PRJ/PRJ_INI.SRC +++ b/PRJ/PRJ_INI.SRC @@ -1,36 +1,44 @@ #ifdef PRJ -/* $Revision: 10 $ - * $Modtime: 22-06-06 9:58 $ +/* $Revision: 12 $ + * $Modtime: 6-09-10 16:01 $ */ -#include "comsql.h" _FAC_MODULE('PRJ','Projecten') -BEGIN - DECLARE - legenda_key cad_legenda.cad_legenda_key%TYPE; - BEGIN - INSERT INTO cad_legenda (cad_legenda_omschrijving, cad_legenda_discreet) VALUES ('Default project legenda', 1); - SELECT cad_legenda_key INTO legenda_key FROM cad_legenda - WHERE cad_legenda_omschrijving = 'Default project legenda'; +INSERT INTO cad_legenda (cad_legenda_omschrijving, cad_legenda_discreet) VALUES ('Default project legenda', 1); - INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type) - VALUES ('Bezetting: Aantal werkplekken', legenda_key, 'prj_v_cad_thema_aantalwp', '5'); - INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type) - VALUES ('Gebruik: Ruimtefunctie', legenda_key, 'prj_v_cad_thema_srtruimte', '5'); - INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type) - VALUES ('Bezetting: Afdeling', legenda_key, 'prj_v_cad_thema_afdeling', '5'); - INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type) - VALUES ('Oppervlakte: Gemiddeld/werkplek', legenda_key, 'prj_v_cad_thema_wpopp', '5'); - INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type) - VALUES ('Oppervlakte: Restoppervlak', legenda_key, 'prj_v_cad_thema_restopp', '5'); - INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type) - VALUES ('Onderhanden', legenda_key, 'prj_v_cad_thema_onderhanden', '5'); - END; -END -/ +INSERT INTO cad_thema + (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type) + SELECT 'Bezetting: Aantal werkplekken', cad_legenda_key, 'prj_v_cad_thema_aantalwp', '5' + FROM cad_legenda + WHERE cad_legenda_omschrijving = 'Default project legenda'; +INSERT INTO cad_thema + (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type) + SELECT 'Gebruik: Ruimtefunctie', cad_legenda_key, 'prj_v_cad_thema_srtruimte', '5' + FROM cad_legenda + WHERE cad_legenda_omschrijving = 'Default project legenda'; +INSERT INTO cad_thema + (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type) + SELECT 'Bezetting: Afdeling', cad_legenda_key, 'prj_v_cad_thema_afdeling', '5' + FROM cad_legenda + WHERE cad_legenda_omschrijving = 'Default project legenda'; +INSERT INTO cad_thema + (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type) + SELECT 'Oppervlakte: Gemiddeld/werkplek', cad_legenda_key, 'prj_v_cad_thema_wpopp', '5' + FROM cad_legenda + WHERE cad_legenda_omschrijving = 'Default project legenda'; +INSERT INTO cad_thema + (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type) + SELECT 'Oppervlakte: Restoppervlak', cad_legenda_key, 'prj_v_cad_thema_restopp', '5' + FROM cad_legenda + WHERE cad_legenda_omschrijving = 'Default project legenda'; +INSERT INTO cad_thema + (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type) + SELECT 'Onderhanden', cad_legenda_key, 'prj_v_cad_thema_onderhanden', '5' + FROM cad_legenda + WHERE cad_legenda_omschrijving = 'Default project legenda'; INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, cad_label_size) VALUES ('Werkplekken', 'prj_v_cad_label_werkplekken', '5', 420); @@ -39,4 +47,6 @@ INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, c INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, cad_label_size) VALUES ('Bewoners/werkplekken', 'prj_v_cad_label_bewonerwp', '5', 380); +REGISTERONCE('$Workfile: prj_ini.src $','$Revision: 12 $') + #endif // PRJ diff --git a/PRJ/PRJ_PAC.SRC b/PRJ/PRJ_PAC.SRC index 3fa0f37d..9dc38583 100644 --- a/PRJ/PRJ_PAC.SRC +++ b/PRJ/PRJ_PAC.SRC @@ -1,8 +1,7 @@ #ifdef PRJ /* PRJ_PAC.SRC - * - * $Revision: 59 $ - * $Modtime: 17-06-10 11:00 $ + * $Revision: 60 $ + * $Modtime: 6-09-10 16:01 $ */ /* CODE COMMENTS, CONSIDERATIONS @@ -25,8 +24,6 @@ en voor bestemming de prj keys (prj_ruimte etc) */ -#ifndef MS_SQL -[skip] CREATE OR REPLACE PACKAGE prj AS PROCEDURE prj_initiate_scenario (pscenariokey IN NUMBER, pverdiepingkey IN NUMBER); @@ -1244,6 +1241,7 @@ AS END prj_commit_scenario; END prj; / -[/skip] -#endif + +REGISTERRUN('$Workfile: Prj_pac.src $','$Revision: 60 $') + #endif // PRJ diff --git a/PRJ/PRJ_SEQ.SRC b/PRJ/PRJ_SEQ.SRC index 50de25be..a4d4593b 100644 --- a/PRJ/PRJ_SEQ.SRC +++ b/PRJ/PRJ_SEQ.SRC @@ -1,8 +1,7 @@ #ifdef PRJ /* PRJ_SEQ.SRC - * - * $Revision: 6 $ - * $Modtime: 6-11-08 14:47 $ + * $Revision: 7 $ + * $Modtime: 6-09-10 16:01 $ */ CREATE SEQUENCE prj_s_prj_scenario_key MINVALUE 1 NOCACHE; @@ -14,4 +13,6 @@ CREATE SEQUENCE prj_s_prj_perslidwerkplek_key MINVALUE 1 NOCACHE; CREATE SEQUENCE prj_s_prj_deel_key MINVALUE 1 NOCACHE; CREATE SEQUENCE prj_s_prj_selectie_key MINVALUE 1; +REGISTERONCE('$Workfile: Prj_seq.src $','$Revision: 7 $') + #endif // PRJ diff --git a/PRJ/PRJ_TAB.SRC b/PRJ/PRJ_TAB.SRC index 6279ea3c..410177fd 100644 --- a/PRJ/PRJ_TAB.SRC +++ b/PRJ/PRJ_TAB.SRC @@ -1,12 +1,10 @@ #ifdef PRJ /* PRJ_TAB.SRC * - * $Revision: 26 $ - * $Modtime: 5-11-09 17:34 $ + * $Revision: 27 $ + * $Modtime: 6-09-10 16:01 $ */ -#include "comsql.h" - /* Om een naam te kunnen geven aan een scenario en deze later weer op te kunnen roepen */ CREATE_TABLE(prj_scenario, 0) ( @@ -64,10 +62,7 @@ CREATE_TABLE(prj_ruimte, 0) NOT_NULL(prj_ruimte_nr, prj_c_alg_ruimte_nr), prj_ruimte_upper_nr VARCHAR2(10) -#ifndef MS_SQL - NOT_NULL(prj_ruimte_upper_nr, prj_c_alg_ruimte_upper_nr) -#endif -, + NOT_NULL(prj_ruimte_upper_nr, prj_c_alg_ruimte_upper_nr), prj_ruimte_omschrijving VARCHAR2(30), prj_ruimte_aanmaak @@ -307,4 +302,6 @@ CREATE_TABLE(prj_scenario_note, 0) ALTER TABLE cad_imp_contour ADD prj_scenario_key NUMBER(10) REFERENCES prj_scenario(prj_scenario_key) ON DELETE CASCADE; +REGISTERONCE('$Workfile: Prj_tab.src $','$Revision: 27 $') + #endif // PRJ diff --git a/PRJ/PRJ_TRI.SRC b/PRJ/PRJ_TRI.SRC index f8834b4b..43c13565 100644 --- a/PRJ/PRJ_TRI.SRC +++ b/PRJ/PRJ_TRI.SRC @@ -1,8 +1,7 @@ #ifdef PRJ /* PRJ_TRI.SRC - * - * $Revision: 15 $ - * $Modtime: 6-11-08 14:54 $ + * $Revision: 16 $ + * $Modtime: 6-09-10 16:01 $ */ CREATE_TRIGGER(prj_t_prj_scenario_b_iu) @@ -70,4 +69,6 @@ BEGIN END; / +REGISTERRUN('$Workfile: Prj_tri.src $','$Revision: 16 $') + #endif // PRJ diff --git a/PRJ/PRJ_VIE.SRC b/PRJ/PRJ_VIE.SRC index a2c483d2..cab22c9f 100644 --- a/PRJ/PRJ_VIE.SRC +++ b/PRJ/PRJ_VIE.SRC @@ -1,22 +1,19 @@ #ifdef PRJ /* PRJ_VIE.SRC * - * $Revision: 60 $ - * $Modtime: 14-04-09 12:10 $ + * $Revision: 61 $ + * $Modtime: 6-09-10 16:01 $ */ -#include "comsql.h" - - -- selecteer alle verdiepingen van een bepaald project -CREATE_VIEW(prj_v_alg_verdiepingen, PRJ_NORMAAL_PRIVILEGE) +CREATE_VIEW(prj_v_alg_verdiepingen,0) AS SELECT DISTINCT alg_verdieping_key, prj_scenario_key FROM prj_ruimte WHERE alg_verdieping_key IS NOT NULL; -- aanduiding ruimten van ALG -CREATE_VIEW(prj_v_alg_ruimte_aanduiding, PRJ_NORMAAL_PRIVILEGE) +CREATE_VIEW(prj_v_alg_ruimte_aanduiding,0) AS SELECT ALG_R.alg_ruimte_key , to_number(NULL) prj_scenario_key , ALG_G.alg_gebouw_code ||' - ' @@ -447,7 +444,6 @@ AS AND rx.prj_ruimte_key(+) = rax.prj_ruimte_key AND ra.prs_ruimteafdeling_verwijder IS NULL; +REGISTERRUN('$Workfile: Prj_vie.src $','$Revision: 61 $') + #endif // PRJ - - - diff --git a/RES/RES_IND.SRC b/RES/RES_IND.SRC index f68eb6fc..9cd8c8bc 100644 --- a/RES/RES_IND.SRC +++ b/RES/RES_IND.SRC @@ -1,8 +1,7 @@ #ifdef RES // 07-12-99 BIV - /* - * $Revision: 29 $ - * $Modtime: 17-12-09 19:24 $ + * $Revision: 30 $ + * $Modtime: 6-09-10 16:04 $ */ create index res_i_res_ruimte3 on res_ruimte(res_discipline_key); @@ -48,4 +47,7 @@ create index res_i_res_rsv_ruimte6 on res_rsv_ruimte(res_rsv_ruimte_van); CREATE UNIQUE INDEX res_i_res_disc_params1 ON res_disc_params(res_ins_discipline_key); CREATE UNIQUE INDEX res_i_res_activiteitdisc1 ON res_activiteitdiscipline(res_discipline_key, res_activiteit_key); + +REGISTERONCE('$Workfile: RES_IND.SRC $','$Revision: 30 $') + #endif // RES diff --git a/RES/RES_INI.SRC b/RES/RES_INI.SRC index 66f956b2..7a69a689 100644 --- a/RES/RES_INI.SRC +++ b/RES/RES_INI.SRC @@ -1,31 +1,19 @@ #ifdef RES // 07-12-99 BIV - - -/* $Revision: 35 $ - * $Modtime: 22-04-08 14:41 $ +/* $Revision: 36 $ + * $Modtime: 6-09-10 16:04 $ */ -#include "comsql.h" /* * Bij installatie van modules moet de tabel FAC_MODULE gevuld of ge-update worden. */ _FAC_MODULE('RES','Reserveringsmodule') -#ifdef MS_SQL -_SET_SQLS(IDENTITY_INSERT res_cyclus ON;) -#endif insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(1,'Eenmalig' , 0); insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(2,'Dagelijks' , 1); insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(3,'Wekelijks' , 7); insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(4,'2 Wekelijks',14); insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(5,'4 Wekelijks',28); -#ifdef MS_SQL -_SET_SQLS(IDENTITY_INSERT res_cyclus OFF;) -#endif -#ifdef MS_SQL -_SET_SQLS(IDENTITY_INSERT res_status_bo ON;) -#endif INSERT INTO res_status_bo (res_status_bo_key, res_status_bo_omschrijving) VALUES ( 1, 'Afgewezen'); INSERT INTO res_status_bo (res_status_bo_key, res_status_bo_omschrijving) VALUES ( 2, 'Ingevoerd'); INSERT INTO res_status_bo (res_status_bo_key, res_status_bo_omschrijving) VALUES ( 3, 'Ingezien'); @@ -33,38 +21,16 @@ INSERT INTO res_status_bo (res_status_bo_key, res_status_bo_omschrijving) VALUES INSERT INTO res_status_bo (res_status_bo_key, res_status_bo_omschrijving) VALUES ( 5, 'Uitgevoerd'); INSERT INTO res_status_bo (res_status_bo_key, res_status_bo_omschrijving) VALUES ( 6, 'Verwerkt'); INSERT INTO res_status_bo (res_status_bo_key, res_status_bo_omschrijving) VALUES ( 7, 'Uitgegeven'); -#ifdef MS_SQL -_SET_SQLS(IDENTITY_INSERT res_status_bo OFF;) -#endif -#ifdef MS_SQL -_SET_SQLS(IDENTITY_INSERT res_status_fo ON;) -#endif INSERT INTO res_status_fo (res_status_fo_key, res_status_fo_omschrijving) VALUES ( 1, 'Optie'); INSERT INTO res_status_fo (res_status_fo_key, res_status_fo_omschrijving) VALUES ( 2, 'Definitief'); INSERT INTO res_status_fo (res_status_fo_key, res_status_fo_omschrijving) VALUES ( 3, 'Blokkade'); INSERT INTO res_status_fo (res_status_fo_key, res_status_fo_omschrijving) VALUES ( 4, 'Vervallen'); -#ifdef MS_SQL -_SET_SQLS(IDENTITY_INSERT res_status_fo OFF;) -#endif - -#ifdef MS_SQL -_SET_SQLS(IDENTITY_INSERT res_opstelling ON;) -#endif INSERT INTO RES_OPSTELLING (res_opstelling_key,res_opstelling_omschrijving) VALUES (0,'Standaard'); -#ifdef MS_SQL -_SET_SQLS(IDENTITY_INSERT res_opstelling OFF;) -#endif -#ifdef MS_SQL -_SET_SQLS(IDENTITY_INSERT res_activiteit ON;) -#endif INSERT INTO res_activiteit (res_activiteit_omschrijving, res_activiteit_soort) VALUES ('Vergadering', 0); INSERT INTO res_activiteit (res_activiteit_omschrijving, res_activiteit_soort) VALUES ('N.v.t.', 1); -#ifdef MS_SQL -_SET_SQLS(IDENTITY_INSERT res_activiteit OFF;) -#endif /* ** De ENTITY_NAMES van de RES module. @@ -296,6 +262,7 @@ DEF_FAC_MESSAGE ('res_r_res_ruimte_opstel_key' , 'Er zijn nog referenties van DEF_SETTING('RES', 'res_t_middag', -1, 'Start time for afternoon tarif for rooms (hour), -1 is same price all day'); DEF_SETTING('RES', 'res_t_avond' , -1, 'Start time for evening tarif for rooms (hour), -1 is same price all day'); +REGISTERONCE('$Workfile: RES_INI.SRC $','$Revision: 36 $') #endif // RES diff --git a/RES/RES_SEQ.SRC b/RES/RES_SEQ.SRC index 462c85e2..bcf16da2 100644 --- a/RES/RES_SEQ.SRC +++ b/RES/RES_SEQ.SRC @@ -1,8 +1,7 @@ #ifdef RES // 07-12-99 BIV - /* - * $Revision: 14 $ - * $Modtime: 9-03-09 17:02 $ + * $Revision: 15 $ + * $Modtime: 6-09-10 16:03 $ */ CREATE SEQUENCE res_s_res_reservering_key MINVALUE 1 NOCACHE; @@ -26,4 +25,6 @@ CREATE SEQUENCE res_s_res_srtartikel_og_key MINVALUE 1; CREATE SEQUENCE res_s_res_disc_params_key MINVALUE 1; CREATE SEQUENCE res_s_res_activiteitdisc_key MINVALUE 1; +REGISTERONCE('$Workfile: RES_SEQ.SRC $','$Revision: 15 $') + #endif // RES diff --git a/RES/RES_TAB.SRC b/RES/RES_TAB.SRC index 540b8b11..0568d087 100644 --- a/RES/RES_TAB.SRC +++ b/RES/RES_TAB.SRC @@ -1,12 +1,9 @@ #ifdef RES // 07-12-99 BIV - /* - * $Revision: 107 $ - * $Modtime: 9-02-10 10:00 $ + * $Revision: 108 $ + * $Modtime: 6-09-10 16:03 $ */ -#include "comsql.h" - CREATE_TABLE (res_disc_params,0) ( res_disc_params_key NUMBER(10), @@ -632,5 +629,6 @@ CREATE_TABLE(res_activiteitdiscipline, 0) ( REFERENCES res_activiteit(res_activiteit_key) ON DELETE CASCADE ); +REGISTERONCE('$Workfile: RES_TAB.SRC $','$Revision: 108 $') #endif // RES diff --git a/RES/RES_TRI.SRC b/RES/RES_TRI.SRC index 5b75e0ec..fafdb951 100644 --- a/RES/RES_TRI.SRC +++ b/RES/RES_TRI.SRC @@ -1,11 +1,9 @@ #ifdef RES /* - * $Revision: 98 $ - * $Modtime: 18-05-10 11:53 $ + * $Revision: 99 $ + * $Modtime: 6-09-10 16:03 $ */ -#include "comsql.h" - CREATE_TRIGGER(res_t_res_disc_params_b_iu) BEFORE INSERT OR UPDATE ON res_disc_params FOR EACH ROW @@ -280,7 +278,7 @@ BEGIN UPDATE_PRIMARY_KEY(res_srtkenmerk_key, res_s_res_srtkenmerk_key); UPDATE_UPPER(res_srtkenmerk_omschrijving, res_srtkenmerk_upper,res_srtkenmerk); UPDATE_AANMAAKDATUM(res_srtkenmerk, res_srtkenmerk_aanmaak); - IF (:new.res_srtkenmerk_verwijder IS NOT NULL AND :old.res_srtkenmerk_verwijder IS NULL AND + IF (:new.res_srtkenmerk_verwijder IS NOT NULL AND :old.res_srtkenmerk_verwijder IS NULL AND :new.res_srtkenmerk_systeem = 1) THEN raise_application_error(-20003, 'RES_C_RES_SRTKENMERK_SYSTEEM'); @@ -405,4 +403,6 @@ BEGIN END; / -#endif // RES \ No newline at end of file +REGISTERRUN('$Workfile: RES_TRI.SRC $','$Revision: 99 $') + +#endif // RES diff --git a/RES/RES_VIE.SRC b/RES/RES_VIE.SRC index 43ade2b9..ec1b04b0 100644 --- a/RES/RES_VIE.SRC +++ b/RES/RES_VIE.SRC @@ -1,51 +1,46 @@ #ifdef RES // 07-12-99 BIV - /* - * $Revision: 95 $ - * $Modtime: 29-04-10 11:18 $ - * + * $Revision: 96 $ + * $Modtime: 6-09-10 16:03 $ */ -#include "comsql.h" - - -CREATE_VIEW(RES_DISCIPLINE, RES_NORMAAL_PRIVILEGE) AS +CREATE_VIEW(RES_DISCIPLINE, 0) AS SELECT * FROM INS_TAB_DISCIPLINE WHERE INS_DISCIPLINE_MODULE = 'RES'; -CREATE_VIEW(RES_V_AANWEZIGDISCIPLINE, RES_NORMAAL_PRIVILEGE) AS +CREATE_VIEW(RES_V_AANWEZIGDISCIPLINE, 0) AS SELECT * FROM RES_DISCIPLINE WHERE INS_DISCIPLINE_VERWIJDER IS NULL; DEFINIEER_VIEW_AANWEZIG(res_reservering, res_reservering_verwijder, - res_v_aanwezigreservering,RES_NORMAAL_PRIVILEGE); + res_v_aanwezigreservering,0); DEFINIEER_VIEW_AANWEZIG(res_rsv_ruimte, res_rsv_ruimte_verwijder, - res_v_aanwezigrsv_ruimte,RES_NORMAAL_PRIVILEGE); + res_v_aanwezigrsv_ruimte,0); DEFINIEER_VIEW_AANWEZIG(res_opstelling, res_opstelling_verwijder, - res_v_aanwezigopstelling,RES_BIBLIOTHEEK_PRIVILEGE); + res_v_aanwezigopstelling,0); DEFINIEER_VIEW_AANWEZIG(res_ruimte, res_ruimte_verwijder, - res_v_aanwezigruimte,RES_NORMAAL_PRIVILEGE); + res_v_aanwezigruimte,0); DEFINIEER_VIEW_AANWEZIG(res_artikel, res_artikel_verwijder, - res_v_aanwezigartikel, RES_NORMAAL_PRIVILEGE); + res_v_aanwezigartikel, 0); DEFINIEER_VIEW_AANWEZIG(res_deel, res_deel_verwijder, - res_v_aanwezigdeel, RES_NORMAAL_PRIVILEGE); + res_v_aanwezigdeel, 0); DEFINIEER_VIEW_AANWEZIG(res_rsv_artikel, res_rsv_artikel_verwijder, - res_v_aanwezigrsv_artikel, RES_NORMAAL_PRIVILEGE); + res_v_aanwezigrsv_artikel, 0); DEFINIEER_VIEW_AANWEZIG(res_rsv_deel, res_rsv_deel_verwijder, - res_v_aanwezigrsv_deel, RES_NORMAAL_PRIVILEGE); + res_v_aanwezigrsv_deel, 0); DEFINIEER_VIEW_AANWEZIG(res_alg_ruimte, res_alg_ruimte_verwijder, - res_v_aanwezigalg_ruimte, RES_NORMAAL_PRIVILEGE); + res_v_aanwezigalg_ruimte, 0); -CREATE_VIEW(res_v_aanwezigins_deel, RES_NORMAAL_PRIVILEGE) +CREATE_VIEW(res_v_aanwezigins_deel, 0) (res_deel_key, ins_deel_key) AS SELECT res_deel_key, @@ -53,7 +48,7 @@ CREATE_VIEW(res_v_aanwezigins_deel, RES_NORMAAL_PRIVILEGE) FROM res_deel WHERE res_deel_verwijder IS NULL; -CREATE_VIEW(res_v_res_ruimte_gegevens, RES_NORMAAL_PRIVILEGE) +CREATE_VIEW(res_v_res_ruimte_gegevens, 0) ( ALG_LOCATIE_KEY, ALG_GEBOUW_KEY, ALG_VERDIEPING_KEY, @@ -82,7 +77,7 @@ AND ALG_G.alg_locatie_key = ALG_L.alg_locatie_key; / -CREATE_VIEW(res_v_alg_ruimte_gegevens, RES_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(res_v_alg_ruimte_gegevens,0) (alg_locatie_key, alg_gebouw_key, alg_verdieping_key, @@ -133,7 +128,7 @@ UNION -- FROM res_v_aanwezigalg_ruimte RES_RA) / -CREATE_VIEW(res_v_rsv_ruimte_2_alg_ruimte, RES_BIBLIOTHEEK_PRIVILEGE) AS +CREATE_VIEW(res_v_rsv_ruimte_2_alg_ruimte,0) AS SELECT r.res_reservering_key, r.res_rsv_ruimte_key, @@ -162,7 +157,7 @@ CREATE_VIEW(res_v_reserveringruimte_geg, 0) AS FROM res_v_rsv_ruimte_2_alg_ruimte rr, prs_kostenplaats k, res_rsv_ruimte rr2 WHERE k.prs_kostenplaats_key = rr2.prs_kostenplaats_key AND rr2.res_rsv_ruimte_key = rr.res_rsv_ruimte_key; -CREATE_VIEW(res_v_ruimte_opstel_gegevens, RES_BIBLIOTHEEK_PRIVILEGE) AS +CREATE_VIEW(res_v_ruimte_opstel_gegevens,0) AS SELECT RES_RO.res_ruimte_opstel_key, RES_R.res_ruimte_key, RES_R.res_ruimte_nr, @@ -177,7 +172,7 @@ CREATE_VIEW(res_v_ruimte_opstel_gegevens, RES_BIBLIOTHEEK_PRIVILEGE) AS -CREATE_VIEW(res_v_ins_deel,RES_NORMAAL_PRIVILEGE) +CREATE_VIEW(res_v_ins_deel,0) ( ins_discipline_key , ins_srtgroep_key , ins_srtdeel_key @@ -231,7 +226,7 @@ AS SELECT INS_DI.ins_discipline_key AND INS_DE.ins_discipline_key IN (SELECT ins_discipline_key FROM ins_discipline); / -CREATE_VIEW(res_v_aanwezig_deel_artikel, RES_NORMAAL_PRIVILEGE) +CREATE_VIEW(res_v_aanwezig_deel_artikel, 0) ( res_deel_key , res_artikel_key , res_deel_artikel_prijs @@ -289,7 +284,7 @@ AS // NOTE! 4.40 view functional drastically changed! -CREATE_VIEW(all_backoffice,RES_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(all_backoffice,0) ( res_backoffice_key , res_backoffice_soort , res_backoffice_omschrijving @@ -314,16 +309,16 @@ UNION DEFINIEER_VIEW_AANWEZIG(All_backoffice, res_backoffice_verwijder, - all_v_aanwezigbackoffice, RES_BIBLIOTHEEK_PRIVILEGE); + all_v_aanwezigbackoffice,0); -CREATE_VIEW(all_v_aanwezigafdeling,RES_BIBLIOTHEEK_PRIVILEGE) AS +CREATE_VIEW(all_v_aanwezigafdeling,0) AS SELECT prs_afdeling_key, prs_afdeling_naam, prs_afdeling_upper FROM prs_v_aanwezigafdeling WHERE prs_afdeling_key IN (SELECT res_backoffice_key FROM all_v_aanwezigbackoffice WHERE res_backoffice_soort = 'A'); -CREATE_VIEW(all_v_aanwezigbedrijf,RES_BIBLIOTHEEK_PRIVILEGE) AS +CREATE_VIEW(all_v_aanwezigbedrijf,0) AS SELECT prs_bedrijf_key, prs_bedrijf_naam, prs_bedrijf_naam_upper FROM prs_v_aanwezigbedrijf WHERE prs_bedrijf_key IN @@ -331,9 +326,9 @@ CREATE_VIEW(all_v_aanwezigbedrijf,RES_BIBLIOTHEEK_PRIVILEGE) AS WHERE res_backoffice_soort = 'B'); DEFINIEER_VIEW_AANWEZIG(res_refsrtkenmerk, res_refsrtkenmerk_verwijder, -res_v_aanwezigrefsrtkenmerk,MLD_NORMAAL_PRIVILEGE); +res_v_aanwezigrefsrtkenmerk,0); -CREATE_VIEW(res_v_srtkenmerk_gegevens, RES_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(res_v_srtkenmerk_gegevens,0) AS SELECT res_SK.res_srtkenmerk_key , res_SK.res_srtkenmerk_omschrijving , res_SK.res_srtkenmerk_kenmerktype @@ -350,7 +345,7 @@ AS SELECT res_SK.res_srtkenmerk_key / -CREATE_VIEW(res_v_kenmerk_gegevens, RES_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(res_v_kenmerk_gegevens,0) ( res_kenmerk_key , res_srtkenmerk_key , res_kenmerk_niveau @@ -381,9 +376,9 @@ CREATE_VIEW(res_v_kenmerk_gegevens, RES_BIBLIOTHEEK_PRIVILEGE) AND res_K.res_kenmerk_niveau = 'D'; DEFINIEER_VIEW_AANWEZIG(res_kenmerkwaarde, res_kenmerkwaarde_verwijder, -res_v_aanwezigkenmerkwaarde, RES_NORMAAL_PRIVILEGE); +res_v_aanwezigkenmerkwaarde, 0); -CREATE_VIEW(res_v_res_catalogus, RES_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(res_v_res_catalogus, 0) AS SELECT * FROM INS_TAB_DISCIPLINE WHERE ins_discipline_module = 'RES' @@ -391,7 +386,7 @@ AND ins_discipline_min_level IN (1,2,3); -- View levert op in welke alg_ruimtes uit een bepaalde catalogus besteld mag worden -CREATE_VIEW(res_v_srtartikel_onrgoed, RES_BIBLIOTHEEK_PRIVILEGE) +CREATE_VIEW(res_v_srtartikel_onrgoed, 0) ( alg_ruimte_key, res_discipline_key, alg_onrgoed_niveau) AS @@ -422,7 +417,7 @@ CREATE_VIEW(res_v_srtartikel_onrgoed, RES_BIBLIOTHEEK_PRIVILEGE) AND res_srtartikel_og_verwijder IS NULL AND alg_ruimte_key IS NOT NULL; -CREATE_VIEW(fac_v_my_res_rooms, RES_BIBLIOTHEEK_PRIVILEGE) AS +CREATE_VIEW(fac_v_my_res_rooms, 0) AS SELECT res_ruimte_key, prs_perslid_key, niveau @@ -433,7 +428,7 @@ UNION SELECT res_ruimte_key, prs_perslid_key, -1 FROM res_v_aanwezigruimte, prs_v_aanwezigperslid; -CREATE_VIEW(res_v_deelscope, RES_NORMAAL_PRIVILEGE) +CREATE_VIEW(res_v_deelscope, 0) (res_deel_key, res_deel_alg_level, alg_regio_key, @@ -492,7 +487,7 @@ AS AND id.ins_alg_ruimte_type = 'R' AND rd.res_deel_alg_level = 5; -CREATE_VIEW(res_v_res_dag_bezetting, RES_NORMAAL_PRIVILEGE) +CREATE_VIEW(res_v_res_dag_bezetting, 0) ( n0,n1,n2,n3,n4,n5,n6,n7,n8,n9, res_rsv_ruimte_van, res_rsv_ruimte_tot, res_ruimte_opstel_key,res_rsv_ruimte_verwijder, res_rsv_ruimte_key, res_status_fo_key) as select nvl((select 1/4 from dual where res.van <= 8 and res.tot >= 8.25),0) + @@ -770,6 +765,6 @@ AS AND rrr.res_status_fo_key = sf.res_status_fo_key AND rrg.res_discipline_key = rd.ins_discipline_key; - +REGISTERRUN('$Workfile: RES_VIE.SRC $','$Revision: 96 $') #endif // RES diff --git a/SCH/SCH_IND.SRC b/SCH/SCH_IND.SRC index 76fb0406..8c5f2734 100644 --- a/SCH/SCH_IND.SRC +++ b/SCH/SCH_IND.SRC @@ -1,52 +1,9 @@ #ifdef SCH - /* - * History - * - * --- 04.42 --- FSN #728 - sch_werkzaamheden no longer in use - * --- xx.xx --- - * --- 01.40 --- - * --- 01.39 --- - * --- 01.38 --- - * --- 01.37 --- - * --- 01.36 --- - * --- 01.35 --- - * --- 01.34 --- - * --- 01.33 --- - * --- 01.32 --- - * --- 01.31 --- - * --- 01.30 --- - * 10-7-97 AH #1364, Index op SCH_NIVO_OG(SCH_ALG_OG_KEY) is al gedefinieerd via de UNIQUE erop. - * --- 01.29 --- - * --- 01.28 --- - * --- 01.27 --- - * --- 01.26 --- - * --- 01.25 --- - * --- 01.24 --- - * --- 01.23 --- - * --- 01.22 --- - * --- 01.21 --- - * --- 01.20 --- - * --- 01.19 --- - * --- 01.18 --- - * --- 01.17 --- - * --- 01.16 --- - * --- 01.15 --- - * --- 01.14 --- - * 01-04-96 RW Created + * $Revision: 5 $ + * $Modtime: 6-09-10 16:06 $ */ -/* -CREATE INDEX sch_s_sch_programma_b_key ON sch_programma_bedrijf(sch_programma_bedrijf_key); -CREATE INDEX sch_s_sch_programma_key ON sch_programma(sch_programma_key); -CREATE INDEX sch_i_sch_nivo_og_1 ON sch_nivo_og(sch_nivo_key); -CREATE INDEX sch_i_sch_nivo_og_2 ON sch_nivo_og(sch_alg_og_key); - -CREATE INDEX sch_i_sch_werkzaamheden_1 ON sch_werkzaamheden(sch_nivo_key); -CREATE INDEX sch_i_sch_werkzaamheden_2 ON sch_werkzaamheden(sch_alg_srtruimte_key); -CREATE INDEX sch_i_sch_werkzaamheden_3 ON sch_werkzaamheden(sch_activiteit_key); -CREATE INDEX sch_i_sch_werkzaamheden_4 ON sch_werkzaamheden(sch_srtvloer_key); -CREATE INDEX sch_i_sch_werkzaamheden_5 ON sch_werkzaamheden(sch_frequentie_key); -*/ +REGISTERONCE('$Workfile: SCH_IND.SRC $','$Revision: 5 $') #endif // SCH diff --git a/SCH/SCH_INI.SRC b/SCH/SCH_INI.SRC index 355527d4..c402dd8e 100644 --- a/SCH/SCH_INI.SRC +++ b/SCH/SCH_INI.SRC @@ -1,63 +1,12 @@ #ifdef SCH // 19-04-96 KTH - /* - * SCH tables for Facilitor: installation time population - */ - -/* REVISIONS: - * - * --- 01.40 --- - * --- 01.39 --- - * --- 01.38 --- - * --- 01.37 --- - * 20-05-98 KTH Gebruik macro _FAC_MODULE - * --- 01.36 --- - * --- 01.35 --- - * --- 01.34 --- - * --- 01.33 --- - * --- 01.32 --- - * 20-08-97 KTH LOG#1433: Vloersoorten cf CONTOUR.INI van Dijkoraad/RB - * --- 01.31 --- - * 31-07-97 AH Initiele waardes voor SCH_SRTVLOER toegevoegd - * --- 01.30 --- - * --- 01.29 --- - * --- 01.28 --- - * --- 01.27 --- - * --- 01.26 --- - * --- 01.25 --- - * --- 01.24 --- - * --- 01.23 --- - * --- 01.22 --- - * --- 01.21 --- - * --- 01.20 --- - * --- 01.19 --- - * --- 01.18 --- - * --- 01.17 --- - * --- 01.16 --- - * --- 01.15 --- - * 19-04-96 KTH Commentaarblok en #ifdef toegevoegd, versie=01.14 gezet - * --- 01.14 --- - * --- 01.13 --- - * --- 01.12 --- - * 21-03-96 RW Creation + * $Revision: 5 $ + * $Modtime: 6-09-10 16:07 $ */ _FAC_MODULE('SCH','Schoonmaak') #ifdef DATA -/* 970820/KTH LOG#1433 Vloersoorten cf CONTOUR.INI van Dijkoraad/RB */ -/* -INSERT INTO sch_srtvloer (sch_srtvloer_omschrijving) VALUES ('Beton'); -INSERT INTO sch_srtvloer (sch_srtvloer_omschrijving) VALUES ('Computervloer'); -INSERT INTO sch_srtvloer (sch_srtvloer_omschrijving) VALUES ('Linoleum'); -INSERT INTO sch_srtvloer (sch_srtvloer_omschrijving) VALUES ('Natuursteen'); -INSERT INTO sch_srtvloer (sch_srtvloer_omschrijving) VALUES ('Parket'); -INSERT INTO sch_srtvloer (sch_srtvloer_omschrijving) VALUES ('Siergrind'); -INSERT INTO sch_srtvloer (sch_srtvloer_omschrijving) VALUES ('Tapijt'); -INSERT INTO sch_srtvloer (sch_srtvloer_omschrijving) VALUES ('Vloertegels, glad'); -INSERT INTO sch_srtvloer (sch_srtvloer_omschrijving) VALUES ('Vloertegels, ruw'); -COMMIT; -*/ INSERT INTO fac_usrdata (fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr) @@ -87,4 +36,6 @@ COMMIT; #endif // DATA +REGISTERONCE('$Workfile: SCH_INI.SRC $','$Revision: 5 $') + #endif // SCH diff --git a/SCH/SCH_PAC.SRC b/SCH/SCH_PAC.SRC index 92ee80e9..96cceffb 100644 --- a/SCH/SCH_PAC.SRC +++ b/SCH/SCH_PAC.SRC @@ -1,93 +1,9 @@ #ifdef SCH - -/* SCH_PAC.SRC - * - * Revisie: - * - * --- 04.42 --- FSN #728 Function no longer in use - * --- xx.xx --- - * --- 01.40 --- - * --- 01.39 --- - * --- 01.38 --- - * --- 01.37 --- - * --- 01.36 --- - * --- 01.35 --- - * --- 01.34 --- - * --- 01.33 --- - * --- 01.32 --- - * --- 01.31 --- - * --- 01.30 --- - * 01-07-97 AH Aangemaakt +/* + * $Revision: 3 $ + * $Modtime: 6-09-10 16:07 $ */ - -/* -CREATE OR REPLACE FUNCTION SCH_P_SCH_BepaalFrequentieCode( SrtRuimteKey IN NUMBER, SrtVloerKey IN NUMBER, - ActiviteitKey IN NUMBER, NivoKey IN NUMBER) RETURN VARCHAR2 IS - FrequentieCode sch_frequentie.sch_frequentie_code%TYPE; -BEGIN - FrequentieCode := NULL; - IF FrequentieCode IS NULL - THEN - BEGIN - SELECT SCH_F.sch_frequentie_code - INTO FrequentieCode - FROM sch_frequentie SCH_F, sch_werkzaamheden SCH_W - WHERE SCH_F.sch_frequentie_key = SCH_W.sch_frequentie_key - AND SCH_W.sch_alg_srtruimte_key = SrtRuimteKey - AND SCH_W.sch_srtvloer_key = SrtVloerKey - AND SCH_W.sch_activiteit_key = ActiviteitKey - AND SCH_W.sch_nivo_key = NivoKey; - EXCEPTION - WHEN NO_DATA_FOUND - THEN FrequentieCode := NULL; - WHEN TOO_MANY_ROWS - THEN FrequentieCode := NULL; - END; - END IF; - IF FrequentieCode IS NULL - THEN - BEGIN - SELECT SCH_F.sch_frequentie_code - INTO FrequentieCode - FROM sch_frequentie SCH_F, sch_werkzaamheden SCH_W - WHERE SCH_F.sch_frequentie_key = SCH_W.sch_frequentie_key - AND SCH_W.sch_alg_srtruimte_key = SrtRuimteKey - AND SCH_W.sch_srtvloer_key IS NULL - AND SCH_W.sch_activiteit_key = ActiviteitKey - AND SCH_W.sch_nivo_key = NivoKey; - EXCEPTION - WHEN NO_DATA_FOUND - THEN FrequentieCode := NULL; - WHEN TOO_MANY_ROWS - THEN FrequentieCode := NULL; - END; - END IF; - IF FrequentieCode IS NULL - THEN - BEGIN - SELECT SCH_F.sch_frequentie_code - INTO FrequentieCode - FROM sch_frequentie SCH_F, sch_werkzaamheden SCH_W - WHERE SCH_F.sch_frequentie_key = SCH_W.sch_frequentie_key - AND SCH_W.sch_alg_srtruimte_key IS NULL - AND SCH_W.sch_srtvloer_key = SrtVloerKey - AND SCH_W.sch_activiteit_key = ActiviteitKey - AND SCH_W.sch_nivo_key = NivoKey; - EXCEPTION - WHEN NO_DATA_FOUND - THEN FrequentieCode := NULL; - WHEN TOO_MANY_ROWS - THEN FrequentieCode := NULL; - END; - END IF; - IF FrequentieCode IS NULL - THEN - FrequentieCode := '-'; - END IF; - RETURN FrequentieCode; -END; -/ -*/ +REGISTERRUN('$Workfile: SCH_PAC.SRC $','$Revision: 3 $') #endif // SCH diff --git a/SCH/SCH_SEQ.SRC b/SCH/SCH_SEQ.SRC index 57eee10b..ca16261b 100644 --- a/SCH/SCH_SEQ.SRC +++ b/SCH/SCH_SEQ.SRC @@ -1,16 +1,12 @@ #ifdef SCH //21-03-96 RW - -/* REVISIONS: - * - * --- 04.42 --- BIV FSN 728 - ** --- xx.xx --- - * --- 01.40 --- - * --- 01.39 --- - * xx.xx - * 21-03-96 RW Creation +/* + * $Revision: 4 $ + * $Modtime: 6-09-10 16:07 $ */ CREATE SEQUENCE sch_s_sch_programma_key MINVALUE 1; CREATE SEQUENCE sch_s_sch_programma_b_key MINVALUE 1; +REGISTERONCE('$Workfile: SCH_SEQ.SRC $','$Revision: 4 $') + #endif // SCH diff --git a/SCH/SCH_TAB.SRC b/SCH/SCH_TAB.SRC index 81a13034..20116dc4 100644 --- a/SCH/SCH_TAB.SRC +++ b/SCH/SCH_TAB.SRC @@ -1,58 +1,10 @@ #ifdef SCH //21-03-96 RW - -/* REVISIONS: - * - * 22-01-2004 biv Tabel sch_programma added (FSN #728) all other tables removed - * --- 04.42 --- - * 10-08-2001 BIV Tabel sch_nivo : veld sch_nivo_document toegevoegd. - * 10-06-1999 BIV Tabel sch_srtvloer uitgecommentarieerd ->gegevens vanaf nu in fac_usrdata - * 14-04-1999 EGR Privilege vooraf laten gaan door SCH. - * --- 01.40 --- - * --- 01.39 --- - * --- 01.38 --- - * --- 01.37 --- - * --- 01.36 --- - * --- 01.35 --- - * --- 01.34 --- - * 20/11/1997 AH Extra constraint in SCH_WERKZAAMHEDEN toegevoegd. SCH_SRTVLOER_KEY of - * SCH_ALG_SRTRUIMTE_KEY moet ingevuld zijn. - * 12/11/1997 AH #1473, constraintnamen toegevoegd - * --- 01.33 --- - * --- 01.32 --- - * --- 01.31 --- - * 22-07-97 AH #1401: Grootte SCH_FREQUENTIE_CODE aangepast - * --- 01.30 --- - * 14-07-97 KTH #1396: Bibliotheek-privilege voor diverse tabellen - * 14-07-97 KTH Bij table-definities inspringen bij column-definities - * 6/26/97 AH #1326, Nieuwe SCH-functionaliteit toegevoegd volgens SCH_FO.TXT - * --- 01.29 --- - * --- 01.28 --- - * --- 01.27 --- - * --- 01.26 --- - * --- 01.25 --- - * --- 01.24 --- - * --- 01.23 --- - * --- 01.22 --- - * --- 01.21 --- - * --- 01.20 --- - * --- 01.19 --- - * 27-06-96 EH IN sch_nivo_og PRIMARY_KEY Constraint verwijderd. - * --- 01.18 --- - * --- 01.17 --- - * 26-06-96 EH In sch_werkzaamheden voor alg_srtruimte_key een NOT NULL in- - * gevoerd. - * --- 01.16 --- - * --- 01.15 --- - * --- 01.14 --- - * --- 01.13 --- - * --- 01.12 --- - * 21-03-96 RW Creation +/* + * $Revision: 10 $ + * $Modtime: 6-09-10 16:07 $ */ -#include "comsql.h" - - -CREATE_TABLE(sch_programma, SCH_BIBLIOTHEEK_PRIVILEGE) +CREATE_TABLE(sch_programma, 0) ( sch_programma_key NUMBER(10) @@ -74,7 +26,7 @@ CREATE_TABLE(sch_programma, SCH_BIBLIOTHEEK_PRIVILEGE) CONSTRAINT sch_u_sch_programma_code UNIQUE (sch_programma_code) ); -CREATE_TABLE(sch_programma_bedrijf,SCH_BIBLIOTHEEK_PRIVILEGE) +CREATE_TABLE(sch_programma_bedrijf,0) ( sch_programma_bedrijf_key NUMBER(10) @@ -90,4 +42,6 @@ CREATE_TABLE(sch_programma_bedrijf,SCH_BIBLIOTHEEK_PRIVILEGE) NUMBER(9,6) ); +REGISTERONCE('$Workfile: SCH_TAB.SRC $','$Revision: 10 $') + #endif // SCH diff --git a/SCH/SCH_TRI.SRC b/SCH/SCH_TRI.SRC index 429a1416..4a861d24 100644 --- a/SCH/SCH_TRI.SRC +++ b/SCH/SCH_TRI.SRC @@ -1,14 +1,7 @@ #ifdef SCH //21-03-96 RW - -#include "comsql.h" - -/* REVISIONS: - * - * --- 04.42 --- BIV FSN 728 - * --- 01.40 --- - * --- 01.39 --- - * --- xx.xx --- - * 21-03-96 RW Creation +/* + * $Revision: 5 $ + * $Modtime: 6-09-10 16:07 $ */ CREATE_TRIGGER(sch_t_sch_programma_b_iu) @@ -27,4 +20,6 @@ BEGIN END; / +REGISTERRUN('$Workfile: SCH_TRI.SRC $','$Revision: 5 $') + #endif // SCH diff --git a/SCH/SCH_VIE.SRC b/SCH/SCH_VIE.SRC index 40ae4a8d..de875847 100644 --- a/SCH/SCH_VIE.SRC +++ b/SCH/SCH_VIE.SRC @@ -1,8 +1,7 @@ #ifdef SCH /* - * $Revision: 9 $ - * $Modtime: 5-11-09 17:38 $ - * + * $Revision: 10 $ + * $Modtime: 6-09-10 16:05 $ */ -- Drie views die per 4.81 als basisinrichting gelden voor de standaard SCH-module! @@ -177,4 +176,6 @@ AS sp.prog_code, sb.bedrijfsnaam; +REGISTERRUN('$Workfile: SCH_VIE.SRC $','$Revision: 10 $') + #endif // SCH diff --git a/WEB/WEB_IND.SRC b/WEB/WEB_IND.SRC index 992431c7..731745d6 100644 --- a/WEB/WEB_IND.SRC +++ b/WEB/WEB_IND.SRC @@ -1,7 +1,7 @@ #ifdef WEB // 03-11-2000 PF - -/* - * $Revision: 5 $ +/* + * $Revision: 6 $ + * $Modtime: 6-09-10 16:10 $ */ CREATE INDEX fac_i_web_user_messages1 ON web_user_messages( prs_perslid_key_receiver, web_user_mess_action_status ); @@ -11,5 +11,6 @@ CREATE UNIQUE INDEX fac_i_web_user_messages4 ON web_user_messages(prs_perslid_ke CREATE INDEX web_i_web_helpsystem_id ON web_helpsystem(full_file_name,control_id); +REGISTERONCE('$Workfile: WEB_IND.SRC $','$Revision: 6 $') #endif // WEB diff --git a/WEB/WEB_INI.SRC b/WEB/WEB_INI.SRC index 6faa55aa..b343e0f5 100644 --- a/WEB/WEB_INI.SRC +++ b/WEB/WEB_INI.SRC @@ -1,9 +1,10 @@ #ifdef WEB // 03-11-2000 PF - -/* $Revision: 96 $ - * $Modtime: 15-11-06 12:01 $ +/* $Revision: 97 $ + * $Modtime: 6-09-10 16:10 $ */ /* Was ooit om Web zaken toe te voegen aan LAN omgeving; relevante zaken zijn verplaatst naar FAC module */ +REGISTERONCE('$Workfile: WEB_INI.SRC $','$Revision: 97 $') + #endif // WEB diff --git a/WEB/WEB_PAC.SRC b/WEB/WEB_PAC.SRC index 414e08a3..470b3528 100644 --- a/WEB/WEB_PAC.SRC +++ b/WEB/WEB_PAC.SRC @@ -1,8 +1,8 @@ #ifdef WEB // 03-11-2000 PF - /* - * $Revision: 10 $ - * $Modtime: 23-11-06 12:44 $ + * $Revision: 11 $ + * $Modtime: 6-09-10 16:09 $ */ +REGISTERRUN('$Workfile: WEB_PAC.SRC $','$Revision: 11 $') #endif // WEB diff --git a/WEB/WEB_SEQ.SRC b/WEB/WEB_SEQ.SRC index 08bfd4ad..e545b078 100644 --- a/WEB/WEB_SEQ.SRC +++ b/WEB/WEB_SEQ.SRC @@ -1,10 +1,11 @@ #ifdef WEB // 03-11-2000 PF - - -/* $Revision: 5 $ - * $Modtime: 9-11-06 14:28 $ +/* $Revision: 6 $ + * $Modtime: 6-09-10 16:09 $ */ CREATE SEQUENCE web_s_web_message_key MINVALUE 1; CREATE SEQUENCE web_s_helpsys_key MINVALUE 1; + +REGISTERONCE('$Workfile: WEB_SEQ.SRC $','$Revision: 6 $') + #endif // WEB diff --git a/WEB/WEB_TAB.SRC b/WEB/WEB_TAB.SRC index 829b6e64..69c1cddd 100644 --- a/WEB/WEB_TAB.SRC +++ b/WEB/WEB_TAB.SRC @@ -1,27 +1,10 @@ #ifdef WEB // 03-11-2000 PF /* WEB_TAB.SRC - * - * $Revision: 12 $ - * $Modtime: 7-11-07 16:25 $ + * $Revision: 13 $ + * $Modtime: 6-09-10 16:09 $ */ -#include "comsql.h" - -/* Table for notification messages in portal */ - -/* PRS_PERSLID_KEY_RECEIVER references to user identifier to send message to. - * fac_srtnotificatie_key references to predefined or standard action. - * WEB_USER_MESS_DSC contains message text obtained from WEB_USER_MESS_TEXT - * table or in future user defined. - * WEB_USER_MESS_ACTION_STATUS defines current message status, - * 1 - is new, unread message, 2 - read message. - * WEB_USER_MESS_ACTION_PARAMS defines message specific for standard action, - * for example complain or reservation key. - * WEB_USER_MESS_ACTION_DATUM - holds message generation date, - * used for message deleting timer - */ - CREATE_TABLE(web_user_messages, 0) ( web_user_message_key @@ -71,4 +54,6 @@ CREATE_TABLE(web_helpsystem, 0) CONSTRAINT web_u_web_helpsystem UNIQUE(full_file_name, control_id, help_modes) ); +REGISTERONCE('$Workfile: WEB_TAB.SRC $','$Revision: 13 $') + #endif // WEB diff --git a/WEB/WEB_TRI.SRC b/WEB/WEB_TRI.SRC index 63a6ad5b..589d1c8e 100644 --- a/WEB/WEB_TRI.SRC +++ b/WEB/WEB_TRI.SRC @@ -1,14 +1,10 @@ #ifdef WEB // 03-11-2000 PF - /* - * $Revision: 17 $ - * $Modtime: 9-11-06 16:05 $ + * $Revision: 18 $ + * $Modtime: 6-09-10 16:09 $ * */ -#include "comsql.h" - - CREATE_TRIGGER(web_t_web_user_message_key) BEFORE INSERT OR UPDATE ON web_user_messages FOR EACH ROW @@ -17,5 +13,6 @@ BEGIN END; / +REGISTERRUN('$Workfile: WEB_TRI.SRC $','$Revision: 18 $') #endif // WEB diff --git a/WEB/WEB_VIE.SRC b/WEB/WEB_VIE.SRC index 9b3d0d27..ba9451ea 100644 --- a/WEB/WEB_VIE.SRC +++ b/WEB/WEB_VIE.SRC @@ -1,12 +1,9 @@ #ifdef WEB // 03-11-2000 PF - /* - * $Revision: 20 $ - * $Modtime: 17-01-08 0:23 $ + * $Revision: 21 $ + * $Modtime: 6-09-10 16:09 $ */ - -#include "comsql.h" - +REGISTERRUN('$Workfile: WEB_VIE.SRC $','$Revision: 21 $') #endif // WEB