677 lines
22 KiB
Plaintext
677 lines
22 KiB
Plaintext
SET TERMOUT ON
|
|
SET FEEDBACK OFF
|
|
SET ECHO OFF
|
|
--
|
|
-- Update script van Facilitor versie 4.22 naar 4.23
|
|
--
|
|
/*
|
|
* Dit script wordt geprecompileerd dus is het mogelijk (verplicht)
|
|
* om #ifdef's te gebruiken voor de diverse modules.
|
|
*
|
|
* Gebruik daar waar in de *.SQL-variant geen commentaar-tekst moet komen de
|
|
* C-style van uitcommentarieren. Daar waar WEL tekst in de uitvoer moet komen
|
|
* moet -- gebruikt worden.
|
|
*/
|
|
#include "modules.h"
|
|
#include "comsql.h"
|
|
#include "INS\inssql.h"
|
|
/*
|
|
* Test eerst of de vorige versie van module FAC zoals genoemd in tabel
|
|
* fac_module wel het te verwachten versienummer heeft
|
|
* als dat niet zo is dient de gebruiker het script ZELF af te breken middels
|
|
* control-c.
|
|
* Als dat wel zo is vervolgt het script en zal aan het einde van het script
|
|
* het interne versienummer en de datum worden bijgewerkt.
|
|
*/
|
|
|
|
#ifdef MASTER
|
|
SPOOL OFF
|
|
SET HEADING OFF
|
|
CLEAR SCREEN
|
|
|
|
PROMPT ***********************************************************************
|
|
PROMPT
|
|
PROMPT UPGRADE SCRIPT van Facilitor versie 04.22 naar 04.23
|
|
PROMPT
|
|
SELECT 'De huidige versie van Facilitor zou moeten zijn 04.22 en is: '
|
|
|| fac_module_version
|
|
FROM fac_module
|
|
WHERE fac_module_name='FAC';
|
|
PROMPT
|
|
PROMPT Indien de huidige versie NIET de verwachte versie is mag dit script
|
|
PROMPT niet worden gerund! In dit geval dient het script nu middels
|
|
PROMPT CONTROL-C te worden afgebroken.
|
|
PROMPT
|
|
PROMPT Indien de versies overeenkomen dient nu ENTER te worden gedrukt...
|
|
PROMPT
|
|
PROMPT ***********************************************************************
|
|
ACCEPT nix PROMPT ''
|
|
PROMPT
|
|
PROMPT De upgrade wordt vervolgd. Even geduld a.u.b...
|
|
PROMPT
|
|
|
|
SET TERMOUT OFF
|
|
SET HEADING OFF
|
|
SET FEEDBACK OFF
|
|
SET ECHO OFF
|
|
SET VERIFY OFF
|
|
SET LINESIZE 1000
|
|
SET SERVEROUTPUT ON;
|
|
|
|
SPOOL $422to423.SQL
|
|
PROMPT SPOOL $422to423.LST;
|
|
|
|
UPDMOD(FAC,422to423)
|
|
UPDMOD(ALG,422to423)
|
|
UPDMOD(PRS,422to423)
|
|
UPDMOD(INS,422to423)
|
|
UPDMOD(MLD,422to423)
|
|
UPDMOD(CAD,422to423)
|
|
UPDMOD(AKZ,422to423)
|
|
UPDMOD(PRJ,422to423)
|
|
UPDMOD(RES,422to423)
|
|
UPDMOD(BES,422to423)
|
|
UPDMOD(BEZ,422to423)
|
|
UPDMOD(SCH,422to423)
|
|
UPDMOD(SLE,422to423)
|
|
UPDMOD(WEB,422to423)
|
|
UPDMOD(PRA,422to423)
|
|
|
|
UPDATE_VERSION('04.23');
|
|
COMMIT;
|
|
PROMPT SPOOL OFF;
|
|
SPOOL OFF
|
|
START $422to423.SQL
|
|
#endif // MASTER
|
|
|
|
/****************************** PLAATS HIERONDER DE UPDATES ******************************/
|
|
|
|
#ifdef ALG
|
|
INSERT INTO fac_functie (fac_functie_code, fac_functie_omschrijving,fac_functie_module,fac_functie_min_level) VALUES('ALG_RAP_GB', 'Gebruikersrapporten genereren','ALG',1);
|
|
#endif //ALG
|
|
|
|
|
|
#ifdef INS
|
|
CREATE OR REPLACE PACKAGE Ins AS
|
|
PROCEDURE Ins_Update_Kenmerkdeel(deel_key IN NUMBER,kenmerk_key IN NUMBER,waarde IN VARCHAR2,historymode IN VARCHAR2);
|
|
PROCEDURE Kmd_Insert(deel_key IN NUMBER,kenmerk_key IN NUMBER,waarde IN VARCHAR2,historymode IN VARCHAR2);
|
|
PROCEDURE Kmd_Delete(kenmerkdeel_key IN NUMBER,historymode IN VARCHAR2);
|
|
PROCEDURE Kmd_Update(kenmerkdeel_key IN NUMBER, deel_key IN NUMBER,kenmerk_key IN NUMBER,waarde IN VARCHAR2,historymode IN VARCHAR2);
|
|
END Ins;
|
|
/
|
|
|
|
CREATE OR REPLACE PACKAGE BODY Ins AS
|
|
PROCEDURE Ins_Update_Kenmerkdeel(deel_key IN NUMBER,kenmerk_key IN NUMBER,waarde IN VARCHAR2,historymode IN VARCHAR2) IS
|
|
v_kenmerkdeel_key NUMBER;
|
|
BEGIN
|
|
SELECT MAX(INS_KENMERKDEEL_KEY)
|
|
INTO v_kenmerkdeel_key
|
|
FROM INS_KENMERKDEEL
|
|
WHERE INS_DEEL_KEY = deel_key
|
|
AND INS_KENMERK_KEY = kenmerk_key
|
|
AND (INS_KENMERKDEEL_VERWIJDER IS NULL
|
|
OR INS_KENMERKDEEL_VERWIJDER BETWEEN TRUNC(SYSDATE) AND TRUNC(SYSDATE + 1));
|
|
|
|
Ins.kmd_update(v_kenmerkdeel_key,deel_key,kenmerk_key,waarde,historymode);
|
|
|
|
IF (v_kenmerkdeel_key IS NULL)
|
|
THEN
|
|
Ins.kmd_insert(deel_key,kenmerk_key,waarde,historymode);
|
|
END IF;
|
|
END Ins_Update_Kenmerkdeel;
|
|
|
|
PROCEDURE Kmd_Insert(deel_key IN NUMBER,kenmerk_key IN NUMBER,waarde IN VARCHAR2,historymode IN VARCHAR2) IS
|
|
BEGIN
|
|
IF waarde IS NOT NULL
|
|
THEN
|
|
INSERT INTO INS_KENMERKDEEL
|
|
( ins_kenmerk_key
|
|
, ins_deel_Key
|
|
, ins_kenmerkdeel_waarde)
|
|
VALUES(kenmerk_key
|
|
, Deel_Key
|
|
, waarde);
|
|
END IF;
|
|
END Kmd_Insert;
|
|
|
|
PROCEDURE Kmd_Delete(kenmerkdeel_key IN NUMBER,historymode IN VARCHAR2) IS
|
|
BEGIN
|
|
IF Historymode = '0'
|
|
THEN
|
|
--NON HISTORY MODE
|
|
DELETE FROM INS_KENMERKDEEL
|
|
WHERE ins_kenmerkdeel_key = kenmerkdeel_key;
|
|
ELSE
|
|
--HISTORY MODE
|
|
UPDATE INS_KENMERKDEEL
|
|
SET ins_kenmerkdeel_verwijder = SYSDATE
|
|
WHERE ins_kenmerkdeel_key = kenmerkdeel_key;
|
|
END IF;
|
|
END Kmd_Delete;
|
|
|
|
PROCEDURE Kmd_UPDATE(kenmerkdeel_key IN NUMBER, deel_key IN NUMBER, kenmerk_key IN NUMBER,waarde IN VARCHAR2,historymode IN VARCHAR2) IS
|
|
v_kenmerkdeel NUMBER;
|
|
BEGIN
|
|
IF Historymode = '0'
|
|
THEN
|
|
UPDATE INS_KENMERKDEEL
|
|
SET ins_kenmerkdeel_waarde = waarde
|
|
WHERE INS_KENMERKDEEL_KEY = kenmerkdeel_key;
|
|
ELSE
|
|
-- Object 'verwijderd' door ins_kenmerkdeel_verwijder NOT NULL te maken.
|
|
IF(waarde IS NULL)
|
|
THEN
|
|
Ins.kmd_delete(kenmerkdeel_key,historymode);
|
|
ELSE
|
|
|
|
BEGIN
|
|
SELECT MAX(INS_KENMERKDEEL_KEY)
|
|
INTO v_kenmerkdeel
|
|
FROM INS_KENMERKDEEL
|
|
WHERE (INS_KENMERKDEEL_VERWIJDER IS NULL
|
|
OR INS_KENMERKDEEL_VERWIJDER BETWEEN TRUNC(SYSDATE) AND TRUNC(SYSDATE + 1)
|
|
OR INS_KENMERKDEEL_VERWIJDER < TRUNC(SYSDATE))
|
|
AND ins_deel_key = deel_key
|
|
AND ins_kenmerk_key = kenmerk_key;
|
|
|
|
UPDATE INS_KENMERKDEEL
|
|
SET ins_kenmerkdeel_waarde = waarde
|
|
, ins_kenmerkdeel_verwijder = NULL
|
|
WHERE INS_KENMERKDEEL_KEY = v_kenmerkdeel;
|
|
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN
|
|
UPDATE INS_KENMERKDEEL
|
|
SET ins_kenmerkdeel_verwijder = SYSDATE
|
|
WHERE INS_KENMERKDEEL_KEY = kenmerkdeel_key;
|
|
-- nieuw object toevoegen.
|
|
INSERT INTO INS_KENMERKDEEL
|
|
( ins_kenmerk_key
|
|
, ins_deel_key
|
|
, ins_kenmerkdeel_waarde)
|
|
VALUES(kenmerk_key
|
|
, deel_key
|
|
, waarde);
|
|
END;
|
|
END IF;
|
|
END IF;
|
|
END Kmd_UPDATE;
|
|
END Ins;
|
|
/
|
|
|
|
ALTER TABLE INS_KENMERKDEEL DROP CONSTRAINT INS_U_INS_KENMERKDEEL;
|
|
|
|
ALTER TABLE INS_KENMERKDEEL
|
|
ADD CONSTRAINT INS_U_INS_KENMERKDEEL
|
|
UNIQUE(INS_KENMERK_KEY, INS_DEEL_KEY, INS_KENMERKDEEL_VERWIJDER);
|
|
|
|
INSERT INTO FAC_ENTITY_NAME
|
|
(FAC_ENTITY_SYSTEM_NAME,FAC_ENTITY_USER_NAME,FAC_ENTITY_USER_NAME_M,FAC_ENTITY_USER_NAME_PRE)
|
|
VALUES ('INS_EMail','EMail',NULL,NULL);
|
|
|
|
DEFINIEER_VIEW_AANWEZIG(ins_kenmerkdeel, ins_kenmerkdeel_verwijder,
|
|
ins_v_aanwezigkenmerkdeel, INS_NORMAAL_PRIVILEGE);
|
|
|
|
CREATE_VIEW(ins_v_srtdeel_kenmerkdeel, INS_BIBLIOTHEEK_PRIVILEGE)
|
|
(ins_kenmerk_key,
|
|
ins_srtkenmerk_key,
|
|
ins_kenmerk_niveau,
|
|
ins_kenmerk_verplicht,
|
|
ins_kenmerk_toonbaar,
|
|
ins_kenmerk_uniek,
|
|
ins_kenmerk_locatiekolom,
|
|
ins_kenmerk_volgnummer,
|
|
ins_srtkenmerk_omschrijving,
|
|
ins_srtkenmerk_dimensie,
|
|
ins_srtkenmerk_kenmerktype,
|
|
ins_srtkenmerk_lengte,
|
|
ins_srtkenmerk_dec,
|
|
ins_srtkenmerk_nmin,
|
|
ins_srtkenmerk_nmax,
|
|
ins_refsrtkenmerk_key,
|
|
ins_srtdeel_key,
|
|
ins_srtgroep_key,
|
|
ins_discipline_key,
|
|
ins_kenmerkdeel_key,
|
|
ins_deel_key,
|
|
ins_kenmerkdeel_waarde) AS
|
|
SELECT INS_SDK.ins_kenmerk_key,
|
|
INS_SDK.ins_srtkenmerk_key,
|
|
INS_SDK.ins_kenmerk_niveau,
|
|
INS_SDK.ins_kenmerk_verplicht,
|
|
INS_SDK.ins_kenmerk_toonbaar,
|
|
INS_SDK.ins_kenmerk_uniek,
|
|
INS_SDK.ins_kenmerk_locatiekolom,
|
|
INS_SDK.ins_kenmerk_volgnummer,
|
|
INS_SDK.ins_srtkenmerk_omschrijving,
|
|
INS_SDK.ins_srtkenmerk_dimensie,
|
|
INS_SDK.ins_srtkenmerk_kenmerktype,
|
|
INS_SDK.ins_srtkenmerk_lengte,
|
|
INS_SDK.ins_srtkenmerk_dec,
|
|
INS_SDK.ins_srtkenmerk_nmin,
|
|
INS_SDK.ins_srtkenmerk_nmax,
|
|
INS_SDK.ins_refsrtkenmerk_key,
|
|
INS_SDK.ins_srtdeel_key,
|
|
INS_SDK.ins_srtgroep_key,
|
|
INS_SDK.ins_discipline_key,
|
|
INS_KD.ins_kenmerkdeel_key,
|
|
INS_D.ins_deel_key,
|
|
INS_KD.ins_kenmerkdeel_waarde
|
|
FROM ins_v_aanwezigdeel INS_D,
|
|
ins_v_aanwezigkenmerkdeel INS_KD,
|
|
ins_v_srtdeel_kenmerk INS_SDK
|
|
WHERE INS_D.ins_deel_key = INS_KD.ins_deel_key
|
|
AND INS_D.ins_srtdeel_key = INS_SDK.ins_srtdeel_key
|
|
AND INS_SDK.ins_kenmerk_key = INS_KD.ins_kenmerk_key
|
|
UNION
|
|
SELECT INS_SDK.ins_kenmerk_key,
|
|
INS_SDK.ins_srtkenmerk_key,
|
|
INS_SDK.ins_kenmerk_niveau,
|
|
INS_SDK.ins_kenmerk_verplicht,
|
|
INS_SDK.ins_kenmerk_toonbaar,
|
|
INS_SDK.ins_kenmerk_uniek,
|
|
INS_SDK.ins_kenmerk_locatiekolom,
|
|
INS_SDK.ins_kenmerk_volgnummer,
|
|
INS_SDK.ins_srtkenmerk_omschrijving,
|
|
INS_SDK.ins_srtkenmerk_dimensie,
|
|
INS_SDK.ins_srtkenmerk_kenmerktype,
|
|
INS_SDK.ins_srtkenmerk_lengte,
|
|
INS_SDK.ins_srtkenmerk_dec,
|
|
INS_SDK.ins_srtkenmerk_nmin,
|
|
INS_SDK.ins_srtkenmerk_nmax,
|
|
INS_SDK.ins_refsrtkenmerk_key,
|
|
INS_SDK.ins_srtdeel_key,
|
|
INS_SDK.ins_srtgroep_key,
|
|
INS_SDK.ins_discipline_key,
|
|
TO_NUMBER(NULL),
|
|
INS_D.ins_deel_key,
|
|
NULL
|
|
FROM ins_v_aanwezigdeel INS_D,
|
|
ins_v_srtdeel_kenmerk INS_SDK
|
|
WHERE INS_D.ins_srtdeel_key = INS_SDK.ins_srtdeel_key
|
|
AND NOT EXISTS (SELECT INS_KD.ins_deel_key
|
|
FROM ins_v_aanwezigkenmerkdeel INS_KD
|
|
WHERE INS_KD.ins_deel_key = INS_D.ins_deel_key
|
|
AND INS_KD.ins_kenmerk_key = INS_SDK.ins_kenmerk_key)
|
|
UNION
|
|
SELECT INS_SDK.ins_kenmerk_key,
|
|
INS_SDK.ins_srtkenmerk_key,
|
|
INS_SDK.ins_kenmerk_niveau,
|
|
INS_SDK.ins_kenmerk_verplicht,
|
|
INS_SDK.ins_kenmerk_toonbaar,
|
|
INS_SDK.ins_kenmerk_uniek,
|
|
INS_SDK.ins_kenmerk_locatiekolom,
|
|
INS_SDK.ins_kenmerk_volgnummer,
|
|
INS_SDK.ins_srtkenmerk_omschrijving,
|
|
INS_SDK.ins_srtkenmerk_dimensie,
|
|
INS_SDK.ins_srtkenmerk_kenmerktype,
|
|
INS_SDK.ins_srtkenmerk_lengte,
|
|
INS_SDK.ins_srtkenmerk_dec,
|
|
INS_SDK.ins_srtkenmerk_nmin,
|
|
INS_SDK.ins_srtkenmerk_nmax,
|
|
INS_SDK.ins_refsrtkenmerk_key,
|
|
INS_SDK.ins_srtdeel_key,
|
|
INS_SDK.ins_srtgroep_key,
|
|
INS_SDK.ins_discipline_key,
|
|
TO_NUMBER(NULL),
|
|
TO_NUMBER(NULL),
|
|
NULL
|
|
FROM ins_v_srtdeel_kenmerk INS_SDK;
|
|
|
|
CREATE_VIEW(ins_v_srtonderdeel_kenmerkdeel,INS_NORMAAL_PRIVILEGE)
|
|
(ins_kenmerk_key,
|
|
ins_srtkenmerk_key,
|
|
ins_kenmerk_niveau,
|
|
ins_kenmerk_verplicht,
|
|
ins_kenmerk_toonbaar,
|
|
ins_kenmerk_volgnummer,
|
|
ins_srtkenmerk_omschrijving,
|
|
ins_srtkenmerk_dimensie,
|
|
ins_srtkenmerk_kenmerktype,
|
|
ins_srtkenmerk_lengte,
|
|
ins_srtkenmerk_dec,
|
|
ins_srtkenmerk_nmin,
|
|
ins_srtkenmerk_nmax,
|
|
ins_refsrtkenmerk_key,
|
|
ins_srtdeel_key,
|
|
ins_srtgroep_key,
|
|
ins_discipline_key,
|
|
ins_kenmerkdeel_key,
|
|
ins_deel_key,
|
|
ins_kenmerkdeel_waarde) AS
|
|
SELECT INS_SDK.ins_kenmerk_key,
|
|
INS_SDK.ins_srtkenmerk_key,
|
|
INS_SDK.ins_kenmerk_niveau,
|
|
INS_SDK.ins_kenmerk_verplicht,
|
|
INS_SDK.ins_kenmerk_toonbaar,
|
|
INS_SDK.ins_kenmerk_volgnummer,
|
|
INS_SDK.ins_srtkenmerk_omschrijving,
|
|
INS_SDK.ins_srtkenmerk_dimensie,
|
|
INS_SDK.ins_srtkenmerk_kenmerktype,
|
|
INS_SDK.ins_srtkenmerk_lengte,
|
|
INS_SDK.ins_srtkenmerk_dec,
|
|
INS_SDK.ins_srtkenmerk_nmin,
|
|
INS_SDK.ins_srtkenmerk_nmax,
|
|
INS_SDK.ins_refsrtkenmerk_key,
|
|
INS_SDK.ins_srtdeel_key,
|
|
INS_SDK.ins_srtgroep_key,
|
|
INS_SDK.ins_discipline_key,
|
|
INS_KD.ins_kenmerkdeel_key,
|
|
INS_D.ins_deel_key,
|
|
INS_KD.ins_kenmerkdeel_waarde
|
|
FROM ins_deel INS_D,
|
|
ins_v_aanwezigkenmerkdeel INS_KD,
|
|
ins_v_srtdeel_kenmerk INS_SDK
|
|
WHERE INS_D.ins_deel_key = INS_KD.ins_deel_key
|
|
AND INS_D.ins_srtdeel_key = INS_SDK.ins_srtdeel_key
|
|
AND INS_SDK.ins_kenmerk_key = INS_KD.ins_kenmerk_key
|
|
AND INS_D.ins_deel_parent_key IS NOT NULL
|
|
UNION
|
|
SELECT INS_SDK.ins_kenmerk_key,
|
|
INS_SDK.ins_srtkenmerk_key,
|
|
INS_SDK.ins_kenmerk_niveau,
|
|
INS_SDK.ins_kenmerk_verplicht,
|
|
INS_SDK.ins_kenmerk_toonbaar,
|
|
INS_SDK.ins_kenmerk_volgnummer,
|
|
INS_SDK.ins_srtkenmerk_omschrijving,
|
|
INS_SDK.ins_srtkenmerk_dimensie,
|
|
INS_SDK.ins_srtkenmerk_kenmerktype,
|
|
INS_SDK.ins_srtkenmerk_lengte,
|
|
INS_SDK.ins_srtkenmerk_dec,
|
|
INS_SDK.ins_srtkenmerk_nmin,
|
|
INS_SDK.ins_srtkenmerk_nmax,
|
|
INS_SDK.ins_refsrtkenmerk_key,
|
|
INS_SDK.ins_srtdeel_key,
|
|
INS_SDK.ins_srtgroep_key,
|
|
INS_SDK.ins_discipline_key,
|
|
TO_NUMBER(NULL),
|
|
INS_D.ins_deel_key,
|
|
NULL
|
|
FROM ins_deel INS_D,
|
|
ins_v_srtdeel_kenmerk INS_SDK
|
|
WHERE INS_D.ins_srtdeel_key = INS_SDK.ins_srtdeel_key
|
|
AND INS_D.ins_deel_parent_key IS NOT NULL
|
|
AND NOT EXISTS (SELECT INS_KD.ins_deel_key
|
|
FROM ins_v_aanwezigkenmerkdeel INS_KD
|
|
WHERE INS_KD.ins_deel_key = INS_D.ins_deel_key
|
|
AND INS_KD.ins_kenmerk_key = INS_SDK.ins_kenmerk_key)
|
|
UNION
|
|
SELECT INS_SDK.ins_kenmerk_key,
|
|
INS_SDK.ins_srtkenmerk_key,
|
|
INS_SDK.ins_kenmerk_niveau,
|
|
INS_SDK.ins_kenmerk_verplicht,
|
|
INS_SDK.ins_kenmerk_toonbaar,
|
|
INS_SDK.ins_kenmerk_volgnummer,
|
|
INS_SDK.ins_srtkenmerk_omschrijving,
|
|
INS_SDK.ins_srtkenmerk_dimensie,
|
|
INS_SDK.ins_srtkenmerk_kenmerktype,
|
|
INS_SDK.ins_srtkenmerk_lengte,
|
|
INS_SDK.ins_srtkenmerk_dec,
|
|
INS_SDK.ins_srtkenmerk_nmin,
|
|
INS_SDK.ins_srtkenmerk_nmax,
|
|
INS_SDK.ins_refsrtkenmerk_key,
|
|
INS_SDK.ins_srtdeel_key,
|
|
INS_SDK.ins_srtgroep_key,
|
|
INS_SDK.ins_discipline_key,
|
|
TO_NUMBER(NULL),
|
|
TO_NUMBER(NULL),
|
|
NULL
|
|
FROM ins_v_srtdeel_kenmerk INS_SDK;
|
|
|
|
#endif // INS
|
|
|
|
|
|
#ifdef PRS
|
|
ALTER TABLE PRS_EENHEID
|
|
ADD (prs_bedrijf_key NUMBER(10));
|
|
|
|
|
|
CREATE_TRIGGER(prs_t_prs_eenheid_B_IU)
|
|
BEFORE INSERT OR UPDATE ON prs_eenheid
|
|
FOR EACH ROW
|
|
BEGIN
|
|
UPDATE_PRIMARY_KEY(prs_eenheid_key,prs_s_prs_eenheid_key);
|
|
UPDATE_UPPER(prs_eenheid_code, prs_eenheid_upper);
|
|
CHECK_NOG_REFERENCES(prs_eenheid, prs_eenheid_verwijder, prs_v_aanwezigafdeling,
|
|
prs_eenheid_key, 'prs_m179');
|
|
UPDATE_AANMAAKDATUM(prs_eenheid, prs_eenheid_aanmaak);
|
|
IF :NEW.prs_bedrijf_key <> :OLD.prs_bedrijf_key
|
|
OR :OLD.prs_bedrijf_key IS NULL
|
|
OR :NEW.prs_bedrijf_key IS NULL
|
|
THEN
|
|
UPDATE PRS_AFDELING
|
|
SET prs_bedrijf_key = :NEW.prs_bedrijf_key
|
|
WHERE prs_eenheid_key = :NEW.prs_eenheid_key
|
|
AND prs_afdeling_verwijder IS NULL;
|
|
END IF;
|
|
END;
|
|
/
|
|
|
|
|
|
INSERT INTO FAC_ENTITY_NAME
|
|
(FAC_ENTITY_SYSTEM_NAME,FAC_ENTITY_USER_NAME,FAC_ENTITY_USER_NAME_M,FAC_ENTITY_USER_NAME_PRE)
|
|
VALUES('PRS_PERSLID_MOBIELNR','Mobielnr.',NULL,NULL);
|
|
#endif // PRS
|
|
|
|
#ifdef MLD
|
|
DROP TRIGGER fac_t_web_mes_on_changemld;
|
|
|
|
CREATE_TRIGGER(web_t_web_mes_on_changemld)
|
|
AFTER INSERT OR UPDATE ON MLD_MELDING
|
|
FOR EACH ROW
|
|
BEGIN
|
|
DECLARE mes VARCHAR2(255);
|
|
actkey NUMBER;
|
|
code VARCHAR2(6);
|
|
keepmes NUMBER;
|
|
stdmld VARCHAR2(30);
|
|
disc VARCHAR2(30);
|
|
BEGIN
|
|
IF :OLD.MLD_MELDING_DATUM IS NULL AND :NEW.MLD_MELDING_DATUM IS NOT NULL THEN
|
|
code := 'NEWMLD';
|
|
ELSIF :OLD.MLD_MELDING_AFGEWEZEN IS NULL AND :NEW.MLD_MELDING_AFGEWEZEN IS NOT NULL THEN
|
|
code := 'AFWMLD';
|
|
ELSIF :OLD.MLD_MELDING_INGEZIEN IS NULL AND :NEW.MLD_MELDING_INGEZIEN IS NOT NULL THEN
|
|
code := 'INGMLD';
|
|
ELSIF :OLD.MLD_MELDING_GEACCEPTEERD IS NULL AND :NEW.MLD_MELDING_GEACCEPTEERD IS NOT NULL THEN
|
|
code := 'ACPMLD';
|
|
ELSIF :OLD.MLD_MELDING_VERWERKT IS NULL AND :NEW.MLD_MELDING_VERWERKT IS NOT NULL THEN
|
|
code := 'VERMLD';
|
|
ELSIF :OLD.MLD_MELDING_AFGEMELD IS NULL AND :NEW.MLD_MELDING_AFGEMELD IS NOT NULL THEN
|
|
code := 'AFMMLD';
|
|
ELSE
|
|
code := 'UPDMLD';
|
|
END IF;
|
|
BEGIN
|
|
SELECT WEB_USER_MESS_TEXT_DSC, WEB_USER_MESS_ACTIONS_KEY
|
|
INTO mes,actkey
|
|
FROM WEB_USER_MESS_TEXT
|
|
WHERE WEB_USER_MESS_TEXT_CODE = code;
|
|
EXCEPTION WHEN NO_DATA_FOUND THEN NULL;
|
|
END;
|
|
|
|
-- We can customize the events to trigger information to the user by the content of web_user_mess_text
|
|
|
|
IF actkey IS NOT NULL THEN
|
|
SELECT M.mld_stdmelding_omschrijving, D.ins_discipline_omschrijving
|
|
INTO stdmld,disc
|
|
FROM mld_stdmelding M, mld_discipline D
|
|
WHERE M.mld_ins_discipline_key=D.ins_discipline_key
|
|
AND M.mld_stdmelding_key=:new.mld_stdmelding_key;
|
|
|
|
INSERT INTO WEB_USER_MESSAGES
|
|
(web_user_message_key,
|
|
prs_perslid_key_sender,
|
|
prs_perslid_key_receiver,
|
|
web_user_mess_actions_key,
|
|
web_user_mess_dsc,
|
|
web_user_mess_action_status,
|
|
web_user_mess_action_params) VALUES
|
|
(WEB_S_WEB_MESSAGE_KEY.NEXTVAL,
|
|
NULL,
|
|
:NEW.PRS_PERSLID_KEY,
|
|
actkey,
|
|
REPLACE(REPLACE(REPLACE (mes,'##DISC##',disc),'##STDMLD##',stdmld),'##KEY##',:NEW.mld_melding_key),
|
|
1,
|
|
:NEW.MLD_MELDING_KEY);
|
|
END IF;
|
|
keepmes := 6;
|
|
DELETE FROM WEB_USER_MESSAGES WHERE WEB_USER_MESS_ACTION_DATUM < (SYSDATE - keepmes);
|
|
END;
|
|
END;
|
|
/
|
|
|
|
-- Enhanced functionality. Update existing messagelib. No problem if record does not exist.
|
|
UPDATE web_user_mess_text
|
|
SET web_user_mess_text_dsc='Melding ##KEY## (##DISC##/##STDMLD##) is geregistreerd'
|
|
WHERE web_user_mess_text_code='NEWMLD';
|
|
|
|
UPDATE web_user_mess_text
|
|
SET web_user_mess_text_dsc='Melding ##KEY## (##DISC##/##STDMLD##) is afgewezen'
|
|
WHERE web_user_mess_text_code='AFWMLD';
|
|
|
|
UPDATE web_user_mess_text
|
|
SET web_user_mess_text_dsc='Melding ##KEY## (##DISC##/##STDMLD##) is ingezien'
|
|
WHERE web_user_mess_text_code='INGMLD';
|
|
|
|
UPDATE web_user_mess_text
|
|
SET web_user_mess_text_dsc='Melding ##KEY## (##DISC##/##STDMLD##) is geaccepteerd'
|
|
WHERE web_user_mess_text_code='ACPMLD';
|
|
|
|
UPDATE web_user_mess_text
|
|
SET web_user_mess_text_dsc='Melding ##KEY## (##DISC##/##STDMLD##) is gereed gemeld'
|
|
WHERE web_user_mess_text_code='AFMMLD';
|
|
|
|
UPDATE web_user_mess_text
|
|
SET web_user_mess_text_dsc='Melding ##KEY## (##DISC##/##STDMLD##) is verwerkt'
|
|
WHERE web_user_mess_text_code='VERMLD';
|
|
|
|
UPDATE web_user_mess_text
|
|
SET web_user_mess_text_dsc='Melding ##KEY## (##DISC##/##STDMLD##) is gewijzigd'
|
|
WHERE web_user_mess_text_code='UPDMLD';
|
|
|
|
ALTER TABLE mld_stdmelding ADD mld_stdmelding_kostensoort VARCHAR2(7);
|
|
|
|
--redefine views
|
|
CREATE_VIEW(MLD_discipline, MLD_BIBLIOTHEEK_PRIVILEGE)
|
|
AS
|
|
SELECT * FROM ALL_discipline WHERE ins_discipline_module = 'MLD';
|
|
|
|
DEFINIEER_VIEW_AANWEZIG(MLD_discipline, ins_discipline_verwijder,
|
|
MLD_v_aanwezigdiscipline,MLD_BIBLIOTHEEK_PRIVILEGE);
|
|
|
|
CREATE_VIEW(mld_v_ins_discipline, MLD_NORMAAL_PRIVILEGE) AS
|
|
SELECT * FROM MLD_v_aanwezigdiscipline;
|
|
|
|
CREATE_VIEW(mld_v_stdmelding_gegevens, MLD_NORMAAL_PRIVILEGE) AS
|
|
SELECT MLD_SM.mld_stdmelding_key,
|
|
MLD_SM.mld_ins_discipline_key,
|
|
MLD_D.ins_discipline_omschrijving,
|
|
MLD_SM.mld_stdmelding_omschrijving,
|
|
MLD_SM.mld_stdmelding_upper,
|
|
MLD_SM.mld_stdmelding_urgentie,
|
|
MLD_SM.mld_stdmelding_kostensoort
|
|
FROM mld_stdmelding MLD_SM, mld_v_ins_discipline MLD_D
|
|
WHERE MLD_SM.mld_ins_discipline_key = MLD_D.ins_discipline_key;
|
|
|
|
|
|
#endif // MLD
|
|
|
|
|
|
#ifdef RES
|
|
|
|
#endif // RES
|
|
|
|
#ifdef BES
|
|
|
|
#endif // BES
|
|
|
|
#ifdef BEZ
|
|
ALTER TABLE bez_afspraak
|
|
MODIFY bez_afspraak_opmerking VARCHAR2(320);
|
|
|
|
ALTER TABLE bez_bezoekers
|
|
ADD bez_bezoekers_out DATE;
|
|
|
|
#endif // BEZ
|
|
|
|
|
|
#ifdef WEB
|
|
DEF_FAC_FUNCTIE('WEB_FGPLAN', 'Graphics:Plattegronden', 'WEB', 1);
|
|
DEF_FAC_FUNCTIE('WEB_HLPADM', 'Beheer: WebHelp aanpassen', 'WEB', 2);
|
|
|
|
CREATE_TABLE(web_helpsystem,WEB_BIBLIOTHEEK_PRIVILEGE)
|
|
(
|
|
web_helpsystem_key
|
|
NUMBER(10) PRIMARY KEY,
|
|
full_file_name
|
|
VARCHAR2(256),
|
|
control_id
|
|
VARCHAR2(256),
|
|
control_title
|
|
VARCHAR2(256),
|
|
tab_index
|
|
NUMBER(5),
|
|
help_text
|
|
LONG
|
|
);
|
|
|
|
CREATE INDEX web_i_web_helpsystem_id ON web_helpsystem(full_file_name,control_id);
|
|
|
|
CREATE SEQUENCE web_s_helpsys_key MINVALUE 1;
|
|
|
|
#endif // WEB
|
|
|
|
|
|
#ifdef SCH
|
|
|
|
#endif // SCH
|
|
|
|
|
|
#ifdef FAC
|
|
|
|
UPDATE FAC_MESSAGE
|
|
SET FAC_MESSAGE_TEXT = 'Facilitor 4.23'
|
|
WHERE FAC_MESSAGE_CODE = 'FAC_M002';
|
|
|
|
UPDATE FAC_MESSAGE
|
|
SET FAC_MESSAGE_TEXT = 'Welkom bij Facilitor 4.23'
|
|
WHERE FAC_MESSAGE_CODE = 'FAC_M035';
|
|
|
|
|
|
#endif // FAC
|
|
|
|
#ifdef PRA
|
|
|
|
CREATE_VIEW(prs_v_perslidafdeling_gegevens, PRS_BIBLIOTHEEK_PRIVILEGE)
|
|
(prs_afdeling_key
|
|
,prs_afdeling_naam
|
|
,prs_eenheid_key
|
|
,prs_perslid_key
|
|
,prs_perslidafdeling_key)
|
|
AS
|
|
SELECT A.prs_afdeling_key, A.prs_afdeling_naam, A.prs_eenheid_key, P.prs_perslid_key,1
|
|
FROM prs_v_aanwezigafdeling A,prs_v_aanwezigperslid P, PRS_PERSLIDAFDELING PA
|
|
WHERE PA.prs_perslid_key = P.prs_perslid_key
|
|
AND PA.prs_afdeling_key = A.prs_afdeling_key
|
|
UNION
|
|
SELECT AA.prs_afdeling_key, AA.prs_afdeling_naam, AA.prs_eenheid_key, PP.prs_perslid_key,0
|
|
FROM prs_v_aanwezigafdeling AA,prs_v_aanwezigperslid PP
|
|
WHERE NOT EXISTS (SELECT A.prs_afdeling_key,P.prs_perslid_key
|
|
FROM prs_v_aanwezigafdeling A,prs_v_aanwezigperslid P, PRS_PERSLIDAFDELING PA
|
|
WHERE PA.prs_perslid_key = P.prs_perslid_key
|
|
AND PA.prs_afdeling_key = A.prs_afdeling_key
|
|
AND A.prs_afdeling_key = AA.prs_afdeling_key
|
|
AND P.prs_perslid_key = PP.prs_perslid_key);
|
|
|
|
ALTER TABLE prs_perslid_wijziging
|
|
ADD
|
|
(
|
|
prs_perslid_wijziging_pz_key
|
|
NUMBER(10)
|
|
CONSTRAINT prs_c_prs_perslid_pz_key1 CHECK (prs_perslid_wijziging_pz_key IS NOT NULL)
|
|
CONSTRAINT prs_r_prs_perslid_pz_key1 REFERENCES prs_perslid(prs_perslid_key));
|
|
|
|
#endif // PRA
|