1591 lines
65 KiB
SQL
1591 lines
65 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Script containing customer specific sql statements for the FACILITOR database
|
|
--
|
|
--
|
|
--
|
|
--
|
|
--
|
|
|
|
DEFINE thisfile = 'PROR.SQL'
|
|
DEFINE dbuser = 'PROR'
|
|
|
|
SET ECHO ON
|
|
SET DEFINE ON
|
|
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
|
COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
|
|
SPOOL &fcltlogfile
|
|
WHENEVER SQLERROR EXIT;
|
|
SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
---------------------------------------
|
|
PROMPT &fcltcusttxt
|
|
---------------------------------------
|
|
SET DEFINE OFF
|
|
|
|
------ payload begin ------
|
|
|
|
CREATE OR REPLACE PACKAGE PROR
|
|
AS
|
|
|
|
PROCEDURE add_xml_row (p_bestand IN VARCHAR2,
|
|
p_regel IN VARCHAR2);
|
|
|
|
PROCEDURE add_xml_element (p_bestand IN VARCHAR2,
|
|
p_tag IN VARCHAR2,
|
|
p_value IN VARCHAR2);
|
|
|
|
|
|
PROCEDURE inactivate_prs;
|
|
|
|
PROCEDURE mandateer_prs(p_perslid_key IN NUMBER);
|
|
|
|
|
|
|
|
|
|
|
|
END;
|
|
/
|
|
|
|
CREATE OR REPLACE PACKAGE BODY PROR
|
|
AS
|
|
|
|
PROCEDURE add_xml_row (
|
|
p_bestand IN VARCHAR2,
|
|
p_regel IN VARCHAR2)
|
|
AS
|
|
v_index NUMBER;
|
|
BEGIN
|
|
SELECT COALESCE( MAX(fac_rapport_volgnr), 0) + 1
|
|
INTO v_index
|
|
FROM fac_rapport
|
|
WHERE fac_rapport_node = p_bestand;
|
|
|
|
INSERT INTO fac_rapport (
|
|
fac_rapport_node,
|
|
fac_rapport_volgnr,
|
|
fac_rapport_regel)
|
|
VALUES (p_bestand,
|
|
v_index,
|
|
p_regel);
|
|
END;
|
|
|
|
PROCEDURE add_xml_element (
|
|
p_bestand IN VARCHAR2,
|
|
p_tag IN VARCHAR2,
|
|
p_value IN VARCHAR2)
|
|
AS
|
|
BEGIN
|
|
pror.add_xml_row(p_bestand,
|
|
'<' || p_tag || '>'
|
|
|| xml.char_to_html(p_value)
|
|
|| '</' || p_tag || '>');
|
|
END;
|
|
|
|
|
|
|
|
PROCEDURE inactivate_prs
|
|
AS
|
|
v_errormsg VARCHAR2 (1000);
|
|
v_errorhint VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_count NUMBER (10);
|
|
v_perslid_naam VARCHAR (100);
|
|
v_perslid_nr VARCHAR (30);
|
|
|
|
--- Als een persoon 12 maanden niet meer heeft ingelogd verwijderen we deze
|
|
CURSOR prs_del IS
|
|
SELECT p.prs_perslid_key, p.prs_perslid_oslogin
|
|
FROM prs_v_aanwezigperslid p
|
|
WHERE p.prs_perslid_login <
|
|
TRUNC (ADD_MONTHS (SYSDATE, -12), 'mm')
|
|
AND NOT EXISTS (SELECT * -- alleen de NIET AFAS account moeten worden verwijderd
|
|
FROM prs_kenmerklink pkl, prs_kenmerk pk
|
|
WHERE pk.prs_kenmerk_upper='AFAS ACCOUNT'
|
|
AND pk.prs_kenmerk_key = pkl.prs_kenmerk_key
|
|
AND pkl.prs_link_key=p.prs_perslid_key
|
|
AND pkl.prs_kenmerklink_waarde='1')
|
|
GROUP BY p.prs_perslid_key, p.prs_perslid_oslogin;
|
|
BEGIN
|
|
FOR rec IN prs_del
|
|
LOOP
|
|
prs.delete_perslid(NULL, rec.prs_perslid_key);
|
|
END LOOP;
|
|
END;
|
|
|
|
-- Mandateren op alle kostenplaatsen
|
|
PROCEDURE mandateer_prs(p_perslid_key IN NUMBER)
|
|
AS
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_errormsg VARCHAR2 (200);
|
|
v_count NUMBER;
|
|
BEGIN
|
|
v_errormsg :='Mandatering voor '||(p_perslid_key);
|
|
|
|
SELECT COUNT(*) INTO v_count
|
|
FROM prs_perslidkostenplaats
|
|
WHERE prs_perslid_key=p_perslid_key;
|
|
IF v_COUNT=0 THEN
|
|
INSERT INTO prs_perslidkostenplaats(prs_perslid_key,
|
|
prs_perslidkostenplaats_boeken,
|
|
prs_perslidkostenplaats_inzage,
|
|
prs_perslidkostenplaats_aanmk)
|
|
VALUES(p_perslid_key,
|
|
1,
|
|
0,
|
|
SYSDATE);
|
|
END IF;
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg :=
|
|
'OTHERS (error '
|
|
|| oracle_err_num
|
|
|| '/'
|
|
|| oracle_err_mes
|
|
|| ')';
|
|
fac.writelog ('Mandatering medewerker',
|
|
'E',
|
|
v_errormsg,
|
|
'');
|
|
|
|
END;
|
|
|
|
END;
|
|
/
|
|
|
|
-- IMPORT FUNCTIES
|
|
|
|
CREATE OR REPLACE PROCEDURE pror_import_afas_organisatie(p_import_key IN NUMBER)
|
|
AS
|
|
CURSOR c1 IS
|
|
SELECT fac_imp_csv_col01 prs_bedrijf,
|
|
fac_imp_csv_col02 prs_afdeling_code,
|
|
fac_imp_csv_col03 prs_afdeling_naam,
|
|
fac_imp_csv_col04 prs_parent,
|
|
fac_imp_csv_col05 prs_laag,
|
|
fac_imp_csv_col06 prs_laag1,
|
|
fac_imp_csv_col07 prs_laag2,
|
|
fac_imp_csv_col08 prs_laag3,
|
|
fac_imp_csv_col09 prs_laag4,
|
|
fac_imp_csv_col10 prs_laag5,
|
|
fac_imp_csv_col11 prs_laag6,
|
|
fac_imp_csv_col12 prs_laag7,
|
|
fac_imp_csv_col13 prs_laag8,
|
|
fac_imp_csv_col14 prs_laag9
|
|
FROM fac_imp_csv
|
|
WHERE fac_import_key=p_import_key
|
|
ORDER BY fac_imp_csv_key;
|
|
|
|
|
|
v_errormsg VARCHAR2 (1000);
|
|
v_errorhint VARCHAR2 (1000);
|
|
v_aanduiding VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_count NUMBER;
|
|
v_parent VARCHAR2(10);
|
|
BEGIN
|
|
v_count:=0;
|
|
DELETE FROM fac_imp_csv;
|
|
DELETE FROM fac_imp_organisatie;
|
|
COMMIT;
|
|
|
|
fac_import_genericcsv(p_import_key);
|
|
|
|
FOR rec IN c1
|
|
LOOP
|
|
if v_count>0
|
|
THEN
|
|
IF (rec.prs_laag = '1')
|
|
THEN
|
|
v_parent:=rec.prs_laag1;
|
|
ELSE
|
|
v_parent:=rec.prs_laag2;
|
|
END IF;
|
|
INSERT INTO fac_imp_organisatie (
|
|
prs_bedrijf_naam,
|
|
prs_afdeling_naam,
|
|
prs_afdeling_naam_parent,
|
|
prs_afdeling_omschrijving,
|
|
prs_afdeling_externid)
|
|
VALUES (
|
|
rec.prs_bedrijf,
|
|
rec.prs_afdeling_code,
|
|
v_parent,
|
|
rec.prs_afdeling_naam,
|
|
rec.prs_laag);
|
|
END IF;
|
|
v_count:=v_count+1;
|
|
END LOOP;
|
|
EXCEPTION
|
|
|
|
WHEN OTHERS
|
|
THEN
|
|
v_errorhint := v_errormsg || ' - ' || v_aanduiding;
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg := 'error ' || oracle_err_num || '/' || oracle_err_mes;
|
|
fac.imp_writelog (p_import_key,
|
|
'E',
|
|
v_errormsg,
|
|
v_errorhint);
|
|
|
|
END;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE pror_update_afas_organisatie(p_import_key IN NUMBER)
|
|
AS
|
|
|
|
CURSOR c1 IS
|
|
SELECT prs_afdeling_naam,
|
|
prs_afdeling_omschrijving,
|
|
prs_afdeling_naam_parent,
|
|
prs_afdeling_externid
|
|
FROM fac_imp_organisatie
|
|
ORDER BY prs_afdeling_externid;
|
|
v_date DATE;
|
|
v_prs_afdeling_parentkey NUMBER:=-1;
|
|
v_count NUMBER:=0;
|
|
v_bedrijf_key NUMBER :=-1;
|
|
v_afdeling_key NUMBER :=-1;
|
|
BEGIN
|
|
|
|
|
|
SELECT prs_bedrijf_key
|
|
INTO v_bedrijf_key
|
|
FROM prs_bedrijf
|
|
WHERE prs_bedrijf_naam_upper='PRORAIL'
|
|
AND prs_bedrijf_verwijder IS NULL;
|
|
|
|
IF v_bedrijf_key>0 THEN
|
|
|
|
FOR rec in C1
|
|
LOOP
|
|
-- kijk of de afdeling al bestaat en dezelfde parent heeft
|
|
IF rec.prs_afdeling_naam_parent IS NOT NULL
|
|
THEN
|
|
-- wat is de afdelings key van de parent
|
|
IF rec.prs_afdeling_naam_parent='50035512' -- deze moeten onder het berdijf worden gezet.
|
|
THEN
|
|
v_prs_afdeling_parentkey:=TO_NUMBER(NULL);
|
|
ELSE
|
|
v_bedrijf_key := to_number(NULL);
|
|
SELECT prs_afdeling_key INTO v_prs_afdeling_parentkey
|
|
FROM prs_afdeling
|
|
WHERE prs_afdeling_naam=rec.prs_afdeling_naam_parent
|
|
AND prs_afdeling_verwijder IS NULL;
|
|
END IF;
|
|
|
|
SELECT COUNT(*) INTO v_count
|
|
FROM prs_afdeling a1
|
|
where a1.prs_afdeling_naam = rec.prs_afdeling_naam
|
|
AND a1.prs_afdeling_verwijder IS NULL;
|
|
IF v_count=0
|
|
THEN
|
|
INSERT INTO PRS_AFDELING
|
|
(prs_afdeling_naam,
|
|
prs_afdeling_omschrijving,
|
|
prs_bedrijf_key,
|
|
prs_afdeling_parentkey
|
|
)
|
|
VALUES
|
|
(rec.prs_afdeling_naam,
|
|
rec.prs_afdeling_omschrijving,
|
|
v_bedrijf_key,
|
|
v_prs_afdeling_parentkey
|
|
)
|
|
RETURNING prs_afdeling_key
|
|
INTO v_afdeling_key;
|
|
|
|
-- Wat was de afdeling waar deze in afas ondervalt
|
|
IF rec.prs_afdeling_externid != '1'
|
|
THEN
|
|
SELECT p.prs_afdeling_key
|
|
INTO v_prs_afdeling_parentkey
|
|
FROM fac_imp_csv csv, prs_afdeling p
|
|
WHERE csv.fac_imp_csv_col02=rec.prs_afdeling_naam
|
|
AND p.prs_afdeling_naam=csv.fac_imp_csv_col04
|
|
AND p.prs_afdeling_verwijder IS NULL;
|
|
|
|
|
|
flx.setflex('PRS', 1021,v_afdeling_key, 'A', v_prs_afdeling_parentkey);
|
|
flx.setflex('PRS', 1020,v_afdeling_key, 'A', rec.prs_afdeling_externid);
|
|
END IF;
|
|
COMMIT;
|
|
ELSE
|
|
IF rec.prs_afdeling_externid != '1'
|
|
THEN
|
|
-- Wat is de nieuwe parent afdeling
|
|
SELECT p.prs_afdeling_key
|
|
INTO v_prs_afdeling_parentkey
|
|
FROM fac_imp_csv csv, prs_afdeling p
|
|
WHERE csv.fac_imp_csv_col02=rec.prs_afdeling_naam
|
|
AND p.prs_afdeling_naam=csv.fac_imp_csv_col04
|
|
AND p.prs_afdeling_verwijder IS NULL;
|
|
|
|
-- Wta is de huidge afdeling_key
|
|
SELECT prs_afdeling_key
|
|
INTO v_afdeling_key
|
|
FROM prs_afdeling where prs_afdeling_naam= rec.prs_afdeling_naam
|
|
AND prs_afdeling_verwijder IS NULL;
|
|
|
|
flx.setflex('PRS', 1021,v_afdeling_key,'A', v_prs_afdeling_parentkey);
|
|
flx.setflex('PRS', 1020,v_afdeling_key,'A', rec.prs_afdeling_externid);
|
|
END IF;
|
|
END IF;
|
|
|
|
END IF;
|
|
END LOOP;
|
|
END IF;
|
|
-- Nu even opruimen
|
|
DELETE FROM fac_imp_csv where fac_import_key=p_import_key;
|
|
DELETE FROM fac_imp_organisatie;
|
|
COMMIT;
|
|
END;
|
|
/
|
|
|
|
|
|
-- "Roepnaam";"Voorletters";"Voorvoegsel";"Achternaam";"Persnr.";"Afdnr.";"Functie";"Email";"Telefoon";"Loginnaam";"Kostenplaats";"OE_Niveau"
|
|
CREATE OR REPLACE PROCEDURE pror_import_afas_personen(p_import_key IN NUMBER)
|
|
AS
|
|
CURSOR c1 IS
|
|
SELECT fac_imp_csv_col01 prs_voornaam,
|
|
fac_imp_csv_col02 prs_voorletters,
|
|
fac_imp_csv_col03 prs_tussenvoegsel,
|
|
fac_imp_csv_col04 prs_achternaam,
|
|
fac_imp_csv_col05 prs_perslid_nr,
|
|
fac_imp_csv_col06 prs_afd1_code,
|
|
fac_imp_csv_col07 prs_functie,
|
|
fac_imp_csv_col08 prs_email,
|
|
fac_imp_csv_col09 prs_telefoon,
|
|
fac_imp_csv_col10 prs_loginnaam,
|
|
fac_imp_csv_col10 prs_level
|
|
FROM fac_imp_csv
|
|
WHERE fac_import_key=p_import_key
|
|
ORDER BY fac_imp_csv_key;
|
|
|
|
v_errormsg VARCHAR2 (1000);
|
|
v_errorhint VARCHAR2 (1000);
|
|
v_aanduiding VARCHAR2 (1000);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
v_count NUMBER;
|
|
|
|
v_afdelingnaam VARCHAR2(20);
|
|
v_afd_count NUMBER;
|
|
v_srtperslid_omschrijving VARCHAR2(60);
|
|
BEGIN
|
|
v_count:=0;
|
|
|
|
DELETE FROM fac_imp_perslid;
|
|
fac_import_genericcsv(p_import_key);
|
|
|
|
FOR rec IN c1
|
|
LOOP
|
|
IF v_count>0 THEN
|
|
-- ALs een per op niveau 9 zit heeft de
|
|
|
|
|
|
-- controleren of de afdeling wel beschikbaar is anders onder Onbekend zetten
|
|
SELECT COUNT(*) INTO v_afd_count
|
|
FROM prs_afdeling
|
|
WHERE prs_afdeling_naam=rec.prs_afd1_code
|
|
AND prs_afdeling_verwijder IS NULL;
|
|
|
|
IF v_afd_count=0 THEN
|
|
v_afdelingnaam :='Onbekend';
|
|
ELSE
|
|
v_afdelingnaam := rec.prs_afd1_code;
|
|
END IF;
|
|
|
|
IF rec.prs_functie IS NULL
|
|
THEN
|
|
v_srtperslid_omschrijving:='Onbekend';
|
|
ELSE
|
|
v_srtperslid_omschrijving:= rec.prs_functie;
|
|
END IF;
|
|
|
|
|
|
INSERT INTO fac_imp_perslid(fac_import_key,
|
|
prs_afdeling_naam,
|
|
prs_perslid_voornaam,
|
|
prs_perslid_voorletters,
|
|
prs_perslid_tussenvoegsel,
|
|
prs_perslid_naam,
|
|
prs_perslid_email,
|
|
prs_perslid_telefoonnr,
|
|
prs_srtperslid_omschrijving,
|
|
prs_perslid_oslogin,
|
|
prs_perslid_nr,
|
|
prs_kenmerk1)
|
|
VALUES(p_import_key,
|
|
v_afdelingnaam,
|
|
rec.prs_voornaam,
|
|
rec.prs_voorletters,
|
|
rec.prs_tussenvoegsel,
|
|
rec.prs_achternaam,
|
|
rec.prs_email,
|
|
rec.prs_telefoon,
|
|
v_srtperslid_omschrijving,
|
|
SUBSTR(rec.prs_email,0,30),
|
|
rec.prs_perslid_nr,
|
|
'1022=1');
|
|
END IF;
|
|
v_count:=v_count+1;
|
|
END LOOP;
|
|
DELETE FROM fac_imp_csv where fac_import_key=p_import_key;
|
|
EXCEPTION
|
|
|
|
WHEN OTHERS
|
|
THEN
|
|
v_errorhint := v_errormsg || ' - ' || v_aanduiding;
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg := 'error ' || oracle_err_num || '/' || oracle_err_mes;
|
|
fac.imp_writelog (p_import_key,
|
|
'E',
|
|
v_errormsg,
|
|
v_errorhint);
|
|
|
|
END;
|
|
/
|
|
|
|
CREATE OR REPLACE PROCEDURE pror_update_afas_personen(p_import_key IN NUMBER)
|
|
AS
|
|
CURSOR p_del -- We doen dit alleen voor de afas aqccounts
|
|
IS
|
|
SELECT p.prs_perslid_key
|
|
FROM prs_perslid p, prs_kenmerklink kl, prs_kenmerk pk
|
|
WHERE p.prs_perslid_verwijder IS NULL
|
|
AND pk.prs_kenmerk_upper='AFAS ACCOUNT'
|
|
AND kl.prs_kenmerk_key = pk.prs_kenmerk_key
|
|
AND kl.prs_link_key=p.prs_perslid_key
|
|
AND kl.prs_kenmerklink_waarde=1
|
|
AND p.prs_perslid_nr NOT IN (SELECT prs_perslid_nr
|
|
FROM fac_imp_perslid);
|
|
|
|
CURSOR p_mandaat
|
|
IS
|
|
SELECT p.prs_perslid_key
|
|
FROM fac_imp_perslid f, prs_perslid p
|
|
WHERE f.prs_perslid_email = p.prs_perslid_email
|
|
AND p.prs_perslid_verwijder IS NULL
|
|
AND p.prs_perslid_key NOT IN (SELECT DISTINCT prs_perslid_key
|
|
FROM prs_perslidkostenplaats pk);
|
|
|
|
|
|
v_date DATE;
|
|
|
|
BEGIN
|
|
prs.update_perslid (p_import_key, 'NR', 'A', 1);
|
|
|
|
|
|
FOR rec IN p_del
|
|
LOOP
|
|
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
|
|
END LOOP;
|
|
|
|
FOR rec_man IN p_mandaat
|
|
LOOP
|
|
pror.mandateer_prs(rec_man.prs_perslid_key);
|
|
END LOOP;
|
|
|
|
COMMIT;
|
|
END;
|
|
/
|
|
|
|
|
|
|
|
-- Import objecten lijst waarbij omschrijving gevult dowrt met de locatie gegevens
|
|
|
|
CREATE OR REPLACE PROCEDURE pror_import_objecten(p_import_key IN NUMBER)
|
|
AS
|
|
|
|
BEGIN
|
|
DELETE FROM fac_imp_ins;
|
|
fac_import_ins(p_import_key);
|
|
END;
|
|
/
|
|
|
|
|
|
CREATE OR REPLACE PROCEDURE pror_update_objecten(p_import_key IN NUMBER)
|
|
AS
|
|
CURSOR ins
|
|
IS
|
|
SELECT * FROM fac_imp_ins;
|
|
|
|
BEGIN
|
|
fac_update_ins(p_import_key);
|
|
FOR rec IN ins
|
|
LOOP
|
|
UPDATE ins_deel i
|
|
SET i.ins_deel_opmerking=(SELECT al.alg_locatie_code||'-'||a.alg_plaatsaanduiding||' ('||a.alg_ruimte_omschrijving||')'
|
|
FROM alg_v_allonrgoed_gegevens a, alg_locatie al
|
|
WHERE a.alg_locatie_key = al.alg_locatie_key
|
|
AND a.alg_ruimte_key=i.ins_alg_ruimte_key)
|
|
WHERE i.ins_deel_omschrijving=rec.ins_deel_omschrijving;
|
|
END LOOP;
|
|
|
|
END;
|
|
/
|
|
|
|
-- END IMPORT ins_deel
|
|
|
|
CREATE OR REPLACE PROCEDURE pror_daily
|
|
AS
|
|
BEGIN
|
|
-- inactiveren personen die 12 maanden niet hebben ingelogd
|
|
pror.inactivate_prs ();
|
|
|
|
|
|
|
|
END;
|
|
/
|
|
|
|
|
|
|
|
|
|
-- NOTIFICATIE VIEWS
|
|
|
|
-- Noifictaie View tbv te late annulering outlook reservereing inc catering
|
|
CREATE OR REPLACE VIEW pror_v_outl_cat_annu
|
|
(
|
|
reserveringnr,
|
|
key,
|
|
code,
|
|
text,
|
|
gastheer,
|
|
receiver,
|
|
sender,
|
|
xemail,
|
|
xmobile,
|
|
xkey
|
|
)
|
|
AS
|
|
SELECT DISTINCT rrr.res_reservering_key||'/'||rrr.RES_RSV_RUIMTE_VOLGNR reserveringNr,
|
|
rrr.res_reservering_key key,
|
|
'CUST02' cust_code,
|
|
'Reservering '||rrr.res_reservering_key||'/'||rrr.RES_RSV_RUIMTE_VOLGNR||' op '|| TO_CHAR(rrr.res_rsv_ruimte_van,'DD-MM-YYYY HH24:MI')||' is verwijderd buiten anullerings horizon.' text,
|
|
(SElECT p.prs_perslid_naam_friendly
|
|
FROM prs_v_perslid_fullnames_all p
|
|
WHERE p.prs_perslid_key= rrr.RES_RSV_RUIMTE_HOST_KEY) gastheer,
|
|
null receiver,
|
|
NULL sender,
|
|
'norbert.wassink@facilitor.nl' xemail,
|
|
--'cateringmanagerprorail@prorail.nl' xemail,
|
|
NULL xmobile,
|
|
rrr.res_rsv_ruimte_key xkey
|
|
FROM res_rsv_ruimte rrr, res_rsv_artikel rra
|
|
WHERE rrr.res_rsv_ruimte_verwijder IS NOT NULL
|
|
AND rrr.res_rsv_ruimte_externnr IS NOT NULL
|
|
AND rrr.res_status_fo_key=4
|
|
AND rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
|
|
AND NOT EXISTS (SElECT *
|
|
FROM fac_tracking ft
|
|
WHERE fac_tracking_refkey=rrr.res_rsv_ruimte_key
|
|
AND ft.fac_srtnotificatie_key=223
|
|
AND ft.fac_tracking_oms LIKE '%CUST02%');
|
|
|
|
|
|
-- Noifictaie View tbv reservereing gedaan door contact<>host
|
|
CREATE OR REPLACE VIEW pror_v_res_other_contact
|
|
(
|
|
sender,
|
|
receiver,
|
|
code,
|
|
text,
|
|
key,
|
|
xkey,
|
|
xemail,
|
|
xmobile
|
|
)
|
|
AS
|
|
SELECT
|
|
NULL sender,
|
|
rrr.res_rsv_ruimte_host_key receiver,
|
|
'CUST01' code,
|
|
'Reservering '||rrr.res_reservering_key||'/ '||rrr.res_rsv_ruimte_volgnr||
|
|
' is door '||(SELECT prs_perslid_naam_friendly FROM prs_v_perslid_fullnames WHERE prs_perslid_key= rrr.res_rsv_ruimte_contact_key)||
|
|
' voor u aangemaakt.' text,
|
|
rrr.res_reservering_key key,
|
|
NULL xkey,
|
|
NULL xemail,
|
|
NULL xmobile
|
|
FROM res_rsv_ruimte rrr
|
|
WHERE rrr.res_rsv_ruimte_host_key<>rrr.res_rsv_ruimte_contact_key
|
|
AND NOT EXISTS (SELECT *
|
|
FROM fac_tracking ft
|
|
WHERE fac_tracking_refkey=rrr.res_rsv_ruimte_key
|
|
AND ft.fac_srtnotificatie_key=223
|
|
AND ft.fac_tracking_oms LIKE '%CUST01%');
|
|
|
|
|
|
-- EINDE NOTIFICATIE VIEWS
|
|
|
|
|
|
|
|
|
|
-- VIEW TBV Kalender rappprt Service medewerkers
|
|
CREATE OR REPLACE VIEW pror_v_SerMdwKalender
|
|
(
|
|
USER_KEY,
|
|
TITLE,
|
|
VAN,
|
|
TOT,
|
|
ITEM_KEY,
|
|
COLOR,
|
|
TEXTCOLOR,
|
|
URL
|
|
)
|
|
AS
|
|
SELECT rrr.res_rsv_ruimte_host_key user_key,
|
|
CASE WHEN rro.res_ruimte_opstel_tijd>0 AND (SELECT COUNT(*)
|
|
FROM res_rsv_deel rrd
|
|
WHERE rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)>0 THEN 'opstelling+vergadermiddel'
|
|
WHEN rro.res_ruimte_opstel_tijd>0 then 'opstelling aanpassing'
|
|
ELSE 'vergadermiddel' end title,
|
|
rrr.res_rsv_ruimte_van van,
|
|
rrr.res_rsv_ruimte_tot tot,
|
|
rrr.res_rsv_ruimte_key item_key,
|
|
'#009900' color,
|
|
'#ffffff' textcolor,
|
|
'?u=reservering' || chr (38) || 'k=' || rrr.res_rsv_ruimte_key url
|
|
FROM res_rsv_ruimte rrr, res_activiteit ra, res_ruimte_opstelling rro
|
|
WHERE rrr.res_activiteit_key=ra.res_activiteit_key
|
|
AND ra.res_activiteit_omschrijving='vergadering inclusief vergadermiddel'
|
|
AND rrr.res_ruimte_opstel_key= rro.res_ruimte_opstel_key
|
|
AND (rro.res_ruimte_opstel_tijd> 0 OR (SELECT COUNT(*)
|
|
FROM res_rsv_deel rrd
|
|
WHERE rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)>0
|
|
);
|
|
|
|
---
|
|
-- VIEW van alle reserveringen die catering hebben,
|
|
--
|
|
|
|
CREATE OR REPLACE VIEW pror_v_res_cat
|
|
AS
|
|
SELECT * FROM (
|
|
SELECT DISTINCT(rrr.res_rsv_ruimte_key) rrr_key,
|
|
rrr.res_reservering_key reservering_key,
|
|
rrr.res_rsv_ruimte_volgnr,
|
|
rrr.res_rsv_ruimte_aanmaak aanmk_datum,
|
|
(SELECT MAX (fac_tracking_datum)
|
|
FROM fac_tracking
|
|
WHERE fac_tracking_refkey = rrr.res_rsv_ruimte_key
|
|
AND fac_srtnotificatie_key = 117) last_upd,
|
|
rrr.res_rsv_ruimte_externsyncdate last_export,
|
|
rrr.res_rsv_ruimte_verwijder verw_datum,
|
|
COALESCE(rer.res_ruimte_friendlyname,alg.alg_ruimte_nr) ruimte_nr,
|
|
(SELECT prs_perslid_externid
|
|
FROM prs_perslid
|
|
WHERE prs_perslid_key = rrr.res_rsv_ruimte_contact_key) besteller,
|
|
(SELECT DISTINCT lev.PRS_BEDRIJF_EMAIL
|
|
FROM res_rsv_artikel rar,
|
|
res_artikel art,
|
|
res_disc_params dsp,
|
|
prs_bedrijf lev
|
|
WHERE rar.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
|
|
AND art.res_artikel_key = rar.res_artikel_key
|
|
AND dsp.res_ins_discipline_key =
|
|
art.res_discipline_key
|
|
AND lev.prs_bedrijf_key = dsp.prs_bedrijf_key) cateraar,
|
|
rrr.RES_RSV_RUIMTE_VAN datum_van,
|
|
rrr.RES_RSV_RUIMTE_TOT datum_tot,
|
|
rrr.res_rsv_ruimte_omschrijving oms,
|
|
rrr.res_rsv_ruimte_bezoekers aantal,
|
|
alg.alg_locatie_code locatie_code,
|
|
'ruimte' soort,
|
|
ros.res_opstelling_omschrijving opstelling,
|
|
rrr.res_status_fo_key fo_status,
|
|
rrr.res_rsv_ruimte_dirtlevel dirtlevel
|
|
FROM res_rsv_ruimte rrr,
|
|
res_rsv_artikel rra,
|
|
res_ruimte_opstelling rop,
|
|
res_opstelling ros,
|
|
res_ruimte rer,
|
|
res_alg_ruimte rarm,
|
|
alg_v_ruimte_gegevens_all alg
|
|
WHERE rrr.res_status_bo_key = 2
|
|
AND rra.RES_RSV_RUIMTE_KEY = rrr.RES_RSV_RUIMTE_KEY
|
|
AND rrr.res_ruimte_opstel_key = rop.res_ruimte_opstel_key
|
|
AND ros.res_opstelling_key = rop.res_opstelling_key
|
|
AND rer.res_ruimte_key = rop.res_ruimte_key
|
|
AND rarm.res_ruimte_key = rer.res_ruimte_key
|
|
AND alg.alg_ruimte_key = rarm.alg_ruimte_key
|
|
UNION ALL
|
|
SELECT DISTINCT(rrr.res_rsv_ruimte_key) rrr_key,
|
|
rrr.res_reservering_key reservering_key,
|
|
rrr.res_rsv_ruimte_volgnr,
|
|
rrr.res_rsv_ruimte_aanmaak aanmk_datum,
|
|
(SELECT MAX (fac_tracking_datum)
|
|
FROM fac_tracking
|
|
WHERE fac_tracking_refkey = rrr.res_rsv_ruimte_key
|
|
AND fac_srtnotificatie_key = 117) last_upd,
|
|
rrr.res_rsv_ruimte_externsyncdate last_export,
|
|
rrr.res_rsv_ruimte_verwijder verw_datum,
|
|
alg.alg_ruimte_nr ruimte_nr,
|
|
(SELECT pa.PRS_PERSLID_EMAIL
|
|
FROM PRS_V_PERSLID_GEGEVENS pa
|
|
WHERE pa.prs_perslid_key = rrr.res_rsv_ruimte_contact_key) besteller,
|
|
(SELECT DISTINCT lev.prs_bedrijf_email
|
|
FROM res_rsv_artikel rar,
|
|
res_artikel art,
|
|
res_disc_params dsp,
|
|
prs_bedrijf lev
|
|
WHERE rar.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
|
|
AND art.res_artikel_key = rar.res_artikel_key
|
|
AND dsp.res_ins_discipline_key =
|
|
art.res_discipline_key
|
|
AND lev.prs_bedrijf_key = dsp.prs_bedrijf_key) cateraar,
|
|
rrr.RES_RSV_RUIMTE_VAN datum_van,
|
|
rrr.RES_RSV_RUIMTE_TOT datum_tot,
|
|
rrr.res_rsv_ruimte_omschrijving oms,
|
|
rrr.res_rsv_ruimte_bezoekers aantal,
|
|
alg.alg_locatie_code locatie_code,
|
|
'losse-catering' soort,
|
|
'N.V.T.' opstelling,
|
|
rrr.res_status_fo_key fo_status,
|
|
0 dirtlevel
|
|
FROM res_rsv_ruimte rrr,
|
|
res_rsv_artikel rra,
|
|
alg_v_ruimte_gegevens_all alg
|
|
WHERE rrr.res_status_fo_key = 2
|
|
AND rra.RES_RSV_RUIMTE_KEY = rrr.RES_RSV_RUIMTE_KEY
|
|
AND alg.alg_ruimte_key = rrr.alg_ruimte_key
|
|
ORDER BY reservering_key)
|
|
WHERE aanmk_datum > SYSDATE-2/24
|
|
OR last_upd>aanmk_datum AND last_upd > SYSDATE-2/24;
|
|
|
|
|
|
---
|
|
-- View tbv alle veiligheidsmeldingen
|
|
-- Dez worden naar Provat geexporteerd/rapport wordt door provat aangeroepen
|
|
---
|
|
CREATE OR REPLACE VIEW pror_v_mld_provat
|
|
AS
|
|
SELECT m.mld_melding_key melding_key,
|
|
m.mld_melding_datum begin_datum,
|
|
(SELECT p.prs_perslid_naam||','|| p.prs_perslid_voornaam||' '||p.prs_perslid_tussenvoegsel FROM prs_perslid p WHERE p.prs_perslid_key=m.prs_perslid_key) contact,
|
|
md.ins_discipline_omschrijving Service,
|
|
ms.mld_stdmelding_omschrijving omschrijving,
|
|
(SELECT al.alg_locatie_omschrijving
|
|
FROM alg_locatie al
|
|
WHERE al.alg_locatie_key=m.mld_alg_locatie_key) ||'-'|| a.alg_gebouw_naam locatie,
|
|
(SELECT ins_discipline_omschrijving FROM mld_discipline md WHERE md.ins_discipline_key = m.mld_ins_discipline_key) assignee, --- DEZE MOET NOG WORDERN GEVULD.
|
|
'' type_request,
|
|
(SELECT ms.mld_statuses_omschrijving
|
|
FROM mld_statuses ms
|
|
WHERE ms.mld_statuses_key=m.mld_melding_status) mld_status,
|
|
'' kostenplaats,
|
|
m.mld_melding_onderwerp onderwerp,
|
|
(SELECT MAX (f.fac_tracking_datum)
|
|
FROM fac_tracking f
|
|
WHERE f.FAC_TRACKING_REFKEY=m.mld_melding_key
|
|
AND f.FAC_SRTNOTIFICATIE_KEY=55
|
|
AND f.FAC_TRACKING_DATUM>m.mld_melding_datum) mld_update,
|
|
(SELECT mk.mld_kenmerkmelding_waarde
|
|
FROM mld_kenmerkmelding mk,
|
|
mld_kenmerk k
|
|
WHERE mk.MLD_melding_KEY=m.mld_melding_key
|
|
AND mk.mld_kenmerk_key=k.mld_kenmerk_key
|
|
AND UPPER(k.mld_kenmerk_omschrijving)='PROVATEXPORTFLAG') provat_flag,
|
|
(SELECT mk.mld_kenmerkmelding_waarde
|
|
FROM mld_kenmerkmelding mk,
|
|
mld_kenmerk k
|
|
WHERE mk.mld_melding_key=m.mld_melding_key
|
|
AND mk.mld_kenmerk_key=k.mld_kenmerk_key
|
|
AND UPPER(k.mld_kenmerk_omschrijving)='PROVATEXPORT') export_provat
|
|
FROM mld_melding m,
|
|
mld_stdmelding ms,
|
|
mld_discipline md,
|
|
alg_v_allonrgoed_gegevens a
|
|
WHERE m.mld_stdmelding_key=ms.mld_stdmelding_key
|
|
AND md.ins_discipline_key= ms.mld_ins_discipline_key
|
|
AND (UPPER(ms.mld_stdmelding_omschrijving)='INZET BHV OF ONGEVAL MELDEN'
|
|
OR UPPER(ms.mld_stdmelding_omschrijving)='ONVEILIGE SITUATIE MELDEN'
|
|
OR UPPER(ms.mld_stdmelding_omschrijving)='BEVEILIGINGSINCIDENT MELDEN')
|
|
AND a.alg_locatie_key=m.mld_alg_locatie_key
|
|
AND a.alg_onroerendgoed_keys=m.mld_alg_onroerendgoed_keys
|
|
AND m.mld_melding_status IN (2,3,4,5,7);
|
|
|
|
|
|
---
|
|
-- View tbv alle bookmarks
|
|
-- Deze worden door BIOMNI via API uitgelezen
|
|
---
|
|
CREATE OR REPLACE VIEW pror_v_bkms_biomni
|
|
AS
|
|
SELECT 'https://pror.facilitor-test.nl/?u='||fac_bookmark_id||CHR(38)||'mld_defaultstdmelding='||ms.MLD_STDMELDING_KEY url,
|
|
ms.MLD_STDMELDING_OMSCHRIJVING
|
|
FROM fac_bookmark fb, mld_stdmelding ms
|
|
WHERE fb.FAC_BOOKMARK_NAAM='SSP/Biomni melding'
|
|
ORDER BY ms.MLD_STDMELDING_KEY;
|
|
|
|
---
|
|
-- View tbv alle melding status
|
|
-- Deze worden door BIOMNI via API uitgelezen
|
|
---
|
|
CREATE OR REPLACE VIEW pror_v_mld_biomni
|
|
AS
|
|
SELECT m.mld_melding_key mld_key,
|
|
id.ins_srtdiscipline_prefix||m.mld_melding_key mld_key_inclprefix,
|
|
COALESCE(m.mld_melding_onderwerp, ms.mld_stdmelding_omschrijving) omschrijving,
|
|
mst.mld_statuses_omschrijving,
|
|
m.mld_melding_datum aanvraag_datum,
|
|
p.prs_perslid_email email_aanvrager,
|
|
(SELECT a.mld_melding_note_omschrijving
|
|
FROM (SELECT mld_melding_note_omschrijving
|
|
FROM mld_melding_note
|
|
WHERE mld_melding_key=m.mld_melding_key
|
|
ORDER BY mld_melding_note_aanmaak desc) a
|
|
WHERE ROWNUM=1) notitie,
|
|
'https://pror.facilitor-test.nl/appl/mld/mld_melding.asp?urole=fe'||chr(38)||'mld_key='||m.mld_melding_key response_url
|
|
FROM mld_melding m,
|
|
mld_stdmelding ms,
|
|
mld_discipline md,
|
|
ins_srtdiscipline id,
|
|
mld_statuses mst,
|
|
prs_perslid p
|
|
WHERE p.prs_perslid_key=m.prs_perslid_key
|
|
AND ms.mld_stdmelding_key = m.mld_stdmelding_key
|
|
AND md.ins_discipline_key=ms.mld_ins_discipline_key
|
|
AND id.ins_srtdiscipline_key = md.ins_srtdiscipline_key
|
|
AND mst.mld_statuses_key=m.mld_melding_status
|
|
AND p.prs_perslid_email IS NOT NULL
|
|
ORDER BY m.mld_melding_datum;
|
|
|
|
--
|
|
-- Looplijst Cateraar
|
|
--
|
|
CREATE OR REPLACE VIEW pror_v_cat_reserveringincl
|
|
(
|
|
key,
|
|
nummer,
|
|
res_omschrijving,
|
|
invoerdatum,
|
|
datum,
|
|
gastheer,
|
|
contact,
|
|
gastheer_email,
|
|
gastheer_telefoon,
|
|
contact_email,
|
|
contact_telefoon,
|
|
invoerder,
|
|
kostensoortgroep,
|
|
kostensoort,
|
|
kpn,
|
|
kpn_omschrijving,
|
|
kpn_extern,
|
|
fclt_3d_divisie_key,
|
|
divisie_naam,
|
|
divisie_omschrijving,
|
|
fclt_3d_afdeling_key,
|
|
afdeling_code,
|
|
afdeling_omschrijving,
|
|
regio_omschrijving,
|
|
district_omschijving,
|
|
fclt_3d_locatie_key,
|
|
locatie,
|
|
locatie_omschrijving,
|
|
locatie_plaats,
|
|
gebouw,
|
|
verdieping,
|
|
ruimte,
|
|
opstelling,
|
|
capaciteit,
|
|
no_show,
|
|
mandaat,
|
|
personeelsnr,
|
|
fclt_3d_discipline_key,
|
|
catalogus_key,
|
|
catalogus,
|
|
reserveerbare_ruimte,
|
|
bezoekers,
|
|
van,
|
|
tot,
|
|
duur,
|
|
status,
|
|
bostatus,
|
|
activiteit,
|
|
srtactiviteit_key,
|
|
activiteitsoort,
|
|
opmerking,
|
|
voorziening_discipline_key,
|
|
voorziening_type,
|
|
voorziening_catalogus,
|
|
leverancier,
|
|
voorziening_product_key,
|
|
voorziening_product,
|
|
voorziening_totaalprijs,
|
|
voorziening_totaalprijsex,
|
|
voorziening_van,
|
|
voorziening_tot,
|
|
voorziening_aantal,
|
|
voorziening_prijs,
|
|
voorziening_opmerking
|
|
)
|
|
AS
|
|
SELECT rrr.res_rsv_ruimte_key,
|
|
res.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr,
|
|
rrr.res_rsv_ruimte_omschrijving,
|
|
COALESCE (rrr.res_rsv_ruimte_aanmaak, voorz.van),
|
|
rrr.res_rsv_ruimte_van,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = rrr.res_rsv_ruimte_host_key),
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = rrr.res_rsv_ruimte_contact_key),
|
|
(SELECT ph.prs_perslid_email
|
|
FROM prs_perslid ph
|
|
WHERE ph.prs_perslid_key = rrr.res_rsv_ruimte_host_key),
|
|
(SELECT ph.prs_perslid_telefoonnr
|
|
FROM prs_perslid ph
|
|
WHERE ph.prs_perslid_key = rrr.res_rsv_ruimte_host_key),
|
|
(SELECT pc.prs_perslid_email
|
|
FROM prs_perslid pc
|
|
WHERE pc.prs_perslid_key = rrr.res_rsv_ruimte_contact_key),
|
|
(SELECT pc.prs_perslid_telefoonnr
|
|
FROM prs_perslid pc
|
|
WHERE pc.prs_perslid_key = rrr.res_rsv_ruimte_contact_key),
|
|
(SELECT pf.prs_perslid_naam_full
|
|
FROM fac_tracking tr, fac_srtnotificatie str, prs_v_perslid_fullnames_all pf
|
|
WHERE tr.prs_perslid_key = pf.prs_perslid_key
|
|
AND str.fac_srtnotificatie_code = 'RESNEW'
|
|
AND tr.fac_srtnotificatie_key = str.fac_srtnotificatie_key
|
|
AND tr.fac_tracking_refkey = rrr.res_rsv_ruimte_key),
|
|
(SELECT ksg.prs_kostensoortgrp_oms
|
|
FROM prs_kostensoortgrp ksg, prs_kostensoort ks
|
|
WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
|
|
AND ks.prs_kostensoort_key =
|
|
(SELECT disc.prs_kostensoort_key
|
|
FROM res_discipline disc
|
|
WHERE disc.ins_discipline_key =
|
|
COALESCE (
|
|
voorz.ins_discipline_key,
|
|
(SELECT ins_discipline_key
|
|
FROM ins_tab_discipline d,
|
|
res_ruimte_opstelling ro,
|
|
res_ruimte rr
|
|
WHERE rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key = rr.res_ruimte_key
|
|
AND rr.res_discipline_key = d.ins_discipline_key))))
|
|
kostensoortgroep,
|
|
(SELECT ks.prs_kostensoort_oms
|
|
FROM prs_kostensoort ks
|
|
WHERE ks.prs_kostensoort_key =
|
|
(SELECT disc.prs_kostensoort_key
|
|
FROM res_discipline disc
|
|
WHERE disc.ins_discipline_key =
|
|
COALESCE (
|
|
voorz.ins_discipline_key,
|
|
(SELECT ins_discipline_key
|
|
FROM ins_tab_discipline d,
|
|
res_ruimte_opstelling ro,
|
|
res_ruimte rr
|
|
WHERE rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key = rr.res_ruimte_key
|
|
AND rr.res_discipline_key = d.ins_discipline_key))))
|
|
kostensoort,
|
|
k.prs_kostenplaats_nr,
|
|
k.prs_kostenplaats_omschrijving,
|
|
k.prs_kostenplaats_extern,
|
|
an.prs_afdeling_key,
|
|
an.prs_afdeling_naam,
|
|
an.prs_afdeling_omschrijving,
|
|
a.prs_afdeling_key,
|
|
a.prs_afdeling_naam,
|
|
a.prs_afdeling_omschrijving,
|
|
(SELECT rg.alg_regio_omschrijving
|
|
FROM alg_regio rg,
|
|
alg_district d,
|
|
alg_locatie l,
|
|
alg_gebouw g,
|
|
alg_verdieping v,
|
|
alg_ruimte r
|
|
WHERE rg.alg_regio_key = d.alg_regio_key
|
|
AND d.alg_district_key = l.alg_district_key
|
|
AND l.alg_locatie_key = g.alg_locatie_key
|
|
AND g.alg_gebouw_key = v.alg_gebouw_key
|
|
AND v.alg_verdieping_key = r.alg_verdieping_key
|
|
AND r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
(SELECT d.alg_district_omschrijving
|
|
FROM alg_district d,
|
|
alg_locatie l,
|
|
alg_gebouw g,
|
|
alg_verdieping v,
|
|
alg_ruimte r
|
|
WHERE d.alg_district_key = l.alg_district_key
|
|
AND l.alg_locatie_key = g.alg_locatie_key
|
|
AND g.alg_gebouw_key = v.alg_gebouw_key
|
|
AND v.alg_verdieping_key = r.alg_verdieping_key
|
|
AND r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
(SELECT l.alg_locatie_key
|
|
FROM alg_locatie l,
|
|
alg_gebouw g,
|
|
alg_verdieping v,
|
|
alg_ruimte r
|
|
WHERE l.alg_locatie_key = g.alg_locatie_key
|
|
AND g.alg_gebouw_key = v.alg_gebouw_key
|
|
AND v.alg_verdieping_key = r.alg_verdieping_key
|
|
AND r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
(SELECT alg_locatie_code
|
|
FROM alg_locatie l,
|
|
alg_gebouw g,
|
|
alg_verdieping v,
|
|
alg_ruimte r
|
|
WHERE l.alg_locatie_key = g.alg_locatie_key
|
|
AND g.alg_gebouw_key = v.alg_gebouw_key
|
|
AND v.alg_verdieping_key = r.alg_verdieping_key
|
|
AND r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
(SELECT alg_locatie_omschrijving
|
|
FROM alg_locatie l,
|
|
alg_gebouw g,
|
|
alg_verdieping v,
|
|
alg_ruimte r
|
|
WHERE l.alg_locatie_key = g.alg_locatie_key
|
|
AND g.alg_gebouw_key = v.alg_gebouw_key
|
|
AND v.alg_verdieping_key = r.alg_verdieping_key
|
|
AND r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
(SELECT alg_locatie_plaats
|
|
FROM alg_locatie l,
|
|
alg_gebouw g,
|
|
alg_verdieping v,
|
|
alg_ruimte r
|
|
WHERE l.alg_locatie_key = g.alg_locatie_key
|
|
AND g.alg_gebouw_key = v.alg_gebouw_key
|
|
AND v.alg_verdieping_key = r.alg_verdieping_key
|
|
AND r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
(SELECT alg_gebouw_naam
|
|
FROM alg_gebouw g, alg_verdieping v, alg_ruimte r
|
|
WHERE g.alg_gebouw_key = v.alg_gebouw_key
|
|
AND v.alg_verdieping_key = r.alg_verdieping_key
|
|
AND r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
(SELECT alg_verdieping_code
|
|
FROM alg_verdieping v, alg_ruimte r
|
|
WHERE v.alg_verdieping_key = r.alg_verdieping_key
|
|
AND r.alg_ruimte_key = r2a.alg_ruimte_key),
|
|
r2a.ruimte_nr,
|
|
r2a.opstelling,
|
|
r2a.capaciteit,
|
|
rrr.res_rsv_ruimte_noshow,
|
|
NVL ( (SELECT pr.fac_profiel_limiet
|
|
FROM fac_profiel pr
|
|
WHERE p.fac_profiel_key = pr.fac_profiel_key), 0),
|
|
prs_perslid_nr,
|
|
COALESCE (
|
|
voorz.ins_discipline_key,
|
|
(SELECT ins_discipline_key
|
|
FROM ins_tab_discipline d, res_ruimte_opstelling ro, res_ruimte rr
|
|
WHERE rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key = rr.res_ruimte_key
|
|
AND rr.res_discipline_key = d.ins_discipline_key)),
|
|
(SELECT ins_discipline_key
|
|
FROM ins_tab_discipline d, res_ruimte_opstelling ro, res_ruimte rr
|
|
WHERE rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key = rr.res_ruimte_key
|
|
AND rr.res_discipline_key = d.ins_discipline_key),
|
|
(SELECT ins_discipline_omschrijving
|
|
FROM ins_tab_discipline d, res_ruimte_opstelling ro, res_ruimte rr
|
|
WHERE rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key = rr.res_ruimte_key
|
|
AND rr.res_discipline_key = d.ins_discipline_key),
|
|
DECODE (rrr.alg_ruimte_key, NULL, 'Ja', 'Nee'),
|
|
rrr.res_rsv_ruimte_bezoekers,
|
|
rrr.res_rsv_ruimte_van,
|
|
rrr.res_rsv_ruimte_tot,
|
|
COALESCE ( (rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van) * 24, 0),
|
|
(SELECT res_status_fo_omschrijving
|
|
FROM res_status_fo rs
|
|
WHERE rs.res_status_fo_key = rrr.res_status_fo_key),
|
|
(SELECT res_status_bo_omschrijving
|
|
FROM res_status_bo rs
|
|
WHERE rs.res_status_bo_key = rrr.res_status_bo_key),
|
|
ra.res_activiteit_omschrijving,
|
|
rsa.res_srtactiviteit_key,
|
|
rsa.res_srtactiviteit_omschrijving,
|
|
rrr.res_rsv_ruimte_opmerking,
|
|
voorz.ins_discipline_key,
|
|
voorz.vtype,
|
|
voorz.catalogus,
|
|
(SELECT prs_bedrijf_naam
|
|
FROM res_disc_params rdp, prs_bedrijf b
|
|
WHERE rdp.prs_bedrijf_key = b.prs_bedrijf_key
|
|
AND rdp.res_ins_discipline_key = voorz.ins_discipline_key),
|
|
voorz.product_key,
|
|
voorz.product,
|
|
voorz.totaalprijs,
|
|
voorz.totaalprijs_ex,
|
|
TO_CHAR (voorz.van, 'hh24:mi'),
|
|
TO_CHAR (voorz.tot, 'hh24:mi'),
|
|
voorz.aantal,
|
|
ROUND(voorz.prijs,2),
|
|
(SELECT rk.res_kenmerkartikel_waarde
|
|
FROM res_kenmerkartikel rk
|
|
WHERE rk.res_rsv_artikel_key=voorz.rrr_dl_art_key
|
|
AND rk.res_kenmerkartikel_verwijder IS NULL) voorz_opm
|
|
FROM res_v_aanwezigrsv_ruimte rrr,
|
|
res_activiteit ra,
|
|
res_srtactiviteit rsa,
|
|
res_reservering res,
|
|
prs_kostenplaats k,
|
|
prs_perslid p,
|
|
prs_afdeling a,
|
|
prs_afdeling an,
|
|
prs_v_afdeling_boom ab,
|
|
( SELECT res_rsv_ruimte_key,
|
|
MAX (o.res_opstelling_omschrijving) opstelling,
|
|
MAX (ro.res_ruimte_opstel_bezoekers) capaciteit,
|
|
MAX (ra.alg_ruimte_key) alg_ruimte_key,
|
|
MAX (rr.res_ruimte_nr) ruimte_nr
|
|
FROM res_rsv_ruimte r,
|
|
res_ruimte_opstelling ro,
|
|
res_opstelling o,
|
|
res_ruimte rr,
|
|
res_alg_ruimte ra
|
|
WHERE r.res_rsv_ruimte_verwijder IS NULL
|
|
AND r.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
|
|
AND ro.res_ruimte_key = rr.res_ruimte_key
|
|
AND ro.res_opstelling_key = o.res_opstelling_key
|
|
AND rr.res_ruimte_key = ra.res_ruimte_key
|
|
GROUP BY res_rsv_ruimte_key
|
|
UNION ALL
|
|
SELECT res_rsv_ruimte_key,
|
|
'' opstelling,
|
|
NULL capaciteit,
|
|
rrr.alg_ruimte_key,
|
|
r.alg_ruimte_nr
|
|
FROM res_rsv_ruimte rrr, alg_ruimte r
|
|
WHERE rrr.alg_ruimte_key IS NOT NULL AND r.alg_ruimte_key = rrr.alg_ruimte_key) r2a,
|
|
(SELECT rrd.res_rsv_ruimte_key res_rsv_ruimte_key,
|
|
null rrr_dl_art_key,
|
|
rd.res_deel_key product_key,
|
|
rd.res_deel_omschrijving product,
|
|
DECODE (
|
|
rd.res_deel_prijs_vast,
|
|
1,
|
|
NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs),
|
|
(rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van)
|
|
* 24
|
|
* NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs))
|
|
totaalprijs,
|
|
NULL totaalprijs_ex,
|
|
rrd.res_rsv_deel_van van,
|
|
rrd.res_rsv_deel_tot tot,
|
|
(rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24 aantal,
|
|
NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs) prijs,
|
|
c.ins_discipline_key ins_discipline_key,
|
|
c.ins_discipline_omschrijving catalogus,
|
|
'object' vtype
|
|
FROM res_v_aanwezigrsv_deel rrd,
|
|
res_deel rd,
|
|
ins_deel d,
|
|
ins_tab_discipline c
|
|
WHERE rrd.res_deel_key = rd.res_deel_key
|
|
AND d.ins_deel_key = rd.res_ins_deel_key
|
|
AND rrd.res_rsv_ruimte_key IS NOT NULL
|
|
AND c.ins_discipline_key = rd.res_discipline_key
|
|
UNION ALL
|
|
SELECT rra.res_rsv_ruimte_key res_rsv_ruimte_key,
|
|
rra.res_rsv_artikel_key rrr_dl_art_key,
|
|
ra.res_artikel_key product_key,
|
|
ra.res_artikel_omschrijving product,
|
|
NVL (rra.res_rsv_artikel_prijs, rra.res_rsv_artikel_aantal * res_artikel_prijs)
|
|
totaalprijs,
|
|
NVL (rra.res_rsv_artikel_prijs/(1+NVL(res_artikel_btw/100,0)), rra.res_rsv_artikel_aantal * res_artikel_prijs/(1+NVL(res_artikel_btw/100,0)))
|
|
totaalprijs_ex,
|
|
rra.res_rsv_artikel_levering van,
|
|
NULL tot,
|
|
rra.res_rsv_artikel_aantal aantal,
|
|
NVL (rra.res_rsv_artikel_prijs / rra.res_rsv_artikel_aantal, res_artikel_prijs)
|
|
prijs,
|
|
c.ins_discipline_key ins_discipline_key,
|
|
c.ins_discipline_omschrijving catalogus,
|
|
'consumable' vtype
|
|
FROM res_v_aanwezigrsv_artikel rra, res_artikel ra, ins_tab_discipline c
|
|
WHERE rra.res_artikel_key = ra.res_artikel_key
|
|
AND ra.res_discipline_key = c.ins_discipline_key) voorz
|
|
WHERE rrr.res_reservering_key = res.res_reservering_key
|
|
AND rrr.res_rsv_ruimte_key = r2a.res_rsv_ruimte_key(+)
|
|
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
|
|
AND rrr.res_rsv_ruimte_key = voorz.res_rsv_ruimte_key(+)
|
|
AND rrr.res_activiteit_key = ra.res_activiteit_key
|
|
AND ra.res_srtactiviteit_key = rsa.res_srtactiviteit_key
|
|
AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
|
|
AND p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND p.prs_afdeling_key = ab.prs_afdeling_key
|
|
AND ab.prs_afdeling_key1 = an.prs_afdeling_key
|
|
AND (rrr.res_ruimte_opstel_key IS NOT NULL OR voorz.res_rsv_ruimte_key IS NOT NULL)
|
|
AND rrr.res_rsv_ruimte_van >= TO_DATE ('01-01-2010', 'DD-MM-YYYY');
|
|
|
|
|
|
|
|
|
|
--- EXPORTS
|
|
|
|
-- PROVAT EXPORT
|
|
-- De geexporteerde meldingen een export datum meegeven.
|
|
CREATE OR REPLACE PROCEDURE PROR_SELECT_PROVAT(p_applname IN VARCHAR2,
|
|
p_applrun IN VARCHAR2
|
|
)
|
|
AS
|
|
v_kenmerk_key NUMBER;
|
|
CURSOR c
|
|
IS
|
|
SELECT *
|
|
FROM pror_v_mld_provat
|
|
WHERE provat_flag IS NULL
|
|
OR (provat_flag='0' AND mld_update>TO_DATE(export_provat,'DD-MM-YYYY'));
|
|
BEGIN
|
|
|
|
FOR rec in c
|
|
LOOP
|
|
flx.setflex('MLD',1041,rec.melding_key,'1'); -- Deze mogen geexporteerd worden A=1041
|
|
|
|
END LOOP;
|
|
|
|
|
|
END;
|
|
/
|
|
|
|
|
|
--
|
|
-- Export view voor alle meldingen die naar ProVat geexporteerd moeten die syncstatus=1 hebben
|
|
--
|
|
CREATE OR REPLACE VIEW PROR_V_EXPORT_PROVAT
|
|
(
|
|
result,
|
|
result_order
|
|
)
|
|
AS
|
|
SELECT 'Requestnr;Begindatum;Contact;Service;Omschrijving;Gebouw;Assignee;Type request;Status;Kostenplaats;Omschrijving' heaeder,0 FROM DUAL
|
|
UNION ALL
|
|
SELECT melding_key||';'||TO_CHAR(begin_datum,'DD-MM-YYYY HH24:MI:SS')||';'||contact||';'||service||';'||omschrijving||';'||locatie||';'||assignee||';'||type_request||';'||mld_status||';;'||onderwerp, 1
|
|
FROM pror_v_mld_provat
|
|
WHERE provat_flag='1'
|
|
ORDER BY 1 DESC;
|
|
|
|
|
|
|
|
-- alle geexporteerde meldingen de sync date en syncstatus goedzetten
|
|
CREATE OR REPLACE PROCEDURE PROR_EXPORT_PROVAT(p_applname IN VARCHAR2,
|
|
p_applrun IN VARCHAR2,
|
|
p_index IN VARCHAR2,
|
|
p_file IN VARCHAR2
|
|
)
|
|
AS
|
|
CURSOR c
|
|
IS
|
|
SELECT *
|
|
FROM pror_v_mld_provat
|
|
WHERE provat_flag='1';
|
|
BEGIN
|
|
FOR rec IN C
|
|
LOOP
|
|
|
|
flx.setflex('MLD',1021,rec.melding_key,TO_CHAR(SYSDATE,'DD-MM-YYYY')); -- A = 1021
|
|
flx.setflex('MLD',1041,rec.melding_key,'0'); -- A = 1041
|
|
END LOOP;
|
|
END;
|
|
/
|
|
-- EINDE PROVAT EXPORT
|
|
|
|
-- EXPORT VAN CATERING BESTELLINGE TBV Eurest
|
|
--
|
|
-- VIEW TBV EUREST EXPORT (ook gebruikt in rapportage)
|
|
CREATE OR REPLACE VIEW pror_v_select_eurest_cat
|
|
AS
|
|
SELECT distinct rra.res_rsv_ruimte_key rrr_key,
|
|
rrr.res_reservering_key||'/'||rrr.res_rsv_ruimte_volgnr reservering,
|
|
rrr.res_rsv_ruimte_opmerking opmerking,
|
|
'Regulier' extra_opmerking,
|
|
rrr.res_rsv_ruimte_van van,
|
|
rrr.res_rsv_ruimte_tot tot,
|
|
(SELECT prs_perslid_naam_friendly
|
|
FROM prs_v_perslid_fullnames
|
|
WHERE prs_perslid_key=rrr.res_rsv_ruimte_contact_key) aanvrager,
|
|
p.prs_perslid_telefoonnr telefoon,
|
|
p.prs_perslid_email email,
|
|
k.prs_kostenplaats_key,
|
|
k.prs_kostenplaats_nr kostenplaats,
|
|
k.prs_kostenplaats_omschrijving,
|
|
COALESCE (
|
|
(SELECT alg_ruimte_nr
|
|
FROM alg_v_allonrgoed_gegevens alg
|
|
WHERE alg.alg_ruimte_key=rrr.alg_ruimte_key),
|
|
(SELECT MIN(alg.alg_ruimte_nr)
|
|
FROM res_ruimte_opstelling rro, res_ruimte rr, res_alg_ruimte rarm, alg_v_ruimte_gegevens_all alg
|
|
WHERE rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
|
|
AND rr.res_ruimte_key = rro.res_ruimte_key
|
|
AND rarm.res_ruimte_key = rr.res_ruimte_key
|
|
AND rarm.res_alg_ruimte_verwijder IS NULL
|
|
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr
|
|
FROM res_rsv_artikel rra,
|
|
res_artikel ra,
|
|
res_rsv_ruimte rrr,
|
|
prs_kostenplaats k,
|
|
prs_v_perslid_gegevens p
|
|
WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY')
|
|
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
|
|
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
|
|
AND rra.res_artikel_key = ra.res_artikel_key
|
|
AND rrr.res_status_bo_key = 2 -- afgemeld
|
|
AND rrr.res_status_fo_key = 2
|
|
AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key
|
|
AND rra.res_rsv_artikel_verwijder IS NULL
|
|
AND rrr.res_rsv_ruimte_verwijder IS NULL
|
|
AND rrr.res_rsv_ruimte_externsyncdate IS NULL
|
|
UNION -- alle bezrogde reserveringn
|
|
SELECT distinct rra.res_rsv_ruimte_key rrr_key,
|
|
rrr.res_reservering_key||'/'||rrr.res_rsv_ruimte_volgnr reservering,
|
|
rrr.res_rsv_ruimte_opmerking opmerking,
|
|
'Bezorgen' extra_opmerking,
|
|
rrr.res_rsv_ruimte_van van,
|
|
rrr.res_rsv_ruimte_tot tot,
|
|
(SELECT prs_perslid_naam_friendly
|
|
FROM prs_v_perslid_fullnames
|
|
WHERE prs_perslid_key=rrr.res_rsv_ruimte_contact_key) aanvrager,
|
|
p.prs_perslid_telefoonnr telefoon,
|
|
p.prs_perslid_email email,
|
|
k.prs_kostenplaats_key,
|
|
k.prs_kostenplaats_nr kostenplaats,
|
|
k.prs_kostenplaats_omschrijving,
|
|
-- b.prs_bedrijf_key,
|
|
-- b.prs_overeenkomst_nr,
|
|
COALESCE (
|
|
(SELECT alg_ruimte_nr
|
|
FROM alg_v_allonrgoed_gegevens alg
|
|
WHERE alg.alg_ruimte_key=rrr.alg_ruimte_key),
|
|
(SELECT MIN(alg.alg_ruimte_nr)
|
|
FROM res_ruimte_opstelling rro, res_ruimte rr, res_alg_ruimte rarm, alg_v_ruimte_gegevens_all alg
|
|
WHERE rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
|
|
AND rr.res_ruimte_key = rro.res_ruimte_key
|
|
AND rarm.res_ruimte_key = rr.res_ruimte_key
|
|
AND rarm.res_alg_ruimte_verwijder IS NULL
|
|
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr
|
|
FROM res_rsv_artikel rra,
|
|
res_artikel ra,
|
|
res_rsv_ruimte rrr,
|
|
prs_kostenplaats k,
|
|
prs_v_perslid_gegevens p
|
|
WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY')
|
|
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
|
|
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
|
|
AND rra.res_artikel_key = ra.res_artikel_key
|
|
AND rrr.res_status_fo_key = 2 -- vervallen en te laat uit outllok afgemeld
|
|
AND rrr.res_rsv_ruimte_cvab_mode IS NOT NULL -- vervallen en te laat uit outllok afgemeld
|
|
AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key
|
|
AND rrr.res_rsv_ruimte_externsyncdate IS NULL
|
|
UNION -- alle te laat verwijderde outlook reservereingen met catering
|
|
SELECT distinct rra.res_rsv_ruimte_key rrr_key,
|
|
rrr.res_reservering_key||'/'||rrr.res_rsv_ruimte_volgnr reservering,
|
|
rrr.res_rsv_ruimte_opmerking opmerking,
|
|
'Te late annulering' extra_opmerking,
|
|
rrr.res_rsv_ruimte_van van,
|
|
rrr.res_rsv_ruimte_tot tot,
|
|
(SELECT prs_perslid_naam_friendly FROM prs_v_perslid_fullnames WHERE prs_perslid_key=rrr.res_rsv_ruimte_contact_key) aanvrager,
|
|
p.prs_perslid_telefoonnr telefoon,
|
|
p.prs_perslid_email email,
|
|
k.prs_kostenplaats_key,
|
|
k.prs_kostenplaats_nr kostenplaats,
|
|
k.prs_kostenplaats_omschrijving,
|
|
COALESCE (
|
|
(SELECT alg_ruimte_nr
|
|
FROM alg_v_allonrgoed_gegevens alg
|
|
WHERE alg.alg_ruimte_key=rrr.alg_ruimte_key),
|
|
(SELECT MIN(alg.alg_ruimte_nr)
|
|
FROM res_ruimte_opstelling rro, res_ruimte rr, res_alg_ruimte rarm, alg_v_ruimte_gegevens_all alg
|
|
WHERE rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
|
|
AND rr.res_ruimte_key = rro.res_ruimte_key
|
|
AND rarm.res_ruimte_key = rr.res_ruimte_key
|
|
AND rarm.res_alg_ruimte_verwijder IS NULL
|
|
AND alg.alg_ruimte_key = rarm.alg_ruimte_key)) ruimtenr
|
|
FROM res_rsv_artikel rra,
|
|
res_artikel ra,
|
|
res_rsv_ruimte rrr,
|
|
prs_kostenplaats k,
|
|
prs_v_perslid_gegevens p
|
|
WHERE rrr.res_rsv_ruimte_van > TO_DATE('01-05-2022','DD-MM-YYYY')
|
|
AND rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
|
|
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
|
|
AND rra.res_artikel_key = ra.res_artikel_key
|
|
AND rrr.res_status_fo_key = 4 -- vervallen en te laat uit outllok afgemeld
|
|
AND rrr.res_status_bo_key = 2 -- vervallen en te laat uit outllok afgemeld
|
|
AND p.prs_perslid_key=rrr.res_rsv_ruimte_contact_key
|
|
AND rrr.res_rsv_ruimte_externnr IS NOT NULL
|
|
AND rrr.res_rsv_ruimte_externsyncdate IS NULL;
|
|
|
|
CREATE OR REPLACE PROCEDURE PROR_SELECT_EUREST_CAT(
|
|
p_applname IN VARCHAR2,
|
|
p_applrun IN VARCHAR2
|
|
)
|
|
AS
|
|
|
|
CURSOR sel
|
|
IS
|
|
SELECT *
|
|
FROM PROR_V_SELECT_EUREST_CAT
|
|
WHERE TO_CHAR(van,'MM')='12'; --TO_CHAR(ADD_MONTHS(SYSDATE,-1),'MM');
|
|
|
|
CURSOR sel_art(p_rrr_key NUMBER)
|
|
IS
|
|
SELECT rra.res_rsv_artikel_key,
|
|
rra.res_rsv_artikel_aantal aantal,
|
|
ra.res_artikel_omschrijving artikel_omschrijving,
|
|
COALESCE(ra.RES_ARTIKEL_NR,ra.res_artikel_externnr) artikelnr,
|
|
rra.res_rsv_artikel_levering van,
|
|
ra.res_artikel_btw btw,
|
|
rra.res_rsv_artikel_prijs totprijs,
|
|
ra.res_artikel_prijs prijs,
|
|
rd.ins_discipline_omschrijving catalogus
|
|
FROM res_rsv_artikel rra,
|
|
res_artikel ra,
|
|
res_discipline rd
|
|
WHERE rra.res_rsv_ruimte_key=p_rrr_key
|
|
AND rra.res_artikel_key = ra.res_artikel_key
|
|
-- AND rra.res_status_bo_key = 2 -- afgemeld
|
|
AND rra.res_rsv_artikel_verwijder IS NULL
|
|
AND ra.res_artikel_btw IN (0, 9, 21)
|
|
AND rd.ins_discipline_key=ra.res_discipline_key;
|
|
|
|
v_bestand VARCHAR2(20);
|
|
v_shop_token VARCHAR2(50);
|
|
v_contact_email VARCHAR2(50);
|
|
v_debitor_value VARCHAR2(20);
|
|
v_counter NUMBER;
|
|
v_artikelprijs NUMBER;
|
|
|
|
BEGIN
|
|
v_bestand :='EUR-EX';
|
|
v_counter:=0;
|
|
|
|
-- CIRFOOD settings
|
|
v_shop_token:='CMPS_1234';
|
|
v_contact_email :='compass@prorail.nl';
|
|
v_debitor_value := 'PROR_DEB_CODE';
|
|
|
|
|
|
-- eerst opschonen
|
|
DELETE FROM fac_rapport
|
|
WHERE fac_rapport_node = v_bestand;
|
|
|
|
pror.add_xml_row (v_bestand, '<?xml version="1.0" encoding="windows-1252"?>');
|
|
pror.add_xml_row (v_bestand, '<Message version="1.1">');
|
|
pror.add_xml_row (v_bestand, '<Header>');
|
|
/* pror.add_xml_row (v_bestand, '<ShopToken>'||v_shop_token||'</ShopToken>'); */
|
|
pror.add_xml_row (v_bestand, '<Sender>');
|
|
pror.add_xml_row (v_bestand, '<ID>1</ID>');
|
|
pror.add_xml_row (v_bestand, '<Name>Prorail</Name>');
|
|
pror.add_xml_row (v_bestand, '<Email>'||v_contact_email||'</Email>');
|
|
pror.add_xml_row (v_bestand, '</Sender>');
|
|
pror.add_xml_row (v_bestand, '<Subject>Purchaseorder Facilitor</Subject>');
|
|
pror.add_xml_row (v_bestand, '</Header>');
|
|
pror.add_xml_row (v_bestand, '<Content>');
|
|
pror.add_xml_row (v_bestand, '<Orders>');
|
|
FOR rec IN sel
|
|
LOOP
|
|
v_counter:=v_counter+1;
|
|
pror.add_xml_row(v_bestand, '<Order>');
|
|
pror.add_xml_row(v_bestand, '<Customer>');
|
|
pror.add_xml_element (v_bestand, 'Name', 'PROR');
|
|
pror.add_xml_element (v_bestand, 'ID', '0000');
|
|
pror.add_xml_element (v_bestand, 'ExternalID', rec.reservering);
|
|
pror.add_xml_row(v_bestand, '<ContentContact>');
|
|
pror.add_xml_element (v_bestand, 'Name', rec.aanvrager);
|
|
pror.add_xml_element (v_bestand, 'Tel', rec.telefoon);
|
|
pror.add_xml_element (v_bestand, 'Email', rec.email);
|
|
pror.add_xml_row(v_bestand, '</ContentContact>');
|
|
pror.add_xml_row(v_bestand, '</Customer>');
|
|
pror.add_xml_element (v_bestand, 'Comments', REGEXP_REPLACE(rec.opmerking, '[^ -~|[:space:]]', ''));
|
|
pror.add_xml_row(v_bestand, '<Delivery>');
|
|
pror.add_xml_row(v_bestand, '<Location>');
|
|
pror.add_xml_element (v_bestand, 'Reference', 'LOCATIECODE');
|
|
pror.add_xml_row(v_bestand, '<Room>');
|
|
pror.add_xml_element (v_bestand, 'Description',rec.ruimteNr);
|
|
pror.add_xml_row(v_bestand, '</Room>');
|
|
pror.add_xml_row(v_bestand, '</Location>');
|
|
pror.add_xml_element (v_bestand, 'RequestedDeliveryDateTime',to_char(rec.van,'YYYYMMDD')||'T'||to_char(rec.van,'HH24:MI:SS'));
|
|
pror.add_xml_element (v_bestand, 'RequestedCollectDateTime',to_char(rec.tot,'YYYYMMDD')||'T'||to_char(rec.tot,'HH24:MI:SS'));
|
|
pror.add_xml_row(v_bestand, '</Delivery>');
|
|
pror.add_xml_row(v_bestand, '<CostCentre>');
|
|
pror.add_xml_element (v_bestand, 'Code',rec.kostenplaats);
|
|
pror.add_xml_row(v_bestand, '</CostCentre>');
|
|
pror.add_xml_row(v_bestand, '<OrderLines>');
|
|
FOR rec_art in sel_art(rec.rrr_key)
|
|
LOOP
|
|
pror.add_xml_row(v_bestand, '<OrderLine>');
|
|
pror.add_xml_element (v_bestand, 'Start',TO_CHAR(rec_art.van,'HH24:MI'));
|
|
pror.add_xml_row(v_bestand, '<Item>');
|
|
pror.add_xml_element (v_bestand, 'Description',rec_art.artikel_omschrijving);
|
|
pror.add_xml_element (v_bestand, 'Reference',rec_art.artikelnr);
|
|
pror.add_xml_row(v_bestand, '</Item>');
|
|
|
|
v_artikelprijs:=0;
|
|
|
|
IF UPPER(rec_art.catalogus) = 'MAATWERK'
|
|
THEN
|
|
v_artikelprijs := rec_art.totprijs/rec_art.aantal;
|
|
|
|
ELSE
|
|
v_artikelprijs := rec_art.prijs;
|
|
|
|
END IF;
|
|
pror.add_xml_element (v_bestand, 'QuantityOrdered',rec_art.aantal);
|
|
pror.add_xml_row(v_bestand, '<Price>');
|
|
pror.add_xml_element (v_bestand, 'NetPrice',v_artikelprijs);
|
|
pror.add_xml_element (v_bestand, 'BrtPrice',ROUND(v_artikelPrijs*(1+rec_art.btw/100),2));
|
|
|
|
pror.add_xml_element (v_bestand, 'Currency','EUR');
|
|
pror.add_xml_element (v_bestand, 'VatPercentage',rec_art.btw);
|
|
pror.add_xml_row(v_bestand, '</Price>');
|
|
pror.add_xml_row(v_bestand, '</OrderLine>');
|
|
UPDATE res_rsv_artikel SET res_rsv_artikel_externsyncdate=SYSDATE WHERE res_rsv_artikel_key=rec_art.res_rsv_artikel_key;
|
|
END LOOP;
|
|
pror.add_xml_row(v_bestand, '</OrderLines>');
|
|
pror.add_xml_row(v_bestand, '</Order>');
|
|
UPDATE res_rsv_ruimte SET res_rsv_ruimte_externsyncdate=SYSDATE WHERE res_rsv_ruimte_key=rec.rrr_key;
|
|
END LOOP;
|
|
pror.add_xml_row (v_bestand, '</Orders>');
|
|
pror.add_xml_row (v_bestand, '</Content>');
|
|
pror.add_xml_row (v_bestand, '</Message>');
|
|
|
|
IF v_counter=0 -- we hebben niets te exporteren dan kunnen we de xml headers ook opruimen.
|
|
THEN
|
|
DELETE FROM fac_rapport
|
|
WHERE fac_rapport_node = v_bestand;
|
|
END IF;
|
|
END;
|
|
/
|
|
|
|
CREATE OR REPLACE VIEW PROR_V_EXPORT_EUREST_CAT
|
|
(
|
|
result,
|
|
result_order
|
|
)
|
|
AS
|
|
SELECT fac_rapport_regel, fac_rapport_volgnr
|
|
FROM fac_rapport
|
|
WHERE fac_rapport_node LIKE 'EUR-EX%';
|
|
-- EINDE EXPORT COMPASSGROUP
|
|
|
|
------ payload end ------
|
|
|
|
SET DEFINE OFF
|
|
BEGIN adm.systrackscriptId ('$Id$', 0); END;
|
|
/
|
|
|
|
COMMIT;
|
|
SET ECHO OFF
|
|
SPOOL OFF
|
|
SET DEFINE ON
|
|
PROMPT Logfile of this upgrade is: &fcltlogfile
|