Concept voor Bezoekers/Visitors. Moet nog van MACRO's worden voorzien!

svn path=/Database/trunk/; revision=7550
This commit is contained in:
Peter Feij
2000-11-03 15:21:00 +00:00
parent 77c6f31117
commit be855cc2e2
8 changed files with 253 additions and 0 deletions

0
BEZ/.gitignore vendored
View File

9
BEZ/BEZ_IND.SRC Normal file
View File

@@ -0,0 +1,9 @@
#ifdef BEZ // 03-11-2000 PF
/* REVISIONS:
*
* 03-11-20000 PF CREATION (concept).
*/
#endif // BEZ

67
BEZ/BEZ_INI.SRC Normal file
View File

@@ -0,0 +1,67 @@
#ifdef BEZ // 03-11-2000 PF
/* REVISIONS:
*
* 03-11-20000 PF CREATION (concept).
*/
#include "comsql.h"
#include "FAC\fac_hlp.h"
#define DEF_FAC_ROL(c, o) INSERT INTO fac_rol (fac_rol_role, fac_rol_omschrijving) VALUES(c, o)
#define DEF_FAC_FUNCTIE(c, o, m, l) INSERT INTO fac_functie (fac_functie_code, fac_functie_omschrijving,fac_functie_module,fac_functie_min_level) VALUES(c, o, m, l)
/*
** Bij installatie van modules moet de tabel FAC_MODULE gevuld of ge-update worden.
*/
_FAC_MODULE('BEZ','Intranet access')
/*
** Definieer de rollen voor de RES module en geef de hoofduser (waaronder dit script wordt gedraaid) altijd de hoogste rol.
*/
DEF_FAC_ROL (USER||'_BEZ_SMALL_ROLE' ,'Bezoekers kijken');
DEF_FAC_ROL (USER||'_BEZ_FULL_ROLE' ,'Bezoekers muteren');
DEF_FAC_ROL (USER||'_BEZ_ARCHIVE_ROLE','Bezoekers beheren');
INSERT INTO fac_gebruiker (fac_gebruiker_username,
fac_gebruiker_module,
fac_gebruiker_tabel,
fac_gebruiker_kolom,
fac_gebruiker_kolomkey)
SELECT USER,'FAC','FAC_ROL','FAC_ROL_KEY', fac_rol_key
FROM fac_rol
WHERE fac_rol_role LIKE USER||'_BEZ_ARCHIVE_ROLE';
/*
** Voeg de functies voor de BEZ module toe en geef de hoofuser toegang op all functies.
*/
INSERT INTO fac_gebruiker (fac_gebruiker_username,
fac_gebruiker_module,
fac_functie_key,
fac_gebruiker_soort)
SELECT USER,fac_functie_module, fac_functie_key, '1'
FROM fac_functie
WHERE fac_functie_module = 'BEZ';
/*
** De ENTITY_NAMES van de BEZ module.
*/
/*
** De MESSAGES van de BEZ module.
*/
INSERT INTO bez_actie
VALUES ( 1, 'Onbekend');
INSERT INTO bez_actie
VALUES ( 2, 'Afspraak met bezoeker kon niet tijdig worden afgemeld');
INSERT INTO bez_actie
VALUES ( 3, 'Bezoeker begeleiden naar locatie ontvanger ');
INSERT INTO bez_actie
VALUES ( 4, 'Bezoeker verwijzen naar locatie ontvanger ');
INSERT INTO bez_actie
VALUES ( 5, 'Bezoeker moet worden opgehaald door ontvanger');
#endif // BEZ

9
BEZ/BEZ_PAC.SRC Normal file
View File

@@ -0,0 +1,9 @@
#ifdef BEZ // 03-11-2000 PF
/* REVISIONS:
*
* 03-11-20000 PF CREATION (concept).
*/
#endif // BEZ

13
BEZ/BEZ_SEQ.SRC Normal file
View File

@@ -0,0 +1,13 @@
#ifdef BEZ // 03-11-2000 PF
/* REVISIONS:
*
* 03-11-20000 PF CREATION (concept).
*/
CREATE SEQUENCE bez_s_bez_afspraak_key MINVALUE 1;
CREATE SEQUENCE bez_s_bez_bezoekers_key MINVALUE 1;
CREATE SEQUENCE bez_s_bez_actie_key MINVALUE 1;
#endif // BEZ

56
BEZ/BEZ_TAB.SRC Normal file
View File

@@ -0,0 +1,56 @@
#ifdef BEZ // 03-11-2000 PF
/* REVISIONS:
*
* 03-11-20000 PF CREATION (concept).
*/
#include "comsql.h"
CREATE TABLE bez_actie
(
bez_actie_key
NUMBER(10)
PRIMARY KEY,
bez_actie_omschrijving
VARCHAR2(64)
);
CREATE TABLE bez_afspraak
(
bez_afspraak_key
NUMBER(10)
PRIMARY KEY,
prs_perslid_key -- key ontvanger bezoek
NUMBER(10)
REFERENCES prs_perslid,
bez_afspraak_datum
DATE
DEFAULT NULL,
bez_actie_key
NUMBER(10)
REFERENCES bez_actie,
bez_afspraak_ruimte
VARCHAR2(30),
bez_afspraak_opmerking
VARCHAR2(50)
);
CREATE TABLE bez_bezoekers
(
bez_bezoekers_key
NUMBER(10)
PRIMARY KEY,
bez_afspraak_key
NUMBER(10)
REFERENCES bez_afspraak,
bez_afspraak_naam -- naam bezoeker
VARCHAR2(30),
bez_afspraak_bedrijf -- naam bedrijf bezoeker
VARCHAR2(30),
bez_afspraak_opmerking
VARCHAR2(50)
);
#endif // BEZ

35
BEZ/BEZ_TRI.SRC Normal file
View File

@@ -0,0 +1,35 @@
#ifdef BEZ // 03-11-2000 PF
/* REVISIONS:
*
* 03-11-20000 PF CREATION.
*/
#include "comsql.h"
CREATE OR REPLACE TRIGGER bez_t_bez_afspraak_B_IU
BEFORE INSERT OR UPDATE ON bez_afspraak
FOR EACH ROW
BEGIN
IF :new.bez_afspraak_key IS NULL THEN SELECT bez_s_bez_afspraak_key.nextval INTO :new.bez_afspraak_key FROM DUAL; END IF;
END;
/
CREATE OR REPLACE TRIGGER bez_t_bez_bezoekers_B_IU
BEFORE INSERT OR UPDATE ON bez_bezoekers
FOR EACH ROW
BEGIN
IF :new.bez_bezoekers_key IS NULL THEN SELECT bez_s_bez_bezoekers_key.nextval INTO :new.bez_bezoekers_key FROM DUAL; END IF;
END;
/
CREATE OR REPLACE TRIGGER bez_t_bez_actie_B_IU
BEFORE INSERT OR UPDATE ON bez_actie
FOR EACH ROW
BEGIN
IF :new.bez_actie_key IS NULL THEN SELECT bez_s_bez_actie_key.nextval INTO :new.bez_actie_key FROM DUAL; END IF;
END;
/
#endif // BEZ

64
BEZ/BEZ_VIE.SRC Normal file
View File

@@ -0,0 +1,64 @@
#ifdef BEZ // 03-11-2000 PF
/* REVISIONS:
*
* 03-11-20000 PF CREATION (concept).
*/
#include "comsql.h"
CREATE OR REPLACE VIEW bez_v_bezoekers_balie
( bez_afspraak_naam
,bez_afspraak_bedrijf
,bez_afspraak_datum
,bez_afspraak_datum_tijd
,bez_afspraak_tijd
,prs_perslid_naam
,prs_afdeling_naam
,prs_afdeling_kostenplaats
,prs_perslid_telefoonnr
,bez_afspraak_ruimte
,bez_actie_omschrijving
) AS
SELECT
bez_be.bez_afspraak_naam
,bez_be.bez_afspraak_bedrijf
,bez_af.bez_afspraak_datum
,to_char(bez_af.bez_afspraak_datum, 'dd-mm-yyyy') || ' ' || to_char(bez_af.bez_afspraak_datum, 'hh24:mi')
,to_char(bez_af.bez_afspraak_datum, 'hh24:mi')
,prs_v_pg.prs_perslid_naam
,prs_af.prs_afdeling_naam
,prs_af.prs_afdeling_kostenplaats
,prs_v_pg.prs_perslid_telefoonnr
,bez_af.bez_afspraak_ruimte
,bez_ac.bez_actie_omschrijving
FROM bez_actie bez_ac
,bez_afspraak bez_af
,bez_bezoekers bez_be
,prs_afdeling prs_af
,prs_v_perslid_gegevens prs_v_pg
WHERE bez_be.bez_afspraak_key = bez_af.bez_afspraak_key
AND bez_af.bez_actie_key = bez_ac.bez_actie_key
AND bez_af.prs_perslid_key = prs_v_pg.prs_perslid_key
AND prs_af.prs_afdeling_key = prs_v_pg.prs_afdeling_key;
CREATE OR REPLACE VIEW bez_v_prs_perslid_gegevens
( prs_perslid_key
,prs_perslid_naam
,prs_perslid_telefoonnr
,prs_afdeling_key
,prs_afdeling_naam
,prs_afdeling_kostenplaats
) AS
SELECT prs_perslid_key
,prs_v_pg.prs_perslid_naam
,prs_v_pg.prs_perslid_telefoonnr
,prs_v_pg.prs_afdeling_key
,prs_v_pg.prs_afdeling_naam
,prs_af.prs_afdeling_kostenplaats
FROM prs_afdeling prs_af
,prs_v_perslid_gegevens prs_v_pg
WHERE prs_v_pg.prs_afdeling_key = prs_af.prs_afdeling_key;
#endif // BEZ