629 lines
27 KiB
Plaintext
629 lines
27 KiB
Plaintext
SET TERMOUT ON
|
|
SET FEEDBACK OFF
|
|
SET ECHO OFF
|
|
--
|
|
-- Update script van Facilitor versie 4.10 naar 4.11
|
|
--
|
|
|
|
/*
|
|
* 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.10 naar 04.11
|
|
PROMPT
|
|
SELECT 'De huidige versie van Facilitor zou moeten zijn 04.10 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 $410TO411.SQL
|
|
PROMPT SPOOL $410TO411.LST;
|
|
|
|
UPDMOD(FAC,410TO411)
|
|
UPDMOD(ALG,410TO411)
|
|
UPDMOD(PRS,410TO411)
|
|
UPDMOD(INS,410TO411)
|
|
UPDMOD(MLD,410TO411)
|
|
UPDMOD(CAD,410TO411)
|
|
UPDMOD(AKZ,410TO411)
|
|
UPDMOD(PRJ,410TO411)
|
|
UPDMOD(RES,410TO411)
|
|
UPDMOD(SCH,410TO411)
|
|
UPDMOD(SLE,410TO411)
|
|
|
|
UPDATE_VERSION('04.11');
|
|
COMMIT;
|
|
PROMPT SPOOL OFF;
|
|
SPOOL OFF
|
|
START $410TO411.SQL
|
|
#endif // MASTER
|
|
|
|
/* denk aan #ifdef constructies! */
|
|
|
|
/* PLAATS HIERONDER DE UPDATES */
|
|
|
|
#ifdef INS
|
|
|
|
DEF_FAC_MESSAGE ('INS_M203', 'Kopieren object','Copy object');
|
|
DEF_FAC_MESSAGE ('INS_M204', 'Kopieren geselecteerde objecten','Copy selected objects');
|
|
|
|
CREATE_TRIGGER(ins_t_ins_deel_S_A_IU)
|
|
AFTER UPDATE ON ins_deel
|
|
BEGIN
|
|
DECLARE
|
|
IndexNr NUMBER;
|
|
PrimaryKey NUMBER(10);
|
|
Dummy BOOLEAN;
|
|
lNested NUMBER;
|
|
lCount NUMBER;
|
|
deletemode DATE;
|
|
old_datum_of_deel DATE;
|
|
BEGIN
|
|
-- We controleren of we zijn aangeroepen vanuit onszelf. Ook al hebben we daarbij
|
|
-- geen keys aan fac_selectie toegevoegd, die van het hoogste niveau staan er, en
|
|
-- die moeten we niet weer vanaf nummer 1 gaan behandelen, anders zitten we echt
|
|
-- in een oneindige loop.
|
|
-- We krijgen hier geen mee, omdat we geen onderdelen van onderdelen kennen.
|
|
lNested := fac_p_fac_save_restore.GetPrimaryKey('INS_TRIGGER_BUSY', 1);
|
|
IF lNested IS NULL
|
|
THEN
|
|
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);
|
|
|
|
WHILE PrimaryKey IS NOT NULL
|
|
LOOP
|
|
Dummy := fac_p_fac_save_restore.SavePrimaryKey('INS_TRIGGER_BUSY', 1);
|
|
|
|
/* 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) */
|
|
SELECT ins_deel_verwijder
|
|
INTO deletemode
|
|
FROM ins_deel
|
|
WHERE ins_deel_key = PrimaryKey;
|
|
|
|
|
|
IF deletemode IS NULL /* Het deel wordt terug gehaald (UNDO) */
|
|
THEN
|
|
UPDATE ins_deel
|
|
SET ins_deel_verwijder = NULL /* Bijbehorende onderdelen ook terughalen */
|
|
WHERE ins_deel.ins_deel_parent_key = PrimaryKey
|
|
AND ins_deel.ins_deel_verwijder = old_datum_of_deel;
|
|
ELSE
|
|
/* Het deel wordt (of beter: is) verwijderd */
|
|
--
|
|
-- Als dit object als kenmerk in een ander object wordt gebruikt
|
|
-- mag dit object niet worden verwijderd.
|
|
--
|
|
DECLARE
|
|
v_referentie VARCHAR2(100);
|
|
BEGIN
|
|
BEGIN
|
|
SELECT D.ins_deel_omschrijving
|
|
INTO v_referentie
|
|
FROM ins_deel D
|
|
, ins_kenmerkdeel KD
|
|
, ins_kenmerk K
|
|
, ins_srtkenmerk SK
|
|
, ins_refsrtkenmerk RS
|
|
WHERE D.ins_deel_verwijder IS NULL
|
|
AND RS.ins_refsrtkenmerk_kolomnaam = 'INS_DEEL_KEY'
|
|
AND RS.ins_refsrtkenmerk_key = SK.ins_refsrtkenmerk_key
|
|
AND SK.ins_srtkenmerk_key = K.ins_srtkenmerk_key
|
|
AND K.ins_kenmerk_key = KD.ins_kenmerk_key
|
|
AND KD.ins_deel_key = D.ins_deel_key
|
|
AND KD.ins_kenmerkdeel_waarde IN (SELECT to_char(PrimaryKey)
|
|
FROM dual
|
|
UNION
|
|
SELECT to_char(ins_deel_key)
|
|
FROM ins_deel
|
|
WHERE ins_deel_parent_key = PrimaryKey);
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND THEN v_referentie := null;
|
|
WHEN TOO_MANY_ROWS THEN v_referentie := 'X';
|
|
END;
|
|
--
|
|
IF v_referentie IS NOT NULL
|
|
THEN
|
|
-- Dit object of een van zijn onderdelen wordt dus als referentie in een ander object gebruikt.
|
|
-- Draai het verwijderen terug.
|
|
UPDATE ins_deel
|
|
SET ins_deel_verwijder = null
|
|
WHERE ins_deel_key = PrimaryKey;
|
|
raise_application_error(-20000,'ins_m202');
|
|
ELSE
|
|
-- Dit object of een van zijn onderdelen wordt niet als referentie naar een ander object gebruikt.
|
|
-- De onderdelen mogen nu ook verwijderd worden.
|
|
UPDATE ins_deel
|
|
SET ins_deel_verwijder = deletemode /* Alle AANWEZIGE onderdelen verwijderen */
|
|
WHERE ins_deel.ins_deel_parent_key = PrimaryKey
|
|
AND ins_deel.ins_deel_verwijder IS NULL;
|
|
END IF;
|
|
END;
|
|
END IF;
|
|
|
|
Dummy := fac_p_fac_save_restore.ResetSelectie('INS_TRIGGER_BUSY');
|
|
|
|
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;
|
|
Dummy := fac_p_fac_save_restore.ResetSelectie('INS_DEEL_VERWIJDER');
|
|
IndexNr := 1;
|
|
PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_CASCADE', IndexNr);
|
|
WHILE PrimaryKey IS NOT NULL
|
|
LOOP
|
|
-- Om weer te voorkomen dat de BEFORE STATEMENT trigger onnodig vuurt, controleren
|
|
-- we eerst of het statement wel nodig is, d.i. of er onderdelen zijn die nog
|
|
-- verplaatst moeten worden.
|
|
SELECT COUNT(*)
|
|
INTO lCount
|
|
FROM ins_deel
|
|
WHERE ins_deel.ins_deel_parent_key = PrimaryKey
|
|
AND ins_deel.ins_deel_verwijder IS NULL;
|
|
|
|
IF lCount > 0
|
|
THEN
|
|
Dummy := fac_p_fac_save_restore.SavePrimaryKey('INS_TRIGGER_BUSY', 1);
|
|
UPDATE ins_deel
|
|
SET (ins_alg_ruimte_key
|
|
, ins_alg_ruimte_type
|
|
, ins_alg_locatie_key) = (SELECT ins_alg_ruimte_key
|
|
, ins_alg_ruimte_type
|
|
, ins_alg_locatie_key
|
|
FROM ins_deel
|
|
WHERE ins_deel_key = PrimaryKey)
|
|
WHERE ins_deel.ins_deel_parent_key = PrimaryKey
|
|
AND ins_deel.ins_deel_verwijder IS NULL;
|
|
Dummy := fac_p_fac_save_restore.ResetSelectie('INS_TRIGGER_BUSY');
|
|
END IF;
|
|
IndexNr := IndexNr + 1;
|
|
PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_CASCADE', IndexNr);
|
|
END LOOP;
|
|
Dummy := fac_p_fac_save_restore.ResetSelectie('INS_DEEL_CASCADE');
|
|
ELSE
|
|
NULL;
|
|
END IF; -- lNested
|
|
END;
|
|
-- Add statements that need execution even when nested here:
|
|
--
|
|
-- Attentie: Alle koppelingen met delen uit de selectie worden verwijderd. Doordat deze
|
|
-- selectie tijdens deze transactie groter kan worden door de bijbehorende onderdelen, wordt
|
|
-- mogelijkerwijs vaker ins_p_delete_deelkoppeling() aangeroepen dan strikt nodig is (de reeds
|
|
-- aanwezige keys blijven oon staan). Dit is niet echt een probleem in de huidige context, maar
|
|
-- kan dat worden als die functie veel tijd kost ook al is er niks te doen.
|
|
DECLARE
|
|
IndexNr NUMBER;
|
|
PrimaryKey NUMBER(10);
|
|
Dummy BOOLEAN;
|
|
BEGIN
|
|
IndexNr := 1;
|
|
PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_ONTKOPPEL', IndexNr);
|
|
WHILE PrimaryKey IS NOT NULL
|
|
LOOP
|
|
Dummy := ins_p_delete_deelkoppeling(PrimaryKey);
|
|
IndexNr := IndexNr + 1;
|
|
PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_ONTKOPPEL', IndexNr);
|
|
END LOOP;
|
|
Dummy := fac_p_fac_save_restore.ResetSelectie('INS_DEEL_ONTKOPPEL');
|
|
END;
|
|
END;
|
|
/
|
|
|
|
#endif // INS
|
|
|
|
|
|
#ifdef MLD
|
|
|
|
DEF_FAC_MESSAGE ('MLD_M235', 'Bestand %1% niet gevonden.', 'File %1% not found.');
|
|
DEF_FAC_MESSAGE ('MLD_M236', 'Wilt u een opdracht aanmaken bij deze melding?','Create an order for this call?');
|
|
DEF_FAC_ENTITY ('MLD_MELDING_ACCEPTEREN','Accepteren',null,null,'Accept');
|
|
DEF_FAC_ENTITY ('MLD_MELDING_AFWIJZEN','Afwijzen',null,null,'Reject');
|
|
|
|
CREATE OR REPLACE FUNCTION MLD_F_Bereken_Urgentie(MODULE CHAR, status_opdr NUMBER, datum_begin DATE,
|
|
datum_uitgevoerd DATE, aantal_dagen NUMBER) RETURN NUMBER IS
|
|
verwerkt_key NUMBER(10);
|
|
afgemeld_key NUMBER(10);
|
|
datum DATE;
|
|
BEGIN
|
|
-- verwerkt_key := bepaal_statusopdr_key(get_fac_entity_user('MLD_STATUSOPDR_VERWERKT'));
|
|
SELECT mld_statusopdr_key INTO verwerkt_key FROM MLD_STATUSOPDR
|
|
WHERE mld_statusopdr_upper = 'MLD_VERWERKT';
|
|
|
|
-- afgemeld_key := bepaal_statusopdr_key(get_fac_entity_user('MLD_STATUSOPDR_AFGEMELD'));
|
|
SELECT mld_statusopdr_key INTO afgemeld_key FROM MLD_STATUSOPDR
|
|
WHERE mld_statusopdr_upper = 'MLD_AFGEMELD';
|
|
|
|
IF status_opdr = verwerkt_key OR status_opdr = afgemeld_key
|
|
THEN
|
|
RETURN 0;
|
|
ELSE
|
|
datum := SYSDATE;
|
|
END IF;
|
|
|
|
RETURN ROUND(((TRUNC(datum) - TRUNC(datum_begin))/aantal_dagen) * 100, 0);
|
|
END;
|
|
/
|
|
|
|
DROP FUNCTION MLD_P_BepaalBedrijfOpdrVolgnr;
|
|
|
|
CREATE OR REPLACE FUNCTION MLD_F_BepaalOpdrMeldingVolgnr(MeldingKey IN NUMBER) RETURN NUMBER IS
|
|
ReturnVal NUMBER;
|
|
BEGIN
|
|
SELECT nvl(max(mld_opdr_bedrijfopdr_volgnr),0) + 1
|
|
INTO ReturnVal
|
|
FROM mld_opdr
|
|
WHERE mld_melding_key = MeldingKey;
|
|
RETURN ReturnVal;
|
|
END;
|
|
/
|
|
|
|
|
|
CREATE OR REPLACE PACKAGE MLD_P_MLD_DATUMTIJD AS
|
|
FUNCTION DatumTijdPlusUitvoerTijd(BeginDatum IN DATE
|
|
,UitvoerTijd IN NUMBER
|
|
,UitvoerTijdType IN VARCHAR) RETURN DATE;
|
|
END mld_p_mld_datumtijd;
|
|
/
|
|
|
|
CREATE OR REPLACE PACKAGE BODY MLD_P_MLD_DATUMTIJD AS
|
|
BeginWerkTijd DATE := TO_DATE('08:00', 'HH24:MI');
|
|
EindWerkTijd DATE := TO_DATE('17:00', 'HH24:MI');
|
|
BeginWerkUur NUMBER(4,2) := TO_NUMBER(TO_CHAR(BeginWerkTijd, 'HH24.MI'));
|
|
EindWerkUur NUMBER(4,2) := TO_NUMBER(TO_CHAR(EindWerkTijd, 'HH24.MI'));
|
|
AantalWerkUren NUMBER(4,2) := EindWerkUur - BeginWerkUur;
|
|
/*
|
|
** Bepaal een nieuwe datum van de begindatum waarbij de uitvoertijd is
|
|
** opgeteld. De uitvoertijd (UitvoerTijdType) kan in 'UREN' of in 'DAGEN' zijn.
|
|
** Er wordt rekening gehouden met Werkuren, BeginWerkTijd en EindWerkTijd en
|
|
** Weekenddagen (Zondag = 1, Zaterdag = 7) en Vrije dagen (MLD_VRIJE_DAGEN).
|
|
*/
|
|
FUNCTION DatumTijdPlusUitvoerTijd(BeginDatum IN DATE
|
|
,UitvoerTijd IN NUMBER
|
|
,UitvoerTijdType IN VARCHAR) RETURN DATE IS
|
|
OldDatumGereed DATE;
|
|
NewDatumGereed DATE;
|
|
DagVdWeek NUMBER(3,0);
|
|
VrijeDagen NUMBER(3,0);
|
|
AantalWerkweken NUMBER(3,0);
|
|
AantalDagen NUMBER(3,0);
|
|
AantaLDagenOver NUMBER(3,0);
|
|
BeginUur NUMBER(5,2);
|
|
EindUur NUMBER(5,2);
|
|
NewUitvoerTijd NUMBER(5,2);
|
|
BeginWerkNr NUMBER(5,2);
|
|
EindeWerkNr NUMBER(5,2);
|
|
WerkUrenNr NUMBER(5,2);
|
|
BeginUurNr NUMBER(5,2);
|
|
UitvoerNr NUMBER(5,2);
|
|
EindUurNr NUMBER(5,2);
|
|
NewUitvoerNr NUMBER(5,2);
|
|
ReturnVal DATE;
|
|
BEGIN
|
|
IF UitvoerTijd IS NOT NULL
|
|
AND BeginDatum IS NOT NULL
|
|
AND UitvoerTijdType = 'DAGEN'
|
|
THEN
|
|
OldDatumGereed := BeginDatum;
|
|
NewDatumGereed := OldDatumGereed;
|
|
AantalWerkweken := TRUNC(UitvoerTijd / 5);
|
|
AantalDagenOver := UitvoerTijd MOD 5;
|
|
|
|
NewDatumGereed := NewDatumGereed + (AantalWerkweken * 7);
|
|
SELECT TO_NUMBER(TO_CHAR(NewDatumGereed, 'D'))
|
|
INTO DagVdWeek
|
|
FROM DUAL;
|
|
NewDatumGereed := NewDatumGereed + AantalDagenOver;
|
|
IF DagVdWeek + AantalDagenOver > 8
|
|
THEN
|
|
NewDatumGereed := NewDatumGereed + 2;
|
|
END IF;
|
|
LOOP
|
|
SELECT TO_NUMBER(TO_CHAR(NewDatumGereed, 'D'))
|
|
INTO DagVdWeek
|
|
FROM DUAL;
|
|
IF DagVdWeek = 1 OR DagVdWeek = 7
|
|
THEN
|
|
NewDatumGereed := NewDatumGereed + 2;
|
|
END IF;
|
|
SELECT COUNT(*)
|
|
INTO VrijeDagen
|
|
FROM mld_vrije_dagen
|
|
WHERE mld_vrije_dagen_datum > OldDatumGereed
|
|
AND mld_vrije_dagen_datum <= NewDatumGereed;
|
|
IF VrijeDagen > 0
|
|
THEN
|
|
OldDatumGereed := NewDatumGereed;
|
|
NewDatumGereed := NewDatumGereed + VrijeDagen;
|
|
END IF;
|
|
IF DagVdWeek > 1 AND DagVdWeek < 7
|
|
AND VrijeDagen = 0
|
|
THEN
|
|
EXIT;
|
|
END IF;
|
|
END LOOP;
|
|
ReturnVal := NewDatumGereed;
|
|
ELSIF UitvoerTijd IS NOT NULL
|
|
AND BeginDatum IS NOT NULL
|
|
AND UitvoerTijdType = 'UREN'
|
|
THEN
|
|
/*
|
|
** Zet eerst alle tijden om in decimalen. Hiermee kan dan normaal gerekend worden
|
|
** zonder dat er rekening moet worden gehouden dat 60 minuten weer een uur is.
|
|
*/
|
|
BeginUur := TO_NUMBER(TO_CHAR(BeginDatum, 'HH24.MI'));
|
|
BeginWerkNr := TRUNC(BeginWerkUur) + (BeginWerkUur - TRUNC(BeginWerkUur))/0.6;
|
|
EindeWerkNr := TRUNC(EindWerkUur) + (EindWerkUur - TRUNC(EindWerkUur ))/0.6;
|
|
BeginUurNr := TRUNC(BeginUur) + (BeginUur - TRUNC(BeginUur ))/0.6;
|
|
UitvoerNr := TRUNC(UitvoerTijd) + (UitvoerTijd - TRUNC(UitvoerTijd ))/0.6;
|
|
WerkUrenNr := EindeWerkNr - BeginWerkNr;
|
|
EindUurNr := BeginUurNr + UitvoerNr;
|
|
AantalDagen := 0;
|
|
--
|
|
IF EindUurNr > EindeWerkNr
|
|
THEN
|
|
AantalDagen := TRUNC(EindUurNr / WerkUrenNr);
|
|
EindUurNr := EindUurNr - AantalDagen * WerkUrenNr;
|
|
END IF;
|
|
EindUur := TRUNC(EindUurNr) + (EindUurNr - TRUNC(EindUurNr))*0.6;
|
|
/*
|
|
** Bij de onderstaande omzetting van decimaal naar datum kan de foutmelding
|
|
** "ORA-01850: hour must be between 0 and 23" optreden. Onderzoek dan of de
|
|
** initialisatie-procedure SetWerkTijden(..,..) wel wordt aangeroepen in een
|
|
** PL/SQL-blok (van form of script) voordat de functie DatumTijdPlusUitvoerTijd
|
|
** wordt aangeroepen (bijvoorbeeld in view mld_v_mld_openmelding).
|
|
**
|
|
** Eventuele verbetering hierin: Indien geen begin en eindtijd van werkdag bekend,
|
|
** dan 0:00 en 23:59 nemen, waardoor een werkdag 24 uur wordt. Kan dus gebruikt
|
|
** worden voor bedrijven waar continu gewerkt wordt.
|
|
*/
|
|
IF AantalDagen > 0
|
|
THEN
|
|
OldDatumGereed := TO_DATE(TO_CHAR(TRUNC(BeginDatum), 'DD-MM-YYYY')||' '
|
|
|| TO_CHAR(EindUur, '09.99'), 'DD-MM-YYYY HH24.MI');
|
|
ReturnVal := DatumTijdPlusUitvoerTijd(OldDatumGereed, AantalDagen, 'DAGEN');
|
|
ELSE
|
|
ReturnVal := TO_DATE(TO_CHAR(TRUNC(BeginDatum), 'DD-MM-YYYY')||' '
|
|
|| TO_CHAR(EindUur, '09.99'), 'DD-MM-YYYY HH24.MI');
|
|
END IF;
|
|
ELSE
|
|
ReturnVal := NULL;
|
|
END IF;
|
|
/*
|
|
** Voor controle op juiste berekening van de einddatum en tijd.
|
|
** raise_application_error(-20000,'klaar op : '|| to_char(returnval,'dd-mm-yyyy hh24:mi'));
|
|
*/
|
|
RETURN ReturnVal;
|
|
END;
|
|
END mld_p_mld_datumtijd;
|
|
/
|
|
|
|
CREATE_VIEW(MLD_V_MLD_OPENMELDING, MLD_NORMAAL_PRIVILEGE)
|
|
( mld_melding_module
|
|
, mld_statussoort
|
|
, mld_melding_key
|
|
, mld_ins_discipline_key
|
|
, mld_ins_srtinst_keys
|
|
, mld_alg_onroerendgoed_keys
|
|
, mld_melding_datum
|
|
, mld_melding_melder_naam
|
|
, mld_meldbron_key
|
|
, mld_oorzaak_key
|
|
, mld_stdmelding_key
|
|
, mld_melding_ingezien
|
|
, mld_melding_afgewezen
|
|
, mld_melding_geaccepteerd
|
|
, mld_melding_afgemeld
|
|
, mld_melding_verwerkt
|
|
, mld_melding_uitvoertijd
|
|
)
|
|
AS
|
|
SELECT /*+ FIRST_ROWS */ 'MLD'
|
|
, DECODE(MLD_MELDING_VERWERKT,NULL,
|
|
DECODE(MLD_MELDING_AFGEMELD,NULL,
|
|
DECODE(MLD_MELDING_GEACCEPTEERD,NULL,
|
|
DECODE(MLD_MELDING_AFGEWEZEN,NULL,
|
|
DECODE(MLD_MELDING_INGEZIEN,NULL,'INGEVOERD','INGEZIEN'),'AFGEWEZEN'),'GEACCEPTEERD'),'AFGEMELD'),'VERWERKT'),
|
|
MLD_M.MLD_MELDING_KEY,
|
|
MLD_M.MLD_INS_DISCIPLINE_KEY,
|
|
MLD_M.MLD_INS_SRTINST_KEYS,
|
|
MLD_M.MLD_ALG_ONROERENDGOED_KEYS,
|
|
MLD_M.MLD_MELDING_DATUM,
|
|
MLD_M.MLD_MELDING_MELDER_NAAM,
|
|
MLD_M.MLD_MELDBRON_KEY,
|
|
MLD_M.MLD_OORZAAK_KEY,
|
|
MLD_M.MLD_STDMELDING_KEY,
|
|
MLD_M.MLD_MELDING_INGEZIEN,
|
|
MLD_M.MLD_MELDING_AFGEWEZEN,
|
|
MLD_M.MLD_MELDING_GEACCEPTEERD,
|
|
MLD_M.MLD_MELDING_AFGEMELD,
|
|
MLD_M.MLD_MELDING_VERWERKT,
|
|
MLD_M.MLD_MELDING_UITVOERTIJD
|
|
FROM MLD_MELDING MLD_M, MLD_DISCIPLINE MLD_D
|
|
WHERE MLD_D.INS_DISCIPLINE_KEY = MLD_M.MLD_INS_DISCIPLINE_KEY
|
|
/
|
|
|
|
CREATE_VIEW(MLD_V_MLD_OVERSCHREDEN, MLD_NORMAAL_PRIVILEGE)
|
|
( mld_melding_module
|
|
, mld_statussoort
|
|
, mld_melding_key
|
|
, mld_ins_discipline_key
|
|
, mld_ins_srtinst_keys
|
|
, mld_alg_onroerendgoed_keys
|
|
, mld_melding_datum
|
|
, mld_melding_melder_naam
|
|
, mld_meldbron_key
|
|
, mld_oorzaak_key
|
|
, mld_stdmelding_key
|
|
, mld_melding_ingezien
|
|
, mld_melding_afgewezen
|
|
, mld_melding_geaccepteerd
|
|
, mld_melding_afgemeld
|
|
, mld_melding_verwerkt
|
|
)
|
|
AS
|
|
SELECT /*+ FIRST_ROWS */ 'MLD',
|
|
'OVERSCHREDEN',
|
|
MLD_M.mld_melding_key,
|
|
MLD_M.mld_ins_discipline_key,
|
|
MLD_M.mld_ins_srtinst_keys,
|
|
MLD_M.mld_alg_onroerendgoed_keys,
|
|
MLD_M.mld_melding_datum,
|
|
MLD_M.mld_melding_melder_naam,
|
|
MLD_M.mld_meldbron_key,
|
|
MLD_M.mld_oorzaak_key,
|
|
MLD_M.mld_stdmelding_key,
|
|
MLD_M.mld_melding_ingezien,
|
|
MLD_M.mld_melding_afgewezen,
|
|
MLD_M.mld_melding_geaccepteerd,
|
|
MLD_M.mld_melding_afgemeld,
|
|
MLD_M.mld_melding_verwerkt
|
|
FROM mld_melding MLD_M, mld_stdmelding MLD_SM, mld_discipline MLD_D
|
|
WHERE SYSDATE > mld_p_mld_datumtijd.DatumTijdPlusUitvoerTijd(MLD_M.mld_melding_datum,
|
|
MLD_SM.mld_stdmelding_urgentie,
|
|
'UREN')
|
|
AND MLD_M.mld_melding_afgewezen IS NULL
|
|
AND MLD_M.mld_melding_geaccepteerd IS NULL
|
|
AND MLD_M.mld_stdmelding_key = MLD_SM.mld_stdmelding_key
|
|
AND MLD_D.ins_discipline_key = MLD_M.mld_ins_discipline_key
|
|
/
|
|
|
|
CREATE_VIEW(MLD_V_MLD_TELAAT, MLD_NORMAAL_PRIVILEGE)
|
|
( mld_melding_module
|
|
, mld_statussoort
|
|
, mld_melding_key
|
|
, mld_ins_discipline_key
|
|
, mld_ins_srtinst_keys
|
|
, mld_alg_onroerendgoed_keys
|
|
, mld_melding_datum
|
|
, mld_melding_melder_naam
|
|
, mld_meldbron_key
|
|
, mld_oorzaak_key
|
|
, mld_stdmelding_key
|
|
, mld_melding_ingezien
|
|
, mld_melding_afgewezen
|
|
, mld_melding_geaccepteerd
|
|
, mld_melding_afgemeld
|
|
, mld_melding_verwerkt
|
|
)
|
|
AS
|
|
SELECT /*+ FIRST_ROWS */ 'MLD',
|
|
'TE_LAAT',
|
|
MLD_M.mld_melding_key,
|
|
MLD_M.mld_ins_discipline_key,
|
|
MLD_M.mld_ins_srtinst_keys,
|
|
MLD_M.mld_alg_onroerendgoed_keys,
|
|
MLD_M.mld_melding_datum,
|
|
MLD_M.mld_melding_melder_naam,
|
|
MLD_M.mld_meldbron_key,
|
|
MLD_M.mld_oorzaak_key,
|
|
MLD_M.mld_stdmelding_key,
|
|
MLD_M.mld_melding_ingezien,
|
|
MLD_M.mld_melding_afgewezen,
|
|
MLD_M.mld_melding_geaccepteerd,
|
|
MLD_M.mld_melding_afgemeld,
|
|
MLD_M.mld_melding_verwerkt
|
|
FROM mld_melding MLD_M, mld_discipline MLD_D
|
|
WHERE SYSDATE > mld_p_mld_datumtijd.DatumTijdPlusUitvoerTijd(MLD_M.mld_melding_datum,
|
|
MLD_M.mld_melding_uitvoertijd,
|
|
'DAGEN')
|
|
AND MLD_M.mld_melding_afgewezen IS NULL
|
|
AND MLD_M.mld_melding_geaccepteerd IS NOT NULL
|
|
AND MLD_M.mld_melding_afgemeld IS NULL
|
|
AND MLD_D.ins_discipline_key = MLD_M.mld_ins_discipline_key
|
|
/
|
|
|
|
DEF_FAC_MESSAGE ('MLD_M237','Wilt u deze melding opnieuw invoeren?','Do you want to reissue this call?')
|
|
/
|
|
|
|
|
|
#endif // MLD
|
|
|
|
#ifdef RES
|
|
|
|
DEF_FAC_MESSAGE ('res_r_prs_bedrijf_key1' , 'Er zijn nog referenties van bedrijven naar deze reserveerbare ruimte.' ,'This reservation room references a company.');
|
|
DEF_FAC_MESSAGE ('res_r_prs_afdeling_key1' , 'Er zijn nog referenties van afdelingen naar deze reserveerbare ruimte.' ,'This reservation room references a department.');
|
|
DEF_FAC_MESSAGE ('res_r_res_ruimte_key' , 'Er zijn nog referenties van reserveerbare ruimtes naar deze ruimte.' ,'This room references a reservation room.');
|
|
DEF_FAC_MESSAGE ('res_r_alg_ruimte_key' , 'Er zijn nog referenties van ruimtes naar deze ruimte.' ,'This room references a room.');
|
|
DEF_FAC_MESSAGE ('res_r_res_ruimte_key2' , 'Er zijn nog referenties van reserveerbare ruimtes naar deze ruimteopstelling.' ,'This room placing references a reservation room.');
|
|
DEF_FAC_MESSAGE ('res_r_res_ruimte_opstel_key' , 'Er zijn nog referenties van opstelling naar deze ruimteopstelling.' ,'This room placing references a placing.');
|
|
DEF_FAC_MESSAGE ('res_r_res_ins_deel_key' , 'Er zijn nog referenties van objecten naar dit reserveerbaar object.' ,'This reservation object references an object.');
|
|
DEF_FAC_MESSAGE ('res_r_prs_bedrijf_key2' , 'Er zijn nog referenties van bedrijven naar dit reserveerbaar artikel.' ,'This reservation item references companies.');
|
|
DEF_FAC_MESSAGE ('res_r_prs_afdeling_key2' , 'Er zijn nog referenties van afdelingen naar dit reserveerbaar artikel.' ,'This reservation item references departments.');
|
|
DEF_FAC_MESSAGE ('res_r_res_ruimte_key3' , 'Er zijn nog referenties van reserveerbare ruimtes naar deze reservering.' ,'This reservation references reservation rooms.');
|
|
DEF_FAC_MESSAGE ('res_r_alg_ruimte_key2' , 'Er zijn nog referenties van ruimtes naar deze reservering.' ,'This reservation references rooms.');
|
|
DEF_FAC_MESSAGE ('res_r_res_opstelling_key' , 'Er zijn nog referenties van opstellingen naar deze reservering.' ,'This reservation references placings.');
|
|
DEF_FAC_MESSAGE ('res_r_prs_perslid_key' , 'Er zijn nog referenties van personen naar deze reservering.' ,'This reservation references persons.');
|
|
DEF_FAC_MESSAGE ('res_r_res_reservering_key' , 'Er zijn nog referenties van reserveringen naar deze opdracht.' ,'This workorder references reservations.');
|
|
DEF_FAC_MESSAGE ('res_r_prs_bedrijf_key3' , 'Er zijn nog referenties van bedrijven naar deze opdracht.' ,'This workorder references companies.');
|
|
DEF_FAC_MESSAGE ('res_r_prs_afdeling_key3' , 'Er zijn nog referenties van afdelingen naar deze opdracht.' ,'This workorder references departments.');
|
|
DEF_FAC_MESSAGE ('res_r_ins_discipline_key' , 'Er zijn nog referenties van disciplines naar deze opdracht.' ,'This workorder references disciplines.');
|
|
DEF_FAC_MESSAGE ('res_r_res_rsvd_reservering_key', 'Er zijn nog referenties van reserveringen naar dit gereserveerd object.' ,'This reserved object references reservations.');
|
|
DEF_FAC_MESSAGE ('res_r_res_rsvd_deel_key' , 'Er zijn nog referenties van reserveerbare objecten naar dit gereserveerd object.','This reserved object references resevation objects.');
|
|
DEF_FAC_MESSAGE ('res_r_res_rsva_reservering_key', 'Er zijn nog referenties van reserveringen naar dit gereserveerd artikel.' ,'This reserved item references reservations.');
|
|
DEF_FAC_MESSAGE ('res_r_res_rsva_artikel_key' , 'Dit reserveerbare artikel heeft nog referenties naar gereserveerde artikelen.' ,'This reservation item references reserved items.');
|
|
|
|
#endif // RES
|
|
|
|
#ifdef FAC
|
|
UPDATE FAC_MESSAGE
|
|
SET FAC_MESSAGE_TEXT = 'Facilitor 4.11'
|
|
WHERE FAC_MESSAGE_CODE = 'FAC_M002';
|
|
|
|
UPDATE FAC_MESSAGE
|
|
SET FAC_MESSAGE_TEXT = 'Welkom bij Facilitor 4.11'
|
|
WHERE FAC_MESSAGE_CODE = 'FAC_M035';
|
|
|
|
DEF_FAC_ENTITY ('MLD_BESTELNR','Bestelnummer',null,null,'Order number');
|
|
|
|
#endif // FAC |