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

FSN#18275

Browse Source 
svn path=/Database/trunk/; revision=10393
This commit is contained in:
Peter Feij
2010-09-06 13:53:52 +00:00
parent 014275b717
commit 0d4877bd6f
55 changed files with 366 additions and 968 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
INS/INS_IND.SRC
View File

@@ -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

104
INS/INS_INI.SRC
View File

@@ -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 <module>' 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

50
INS/INS_PAC.SRC
View File

@@ -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

18
INS/INS_SEQ.SRC
View File

@@ -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

19
INS/INS_TAB.SRC
View File

@@ -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

88
INS/INS_TRI.SRC
View File

@@ -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

102
INS/INS_VIE.SRC
View File

@@ -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

6
MLD/MLD_IND.SRC
View File

@@ -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

6
MLD/MLD_INI.SRC
View File

@@ -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

10
MLD/MLD_PAC.SRC
View File

@@ -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

9
MLD/MLD_SEQ.SRC
View File

@@ -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

10
MLD/MLD_TAB.SRC
View File

@@ -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

56
MLD/MLD_TRI.SRC
View File

@@ -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

9
MLD/MLD_VIE.SRC
View File

@@ -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

11
MRK/MRK_IND.SRC
View File

@@ -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
* $Revision: 2 $
* $Modtime: 6-09-10 15:56 $
*/
REGISTERONCE('$Workfile: MRK_IND.SRC $','$Revision: 2 $')
#endif // MRK

20
MRK/MRK_INI.SRC
View File

@@ -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

17
MRK/MRK_PAC.SRC
View File

@@ -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

11
MRK/MRK_SEQ.SRC
View File

@@ -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

28
MRK/MRK_TAB.SRC
View File

@@ -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
@@ -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));
REGISTERONCE('$Workfile: MRK_TAB.SRC $','$Revision: 5 $')
#endif // MRK

13
MRK/MRK_TRI.SRC
View File

@@ -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

25
MRK/MRK_VIE.SRC
View File

@@ -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

6
MSG/MSG_IND.SRC
View File

@@ -1,7 +1,9 @@
#ifdef MSG
/* $Revision: 1 $
* $Modtime: 28-11-06 10:15 $
/* $Revision: 2 $
* $Modtime: 6-09-10 15:59 $
*/
REGISTERONCE('$Workfile: msg_IND.SRC $','$Revision: 2 $')
#endif // MSG

6
MSG/MSG_INI.SRC
View File

@@ -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

7
MSG/MSG_PAC.SRC
View File

@@ -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

7
MSG/MSG_SEQ.SRC
View File

@@ -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

8
MSG/MSG_TAB.SRC
View File

@@ -1,11 +1,8 @@
#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
@@ -29,5 +26,6 @@ CREATE_TABLE(msg_message, 0)
DEFAULT SYSDATE
);
REGISTERONCE('$Workfile: msg_TAB.SRC $','$Revision: 3 $')
#endif // MSG

9
MSG/MSG_TRI.SRC
View File

@@ -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

6
MSG/MSG_VIE.SRC
View File

@@ -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

6
PRJ/PRJ_IND.SRC
View File

@@ -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

58
PRJ/PRJ_INI.SRC
View File

@@ -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_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

12
PRJ/PRJ_PAC.SRC
View File

@@ -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

7
PRJ/PRJ_SEQ.SRC
View File

@@ -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

13
PRJ/PRJ_TAB.SRC
View File

@@ -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

7
PRJ/PRJ_TRI.SRC
View File

@@ -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

16
PRJ/PRJ_VIE.SRC
View File

@@ -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

8
RES/RES_IND.SRC
View File

@@ -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

39
RES/RES_INI.SRC
View File

@@ -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

7
RES/RES_SEQ.SRC
View File

@@ -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

8
RES/RES_TAB.SRC
View File

@@ -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

8
RES/RES_TRI.SRC
View File

@@ -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
@@ -405,4 +403,6 @@ BEGIN
END;
/
REGISTERRUN('$Workfile: RES_TRI.SRC $','$Revision: 99 $')
#endif // RES

73
RES/RES_VIE.SRC
View File

@@ -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

49
SCH/SCH_IND.SRC
View File

@@ -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

57
SCH/SCH_INI.SRC
View File

@@ -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

92
SCH/SCH_PAC.SRC
View File

@@ -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
*/
/*
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;
/
* $Revision: 3 $
* $Modtime: 6-09-10 16:07 $
*/
REGISTERRUN('$Workfile: SCH_PAC.SRC $','$Revision: 3 $')
#endif // SCH

14
SCH/SCH_SEQ.SRC
View File

@@ -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

60
SCH/SCH_TAB.SRC
View File

@@ -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

15
SCH/SCH_TRI.SRC
View File

@@ -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

7
SCH/SCH_VIE.SRC
View File

@@ -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

5
WEB/WEB_IND.SRC
View File

@@ -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

7
WEB/WEB_INI.SRC
View File

@@ -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

6
WEB/WEB_PAC.SRC
View File

@@ -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

9
WEB/WEB_SEQ.SRC
View File

@@ -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

23
WEB/WEB_TAB.SRC
View File

@@ -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

9
WEB/WEB_TRI.SRC
View File

@@ -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

9
WEB/WEB_VIE.SRC
View File

@@ -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