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

FCLT#74343 Droppen oude klant-sql's

Browse Source 
svn path=/Customer/trunk/; revision=57322
This commit is contained in:
Arthur Egberink
2022-09-16 11:54:07 +00:00
parent 9296753c5a
commit 2dd849fa09
14 changed files with 105 additions and 16780 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2885
AONL/aonl.sql
View File

File diff suppressed because it is too large Load Diff

97
ARFR/ARFR.sql
View File

@@ -1,97 +0,0 @@
-- Script containing customer specific configuration sql statements for ARFR
-- (c) 2016 Facilitor B.V.
-- Support: +31 53 4800710
SET ECHO ON
SPOOL arfr.lst
-- Report for checking whether all drivers have entered their kilometer reading yet
CREATE OR REPLACE VIEW arfr_v_rap_odometer_complete
AS
SELECT i.ins_deel_omschrijving hide_f_sort,
i.ins_deel_omschrijving fclt_x_voiture,
'<a class="details" onclick=''FcltMgr.openDetail("'
|| 'appl/ins/ins_deel.asp?urole=bo&'||'ins_key='||i.ins_deel_key
|| '")''>'
|| htf.escape_sc(i.ins_deel_omschrijving)
|| '</a>'
html_voiture,
i.perslid_naam fclt_x_chauffeur,
'<a class="details" onclick=''FcltMgr.openDetail("'
|| 'appl/prs/prs_perslid.asp?key='||i.prs_perslid_key
|| '")''>'
|| htf.escape_sc(i.perslid_naam)
|| '</a>'
html_chauffeur,
DECODE( m.mld_melding_key, NULL, NULL,
'<a class="details" onclick=''FcltMgr.openDetail("'
|| 'appl/mld/mld_melding.asp?urole=bo&'||'mld_key='||m.mld_melding_key
|| '")''>'
|| htf.escape_sc( TO_CHAR(m.mld_melding_key) )
|| '</a>')
html_appel,
m.kms kilometrage_nouveau,
i.kilometrage_precedent,
i.ins_deel_key,
i.prs_perslid_key,
m.mld_melding_key appel
FROM (
SELECT d.ins_deel_key,
d.ins_deel_omschrijving,
fac.safe_to_number(kd.ins_kenmerkdeel_waarde) kilometrage_precedent,
p.prs_perslid_key,
NVL2 (p.prs_perslid_voornaam, p.prs_perslid_voornaam || ' ', '')
|| p.prs_perslid_naam
|| NVL2 (p.prs_perslid_tussenvoegsel, ' ' || p.prs_perslid_tussenvoegsel, '')
|| NVL2 (p.prs_perslid_voorletters, ' (' || p.prs_perslid_voorletters || ')', '') perslid_naam
FROM ins_v_aanwezigdeel d,
ins_srtdeel sd,
prs_perslid p,
(SELECT * FROM ins_kenmerkdeel
WHERE ins_kenmerkdeel_verwijder IS NULL
AND ins_kenmerk_key = 1) kd
WHERE d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = 41
AND d.ins_alg_ruimte_type = 'P'
AND p.prs_perslid_key = d.ins_alg_ruimte_key
AND kd.ins_deel_key(+) = d.ins_deel_key) i
LEFT OUTER JOIN (
SELECT m.mld_melding_key,
fac.safe_to_number(km.mld_kenmerkmelding_waarde) kms,
mo.ins_deel_key
FROM mld_melding m,
mld_melding_object mo,
mld_kenmerkmelding km
WHERE m.mld_stdmelding_key = 1
AND mo.mld_melding_key = m.mld_melding_key
AND km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerkmelding_verwijder IS NULL) m
ON m.ins_deel_key = i.ins_deel_key;
-- Noti-job: ask drivers to enter kilometer reading for their car
CREATE OR REPLACE VIEW arfr_v_noti_odometer
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
XKEY
)
AS
SELECT 'INSMAI',
NULL,
prs_perslid_key,
'S''il vous pla<6C>t signaler kilom<6F>trage pour ' || fclt_x_voiture email_subject,
ins_deel_key,
NULL
FROM arfr_v_rap_odometer_complete;
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
BEGIN fac.registercustversion('ARFR', 1); END;
/
COMMIT;
SPOOL OFF;

1619
ASFC/asfc.sql
View File

File diff suppressed because it is too large Load Diff

178
ASME/asme.sql
View File

@@ -1,178 +0,0 @@
-- Script containing customer specific configuration sql statements for Asito Medical
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SPOOL xasme.lst
SET ECHO ON
CREATE OR REPLACE PACKAGE ASME
AS
PROCEDURE mld_postsave (p_melding_key IN NUMBER);
END;
/
CREATE OR REPLACE PACKAGE BODY ASME
AS
PROCEDURE mld_postsave (p_melding_key IN NUMBER)
AS
BEGIN
mld.upsertmeldingkenmerk (101, -- steekproef
p_melding_key,
1);
END;
END;
/
CREATE OR REPLACE FORCE VIEW asme_v_work_list_cleaner
(
hide_f_timestamp,
mld_opdr_key,
fclt_3d_user_key,
mld_opdr_startdatum,
mld_opdr_einddatum,
kamernummer,
omschrijving
)
AS
SELECT TO_CHAR (mld_opdr_einddatum, 'yyyymmddhh24mi'),
o.mld_opdr_key,
o.mld_uitvoerende_keys fclt_3d_user_key,
mld_melding_datum + 1/(24*4), -- kwartier
mld_opdr_einddatum,
r.alg_ruimte_nr,
mld_stdmelding_omschrijving
|| ' ('
|| DECODE (o.mld_statusopdr_key, 8, 'gestart', 'nieuw')
|| ')'
FROM mld_opdr o,
mld_melding m,
alg_v_ruimte_gegevens r,
mld_stdmelding std
WHERE o.mld_statusopdr_key IN (5, 8)
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND m.mld_alg_onroerendgoed_keys = r.alg_ruimte_key;
--
-- Rapportages
--
CREATE OR REPLACE VIEW asme_v_rap_startwerkzaamheden
(
volgorde,
mld_melding_key,
starttijd,
ruimtenr,
melding,
schoonmaker,
marge
)
AS
SELECT TO_CHAR (mld_melding_datum, 'yyyymmddhh24miss') volgorde,
m.mld_melding_key,
TO_CHAR (mld_melding_datum, 'dd-mm-yyyy hh24:mi') starttijd,
alg_ruimte_nr ruimtenr,
mld_stdmelding_omschrijving melding,
pf.prs_perslid_naam_friendly,
15 - ROUND ((SYSDATE - mld_melding_datum) * 24 * 60) marge
FROM mld_opdr o,
mld_melding m,
mld_stdmelding std,
alg_v_ruimte_gegevens rg,
prs_v_perslid_fullnames pf
WHERE o.mld_melding_key(+) = m.mld_melding_key
AND o.mld_uitvoerende_keys = pf.prs_perslid_key(+)
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND m.mld_alg_onroerendgoed_keys = rg.alg_ruimte_key
AND (o.mld_statusopdr_key IN (5) OR o.mld_statusopdr_key IS NULL)
AND m.mld_melding_status NOT IN (1,5,6) -- afgewezen, gereed, verwerkt
ORDER BY mld_melding_datum;
CREATE OR REPLACE VIEW asme_v_rap_eindwerkzaamheden
(
volgorde,
mld_melding_key,
eindtijd,
ruimtenr,
melding,
schoonmaker,
marge
)
AS
SELECT TO_CHAR (mld_melding_datum, 'yyyymmddhh24miss') volgorde,
m.mld_melding_key,
TO_CHAR (mld_opdr_einddatum, 'dd-mm-yyyy hh24:mi') eindtijd,
alg_ruimte_nr ruimtenr,
mld_stdmelding_omschrijving melding,
pf.prs_perslid_naam_friendly,
ROUND ( (mld_opdr_einddatum - SYSDATE) * 24 * 60) marge
FROM mld_opdr o,
mld_melding m,
mld_stdmelding std,
alg_v_ruimte_gegevens rg,
prs_v_perslid_fullnames pf
WHERE o.mld_melding_key(+) = m.mld_melding_key
AND o.mld_uitvoerende_keys = pf.prs_perslid_key(+)
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND m.mld_alg_onroerendgoed_keys = rg.alg_ruimte_key
AND std.mld_ins_discipline_key NOT IN (42, 61) -- Techniek, Regie
AND o.mld_statusopdr_key IN (8)
AND m.mld_melding_status NOT IN (1, 5, 6) -- afgewezen, gereed, verwerkt
ORDER BY mld_melding_datum;
-- rapport van het aantal checkouts die de schoonmaker op zijn naam heeft staan
-- ten opzichte van het aantal checkouts dat hij per dag (kenmerk_key = 1000) moet halen.
-- dit ook beschikbaar op weekniveau.
CREATE OR REPLACE VIEW asme_v_rap_aantal_checkouts
(
naam,
vandaag,
todo_vandaag,
week,
todo_week
)
AS
SELECT pf.prs_perslid_naam_friendly,
(SELECT COUNT ( * )
FROM mld_opdr o, mld_melding m
WHERE o.mld_uitvoerende_keys = p.prs_perslid_key
AND o.mld_melding_key = m.mld_melding_key
AND TRUNC (m.mld_melding_datum) = TRUNC (SYSDATE))
co_today,
aantal_co,
(SELECT COUNT ( * )
FROM mld_opdr o, mld_melding m
WHERE o.mld_uitvoerende_keys = p.prs_perslid_key
AND o.mld_melding_key = m.mld_melding_key
AND TO_CHAR (m.mld_melding_datum, 'YYYYIW') =
TO_CHAR (SYSDATE, 'YYYYIW'))
co_week,
(TO_CHAR (SYSDATE, 'D') - 1) * aantal_co week_co
FROM (SELECT fac.safe_to_number (prs_kenmerklink_waarde) aantal_co,
prs_link_key prs_perslid_key
FROM prs_kenmerklink
WHERE prs_kenmerk_key = 1000
AND prs_kenmerklink_verwijder IS NULL) co,
prs_perslid p,
prs_v_perslid_fullnames pf
WHERE p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_perslid_key = co.prs_perslid_key;
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
BEGIN fac.registercustversion('ASME', 0); END;
/
COMMIT;
SPOOL OFF

744
BOFO/bofo.sql
View File

@@ -1,744 +0,0 @@
--
-- $Id$
--
-- Script containing customer specific sql statements for the FACILITOR database
DEFINE thisfile = 'BOFO.SQL'
DEFINE dbuser = '^BOFO'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT;
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
WHENEVER SQLERROR CONTINUE;
SPOOL &fcltlogfile
SET DEFINE OFF
CREATE OR REPLACE VIEW bofo_v_info_verkoopkamer (
bezoekers,
bezet,
res_ruimte_nr,
res_ruimte_key,
vrij_tot,
bezet_tot
)
AS
SELECT NVL (bezoekers.bez_afspraak_naam, 'geen'),
(SELECT COUNT ( * )
FROM res_rsv_ruimte rrr
WHERE SYSDATE BETWEEN res_rsv_ruimte_van AND res_rsv_ruimte_tot
AND rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key)
bezet,
res_ruimte_nr,
rr.res_ruimte_key,
(SELECT NVL (MIN (TO_CHAR (res_rsv_ruimte_van, 'hh24:mi')), '24:00')
FROM res_rsv_ruimte rrr
WHERE res_rsv_ruimte_van BETWEEN SYSDATE AND TRUNC (SYSDATE + 1)
AND rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key)
vrij_tot,
(SELECT MIN (TO_CHAR (res_rsv_ruimte_tot, 'hh24:mi'))
FROM res_rsv_ruimte rrr
WHERE res_rsv_ruimte_tot BETWEEN SYSDATE AND TRUNC (SYSDATE + 1)
AND rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key)
bezet_tot
FROM res_ruimte_opstelling ro,
res_ruimte rr,
(SELECT bez_afspraak_naam, res_ruimte_opstel_key
FROM bez_bezoekers b, bez_afspraak a, res_rsv_ruimte rrr
WHERE b.bez_afspraak_key = a.bez_afspraak_key
AND rrr.res_rsv_ruimte_key = a.res_rsv_ruimte_key
AND rrr.res_rsv_ruimte_van BETWEEN SYSDATE - 1 / 96
AND SYSDATE + 1 / 96) bezoekers
WHERE ro.res_ruimte_key = rr.res_ruimte_key
AND bezoekers.res_ruimte_opstel_key(+) = ro.res_ruimte_opstel_key;
CREATE OR REPLACE VIEW BOFO_V_RAP_ZIEKMELDING (naam
,datum_ziekmelding
,omschrijving
,opmerking
,datum_betermelding
,nummer)
AS
SELECT pf.prs_perslid_naam_full naam,
mld_melding_datum datum_ziekmelding,
SUBSTR (mld_melding_omschrijving, 1, 1000) omschijving,
SUBSTR (mld_melding_opmerking, 1, 1000) opmerking,
fac.gettrackingdate('MLDAFM', m.mld_melding_key) datum_betermelding,
mld_melding_key nummer
FROM mld_melding m, prs_v_perslid_fullnames pf
WHERE mld_stdmelding_key = 79 -- ziekmelding
AND m.prs_perslid_key = pf.prs_perslid_key
AND COALESCE (fac.gettrackingdate('MLDAFM', m.mld_melding_key), SYSDATE) > SYSDATE - 5;
-- no_show rapport met bijbehorende artikelen.
CREATE OR REPLACE VIEW bofo_v_rap_res_noshow (
reservering,
onderwerp,
fclt_d_datum,
aantal,
omschrijving,
prijs
)
AS
SELECT rrr.res_reservering_key || '/' || res_rsv_ruimte_volgnr,
res_rsv_ruimte_omschrijving,
TO_CHAR (res_rsv_ruimte_van, 'dd-mm-yyyy'),
rra.res_rsv_artikel_aantal,
ra.res_artikel_omschrijving,
res.getartikelprijs (res_rsv_artikel_key) prijs
FROM res_v_aanwezigrsv_artikel rra,
res_artikel ra,
res_v_aanwezigrsv_ruimte rrr
WHERE ra.res_artikel_key = rra.res_artikel_key
AND rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
AND res_rsv_ruimte_noshow = 1
UNION ALL
SELECT rrr.res_reservering_key || '/' || res_rsv_ruimte_volgnr,
res_rsv_ruimte_omschrijving,
TO_CHAR (res_rsv_ruimte_van, 'dd-mm-yyyy'),
1,
d.ins_deel_omschrijving,
res.getdeelprijs (rrd.res_rsv_deel_key) prijs
FROM res_v_aanwezigrsv_deel rrd,
ins_deel d,
res_deel rd,
res_v_aanwezigrsv_ruimte rrr
WHERE rd.res_deel_key = rrd.res_deel_key
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
AND rd.res_ins_deel_key = d.ins_deel_key
AND res_rsv_ruimte_noshow = 1;
CREATE OR REPLACE VIEW bofo_v_vak_recht (
prs_perslid_key,
vak,
jaar
)
AS
SELECT prs_perslid_key,
fac.safe_to_number (prs_kenmerklink_waarde),
SUBSTR (prs_kenmerk_omschrijving,
LENGTH (prs_kenmerk_omschrijving) - 3,
4
)
jaar
FROM prs_v_aanwezigperslid, prs_kenmerklink kl, prs_kenmerk k
WHERE prs_link_key = prs_perslid_key
AND kl.prs_kenmerk_key = k.prs_kenmerk_key
AND UPPER (k.prs_kenmerk_omschrijving) LIKE 'SALDO%VAK%';
CREATE OR REPLACE VIEW bofo_v_atv_recht (
prs_perslid_key,
atv,
jaar
)
AS
SELECT prs_perslid_key,
fac.safe_to_number (prs_kenmerklink_waarde),
SUBSTR (prs_kenmerk_omschrijving,
LENGTH (prs_kenmerk_omschrijving) - 3,
4
)
jaar
FROM prs_v_aanwezigperslid, prs_kenmerklink kl, prs_kenmerk k
WHERE prs_link_key = prs_perslid_key
AND kl.prs_kenmerk_key = k.prs_kenmerk_key
AND UPPER (k.prs_kenmerk_omschrijving) LIKE 'SALDO%ATV%';
CREATE OR REPLACE VIEW bofo_v_verlof_gegevens (
mld_melding_key,
prs_perslid_key,
prs_afdeling_key,
van,
tot,
status,
vak,
atv,
bijz
)
AS
SELECT m.mld_melding_key,
m.prs_perslid_key,
p.prs_afdeling_key,
(SELECT TO_DATE (mld_kenmerkmelding_waarde, 'dd-mm-yyyy')
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerk_key = 121) -- datum van
van,
(SELECT TO_DATE (mld_kenmerkmelding_waarde, 'dd-mm-yyyy')
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerk_key = 122) -- datum tot
tot,
mld_melding_status,
COALESCE ( (SELECT fac.safe_to_number (mld_kenmerkmelding_waarde)
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerk_key = 123), -- vak_dagen
0
)
vak,
COALESCE ( (SELECT fac.safe_to_number (mld_kenmerkmelding_waarde)
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerk_key = 142), -- atv dagen
0
)
atv,
COALESCE ( (SELECT fac.safe_to_number (mld_kenmerkmelding_waarde)
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerk_key = 221), -- atv dagen
0
)
bijz
FROM mld_melding m,
prs_perslid p
WHERE mld_stdmelding_key = 201
AND m.prs_perslid_key = p.prs_perslid_key;
CREATE OR REPLACE VIEW bofo_v_verlof (
naam,
offset,
prs_perslid_key,
van,
tot,
status,
vak,
atv,
bijz
)
AS
SELECT prs_perslid_naam_full,
-1000 offset,
p.prs_perslid_key,
NULL van,
NULL tot,
'saldo 01-01-'||to_char(sysdate,'yyyy') status,
coalesce(vak,0),
coalesce(atv,0),
null
FROM bofo_v_vak_recht vr, bofo_v_atv_recht ar, prs_v_perslid_fullnames pf, prs_perslid p
WHERE p.prs_perslid_key = pf.prs_perslid_key
AND vr.prs_perslid_key(+) = pf.prs_perslid_key
AND ar.prs_perslid_key(+) = pf.prs_perslid_key
AND vr.jaar = to_char(sysdate, 'yyyy')
AND ar.jaar = to_char(sysdate, 'yyyy')
UNION ALL
SELECT prs_perslid_naam_full,
van - SYSDATE offset,
pf.prs_perslid_key,
van,
tot,
decode (to_char(m.van, 'yyyy'), to_char(m.tot, 'yyyy'),'goedgekeurd','***********'),
-1 * fac.safe_to_number (vak),
-1 * fac.safe_to_number (atv),
-1 * fac.safe_to_number (bijz)
FROM bofo_v_verlof_gegevens m, prs_v_perslid_fullnames pf
WHERE m.prs_perslid_key = pf.prs_perslid_key AND status IN (4, 5, 6, 7)
AND (to_char(m.van, 'yyyy') = to_char(sysdate, 'yyyy')
OR to_char(m.tot, 'yyyy') = to_char(sysdate, 'yyyy'))
UNION ALL
SELECT prs_perslid_naam_full,
van - SYSDATE offset,
pf.prs_perslid_key,
van,
tot,
decode (to_char(m.van, 'yyyy'), to_char(m.tot, 'yyyy'),'aangevraagd','***********'),
-1 * fac.safe_to_number (vak),
-1 * fac.safe_to_number (atv),
-1 * fac.safe_to_number (bijz)
FROM bofo_v_verlof_gegevens m, prs_v_perslid_fullnames pf
WHERE m.prs_perslid_key = pf.prs_perslid_key AND status IN (2,3)
AND (to_char(m.van, 'yyyy') = to_char(sysdate, 'yyyy')
OR to_char(m.tot, 'yyyy') = to_char(sysdate, 'yyyy'))
UNION ALL
SELECT prs_perslid_naam_full,
1000 offset,
p.prs_perslid_key,
NULL van,
NULL tot,
'huidig saldo' status,
vak - svak,
atv - satv,
sbijz
FROM bofo_v_vak_recht vr,
bofo_v_atv_recht ar,
prs_perslid p,
prs_v_perslid_fullnames pf,
(SELECT prs_perslid_key, SUM (vak) svak, SUM (atv) satv, SUM(bijz) sbijz
FROM bofo_v_verlof_gegevens m
WHERE status IN (4, 5, 6, 7)
AND (to_char(m.van, 'yyyy') = to_char(sysdate, 'yyyy')
OR to_char(m.tot, 'yyyy') = to_char(sysdate, 'yyyy'))
GROUP BY prs_perslid_key) verbruik
WHERE verbruik.prs_perslid_key = pf.prs_perslid_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND vr.prs_perslid_key = pf.prs_perslid_key
AND vr.prs_perslid_key(+) = pf.prs_perslid_key
AND ar.prs_perslid_key(+) = pf.prs_perslid_key
AND vr.jaar = to_char(sysdate, 'yyyy')
AND ar.jaar = to_char(sysdate, 'yyyy');
CREATE OR REPLACE VIEW bofo_v_rap_verlof (
fclt_f_naam,
hide_f_offset,
prs_perslid_key,
van,
tot,
status,
vak,
atv,
bijz
)
AS
SELECT
naam,
offset,
prs_perslid_key,
van,
tot,
status,
vak,
atv,
bijz
FROM bofo_v_verlof;
-- rapport verlofuren voor leidinggevenden.
CREATE OR REPLACE VIEW bofo_v_rap_verlof_totaal (
fclt_f_naam,
fclt_3d_user_key,
prs_perslid_key,
begin_v,
begin_a,
aangevr_v,
aangevr_a,
goedgek_v,
goedgek_a,
saldo_v,
saldo_a
)
AS
SELECT pf.prs_perslid_naam_full,
fac.safe_to_number(kl.prs_kenmerklink_waarde),
p.prs_perslid_key,
(SELECT vak
FROM bofo_v_verlof v
WHERE status LIKE 'saldo%'
AND v.prs_perslid_key = p.prs_perslid_key)
begin_v,
(SELECT atv
FROM bofo_v_verlof v
WHERE status LIKE 'saldo%'
AND v.prs_perslid_key = p.prs_perslid_key)
begin_a,
(SELECT SUM (vak)
FROM bofo_v_verlof v
WHERE status = 'aangevraagd'
AND v.prs_perslid_key = p.prs_perslid_key)
aangevr_v,
(SELECT SUM (atv)
FROM bofo_v_verlof v
WHERE status = 'aangevraagd'
AND v.prs_perslid_key = p.prs_perslid_key)
aangevr_a,
(SELECT SUM (vak)
FROM bofo_v_verlof v
WHERE status = 'goedgekeurd'
AND v.prs_perslid_key = p.prs_perslid_key)
goedgek_v,
(SELECT SUM (atv)
FROM bofo_v_verlof v
WHERE status = 'goedgekeurd'
AND v.prs_perslid_key = p.prs_perslid_key)
goedgek_a,
(SELECT vak
FROM bofo_v_verlof v
WHERE status LIKE 'huidig%'
AND v.prs_perslid_key = p.prs_perslid_key)
saldo_v,
(SELECT atv
FROM bofo_v_verlof v
WHERE status LIKE 'huidig%'
AND v.prs_perslid_key = p.prs_perslid_key)
saldo_a
FROM prs_perslid p, prs_v_perslid_fullnames pf, prs_kenmerklink kl
WHERE p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_perslid_key = kl.prs_link_key
AND kl.prs_kenmerk_key = 1040;
-- leidinggevende
-- rapport verlofuren voor leidinggevenden.
CREATE OR REPLACE VIEW bofo_v_rap_verlof_detail (
fclt_f_naam,
hide_f_offset,
fclt_3d_user_key,
prs_perslid_key,
van,
tot,
status,
vak,
atv,
bijz
)
AS
SELECT naam,
offset,
fac.safe_to_number(kl.prs_kenmerklink_waarde),
prs_perslid_key,
TO_CHAR (van, 'dd-mm-yyyy'),
TO_CHAR (tot, 'dd-mm-yyyy'),
status,
vak,
atv,
bijz
FROM bofo_v_verlof v, prs_kenmerklink kl
WHERE v.prs_perslid_key = kl.prs_link_key
AND kl.prs_kenmerk_key = 1040;
-- leidinggevende
-- rapport verlofuren voor medewerker.
CREATE OR REPLACE VIEW bofo_v_rap_verlof_medew (
fclt_f_naam,
hide_f_offset,
fclt_3d_user_key,
van,
tot,
status,
vak,
atv,
bijz
)
AS
SELECT naam,
offset,
prs_perslid_key,
TO_CHAR (van, 'dd-mm-yyyy'),
TO_CHAR (tot, 'dd-mm-yyyy'),
status,
vak,
atv,
bijz
FROM bofo_v_verlof;
CREATE OR REPLACE VIEW bofo_v_noti_verlof (
code,
sender,
receiver,
text,
key,
xkey
)
AS
SELECT 'MLDINF',
NULL,
fac.safe_to_number(kl.prs_kenmerklink_waarde),
'Verlofaanvraag medewerker: ' || pf.prs_perslid_naam_full,
m.mld_melding_key,
NULL
FROM mld_melding m,
prs_v_perslid_fullnames pf,
prs_kenmerklink kl
WHERE m.prs_perslid_key = pf.prs_perslid_key
AND m.mld_stdmelding_key = 201 -- verlofaanvraag
AND m.mld_melding_status IN (2, 3)
AND m.mld_melding_datum > SYSDATE - 1
AND m.prs_perslid_key = kl.prs_link_key
AND kl.prs_kenmerk_key = 1040;
-- leidinggevende
CREATE OR REPLACE VIEW bofo_v_rap_verlof_goedkeuring (
fclt_3d_user_key,
mld_melding_key,
naam,
van,
tot,
vak,
atv,
bijz,
omschrijving
)
AS
SELECT fac.safe_to_number(kl.prs_kenmerklink_waarde),
m.mld_melding_key,
prs_perslid_naam_full naam,
van,
tot,
vak,
atv,
bijz,
mld_melding_omschrijving omschrijving
FROM bofo_v_verlof_gegevens vg, mld_melding m, prs_v_perslid_fullnames pf, prs_kenmerklink kl
WHERE vg.mld_melding_key = m.mld_melding_key
AND vg.prs_perslid_key = pf.prs_perslid_key
AND m.mld_melding_status IN (2, 3) -- ingevoerd, ingezien
AND vg.prs_perslid_key = kl.prs_link_key
AND kl.prs_kenmerk_key = 1040;
-- leidinggevende
CREATE OR REPLACE VIEW bofo_v_verlof_afg_jaar (
naam,
offset,
prs_perslid_key,
van,
tot,
status,
vak,
atv,
bijz
)
AS
SELECT prs_perslid_naam_full,
-1000 offset,
p.prs_perslid_key,
NULL van,
NULL tot,
'saldo 01-01-'||to_char(sysdate-365,'yyyy') status,
coalesce(vak,0),
coalesce(atv,0),
null
FROM bofo_v_vak_recht vr, bofo_v_atv_recht ar, prs_v_perslid_fullnames pf, prs_perslid p
WHERE p.prs_perslid_key = pf.prs_perslid_key
AND vr.prs_perslid_key(+) = pf.prs_perslid_key
AND ar.prs_perslid_key(+) = pf.prs_perslid_key
AND vr.jaar = to_char(sysdate-365, 'yyyy')
AND ar.jaar = to_char(sysdate-365, 'yyyy')
UNION ALL
SELECT prs_perslid_naam_full,
van - SYSDATE offset,
pf.prs_perslid_key,
van,
tot,
decode (to_char(m.van, 'yyyy'), to_char(m.tot, 'yyyy'),'goedgekeurd','***********'),
-1 * fac.safe_to_number (vak),
-1 * fac.safe_to_number (atv),
-1 * fac.safe_to_number (bijz)
FROM bofo_v_verlof_gegevens m, prs_v_perslid_fullnames pf
WHERE m.prs_perslid_key = pf.prs_perslid_key AND status IN (4, 5, 6, 7)
AND (to_char(m.van, 'yyyy') = to_char(sysdate-365, 'yyyy')
OR to_char(m.tot, 'yyyy') = to_char(sysdate-365, 'yyyy'))
UNION ALL
SELECT prs_perslid_naam_full,
van - SYSDATE offset,
pf.prs_perslid_key,
van,
tot,
decode (to_char(m.van, 'yyyy'), to_char(m.tot, 'yyyy'),'aangevraagd','***********'),
-1 * fac.safe_to_number (vak),
-1 * fac.safe_to_number (atv),
-1 * fac.safe_to_number (bijz)
FROM bofo_v_verlof_gegevens m, prs_v_perslid_fullnames pf
WHERE m.prs_perslid_key = pf.prs_perslid_key AND status IN (2,3)
AND (to_char(m.van, 'yyyy') = to_char(sysdate-365, 'yyyy')
OR to_char(m.tot, 'yyyy') = to_char(sysdate-365, 'yyyy'))
UNION ALL
SELECT prs_perslid_naam_full,
1000 offset,
p.prs_perslid_key,
NULL van,
NULL tot,
'huidig saldo' status,
vak - svak,
atv - satv,
sbijz
FROM bofo_v_vak_recht vr,
bofo_v_atv_recht ar,
prs_perslid p,
prs_v_perslid_fullnames pf,
(SELECT prs_perslid_key, SUM (vak) svak, SUM (atv) satv, SUM(bijz) sbijz
FROM bofo_v_verlof_gegevens m
WHERE status IN (4, 5, 6, 7)
AND (to_char(m.van, 'yyyy') = to_char(sysdate-365, 'yyyy')
OR to_char(m.tot, 'yyyy') = to_char(sysdate-365, 'yyyy'))
GROUP BY prs_perslid_key) verbruik
WHERE verbruik.prs_perslid_key = pf.prs_perslid_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND vr.prs_perslid_key = pf.prs_perslid_key
AND vr.prs_perslid_key(+) = pf.prs_perslid_key
AND ar.prs_perslid_key(+) = pf.prs_perslid_key
AND vr.jaar = to_char(sysdate-365, 'yyyy')
AND ar.jaar = to_char(sysdate-365, 'yyyy');
-- rapport verlofuren voor leidinggevenden.
CREATE OR REPLACE VIEW bofo_v_rap_verlof_tot_afg_jaar (
fclt_f_naam,
fclt_3d_user_key,
prs_perslid_key,
begin_v,
begin_a,
aangevr_v,
aangevr_a,
goedgek_v,
goedgek_a,
saldo_v,
saldo_a
)
AS
SELECT pf.prs_perslid_naam_full,
fac.safe_to_number(kl.prs_kenmerklink_waarde),
p.prs_perslid_key,
(SELECT vak
FROM bofo_v_verlof_afg_jaar v
WHERE status LIKE 'saldo%'
AND v.prs_perslid_key = p.prs_perslid_key)
begin_v,
(SELECT atv
FROM bofo_v_verlof_afg_jaar v
WHERE status LIKE 'saldo%'
AND v.prs_perslid_key = p.prs_perslid_key)
begin_a,
(SELECT SUM (vak)
FROM bofo_v_verlof_afg_jaar v
WHERE status = 'aangevraagd'
AND v.prs_perslid_key = p.prs_perslid_key)
aangevr_v,
(SELECT SUM (atv)
FROM bofo_v_verlof_afg_jaar v
WHERE status = 'aangevraagd'
AND v.prs_perslid_key = p.prs_perslid_key)
aangevr_a,
(SELECT SUM (vak)
FROM bofo_v_verlof_afg_jaar v
WHERE status = 'goedgekeurd'
AND v.prs_perslid_key = p.prs_perslid_key)
goedgek_v,
(SELECT SUM (atv)
FROM bofo_v_verlof_afg_jaar v
WHERE status = 'goedgekeurd'
AND v.prs_perslid_key = p.prs_perslid_key)
goedgek_a,
(SELECT vak
FROM bofo_v_verlof_afg_jaar v
WHERE status LIKE 'huidig%'
AND v.prs_perslid_key = p.prs_perslid_key)
saldo_v,
(SELECT atv
FROM bofo_v_verlof_afg_jaar v
WHERE status LIKE 'huidig%'
AND v.prs_perslid_key = p.prs_perslid_key)
saldo_a
FROM prs_perslid p, prs_v_perslid_fullnames pf, prs_kenmerklink kl
WHERE p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_perslid_key = kl.prs_link_key
AND kl.prs_kenmerk_key = 1040;
-- leidinggevende
CREATE OR REPLACE VIEW bofo_v_rap_verlof_afg_jaar (
fclt_f_naam,
hide_f_offset,
prs_perslid_key,
van,
tot,
status,
vak,
atv,
bijz
)
AS
SELECT
naam,
offset,
prs_perslid_key,
van,
tot,
status,
vak,
atv,
bijz
FROM bofo_v_verlof_afg_jaar;
CREATE OR REPLACE PACKAGE BOFO AS
-- PACKAGES voor de BOFO specifieke rapportages
TYPE t_cursor IS REF CURSOR;
FUNCTION vt (p_offset IN number, p_prs_perslid_key IN NUMBER) RETURN VARCHAR2;
PROCEDURE rap_verlof_overzicht (user_key IN NUMBER, p_datum_van IN VARCHAR2, p_datum_tot IN VARCHAR2, p_cursor OUT t_cursor);
END;
/
CREATE OR REPLACE PACKAGE BODY BOFO
AS
-- Bepaal de of een persoon verlof aangevraagd heeft op deze datum.
FUNCTION vt (p_offset IN number, p_prs_perslid_key IN number)
RETURN VARCHAR2
IS
v_result VARCHAR2 (100);
v_day_of_week VARCHAR2 (3);
BEGIN
v_day_of_week := TO_CHAR (TRUNC (SYSDATE) + p_offset, 'd');
SELECT v_day_of_week || '-' || NVL (MAX (status), 'geen')
INTO v_result
FROM bofo_v_rap_verlof v
WHERE v.prs_perslid_key = p_prs_perslid_key
AND TRUNC (SYSDATE) + p_offset BETWEEN van AND tot;
RETURN v_result;
END vt;
PROCEDURE rap_verlof_overzicht (user_key IN number,
p_datum_van IN varchar2 -- Let wel: formaat '13-05-2005'
,
p_datum_tot IN varchar2,
p_cursor OUT t_cursor
)
AS
v_datum_van DATE;
v_datum_tot DATE;
v_query_st VARCHAR2 (4000);
v_query VARCHAR2 (4000);
v_query_end VARCHAR2 (4000);
v_loop_date DATE;
v_count NUMBER;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy') + 1;
-- we ondersteunen een interval van max 95 dagen. Anders past de query niet meer in de variabele
IF v_datum_tot - v_datum_van > 95
THEN
v_datum_tot := v_datum_van + 95;
END IF;
v_query := '';
v_query_st := 'SELECT pf.prs_perslid_naam_full naam, prs_afdeling_omschrijving afd ';
v_loop_date := v_datum_van;
v_count := v_datum_van - TRUNC (SYSDATE);
WHILE v_loop_date < v_datum_tot
LOOP
v_query :=
v_query
|| ' ,bofo.vt ('
|| v_count
|| ', p.prs_perslid_key) d'
|| TO_CHAR (SYSDATE + v_count, 'mmdd');
v_loop_date := v_loop_date + 1;
v_count := v_count + 1;
END LOOP;
v_query_end := ' FROM prs_v_perslid_fullnames pf, prs_perslid p, prs_afdeling a WHERE pf.prs_perslid_key = p.prs_perslid_key AND a.prs_afdeling_key = p.prs_afdeling_key';
OPEN p_cursor FOR v_query_st || v_query || v_query_end;
END rap_verlof_overzicht;
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

105
CONS/CONS.sql Normal file
View File

@@ -0,0 +1,105 @@
--
-- $Id$
--
-- Script containing customer specific sql statements for the FACILITOR database
-- Voor dbuser invullen: - indien script voor 1 klant is: 'AADS' (de klantcode, zoals vermeld in fac_version_cust)
-- - script is voor meerdere klanten: 'AAXX' (de groepcode, zoals vermeld in fac_version_group)
-- - script is voor meerdere klanten met naam volgens een bepaald patroon: '^AA|^ASMS|^GULU|^NMMS|^RABO|^ZKHM'
-- Ook als het script gedraaid wordt voor de verkeerde cust wordt er een logfile gemaakt.
-- (dit in tegenstelling tot sample_xxxx.sql)
DEFINE thisfile = 'CONS.SQL'
DEFINE dbuser = 'CONS'
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 VIEW cons_v_persons
(
prs_perslid_key,
prs_perslid_naam
)
AS
SELECT pgg.prs_perslid_key,
pgg.prs_perslid_voornaam||' '||pgg.prs_perslid_naam
FROM prs_v_perslid_gegevens pgg
WHERE pgg.prs_afdeling_key<>1 ORDER BY pgg.prs_perslid_naam, pgg.prs_perslid_voornaam;
CREATE OR REPLACE VIEW cons_v_prs_managers
(
prs_perslid_key,
prs_perslid_naamcompleet
)
AS
SELECT prs_perslid_key, prs_perslid_voornaam||' '||prs_perslid_naam prs_perslid_naamcompleet
FROM prs_v_perslid_gegevens
WHERE prs_srtperslid_omschrijving in ('Manager', 'Directeur');
CREATE OR REPLACE VIEW cons_v_afdelingen
(
prs_afdeling_naam,
prs_afdeling_key
)
AS
SELECT DISTINCT prs_afdeling_naam, prs_afdeling_key
FROM prs_v_afdeling
WHERE prs_afdeling_key <>1;
CREATE OR REPLACE VIEW cons_v_incident_rapport
(
mld_melding_key,
ins_srtdiscipline,
ins_discipline_omschrijving,
mld_stdmelding_omschrijving,
mld_melding_datum,
mld_melding_einddatum,
type,
scope,
verstorend,
frequentie,
sinds,
status
)
AS
SELECT mld.mld_melding_key, sds.ins_srtdiscipline_omschrijving, dis.ins_discipline_omschrijving,std.mld_stdmelding_omschrijving,
mld.mld_melding_datum, mld.mld_melding_einddatum,
(SELECT ken.mld_kenmerkmelding_waarde From mld_kenmerkmelding ken WHERE ken.mld_kenmerk_key=103) type,
(SELECT ken.mld_kenmerkmelding_waarde FROM mld_kenmerkmelding ken WHERE ken.mld_kenmerk_key=104) dcope,
(SELECT ken.mld_kenmerkmelding_waarde FROM mld_kenmerkmelding ken WHERE ken.mld_kenmerk_key=105) verstorend,
(SELECT ken.mld_kenmerkmelding_waarde FROM mld_kenmerkmelding ken WHERE ken.mld_kenmerk_key=104) frequentie,
(SELECT ken.mld_kenmerkmelding_waarde FROM mld_kenmerkmelding ken WHERE ken.mld_kenmerk_key=104) sinds,
(SELECT stat.mld_statuses_omschrijving FROM mld_statuses stat WHERE stat.mld_statuses_key = mld.mld_melding_status) status
FROM mld_melding mld, mld_stdmelding std, mld_discipline dis, ins_srtdiscipline sds
WHERE mld.mld_stdmelding_key =std.mld_stdmelding_key
AND dis.ins_discipline_key = std.mld_ins_discipline_key
AND sds.ins_srtdiscipline_key=dis.ins_srtdiscipline_key;
------ 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

618
DCOL/dcol.sql
View File

@@ -1,618 +0,0 @@
-- Script containing customer generic configuration sql statements for all DCOL accounts
-- $Revision$
-- $Id$
--
DEFINE thisfile = 'DCOL.SQL'
DEFINE dbuser = '^DCOL'
DEFINE custid = '^DCOL'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT;
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
WHENEVER SQLERROR CONTINUE;
SPOOL &fcltlogfile
SET DEFINE OFF
------ payload begin ------
CREATE OR REPLACE VIEW dcol_v_rap_import_log
(
fclt_f_applicatie,
datum,
fclt_f_status,
omschrijving,
hint
)
AS
SELECT COALESCE (fac_import_app_code, imp_log_applicatie),
imp_log_datum,
imp_log_status,
imp_log_omschrijving,
imp_log_hint
FROM imp_log il, fac_import fi, fac_import_app fia
WHERE il.fac_import_key = fi.fac_import_key(+)
AND fi.fac_import_app_key = fia.fac_import_app_key(+);
/* Formatted on 16-6-2014 21:48:12 (QP5 v5.136.908.31019) */
CREATE OR REPLACE PROCEDURE dcol_import_bedrijf (p_import_key IN NUMBER)
AS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
fac_import_ext_bedrijf (p_import_key);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
'Inleesproces relaties afgebroken!');
END dcol_import_bedrijf;
/
CREATE OR REPLACE PROCEDURE dcol_update_bedrijf (p_import_key IN NUMBER)
AS
v_errormsg VARCHAR2 (1000) := '-';
v_errorhint VARCHAR2 (1000) := '-';
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_count NUMBER (10);
v_count_tot NUMBER (10);
v_count_new NUMBER (10);
v_count_upd NUMBER (10);
v_count_del NUMBER (10);
v_aanduiding VARCHAR2 (200) := '-';
-- SUBPROC
PROCEDURE add_bedrijf (p_import_key IN NUMBER)
AS
CURSOR c1
IS
SELECT *
FROM fac_imp_ext_bedrijf ib
WHERE NOT EXISTS
(SELECT 1
FROM fac_imp_ext_bedrijf
WHERE UPPER (prs_bedrijf_naam) =
UPPER (ib.prs_bedrijf_naam)
AND prs_leverancier_nr < ib.prs_leverancier_nr);
v_bedrijf_key NUMBER (10);
BEGIN
v_count_tot := 0;
v_count_new := 0;
v_count_upd := 0;
FOR rec IN c1
LOOP
BEGIN
v_count_tot := v_count_tot + 1;
v_aanduiding :=
'['
|| rec.prs_bedrijf_naam
|| '|'
|| rec.prs_leverancier_nr
|| '] ';
v_errorhint := 'Fout bepalen bedrijf';
IF rec.prs_leverancier_nr IS NULL
THEN
fac.imp_writelog (
p_import_key,
'W',
v_aanduiding || 'Leveranciernummer ongedefinieerd!',
v_errorhint);
COMMIT;
ELSE
SELECT COUNT ( * )
INTO v_count
FROM prs_v_aanwezigbedrijf
WHERE UPPER (prs_leverancier_nr) =
UPPER (rec.prs_leverancier_nr);
IF v_count = 0
THEN
v_errorhint := 'Fout toevoegen bedrijf';
INSERT INTO prs_bedrijf (prs_bedrijf_naam,
prs_leverancier_nr,
prs_bedrijf_bezoek_adres,
prs_bedrijf_bezoek_postcode,
prs_bedrijf_bezoek_plaats,
prs_bedrijf_bezoek_land,
prs_bedrijf_post_adres,
prs_bedrijf_post_postcode,
prs_bedrijf_post_plaats,
prs_bedrijf_post_land,
prs_bedrijf_telefoon,
prs_bedrijf_fax,
prs_bedrijf_email,
prs_bedrijf_contact_persoon,
prs_bedrijf_contact_telefoon,
prs_bedrijf_contact_fax,
prs_bedrijf_leverancier,
prs_bedrijf_uitvoerende,
prs_bedrijf_contract,
prs_bedrijf_huurder,
prs_bedrijf_ingids,
prs_bedrijf_uurloon,
prs_overeenkomst_nr,
prs_overeenkomst_datum,
prs_bedrijf_opmerking)
VALUES (rec.prs_bedrijf_naam,
rec.prs_leverancier_nr,
rec.prs_bedrijf_bezoek_adres,
rec.prs_bedrijf_bezoek_postcode,
rec.prs_bedrijf_bezoek_plaats,
rec.prs_bedrijf_bezoek_land,
rec.prs_bedrijf_post_adres,
rec.prs_bedrijf_post_postcode,
rec.prs_bedrijf_post_plaats,
rec.prs_bedrijf_post_land,
rec.prs_bedrijf_telefoon,
rec.prs_bedrijf_fax,
rec.prs_bedrijf_email,
rec.prs_bedrijf_contact_persoon,
rec.prs_bedrijf_contact_telefoon,
rec.prs_bedrijf_contact_fax,
DECODE (rec.prs_bedrijf_leverancier,
1, 1,
NULL),
DECODE (rec.prs_bedrijf_uitvoerende,
1, 1,
NULL),
DECODE (rec.prs_bedrijf_contract, 1, 1, NULL),
DECODE (rec.prs_bedrijf_huurder, 1, 1, NULL),
DECODE (rec.prs_bedrijf_ingids, 1, 1, NULL),
rec.prs_bedrijf_uurloon,
rec.prs_overeenkomst_nr,
rec.prs_overeenkomst_datum,
rec.prs_bedrijf_opmerking);
v_count_new := v_count_new + 1;
ELSE -- v_count > 0
SELECT prs_bedrijf_key
INTO v_bedrijf_key
FROM prs_v_aanwezigbedrijf
WHERE UPPER (prs_leverancier_nr) =
UPPER (rec.prs_leverancier_nr);
v_errorhint := 'Fout bijwerken bedrijf';
UPDATE prs_bedrijf
SET prs_bedrijf_naam =
COALESCE (rec.prs_bedrijf_naam, prs_bedrijf_naam),
prs_bedrijf_bezoek_adres =
COALESCE (rec.prs_bedrijf_bezoek_adres,
prs_bedrijf_bezoek_adres),
prs_bedrijf_bezoek_postcode =
COALESCE (rec.prs_bedrijf_bezoek_postcode,
prs_bedrijf_bezoek_postcode),
prs_bedrijf_bezoek_plaats =
COALESCE (rec.prs_bedrijf_bezoek_plaats,
prs_bedrijf_bezoek_plaats),
prs_bedrijf_bezoek_land =
COALESCE (rec.prs_bedrijf_bezoek_land,
prs_bedrijf_bezoek_land),
prs_bedrijf_post_adres =
COALESCE (rec.prs_bedrijf_post_adres,
prs_bedrijf_post_adres),
prs_bedrijf_post_postcode =
COALESCE (rec.prs_bedrijf_post_postcode,
prs_bedrijf_post_postcode),
prs_bedrijf_post_plaats =
COALESCE (rec.prs_bedrijf_post_plaats,
prs_bedrijf_post_plaats),
prs_bedrijf_post_land =
COALESCE (rec.prs_bedrijf_post_land,
prs_bedrijf_post_land),
prs_bedrijf_telefoon =
COALESCE (rec.prs_bedrijf_telefoon,
prs_bedrijf_telefoon),
prs_bedrijf_fax =
COALESCE (rec.prs_bedrijf_fax, prs_bedrijf_fax),
prs_bedrijf_email =
COALESCE (rec.prs_bedrijf_email,
prs_bedrijf_email),
prs_bedrijf_contact_persoon =
COALESCE (rec.prs_bedrijf_contact_persoon,
prs_bedrijf_contact_persoon),
prs_bedrijf_contact_telefoon =
COALESCE (rec.prs_bedrijf_contact_telefoon,
prs_bedrijf_contact_telefoon),
prs_bedrijf_contact_fax =
COALESCE (rec.prs_bedrijf_contact_fax,
prs_bedrijf_contact_fax),
prs_bedrijf_leverancier =
DECODE (rec.prs_bedrijf_leverancier, 1, 1, NULL),
prs_bedrijf_uitvoerende =
DECODE (rec.prs_bedrijf_uitvoerende, 1, 1, NULL),
prs_bedrijf_contract =
DECODE (rec.prs_bedrijf_contract, 1, 1, NULL),
prs_bedrijf_huurder =
DECODE (rec.prs_bedrijf_huurder, 1, 1, NULL),
prs_bedrijf_ingids =
DECODE (rec.prs_bedrijf_ingids, 1, 1, NULL),
prs_bedrijf_uurloon =
COALESCE (rec.prs_bedrijf_uurloon,
prs_bedrijf_uurloon),
prs_overeenkomst_nr =
COALESCE (rec.prs_overeenkomst_nr,
prs_overeenkomst_nr),
prs_overeenkomst_datum =
COALESCE (rec.prs_overeenkomst_datum,
prs_overeenkomst_datum),
prs_bedrijf_opmerking =
COALESCE (rec.prs_bedrijf_opmerking,
prs_bedrijf_opmerking)
WHERE prs_bedrijf_key = v_bedrijf_key;
v_count_upd := v_count_upd + 1;
END IF;
--COMMIT;
END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_import_key,
'E',
v_aanduiding || v_errormsg,
v_errorhint);
COMMIT;
END;
END LOOP;
fac.imp_writelog (p_import_key,
'S',
'Bedrijf: #ingelezen: ' || TO_CHAR (v_count_tot),
'');
fac.imp_writelog (p_import_key,
'S',
'Bedrijf: #toegevoegd: ' || TO_CHAR (v_count_new),
'');
fac.imp_writelog (p_import_key,
'S',
'Bedrijf: #bijgewerkt: ' || TO_CHAR (v_count_upd),
'');
COMMIT;
END;
-- SUBPROC
PROCEDURE del_bedrijf (p_import_key IN NUMBER)
AS
CURSOR c1
IS
SELECT *
FROM prs_v_aanwezigbedrijf b
WHERE b.prs_bedrijf_intern IS NULL
AND b.prs_leverancier_nr IS NOT NULL
AND NOT EXISTS
(SELECT 1
FROM fac_imp_ext_bedrijf
WHERE prs_leverancier_nr = b.prs_leverancier_nr);
v_bedrijf_key NUMBER (10);
BEGIN
v_count_del := 0;
FOR rec IN c1
LOOP
BEGIN
v_aanduiding := '[' || rec.prs_bedrijf_naam || '] ';
v_errorhint := 'Fout verwijderen bedrijf';
UPDATE prs_bedrijf
SET prs_bedrijf_verwijder = SYSDATE
WHERE prs_bedrijf_key = rec.prs_bedrijf_key;
v_count_del := v_count_del + 1;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_import_key,
'E',
v_aanduiding || v_errormsg,
v_errorhint);
COMMIT;
END;
END LOOP;
fac.imp_writelog (p_import_key,
'S',
'Bedrijf: #verwijderd: ' || TO_CHAR (v_count_del),
'');
COMMIT;
END;
-- MAIN
BEGIN
add_bedrijf (p_import_key);
--del_bedrijf (p_import_key);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_import_key,
'E',
v_aanduiding || v_errormsg,
'Importproces relaties afgebroken!');
END dcol_update_bedrijf;
/
/* Formatted on 9-9-2014 16:06:24 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW dcol_v_medewerkers
(
prs_perslid_key,
prs_perslid_naam_full
)
AS
SELECT pf.prs_perslid_key, pf.prs_perslid_naam_full
FROM prs_perslid p, prs_v_perslid_fullnames_all pf
WHERE p.prs_perslid_key = pf.prs_perslid_key
AND SUBSTR (p.prs_perslid_oslogin, 1, 1) != '_';
/* Formatted on 3-8-2017 09:26:27 (QP5 v5.313) */
CREATE OR REPLACE VIEW DCOL_V_NOTI_CNTREMINDER
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
PAR1,
PAR2,
XKEY
)
AS
SELECT 'CNTMAI',
'',
c.prs_perslid_key_beh,
'Rapp<EFBFBD>l: Contract '
|| c.cnt_contract_nummer_intern
|| ' ('
|| c.cnt_contract_omschrijving
|| ' '
|| b.prs_bedrijf_naam
|| ')'
|| ' moet uiterlijk per '
|| TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key),
'DD-MM-YYYY')
|| ' worden verlengd of opgezegd.',
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
cnt.cnt_getopzegdatum (c.cnt_contract_key),
NULL
FROM cnt_v_aanwezigcontract c, prs_bedrijf b
WHERE c.cnt_contract_status = 0
AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key)
AND cnt.cnt_getopzegdatum (c.cnt_contract_key))
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
UNION
SELECT 'CNTMAI',
'',
c.prs_perslid_key_eig,
'Rapp<EFBFBD>l: Contract '
|| c.cnt_contract_nummer_intern
|| ' ('
|| c.cnt_contract_omschrijving
|| ' '
|| b.prs_bedrijf_naam
|| ')'
|| ' moet uiterlijk per '
|| TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key),
'DD-MM-YYYY')
|| ' worden verlengd of opgezegd.',
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
cnt.cnt_getopzegdatum (c.cnt_contract_key),
NULL
FROM cnt_v_aanwezigcontract c, prs_bedrijf b
WHERE c.cnt_contract_status = 0
AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key)
AND cnt.cnt_getopzegdatum (c.cnt_contract_key))
AND c.prs_perslid_key_eig IS NOT NULL
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
UNION
SELECT 'CNTMAI',
'',
fac.safe_to_number (kl.prs_kenmerklink_waarde),
'Rapp<EFBFBD>l: Contract '
|| c.cnt_contract_nummer_intern
|| ' ('
|| c.cnt_contract_omschrijving
|| ' '
|| b.prs_bedrijf_naam
|| ')'
|| ' moet uiterlijk per '
|| TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key),
'DD-MM-YYYY')
|| ' worden verlengd of opgezegd.',
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
cnt.cnt_getopzegdatum (c.cnt_contract_key),
NULL
FROM cnt_v_aanwezigcontract c,
prs_bedrijf b,
prs_afdeling a,
prs_kenmerklink kl
WHERE c.cnt_contract_status = 0
AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key)
AND cnt.cnt_getopzegdatum (c.cnt_contract_key))
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND a.prs_afdeling_verwijder IS NULL
AND c.prs_afdeling_key_eig = a.prs_afdeling_key -- Bestaande afdeling!
AND kl.prs_kenmerklink_verwijder IS NULL
--AND kl.prs_kenmerklink_niveau = 'A'
AND kl.prs_kenmerk_key = 1060 -- Manager
AND a.prs_afdeling_key = kl.prs_link_key;
/* Formatted on 9-8-2017 14:27:23 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW DCOL_V_EVAL_CNTREMINDER
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
PAR1,
PAR2,
XKEY
)
AS
SELECT 'CNTMAI',
'',
c.prs_perslid_key_beh,
'Evaluatie: Contract '
|| c.cnt_contract_nummer_intern
|| ' nadert '
|| LOWER (csk.cnt_srtkenmerk_omschrijving)
|| ' datum ('
|| c.cnt_contract_omschrijving
|| ' '
|| b.prs_bedrijf_naam
|| ')'
|| ' op '
|| ckc.cnt_kenmerkcontract_waarde
|| ' ',
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
cnt.cnt_getopzegdatum (c.cnt_contract_key),
NULL
FROM cnt_kenmerkcontract ckc,
cnt_kenmerk ck,
cnt_srtkenmerk csk,
cnt_v_aanwezigcontract c,
prs_bedrijf b
WHERE ck.cnt_kenmerk_key = ckc.cnt_kenmerk_key
AND csk.cnt_srtkenmerk_key = ck.cnt_srtkenmerk_key
AND c.cnt_contract_status = 0
AND ck.cnt_srtkenmerk_key IN (4, 6, 14)
AND ckc.cnt_contract_key = c.cnt_contract_key
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND cnt_contract_looptijd_tot >= SYSDATE
AND fac.safe_to_date (ckc.cnt_kenmerkcontract_waarde, 'DD-MM-YYYY') <=
SYSDATE + 60
UNION
SELECT 'CNTMAI',
'',
c.prs_perslid_key_eig,
'Evaluatie: Contract '
|| c.cnt_contract_nummer_intern
|| ' nadert '
|| LOWER (csk.cnt_srtkenmerk_omschrijving)
|| ' datum ('
|| c.cnt_contract_omschrijving
|| ' '
|| b.prs_bedrijf_naam
|| ')'
|| ' op '
|| ckc.cnt_kenmerkcontract_waarde
|| ' ',
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
cnt.cnt_getopzegdatum (c.cnt_contract_key),
NULL
FROM cnt_kenmerkcontract ckc,
cnt_kenmerk ck,
cnt_srtkenmerk csk,
cnt_v_aanwezigcontract c,
prs_bedrijf b
WHERE ck.cnt_kenmerk_key = ckc.cnt_kenmerk_key
AND c.cnt_contract_status = 0
AND csk.cnt_srtkenmerk_key = ck.cnt_srtkenmerk_key
AND ck.cnt_srtkenmerk_key IN (4, 6, 14)
AND ckc.cnt_contract_key = c.cnt_contract_key
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND fac.safe_to_date (ckc.cnt_kenmerkcontract_waarde, 'DD-MM-YYYY') <=
SYSDATE + 60
AND cnt_contract_looptijd_tot >= SYSDATE
UNION
SELECT 'CNTMAI',
'',
fac.safe_to_number (kl.prs_kenmerklink_waarde),
'Evaluatie: Contract '
|| c.cnt_contract_nummer_intern
|| ' nadert '
|| LOWER (csk.cnt_srtkenmerk_omschrijving)
|| ' datum ('
|| c.cnt_contract_omschrijving
|| ' '
|| b.prs_bedrijf_naam
|| ')'
|| ' op '
|| ckc.cnt_kenmerkcontract_waarde
|| ' ',
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
cnt.cnt_getopzegdatum (c.cnt_contract_key),
NULL
FROM cnt_kenmerkcontract ckc,
cnt_kenmerk ck,
cnt_srtkenmerk csk,
cnt_v_aanwezigcontract c,
prs_bedrijf b,
prs_kenmerklink kl,
prs_afdeling a
WHERE ck.cnt_kenmerk_key = ckc.cnt_kenmerk_key
AND c.cnt_contract_status = 0
AND csk.cnt_srtkenmerk_key = ck.cnt_srtkenmerk_key
AND ck.cnt_srtkenmerk_key IN (4, 6, 14)
AND ckc.cnt_contract_key = c.cnt_contract_key
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND fac.safe_to_date (ckc.cnt_kenmerkcontract_waarde, 'DD-MM-YYYY') <=
SYSDATE + 60
AND cnt_contract_looptijd_tot >= SYSDATE
AND kl.prs_kenmerklink_verwijder IS NULL
AND kl.prs_kenmerk_key = 1060
AND a.prs_afdeling_key = kl.prs_link_key
AND c.prs_afdeling_key_eig = a.prs_afdeling_key;
------ 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

1562
GOUD/goud.sql
View File

File diff suppressed because it is too large Load Diff

5385
HOUT/hout.sql
View File

File diff suppressed because it is too large Load Diff

208
KING/king.sql
View File

@@ -1,208 +0,0 @@
-- Script containing customer specific db-configuration for KING.
-- (c) 2011 SG|facilitor bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
SET DEFINE OFF
SET ECHO ON
spool xking.lst
/* Formatted on 18-3-2013 16:50:50 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW king_v_rap_inkoop_vs_budget
(
FCLT_F_JAAR,
FCLT_F_AANVRAGER,
KOSTENPLAATS,
JAARBUDGET,
INKOOP,
PERCENTAGE,
FCLT_3D_AFDELING_KEY
)
AS
SELECT COALESCE (y1.jaar, x.jaar),
x.aanvrager,
x.kostenplaats,
COALESCE (y3.jaarbudget, 0),
y1.inkoop,
DECODE (
y3.jaarbudget,
NULL,
TO_NUMBER (NULL),
0,
TO_NUMBER (NULL),
ROUND (
(COALESCE (y1.inkoop, 0)
/ DECODE (y3.jaarbudget, NULL, 1, 0, 1, y3.jaarbudget))
* 100,
2
) --,
),
x.prs_afdeling_key
FROM (SELECT p.prs_perslid_key,
p.prs_afdeling_key,
pf.prs_perslid_naam_full aanvrager,
k.prs_kostenplaats_nr kostenplaats,
periode.jaar
FROM prs_perslid p,
prs_v_perslid_fullnames_all pf,
prs_v_afdeling a,
prs_kostenplaats k,
( SELECT TO_CHAR (2011 + ROWNUM - 1) jaar
FROM DUAL
CONNECT BY LEVEL <=
(TO_NUMBER (
TO_CHAR (SYSDATE, 'yyyy')
)
- 2011
+ 1)) periode
WHERE UPPER (p.prs_perslid_voornaam) LIKE '%BUDGET%'
AND p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_kostenplaats_key =
k.prs_kostenplaats_key(+)) x
LEFT JOIN
( SELECT p.prs_perslid_key,
TO_CHAR (b.bes_bestelling_datum, 'yyyy') jaar,
ROUND (
SUM(bi.bes_bestelling_item_aantal
* bi.bes_bestelling_item_prijs),
2
)
inkoop
FROM bes_bestelling b,
bes_bestelling_item bi,
prs_perslid p
WHERE b.bes_bestelling_key = bi.bes_bestelling_key
AND b.prs_perslid_key = p.prs_perslid_key
AND UPPER (p.prs_perslid_voornaam) LIKE
'%BUDGET%'
AND b.bes_bestelling_status <> 1
GROUP BY p.prs_perslid_key,
TO_CHAR (b.bes_bestelling_datum, 'yyyy')) y1
ON x.prs_perslid_key = y1.prs_perslid_key AND x.jaar = y1.jaar
--LEFT JOIN
-- (SELECT p.prs_perslid_key,
-- pgb.fac_profiel_limiet jaarbudget
-- FROM prs_perslid p, fac_profiel pgb
-- WHERE p.fac_profiel_key = pgb.fac_profiel_key) y2
--ON x.prs_perslid_key = y2.prs_perslid_key
LEFT JOIN
(SELECT kl.prs_link_key,
fac.safe_to_number (kl.prs_kenmerklink_waarde)
jaarbudget
FROM prs_v_aanwezigkenmerklink kl
WHERE kl.prs_kenmerk_key = 1000 -- Jaarbudget?
AND kl.prs_kenmerklink_niveau = 'P') y3
ON x.prs_perslid_key = y3.prs_link_key;
/* Formatted on 18-10-2011 12:56:56 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW king_v_rap_inkoop_tbv_regie
(
FCLT_F_MAAND,
FCLT_F_AANVRAGER,
KOSTENPLAATS,
BESTELNR,
BESTELD_OP,
ARTIKEL_NR,
ARTIKEL,
AANTAL,
PRIJS,
PRIJS_TOT,
FCLT_3D_AFDELING_KEY
)
AS
SELECT NVL2 (y.bes_bestelling_datum,
TO_CHAR (y.bes_bestelling_datum, 'yyyy-mm'),
TO_CHAR (SYSDATE, 'yyyy-mm')),
x.aanvrager,
x.kostenplaats,
TO_CHAR (y.bes_bestelling_key) bestelnummer,
TO_CHAR (y.bes_bestelling_datum, 'dd-mm-yyyy') besteld_op,
y.bes_srtdeel_nr artikelnummer,
y.bes_srtdeel_omschrijving artikelomschrijving,
TO_CHAR (y.bes_bestelling_item_aantal) aantal,
REPLACE (TO_CHAR (y.bes_bestelling_item_prijs), '.', ',') prijs,
(y.bes_bestelling_item_aantal * y.bes_bestelling_item_prijs)
prijs_tot,
x.prs_afdeling_key
FROM (SELECT p.prs_perslid_key,
p.prs_afdeling_key,
pf.prs_perslid_naam_full aanvrager,
k.prs_kostenplaats_nr kostenplaats
FROM prs_perslid p,
prs_v_perslid_fullnames_all pf,
prs_v_afdeling a,
prs_kostenplaats k
WHERE UPPER (p.prs_perslid_voornaam) LIKE '%REGIE%'
AND p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_kostenplaats_key =
k.prs_kostenplaats_key(+)) x
LEFT JOIN
(SELECT b.prs_perslid_key,
b.bes_bestelling_key,
b.bes_bestelling_datum,
sd.bes_srtdeel_nr,
sd.bes_srtdeel_omschrijving,
bi.bes_bestelling_item_aantal,
bi.bes_bestelling_item_prijs
FROM bes_bestelling b,
bes_bestelling_item bi,
bes_srtdeel sd
WHERE b.bes_bestelling_key = bi.bes_bestelling_key
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND b.bes_bestelling_status <> 1) y
ON x.prs_perslid_key = y.prs_perslid_key;
-- Bevat een kopie van alle in voorgaande uur aangemaakt BES-notificaties naar
-- pseudo-bestellers, die de rayon-besteller (als FO-user) ook wil zien!
/* Formatted on 7-11-2011 11:10:30 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW KING_V_NOTI_RAYON_BESTELLERS
(
code,
sender,
receiver,
text,
KEY,
par1,
par2,
xkey
)
AS
SELECT sn.fac_srtnotificatie_code,
NULL,
rb.prs_perslid_key,
REPLACE (sn.fac_srtnotificatie_oms,
'##KEY##',
t.fac_tracking_refkey),
t.fac_tracking_refkey,
NULL,
NULL,
NULL
FROM fac_tracking t,
fac_srtnotificatie sn,
bes_bestelling b,
prs_v_aanwezigperslid pb, -- pseudo-besteller
prs_v_afdeling_boom ab,
prs_v_aanwezigperslid rb -- rayon-besteller
WHERE t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_code LIKE 'BES%'
AND sn.fac_srtnotificatie_code NOT LIKE 'BES2%'
AND sn.fac_srtnotificatie_code <> 'BESAP1'
AND t.fac_tracking_refkey = b.bes_bestelling_key
AND b.prs_perslid_key = pb.prs_perslid_key
AND pb.prs_afdeling_key = ab.prs_afdeling_key
AND ab.prs_afdeling_key1 = rb.prs_afdeling_key
AND TRUNC (t.fac_tracking_datum) = TRUNC (SYSDATE)
AND TO_NUMBER (TO_CHAR (t.fac_tracking_datum, 'HH24')) + 1 =
TO_NUMBER (TO_CHAR (SYSDATE, 'HH24'))
ORDER BY t.fac_tracking_datum;
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
BEGIN fac.registercustversion('KING', 5); END;
/
COMMIT;
spool off

571
KLIM/klim.sql
View File

@@ -1,571 +0,0 @@
--
-- $Id$
--
-- Script containing customer specific db-configuration for KLIM.
DEFINE thisfile = 'KLIM.SQL'
DEFINE dbuser = '^KLIM'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT;
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
WHENEVER SQLERROR CONTINUE;
SPOOL &fcltlogfile
SET DEFINE OFF
------ payload begin ------
--=============================================================================
-- IMPORTFUNCTIES
-------------------------------------------------------------------------------
CREATE OR REPLACE PROCEDURE klim_import_perslid_mut (p_import_key IN NUMBER)
AS
v_seq_of_columns VARCHAR (255);
BEGIN
v_seq_of_columns := '0;0;0;0;0;0;6;3;2;1;0;0;0;0;11;12;13;10;0;5;9;4;0;0;0;0;7';
-- kenmerk1 = afdeling omschrijving
-- Toch maar geen header
prs.import_perslid (
p_import_key,
v_seq_of_columns,
'"Voornaam";"Tussenvoegsel";"Achternaam";"login";"Personeelsnummer";"Afdelingscode";"Afdeling";"FunctieCode";"Functie";"Email";"Geslacht";"Telelfoonnummer";"Mobielnummer"%');
END klim_import_perslid_mut;
/
CREATE OR REPLACE PROCEDURE klim_update_perslid_mut (p_import_key IN NUMBER)
IS
CURSOR c_del
IS
SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full
FROM prs_perslid p,
fac_imp_perslid i,
prs_v_afdeling a,
prs_v_perslid_fullnames_all pf
WHERE p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_email IS NOT NULL
AND p.prs_perslid_email = i.prs_perslid_email(+)
AND i.prs_perslid_email IS NULL
AND p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_bedrijf_key = 2941 -- Klimmendaal
AND p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_perslid_key NOT IN
(SELECT fac.safe_to_number (km.mld_kenmerkmelding_waarde)
FROM mld_kenmerkmelding km,
mld_kenmerk k,
mld_srtkenmerk sk,
fac_kenmerkdomein fk,
mld_melding m
WHERE km.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
AND sk.fac_kenmerkdomein_key =
fk.fac_kenmerkdomein_key
AND m.mld_melding_key = km.mld_melding_key
AND m.mld_melding_status IN (0, 2, 3, 4, 7) -- 1e lijn, nieuw, te accepteren, in behandelng, uitgegeven
AND UPPER (fac_kenmerkdomein_xmlnode) = 'PERSLID')
ORDER BY 2;
v_count NUMBER;
BEGIN
-- Generic update
SELECT COUNT ( * ) INTO v_count FROM fac_imp_perslid;
IF v_count < 100
THEN
fac.imp_writelog (
p_import_key,
'E',
'Het aantal te importeren personen is te klein (' || TO_CHAR (v_count) || ')',
'Zie Specificatie');
RETURN;
END IF;
-- Mensen onder bedrijf met key=2941 (Klimmendaal) die niet meer in de import voorkomen worden verwijderd.
FOR rec IN c_del
LOOP
BEGIN
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
END;
END LOOP;
/*
INSERT INTO fac_imp_organisatie (prs_bedrijf_naam, prs_afdeling_naam, prs_afdeling_omschrijving)
(SELECT DISTINCT (SELECT prs_bedrijf_naam FROM prs_bedrijf WHERE prs_bedrijf_key = 2941), prs_afdeling_naam, prs_kenmerk1
FROM fac_imp_perslid);
fac_update_organisatie (p_import_key);
*/
prs.update_perslid (p_import_key, 'EMAIL', NULL);
-- Tijdelijke aanpassing aan de objecten om de werkpleknummers er voor te krijgen.
UPDATE ins_deel
SET ins_deel_omschrijving =
(SELECT prs_werkplek_omschrijving || '/' || ins_deel_opmerking
FROM prs_werkplek wp
WHERE ins_alg_ruimte_key = wp.prs_werkplek_key)
WHERE EXISTS
(SELECT ins_deel_key, ins_deel_opmerking, prs_werkplek_omschrijving
FROM prs_werkplek wp
WHERE ins_alg_ruimte_key = wp.prs_werkplek_key
AND ins_alg_ruimte_type = 'W'
AND ins_deel_opmerking IS NOT NULL
AND ins_deel_omschrijving <> prs_werkplek_omschrijving || '/' || ins_deel_opmerking);
COMMIT;
-- Verwijder ongebruikte functies; deze import bepaalt de functies!
UPDATE prs_srtperslid sp
SET sp.prs_srtperslid_verwijder = SYSDATE
WHERE sp.prs_srtperslid_verwijder IS NULL
AND NOT EXISTS (SELECT 1
FROM prs_perslid p
WHERE p.prs_srtperslid_key = sp.prs_srtperslid_key);
COMMIT;
-- Op nadrukkelijk verzoek van Klimmendaal is/wordt iedereen gemandateerd om
-- te boeken op alle kostenplaatsen!?
INSERT INTO prs_perslidkostenplaats (prs_perslid_key,
prs_kostenplaats_key,
prs_perslidkostenplaats_boeken,
prs_perslidkostenplaats_inzage)
SELECT p.prs_perslid_key, NULL, 1, 0
FROM prs_v_aanwezigperslid p, prs_afdeling a
WHERE p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_bedrijf_key = 2941 -- Klimmendaal!
AND NOT EXISTS (SELECT 1
FROM prs_perslidkostenplaats
WHERE prs_perslid_key = p.prs_perslid_key);
END klim_update_perslid_mut;
/
-- VIAR#31661
/* Formatted on 19-10-2016 15:05:10 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW klim_v_res_daglijst
(
fclt_3d_locatie_key,
hide_f_key,
resnr,
fclt_f_locatie,
fclt_f_ruimte,
fclt_f_datum,
van,
tot,
activiteit,
omschrijving,
gastheer_vrouw,
aantal_pers,
opstelling,
voorziening
)
AS
SELECT r2a.alg_locatie_key,
rrr.res_rsv_ruimte_key,
rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr resnr,
r2a.locatie_oms,
r2a.ruimte_nr,
TO_CHAR (rrr.res_rsv_ruimte_van, 'DD-MM') datum,
TO_CHAR (rrr.res_rsv_ruimte_van, 'HH24.MI') van,
TO_CHAR (rrr.res_rsv_ruimte_tot, 'HH24.MI') tot,
ra.res_activiteit_omschrijving activiteit,
rrr.res_rsv_ruimte_omschrijving omschrijving,
pf.prs_perslid_naam_full gastheer_vrouw,
rrr.res_rsv_ruimte_bezoekers pers,
r2a.opstelling,
voorzieningen
FROM res_v_aanwezigrsv_ruimte rrr,
( SELECT res_ruimte_opstel_key,
MAX (o.res_opstelling_omschrijving) opstelling,
MAX (ra.alg_ruimte_key) alg_ruimte_key,
MAX (rr.res_ruimte_nr) ruimte_nr,
MAX (r.alg_locatie_key) alg_locatie_key,
MAX (r.alg_locatie_omschrijving) locatie_oms
FROM res_ruimte_opstelling ro,
res_opstelling o,
res_ruimte rr,
res_alg_ruimte ra,
alg_v_ruimte_gegevens_all r
WHERE ro.res_opstelling_key = o.res_opstelling_key
AND ro.res_ruimte_key = rr.res_ruimte_key
AND rr.res_ruimte_key = ra.res_ruimte_key
AND ra.alg_ruimte_key = r.alg_ruimte_key
GROUP BY res_ruimte_opstel_key) r2a,
--alg_ruimte r,
--alg_verdieping v,
--alg_gebouw g,
res_activiteit ra,
prs_v_perslid_fullnames pf,
( SELECT res_rsv_ruimte_key,
LISTAGG (voorziening, CHR (13) || CHR (10))
WITHIN GROUP (ORDER BY voorziening)
AS voorzieningen
FROM (SELECT rrd.res_rsv_ruimte_key,
rd.res_deel_omschrijving
voorziening
FROM res_rsv_deel rrd, res_deel rd
WHERE rrd.res_rsv_deel_verwijder IS NULL
AND rd.res_deel_key = rrd.res_deel_key
UNION ALL
SELECT rra.res_rsv_ruimte_key,
rra.res_rsv_artikel_aantal || ' * ' || ra.res_artikel_omschrijving
voorziening
FROM res_rsv_artikel rra, res_artikel ra
WHERE rra.res_rsv_artikel_verwijder IS NULL
AND ra.res_artikel_key = rra.res_artikel_key)
GROUP BY res_rsv_ruimte_key) voorz
WHERE rrr.res_rsv_ruimte_van BETWEEN TRUNC (SYSDATE) AND TRUNC (SYSDATE + 4)
AND rrr.res_ruimte_opstel_key = r2a.res_ruimte_opstel_key
--AND r2a.alg_ruimte_key = r.alg_ruimte_key
--AND r.alg_verdieping_key = v.alg_verdieping_key
--AND v.alg_gebouw_key = g.alg_gebouw_key
AND rrr.res_activiteit_key = ra.res_activiteit_key
AND rrr.res_rsv_ruimte_host_key = pf.prs_perslid_key
AND rrr.res_rsv_ruimte_key = voorz.res_rsv_ruimte_key(+);
/* Formatted on 13-12-2016 14:05:55 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW klim_v_noti_leidinggevende
(
code,
sender,
receiver,
text,
key,
xkey,
xemail,
xmobile
)
AS
SELECT sn.fac_srtnotificatie_code,
NULL,
NULL,
sn.fac_srtnotificatie_oms,
m.mld_melding_key,
NULL,
p.prs_perslid_email,
NULL
FROM mld_melding m,
prs_v_aanwezigperslid p,
fac_srtnotificatie sn,
fac_notificatie_job nj
WHERE m.mld_stdmelding_key = 142 -- Afmelden ICT & Fac.
AND m.prs_perslid_key = p.prs_perslid_key
AND sn.fac_srtnotificatie_code = 'CUST01'
AND nj.fac_notificatie_job_view = 'KLIM_V_NOTI_LEIDINGGEVENDE'
AND m.mld_melding_datum BETWEEN nj.fac_notificatie_job_nextrun - (nj.fac_notificatie_job_interval / 24) AND nj.fac_notificatie_job_nextrun
UNION ALL
SELECT sn.fac_srtnotificatie_code,
NULL,
NULL,
sn.fac_srtnotificatie_oms,
m.mld_melding_key,
NULL,
'inkoop@klimmendaal.nl',
NULL
FROM mld_melding m, fac_srtnotificatie sn, fac_notificatie_job nj
WHERE m.mld_stdmelding_key = 142 -- Afmelden ICT & Fac.
AND sn.fac_srtnotificatie_code = 'CUST02'
AND nj.fac_notificatie_job_view = 'klim_V_NOTI_LEIDINGGEVENDE'
AND m.mld_melding_datum BETWEEN nj.fac_notificatie_job_nextrun - (nj.fac_notificatie_job_interval / 24) AND nj.fac_notificatie_job_nextrun;
-- KLIM#55882: CMDB-export
CREATE OR REPLACE VIEW klim_v_rap_cmdb
(
disciplineomschrijving,
groepsoortomschrijving,
objectsoortcode,
objectsoortomschrijving,
objectid,
objectmemo,
locatiecode,
gebouwcode,
bouwlaagvolgnummer,
ruimtenr,
afdeling,
persoon,
vervaldatum,
merk,
type,
ingericht_als_tc,
ingericht_als_fc,
serienummer,
mac_adres,
mac_adres_wifi,
leverancier,
aanschafdatum,
aanschafprijs,
outlet,
mer,
switch_poort,
werkplek,
werkplekomschrijving
)
AS
SELECT x.ins_discipline_omschrijving,
x.ins_srtgroep_omschrijving,
x.ins_srtdeel_code,
x.ins_srtdeel_omschrijving,
x.ins_deel_omschrijving,
x.ins_deel_opmerking,
x.alg_locatie_code,
x.alg_gebouw_code,
x.alg_verdieping_volgnr,
x.alg_ruimte_nr,
x.prs_afdeling_naam,
x.prs_perslid_oslogin,
x.ins_deel_vervaldatum,
(SELECT fac_usrdata_code FROM fac_v_aanwezigusrdata WHERE TO_CHAR (fac_usrdata_key) = mrk.ins_kenmerkdeel_waarde), -- Merk
typ.ins_kenmerkdeel_waarde, -- Type
(SELECT fac_usrdata_code FROM fac_v_aanwezigusrdata WHERE TO_CHAR (fac_usrdata_key) = itc.ins_kenmerkdeel_waarde), -- Ingericht als TC
(SELECT fac_usrdata_code FROM fac_v_aanwezigusrdata WHERE TO_CHAR (fac_usrdata_key) = ifc.ins_kenmerkdeel_waarde), -- Ingericht als FC
snr.ins_kenmerkdeel_waarde, -- Serienummer
ma1.ins_kenmerkdeel_waarde, -- MAC-adres
ma2.ins_kenmerkdeel_waarde, -- MAC-adres Wifi
lev.ins_kenmerkdeel_waarde, -- Leverancier
ada.ins_kenmerkdeel_waarde, -- Aanschafdatum
apr.ins_kenmerkdeel_waarde, -- Aanschafprijs
otl.ins_kenmerkdeel_waarde, -- Outlet
mer.ins_kenmerkdeel_waarde, -- MER
swp.ins_kenmerkdeel_waarde, -- Switch/Poort
wp1.ins_kenmerkdeel_waarde, -- Werkplek
wp2.ins_kenmerkdeel_waarde -- Werkplekomschrijving
FROM (SELECT d.ins_deel_key,
td.ins_discipline_omschrijving,
sg.ins_srtgroep_omschrijving,
sd.ins_srtdeel_code,
sd.ins_srtdeel_omschrijving,
d.ins_deel_omschrijving,
d.ins_deel_opmerking,
a.prs_afdeling_naam,
NULL prs_perslid_oslogin,
NULL alg_locatie_code,
NULL alg_gebouw_code,
NULL alg_verdieping_volgnr,
NULL alg_ruimte_nr,
d.ins_deel_vervaldatum
FROM ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,
ins_tab_discipline td,
prs_afdeling a
WHERE d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = td.ins_discipline_key
AND td.ins_discipline_key = 501 -- CMDB
AND d.ins_alg_ruimte_type = 'A'
AND d.ins_alg_ruimte_key = a.prs_afdeling_key
UNION ALL
SELECT d.ins_deel_key,
td.ins_discipline_omschrijving,
sg.ins_srtgroep_omschrijving,
sd.ins_srtdeel_code,
sd.ins_srtdeel_omschrijving,
d.ins_deel_omschrijving,
d.ins_deel_opmerking,
NULL prs_afdeling_naam,
p.prs_perslid_oslogin,
NULL alg_locatie_code,
NULL alg_gebouw_code,
NULL alg_verdieping_volgnr,
NULL alg_ruimte_nr,
d.ins_deel_vervaldatum
FROM ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,
ins_tab_discipline td,
prs_perslid p
WHERE d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = td.ins_discipline_key
AND td.ins_discipline_key = 501 -- CMDB
AND d.ins_alg_ruimte_type = 'P'
AND d.ins_alg_ruimte_key = p.prs_perslid_key
UNION ALL
SELECT d.ins_deel_key,
td.ins_discipline_omschrijving,
sg.ins_srtgroep_omschrijving,
sd.ins_srtdeel_code,
sd.ins_srtdeel_omschrijving,
d.ins_deel_omschrijving,
d.ins_deel_opmerking,
NULL prs_afdeling_naam,
NULL prs_perslid_oslogin,
l.alg_locatie_code,
g.alg_gebouw_code,
v.alg_verdieping_volgnr,
r.alg_ruimte_nr,
d.ins_deel_vervaldatum
FROM ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,
ins_tab_discipline td,
alg_ruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l
WHERE d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = td.ins_discipline_key
AND td.ins_discipline_key = 501 -- CMDB
AND d.ins_alg_ruimte_type = 'R'
AND d.ins_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key) x
LEFT JOIN ins_v_aanwezigkenmerkdeel mrk
ON x.ins_deel_key = mrk.ins_deel_key
AND mrk.ins_kenmerk_key = 89 -- Merk
LEFT JOIN ins_v_aanwezigkenmerkdeel typ
ON x.ins_deel_key = typ.ins_deel_key
AND typ.ins_kenmerk_key = 96 -- Type
LEFT JOIN ins_v_aanwezigkenmerkdeel itc
ON x.ins_deel_key = itc.ins_deel_key
AND itc.ins_kenmerk_key = 84 -- Ingericht als TC
LEFT JOIN ins_v_aanwezigkenmerkdeel ifc
ON x.ins_deel_key = ifc.ins_deel_key
AND ifc.ins_kenmerk_key = 83 -- Ingericht als FC
LEFT JOIN ins_v_aanwezigkenmerkdeel snr
ON x.ins_deel_key = snr.ins_deel_key
AND snr.ins_kenmerk_key = 94 -- Serienummer
LEFT JOIN ins_v_aanwezigkenmerkdeel ma1
ON x.ins_deel_key = ma1.ins_deel_key
AND ma1.ins_kenmerk_key = 86 -- MAC-adres
LEFT JOIN ins_v_aanwezigkenmerkdeel ma2
ON x.ins_deel_key = ma2.ins_deel_key
AND ma2.ins_kenmerk_key = 87 -- MAC-adres Wifi
LEFT JOIN ins_v_aanwezigkenmerkdeel lev
ON x.ins_deel_key = lev.ins_deel_key
AND lev.ins_kenmerk_key = 85 -- Leverancier
LEFT JOIN ins_v_aanwezigkenmerkdeel ada
ON x.ins_deel_key = ada.ins_deel_key
AND ada.ins_kenmerk_key = 81 -- Aanschafdatum
LEFT JOIN ins_v_aanwezigkenmerkdeel apr
ON x.ins_deel_key = apr.ins_deel_key
AND apr.ins_kenmerk_key = 82 -- Aanschafprijs
LEFT JOIN ins_v_aanwezigkenmerkdeel otl
ON x.ins_deel_key = otl.ins_deel_key
AND otl.ins_kenmerk_key = 92 -- Outlet
LEFT JOIN ins_v_aanwezigkenmerkdeel mer
ON x.ins_deel_key = mer.ins_deel_key
AND mer.ins_kenmerk_key = 88 -- MER
LEFT JOIN ins_v_aanwezigkenmerkdeel swp
ON x.ins_deel_key = swp.ins_deel_key
AND swp.ins_kenmerk_key = 95 -- Switch/Poort
LEFT JOIN ins_v_aanwezigkenmerkdeel wp1
ON x.ins_deel_key = wp1.ins_deel_key
AND wp1.ins_kenmerk_key = 97 -- Werkplek
LEFT JOIN ins_v_aanwezigkenmerkdeel wp2
ON x.ins_deel_key = wp2.ins_deel_key
AND wp2.ins_kenmerk_key = 98 -- Werkplekomschrijving
;
CREATE OR REPLACE VIEW klim_v_export_cmdb
(
result,
result_order
)
AS
SELECT 'disciplineomschrijving'
|| ';groepsoortomschrijving'
|| ';objectsoortcode'
|| ';objectsoortomschrijving'
|| ';objectid'
|| ';objectmemo'
|| ';locatiecode'
|| ';gebouwcode'
|| ';bouwlaagvolgnummer'
|| ';ruimtenr'
|| ';afdeling'
|| ';persoon'
|| ';vervaldatum'
|| ';merk'
|| ';type'
|| ';ingericht_als_tc'
|| ';ingericht_als_fc'
|| ';serienummer'
|| ';mac_adres'
|| ';mac_adres_wifi'
|| ';leverancier'
|| ';aanschafdatum'
|| ';aanschafprijs'
|| ';outlet'
|| ';mer'
|| ';switch_poort'
|| ';werkplek'
|| ';werkplekomschrijving',
0
FROM DUAL
UNION ALL
SELECT disciplineomschrijving
|| ';'
|| groepsoortomschrijving
|| ';'
|| objectsoortcode
|| ';'
|| objectsoortomschrijving
|| ';'
|| objectid
|| ';'
|| objectmemo
|| ';'
|| locatiecode
|| ';'
|| gebouwcode
|| ';'
|| bouwlaagvolgnummer
|| ';'
|| ruimtenr
|| ';'
|| afdeling
|| ';'
|| persoon
|| ';'
|| vervaldatum
|| ';'
|| merk
|| ';'
|| type
|| ';'
|| ingericht_als_tc
|| ';'
|| ingericht_als_fc
|| ';'
|| serienummer
|| ';'
|| mac_adres
|| ';'
|| mac_adres_wifi
|| ';'
|| leverancier
|| ';'
|| aanschafdatum
|| ';'
|| REPLACE (aanschafprijs, '.', ',')
|| ';'
|| outlet
|| ';'
|| mer
|| ';'
|| switch_poort
|| ';'
|| werkplek
|| ';'
|| werkplekomschrijving,
ROWNUM
FROM ( SELECT *
FROM klim_v_rap_cmdb
ORDER BY disciplineomschrijving,
groepsoortomschrijving,
objectsoortcode,
objectsoortomschrijving,
objectid);
------ 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

984
MAYF/mayf.sql
View File

@@ -1,984 +0,0 @@
--
-- $Id$
--
-- Script containing customer specific db-configuration for MAYF.
DEFINE thisfile = 'MAYF.SQL'
DEFINE dbuser = '^MAYF'
DEFINE custid = 'MAYF'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT;
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
WHENEVER SQLERROR CONTINUE;
SPOOL &fcltlogfile
SET DEFINE OFF
------ payload begin ------
CREATE OR REPLACE PROCEDURE mayf_export_nachtwerk (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2)
AS
CURSOR crem
IS
SELECT sn.fac_srtnotificatie_code scode,
'REMINDER: Voor opdracht '
|| mld_melding_key
|| '/'
|| mld_opdr_bedrijfopdr_volgnr
|| ' is de einddatum '
|| DECODE (
TRUNC (o.mld_opdr_einddatum),
TRUNC (SYSDATE),
'verstreken',
'met '
|| fac.count_work_days (o.mld_opdr_einddatum, SYSDATE)
|| ' dag(en) verstreken'
)
text,
o.mld_opdr_key opdrkey,
DECODE (INSTR (ba.prs_bedrijfadres_url, 'mailto:'),
0, 'servicedesk@mayfieldproperty.nl',
TRIM (REPLACE (ba.prs_bedrijfadres_url, 'mailto:', '')))
ontv
FROM mld_opdr o, prs_bedrijfadres ba, fac_srtnotificatie sn
WHERE o.mld_statusopdr_key IN (5, 8) -- Lopend=Uitgegeven/Geaccepteerd
AND o.mld_opdr_einddatum < SYSDATE
AND TO_CHAR (SYSDATE, 'd') BETWEEN '2' AND '6' -- Ma t/m Vr
AND o.mld_uitvoerende_keys = ba.prs_bedrijf_key
AND ba.prs_bedrijfadres_type = 'O'
AND ba.mld_typeopdr_key IS NULL
AND o.mld_typeopdr_key NOT IN
(SELECT mld_typeopdr_key
FROM prs_bedrijfadres
WHERE prs_bedrijf_key = o.mld_uitvoerende_keys
AND mld_typeopdr_key IS NOT NULL)
AND UPPER (ba.prs_bedrijfadres_url) NOT LIKE 'FTP%'
AND NOT EXISTS
(SELECT 1
FROM prs_bedrijfadres
WHERE mld_typeopdr_key = o.mld_typeopdr_key
AND prs_bedrijf_key = o.mld_uitvoerende_keys
AND prs_bedrijfadres_key != ba.prs_bedrijfadres_key)
AND sn.fac_srtnotificatie_code = 'CUST01'
UNION ALL
SELECT sn.fac_srtnotificatie_code scode,
'REMINDER: Voor opdracht '
|| mld_melding_key
|| '/'
|| mld_opdr_bedrijfopdr_volgnr
|| ' is de einddatum '
|| DECODE (
TRUNC (o.mld_opdr_einddatum),
TRUNC (SYSDATE),
'verstreken',
'met '
|| fac.count_work_days (o.mld_opdr_einddatum, SYSDATE)
|| ' dag(en) verstreken'
)
text,
o.mld_opdr_key opdrkey,
DECODE (INSTR (ba.prs_bedrijfadres_url, 'mailto:'),
0, 'servicedesk@mayfieldproperty.nl',
TRIM (REPLACE (ba.prs_bedrijfadres_url, 'mailto:', '')))
ontv
FROM mld_opdr o, prs_bedrijfadres ba, fac_srtnotificatie sn
WHERE o.mld_statusopdr_key IN (5, 8) -- Lopend=Uitgegeven/Geaccepteerd
AND o.mld_opdr_einddatum < SYSDATE
AND TO_CHAR (SYSDATE, 'd') BETWEEN '2' AND '6' -- Ma t/m Vr
AND o.mld_uitvoerende_keys = ba.prs_bedrijf_key
AND ba.prs_bedrijfadres_type = 'O'
AND ba.mld_typeopdr_key = o.mld_typeopdr_key
AND UPPER (ba.prs_bedrijfadres_url) NOT LIKE 'FTP%'
AND NOT EXISTS
(SELECT 1
FROM prs_bedrijfadres
WHERE mld_typeopdr_key = o.mld_typeopdr_key
AND prs_bedrijf_key = o.mld_uitvoerende_keys
AND prs_bedrijfadres_key != ba.prs_bedrijfadres_key)
AND sn.fac_srtnotificatie_code = 'CUST01';
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_count NUMBER := 0;
BEGIN
FOR r IN crem
LOOP
BEGIN
fac.trackaction ('#'||r.scode,
r.opdrkey,
NULL,
NULL,
'Reminder verzonden');
fac.putnotificationsrtprio (NULL,
NULL,
r.scode,
r.opdrkey,
r.text,
NULL,
r.ontv,
NULL,
NULL,
2,
NULL);
v_count := v_count + 1;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (p_applname,
'W',
v_errormsg,
v_errorhint);
COMMIT;
END;
END LOOP;
fac.writelog (p_applname,
'S',
'Aantal notificaties verstuurd:' || TO_CHAR (v_count),
'');
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname,
'E',
'Proces NACHTWERK afgebroken!',
v_errormsg);
COMMIT;
END;
/
/* Formatted on 30-5-2011 17:30:40 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW mayf_v_stdmld_lijst
(
stdmld_key,
stdmld_oms
)
AS
SELECT sm.mld_stdmelding_key stdmld_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| td.ins_discipline_omschrijving
|| '-'
|| sm.mld_stdmelding_omschrijving
stdmld_oms
FROM mld_stdmelding sm, ins_tab_discipline td, ins_srtdiscipline sd
WHERE sm.mld_stdmelding_verwijder IS NULL
AND sm.mld_ins_discipline_key = td.ins_discipline_key
AND td.ins_discipline_verwijder IS NULL
AND td.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND sd.ins_srtdiscipline_verwijder IS NULL;
/* Formatted on 5-9-2011 14:22:00 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW mayf_v_rap_mld_per_loc
(
fclt_f_maand,
fclt_f_portefeuille,
fclt_f_locatie,
aantal,
kosten
)
AS
SELECT TO_CHAR (mld_melding_datum, 'yyyy-mm') maand,
alg_regio_omschrijving portefeuille,
alg_locatie_omschrijving locatie,
COUNT (mld_melding_key) aantal,
SUM (kosten) kosten
FROM (SELECT m.mld_melding_key,
m.mld_melding_datum,
r.alg_regio_omschrijving,
l.alg_locatie_omschrijving,
COALESCE (
( SELECT SUM (o.mld_opdr_kosten)
FROM mld_opdr o, mld_typeopdr ot
WHERE o.mld_melding_key = m.mld_melding_key
AND o.mld_typeopdr_key =
ot.mld_typeopdr_key
AND ot.mld_typeopdr_kosten = 1
GROUP BY m.mld_melding_key),
0
)
kosten
FROM mld_melding m,
alg_locatie l,
alg_district d,
alg_regio r,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND l.alg_district_key = d.alg_district_key(+)
AND d.alg_regio_key = r.alg_regio_key(+)
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND m.fac_activiteit_key IS NULL)
GROUP BY TO_CHAR (mld_melding_datum, 'yyyy-mm'),
alg_locatie_omschrijving,
alg_regio_omschrijving;
CREATE OR REPLACE VIEW mayf_v_rap_mld_tracking
(
fclt_f_meldingnr,
fclt_d_datum,
tijdstip,
fclt_f_code,
actie,
fclt_f_door
)
AS
SELECT TO_CHAR (t.fac_tracking_refkey) meldingnr,
TO_CHAR (t.fac_tracking_datum, 'dd-mm-yyyy') datum,
TO_CHAR (t.fac_tracking_datum, 'hh24:mi:ss') tijdstip,
sn.fac_srtnotificatie_code code,
--COALESCE (t.fac_tracking_oms, sn.fac_srtnotificatie_oms) actie,
COALESCE (t.fac_tracking_oms, lcl.x('fac_srtnotificatie_oms', sn.fac_srtnotificatie_key, sn.fac_srtnotificatie_oms)) actie,
pf.prs_perslid_naam_full door
FROM fac_tracking t,
fac_srtnotificatie sn,
prs_v_perslid_fullnames_all pf
WHERE t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_code LIKE 'MLD%'
AND t.prs_perslid_key = pf.prs_perslid_key;
CREATE OR REPLACE VIEW mayf_v_rap_ord_tracking
(
fclt_f_opdrachtnr,
fclt_d_datum,
tijdstip,
fclt_f_code,
actie,
fclt_f_door
)
AS
SELECT TO_CHAR (o.mld_melding_key)
|| '/'
|| TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr)
opdrachtnr,
TO_CHAR (t.fac_tracking_datum, 'dd-mm-yyyy') datum,
TO_CHAR (t.fac_tracking_datum, 'hh24:mi:ss') tijdstip,
sn.fac_srtnotificatie_code code,
--COALESCE (t.fac_tracking_oms, sn.fac_srtnotificatie_oms) actie,
COALESCE (t.fac_tracking_oms, lcl.x('fac_srtnotificatie_oms', sn.fac_srtnotificatie_key, sn.fac_srtnotificatie_oms)) actie,
pf.prs_perslid_naam_full door
FROM fac_tracking t,
fac_srtnotificatie sn,
prs_v_perslid_fullnames_all pf,
mld_opdr o
WHERE t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_code LIKE 'ORD%'
AND t.prs_perslid_key = pf.prs_perslid_key
AND t.fac_tracking_refkey = o.mld_opdr_key;
/* Formatted on 9-9-2013 15:32:40 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW mayf_v_rap_mld_geg
(
id,
prio,
fclt_f_vakgroep,
fclt_f_melding,
fclt_d_aanmaak,
t0,
plaats,
loc_plaats,
fclt_f_loc_adres,
omschrijving,
melder,
fclt_f_status,
behandelaar,
gepland,
t1,
gereed,
plan, -- afspraak_dagen
echt, -- werkelijke_duur
fclt_f_tijdigheid,
maand,
jaar
)
AS
SELECT TO_CHAR (meld.mld_key),
TO_CHAR (meld.prio),
meld.vakgroep_oms,
meld.stdmld_oms,
TO_CHAR (mldnew.fac_tracking_datum, 'dd-mm-yyyy') aanmaak_datum,
TO_CHAR (mldnew.fac_tracking_datum, 'hh24:mi') aanmaak_tijd,
meld.plaats,
meld.locatie_plaats,
meld.locatie_adres,
meld.mld_oms,
meld.melder,
meld.status_oms,
meld.behandelaar,
TO_CHAR (meld.einddatum, 'dd-mm-yyyy') gepland_datum,
TO_CHAR (meld.einddatum, 'hh24:mi') gepland_tijd,
COALESCE (mldrej.fac_tracking_datum, mldafm.fac_tracking_datum)
gereed_datum,
DECODE (meld.einddatum,
NULL, NULL,
TRUNC (meld.einddatum - mldnew.fac_tracking_datum) + 1)
afspraak_dagen,
DECODE (
COALESCE (mldrej.fac_tracking_datum,
mldafm.fac_tracking_datum),
NULL,
NULL,
TRUNC(COALESCE (mldrej.fac_tracking_datum,
mldafm.fac_tracking_datum)
- mldnew.fac_tracking_datum
+ 1)
)
werkelijke_duur,
DECODE (
COALESCE (mldrej.fac_tracking_datum,
mldafm.fac_tracking_datum),
NULL,
CASE
WHEN TRUNC (SYSDATE - mldnew.fac_tracking_datum) <=
TRUNC (
meld.einddatum - mldnew.fac_tracking_datum + 1
)
THEN
'Open/op tijd'
ELSE
'Open/te laat'
END,
CASE
WHEN TRUNC(COALESCE (mldrej.fac_tracking_datum,
mldafm.fac_tracking_datum)
- mldnew.fac_tracking_datum) <=
TRUNC (
meld.einddatum - mldnew.fac_tracking_datum + 1
)
THEN
'Op tijd'
ELSE
'Te laat'
END
)
tijdigheid,
TO_CHAR (TO_NUMBER (TO_CHAR (mldnew.fac_tracking_datum, 'mm')))
maand,
TO_CHAR (mldnew.fac_tracking_datum, 'yyyy') jaar
FROM (SELECT m.mld_melding_key mld_key,
m.mld_melding_spoed prio,
td.ins_discipline_omschrijving vakgroep_oms,
sm.mld_stdmelding_omschrijving stdmld_oms,
l.alg_locatie_code
|| NVL2 (v.alg_gebouw_code,
'-' || v.alg_gebouw_code,
'')
|| NVL2 (v.alg_verdieping_code,
'-' || v.alg_verdieping_code,
'')
|| NVL2 (
v.alg_ruimte_nr,
'-'
|| v.alg_ruimte_nr
|| ' '
|| v.alg_ruimte_omschrijving,
''
)
|| NVL2 (v.alg_terreinsector_code,
'-' || v.alg_terreinsector_code,
'')
plaats,
l.alg_locatie_plaats locatie_plaats,
l.alg_locatie_adres locatie_adres,
m.mld_melding_omschrijving mld_oms,
pm.prs_perslid_naam_full melder,
s.mld_statuses_omschrijving status_oms,
pb.prs_perslid_naam_full behandelaar,
--m.mld_melding_datum begindatum,
m.mld_melding_einddatum einddatum
FROM mld_melding m,
mld_stdmelding sm,
mld_stdmeldinggroep smg,
ins_tab_discipline td,
alg_v_allonrgoed_gegevens v,
alg_locatie l,
prs_v_perslid_fullnames_all pm,
mld_statuses s,
prs_v_perslid_fullnames_all pb
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_stdmeldinggroep_key =
smg.mld_stdmeldinggroep_key(+)
AND sm.mld_ins_discipline_key =
td.ins_discipline_key
AND m.mld_alg_onroerendgoed_keys =
v.alg_onroerendgoed_keys(+)
AND m.mld_alg_locatie_key =
l.alg_locatie_key(+)
AND m.prs_perslid_key = pm.prs_perslid_key
AND m.mld_melding_status =
s.mld_statuses_key(+)
AND m.mld_melding_behandelaar_key =
pb.prs_perslid_key) meld
LEFT JOIN -- MLDNEW=33
fac_tracking mldnew
ON meld.mld_key = mldnew.fac_tracking_refkey
AND mldnew.fac_srtnotificatie_key = 33
LEFT JOIN -- MLDREJ=34
fac_tracking mldrej
ON meld.mld_key = mldrej.fac_tracking_refkey
AND mldrej.fac_srtnotificatie_key = 34
LEFT JOIN -- MLDAFM=29
fac_tracking mldafm
ON meld.mld_key = mldafm.fac_tracking_refkey
AND mldafm.fac_srtnotificatie_key = 29;
/* Formatted on 16-9-2013 17:24:12 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW mayf_v_rap_ord_geg
(
id,
prio,
fclt_f_opdrachttype,
plaats,
fclt_f_regio,
fclt_f_district,
loc_plaats,
fclt_f_loc_adres,
melding,
omschrijving,
fclt_d_aanmaak,
--aanmaak_tijd,
fclt_f_status,
gepland,
--gepland_tijd,
fclt_f_uitvoerende,
contactpersoon,
aanvrager,
fclt_f_bedrijf,
fclt_f_organisatie,
afhandeling,
kosten,
fiatteur,
mandaat,
offertedatum,
offertenummer,
gereed,
plan, -- afspraak_dagen
echt, -- werkelijke_duur
fclt_f_tijdigheid,
maand,
jaar,
offertecheck, -- datum_offertecheck
fclt_f_offerte_ok
)
AS
SELECT 'O' || TO_CHAR (opdr.mld_key) || '/' || TO_CHAR (opdr.volgnr),
TO_CHAR (opdr.prio),
opdr.typeopdr_oms,
opdr.plaats,
opdr.regio_oms,
opdr.district_oms,
opdr.locatie_plaats,
opdr.locatie_adres,
opdr.stdmld_oms,
opdr.opdr_oms,
TO_CHAR (ordnew.fac_tracking_datum, 'dd-mm-yyyy') gepland_datum,
--TO_CHAR (ordnew.fac_tracking_datum, 'hh24:mi') aanmaak_tijd,
opdr.status_oms,
TO_CHAR (opdr.einddatum, 'dd-mm-yyyy') gepland_datum,
--TO_CHAR (meld.einddatum, 'hh24:mi') gepland_tijd,
opdr.uitv,
opdr.cp,
opdr.aanvrager,
opdr.bedrijf,
opdr.organisatie,
opdr.opdr_opm,
opdr.kosten,
(SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all
WHERE prs_perslid_key = ordaut.prs_perslid_key)
fiatteur,
k1.mandaat,
k2.offertedatum,
k3.offertenummer,
COALESCE (TO_CHAR (ordcan.fac_tracking_datum, 'dd-mm-yyyy'),
TO_CHAR (ordafm.fac_tracking_datum, 'dd-mm-yyyy'))
gereed_datum,
DECODE (opdr.einddatum,
NULL, NULL,
TRUNC (opdr.einddatum - ordnew.fac_tracking_datum) + 1)
afspraak_dagen,
DECODE (
COALESCE (ordcan.fac_tracking_datum,
ordafm.fac_tracking_datum),
NULL,
NULL,
TRUNC(COALESCE (ordcan.fac_tracking_datum,
ordafm.fac_tracking_datum)
- ordnew.fac_tracking_datum
+ 1)
)
werkelijke_duur,
DECODE (
COALESCE (ordcan.fac_tracking_datum,
ordafm.fac_tracking_datum),
NULL,
CASE
WHEN TRUNC (SYSDATE - ordnew.fac_tracking_datum) <=
TRUNC (
opdr.einddatum - ordnew.fac_tracking_datum + 1
)
THEN
'Open/op tijd'
ELSE
'Open/te laat'
END,
CASE
WHEN TRUNC(COALESCE (ordcan.fac_tracking_datum,
ordafm.fac_tracking_datum)
- ordnew.fac_tracking_datum) <=
TRUNC (
opdr.einddatum - ordnew.fac_tracking_datum + 1
)
THEN
'Op tijd'
ELSE
'Te laat'
END
)
tijdigheid,
TO_CHAR (TO_NUMBER (TO_CHAR (ordnew.fac_tracking_datum, 'mm')))
maand,
TO_CHAR (ordnew.fac_tracking_datum, 'yyyy') jaar,
DECODE (ordoff.fac_tracking_datum,
NULL, DECODE (opdr.typeopdr_key, 122, 'O', 'X'),
TO_CHAR (ordoff.fac_tracking_datum, 'dd-mm-yyyy'))
datum_offertecheck,
DECODE (ordoff.fac_srtnotificatie_key,
NULL,
DECODE (opdr.typeopdr_key, 122, 'O', 'X'),
201,
'Ja',
202,
'Nee')
offerte_ok
FROM (SELECT o.mld_opdr_key opdr_key,
o.mld_melding_key mld_key,
o.mld_opdr_bedrijfopdr_volgnr
volgnr,
m.mld_melding_spoed prio,
ot.mld_typeopdr_key
typeopdr_key,
ot.mld_typeopdr_omschrijving
typeopdr_oms,
sm.mld_stdmelding_omschrijving
stdmld_oms,
l.alg_locatie_code
|| NVL2 (
v.alg_gebouw_code,
'-'
|| v.alg_gebouw_code,
''
)
|| NVL2 (
v.alg_verdieping_code,
'-'
|| v.alg_verdieping_code,
''
)
|| NVL2 (
v.alg_ruimte_nr,
'-'
|| v.alg_ruimte_nr
|| ' '
|| v.alg_ruimte_omschrijving,
''
)
|| NVL2 (
v.alg_terreinsector_code,
'-'
|| v.alg_terreinsector_code,
''
)
plaats,
l.alg_locatie_plaats
locatie_plaats,
l.alg_locatie_adres
locatie_adres,
d.alg_district_omschrijving
district_oms,
r.alg_regio_omschrijving
regio_oms,
o.mld_opdr_omschrijving
opdr_oms,
s.mld_statusopdr_omschrijving
status_oms,
eb.prs_bedrijf_naam uitv,
o.mld_opdr_contactpersoon cp,
pm.prs_perslid_naam_full
aanvrager,
ib.prs_bedrijf_naam bedrijf,
a.prs_afdeling_omschrijving
organisatie,
o.mld_opdr_opmerking
opdr_opm,
o.mld_opdr_kosten kosten,
--o.mld_opdr_datumbegin
-- begindatum,
o.mld_opdr_einddatum
einddatum
FROM mld_opdr o,
mld_melding m,
mld_stdmelding sm,
mld_typeopdr ot,
alg_v_allonrgoed_gegevens v,
alg_locatie l,
alg_district d,
alg_regio r,
mld_statusopdr s,
prs_bedrijf eb,
prs_perslid p,
prs_v_perslid_fullnames_all pm,
prs_v_afdeling a,
prs_bedrijf ib
WHERE o.mld_melding_key =
m.mld_melding_key
AND m.mld_stdmelding_key =
sm.mld_stdmelding_key
AND o.mld_typeopdr_key =
ot.mld_typeopdr_key
AND m.mld_alg_onroerendgoed_keys =
v.alg_onroerendgoed_keys(+)
AND m.mld_alg_locatie_key =
l.alg_locatie_key(+)
AND l.alg_district_key =
d.alg_district_key(+)
AND d.alg_regio_key =
r.alg_regio_key(+)
AND o.mld_statusopdr_key =
s.mld_statusopdr_key(+)
AND o.mld_uitvoerende_keys =
eb.prs_bedrijf_key
AND m.prs_perslid_key =
p.prs_perslid_key
AND p.prs_perslid_key =
pm.prs_perslid_key
AND p.prs_afdeling_key =
a.prs_afdeling_key
AND a.prs_bedrijf_key =
ib.prs_bedrijf_key)
opdr
LEFT JOIN -- Mandaat=41
(SELECT ko.mld_opdr_key,
ko.mld_kenmerkopdr_waarde
mandaat
FROM mld_v_aanwezigkenmerkopdr ko,
mld_kenmerk k
WHERE ko.mld_kenmerk_key =
k.mld_kenmerk_key
AND k.mld_srtkenmerk_key =
41) k1
ON opdr.opdr_key = k1.mld_opdr_key
LEFT JOIN -- Offertedatum=81
(SELECT ko.mld_opdr_key,
ko.mld_kenmerkopdr_waarde
offertedatum
FROM mld_v_aanwezigkenmerkopdr ko,
mld_kenmerk k
WHERE ko.mld_kenmerk_key =
k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = 81)
k2
ON opdr.opdr_key = k2.mld_opdr_key
LEFT JOIN -- Offertenummer=82
(SELECT ko.mld_opdr_key,
ko.mld_kenmerkopdr_waarde
offertenummer
FROM mld_v_aanwezigkenmerkopdr ko,
mld_kenmerk k
WHERE ko.mld_kenmerk_key =
k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = 82) k3
ON opdr.opdr_key = k3.mld_opdr_key
LEFT JOIN -- ORDNEW=45
fac_tracking ordnew
ON opdr.opdr_key = ordnew.fac_tracking_refkey
AND ordnew.fac_srtnotificatie_key = 45
LEFT JOIN -- ORDAFM=44
fac_tracking ordafm
ON opdr.opdr_key = ordafm.fac_tracking_refkey
AND ordafm.fac_srtnotificatie_key = 44
LEFT JOIN -- FOK/FNO=48/49
(SELECT t.fac_tracking_refkey,
t.fac_tracking_datum,
t.prs_perslid_key
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key IN (48, 49)
AND t.fac_tracking_key =
(SELECT MAX (fac_tracking_key)
FROM fac_tracking
WHERE fac_srtnotificatie_key IN
(48, 49)
AND fac_tracking_refkey =
t.fac_tracking_refkey))
ordaut
ON opdr.opdr_key = ordaut.fac_tracking_refkey
LEFT JOIN -- ORDCAN=45
fac_tracking ordcan
ON opdr.opdr_key = ordcan.fac_tracking_refkey
AND ordcan.fac_srtnotificatie_key = 54
LEFT JOIN -- REJ/CAN=50/54
(SELECT t.fac_tracking_refkey,
t.fac_tracking_datum,
t.prs_perslid_key
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key IN (50, 54)
AND t.fac_tracking_key =
(SELECT MAX (fac_tracking_key)
FROM fac_tracking
WHERE fac_srtnotificatie_key IN
(50, 54)
AND fac_tracking_refkey =
t.fac_tracking_refkey))
ordann
ON opdr.opdr_key = ordann.fac_tracking_refkey
LEFT JOIN -- OOK/ONO=201/202
(SELECT t.fac_tracking_refkey,
t.fac_tracking_datum,
t.fac_srtnotificatie_key,
t.prs_perslid_key
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key IN (201, 202)
AND t.fac_tracking_key =
(SELECT MAX (fac_tracking_key)
FROM fac_tracking
WHERE fac_srtnotificatie_key IN (201, 202)
AND fac_tracking_refkey =
t.fac_tracking_refkey)) ordoff
ON opdr.opdr_key = ordoff.fac_tracking_refkey;
-- MAYF#28197 MLD/OPDR rapportage inclusief substatus bolletje
CREATE OR REPLACE VIEW MAYF_V_RAP_MLDOPDR_GEG
(
PRIO,
FCLT_F_Status_bolletje,
FCLT_F_Opdrachtnr,
FCLT_F_Opdrachttype,
plaats,
Locatie_adres,
Woonplaats,
FCLT_F_Melding,
Omschrijving,
Datum,
FCLT_F_Meldingstatus,
FCLT_F_Opdrachtstatus,
FCLT_D_Geplande_einddatum,
FCLT_F_Uitvoerende,
Aanvrager,
Afhandeling
)
AS
SELECT DECODE (m.mld_melding_spoed,
1, 'Kritiek',
2, 'Hoog',
4, 'Laag',
'Normaal')
Prio,
code.omschrijving filter,
o.mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr Opdracht,
t.mld_typeopdr_omschrijving Opdrachttype,
l.alg_locatie_code
|| (SELECT CASE geg.alg_gebouw_code
WHEN NULL THEN ''
ELSE '-' || geg.alg_gebouw_code
END
|| CASE geg.alg_verdieping_code
WHEN NULL THEN ''
ELSE '-' || geg.alg_verdieping_code
END
|| CASE geg.alg_ruimte_nr
WHEN NULL THEN ''
ELSE '-' || geg.alg_ruimte_nr
END
|| CASE geg.alg_terreinsector_code
WHEN NULL THEN ''
ELSE '-' || geg.alg_terreinsector_code
END
FROM alg_v_allonrgoed_gegevens geg
WHERE m.mld_alg_onroerendgoed_keys =
geg.alg_onroerendgoed_keys
AND ROWNUM = 1)
plaatsmelding,
l.alg_locatie_adres Locatieadres,
l.alg_locatie_plaats Woonplaats,
std.mld_stdmelding_omschrijving Melding,
o.mld_opdr_omschrijving Omschrijving,
o.mld_opdr_datumbegin Datum,
mstat.mld_statuses_omschrijving Meldingstatus,
ostat.mld_statusopdr_omschrijving Opdrachtstatus,
to_char(o.mld_opdr_einddatum, 'dd-mm-yyyy') Geplande_einddatum,
b.prs_bedrijf_naam Uitvoerende,
p.prs_perslid_naam_full Aanvrager,
o.mld_opdr_opmerking Afhandeling
FROM mld_opdr o,
mld_melding m,
mld_typeopdr t,
alg_locatie l,
mld_stdmelding std,
mld_statuses mstat,
mld_statusopdr ostat,
prs_bedrijf b,
prs_v_perslid_fullnames p,
(SELECT SUBSTR (fac_locale_xsl_label, 13, 1) key,
fac_locale_xsl_cust omschrijving
FROM fac_locale_xsl
WHERE fac_locale_xsl_lang = 'NL'
AND fac_locale_XSL_cust IS NOT NULL
AND fac_locale_xsl_tekst LIKE 'Code%') code
WHERE m.mld_melding_key = o.mld_melding_key
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND mstat.mld_statuses_key = m.mld_melding_status
AND ostat.mld_statusopdr_key = o.mld_statusopdr_key
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
AND t.mld_typeopdr_key = o.mld_typeopdr_key
AND p.prs_perslid_key = m.prs_perslid_key
AND code.key(+) = m.mld_melding_flag
AND mstat.mld_statuses_key NOT IN (1, 5, 6);
-- MAYF#28873
/* Formatted on 24-9-2014 12:40:04 (QP5 v5.136.908.31019) */
CREATE OR REPLACE VIEW MAYF_V_NOTI_OFFERTEAFW
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
XKEY,
XEMAIL,
XMOBILE
)
AS
SELECT sn.fac_srtnotificatie_code,
NULL,
NULL,
'Uw offerte voor offerte aanvraag '
|| mld_melding_key
|| '/'
|| mld_opdr_bedrijfopdr_volgnr
|| ' is afgewezen.',
o.mld_opdr_key,
NULL,
DECODE (INSTR (ba.prs_bedrijfadres_url, 'mailto:'),
0, 'servicedesk@mayfieldproperty.nl',
TRIM (REPLACE (ba.prs_bedrijfadres_url, 'mailto:', ''))),
NULL
FROM mld_opdr o,
mld_typeopdr ty,
fac_tracking t,
fac_srtnotificatie sn,
prs_bedrijfadres ba
WHERE o.mld_statusopdr_key = 2
AND o.mld_typeopdr_key = ty.mld_typeopdr_key
AND ty.mld_typeopdr_isofferte = 1
AND o.mld_opdr_key = t.fac_tracking_refkey
AND t.fac_tracking_datum > SYSDATE - 1
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_code = 'ORDONO'
AND o.mld_uitvoerende_keys = ba.prs_bedrijf_key
AND ba.prs_bedrijfadres_type = 'O'
AND UPPER (ba.prs_bedrijfadres_url) NOT LIKE 'FTP%'
AND NOT EXISTS
(SELECT 1
FROM prs_bedrijfadres
WHERE mld_typeopdr_key = o.mld_typeopdr_key
AND prs_bedrijf_key = o.mld_uitvoerende_keys
AND prs_bedrijfadres_key != ba.prs_bedrijfadres_key);
-- MAYF#31598 rapporteren op reminders
CREATE OR REPLACE VIEW MAYF_V_RAP_ORDREMINDERS_DET
(
FCLT_F_BEDRIJF,
FCLT_F_OPDRACHT,
HIDE_F_KEY,
BEGINDATUM,
EINDDATUM,
FCLT_F_OPDRACHT_TYPE,
FCLT_F_STATUS,
VERSTUURD
)
AS
SELECT b.prs_bedrijf_naam,
o.mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr,
o.mld_opdr_key,
o.mld_opdr_datumbegin,
o.mld_opdr_einddatum,
ot.mld_typeopdr_omschrijving,
st.mld_statusopdr_omschrijving,
fac_tracking_datum
FROM fac_tracking ft,
mld_opdr o,
prs_bedrijf b,
mld_typeopdr ot,
mld_statusopdr st,
fac_srtnotificatie srt
WHERE fac_tracking_refkey = mld_opdr_key
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
AND ot.mld_typeopdr_key = o.mld_typeopdr_key
AND st.mld_statusopdr_key = o.mld_statusopdr_key
AND srt.fac_srtnotificatie_key = ft.fac_srtnotificatie_key
AND srt.fac_srtnotificatie_code = 'CUST01';
CREATE OR REPLACE VIEW MAYF_V_RAP_ORDREMINDERS_GRP
(
FCLT_F_BEDRIJF,
FCLT_F_OPDRACHT,
BEGINDATUM,
EINDDATUM,
FCLT_F_OPDRACHT_TYPE,
FCLT_F_STATUS,
AANTAL_REMINDERS,
LAATST_VERSTUURD
)
AS
SELECT FCLT_F_BEDRIJF,
FCLT_F_OPDRACHT,
BEGINDATUM,
EINDDATUM,
FCLT_F_OPDRACHT_TYPE,
FCLT_F_STATUS,
COUNT (HIDE_F_KEY) AANTAL,
MAX (VERSTUURD)
FROM MAYF_V_RAP_ORDREMINDERS_DET
GROUP BY FCLT_F_OPDRACHT,
BEGINDATUM,
EINDDATUM,
FCLT_F_BEDRIJF,
FCLT_F_OPDRACHT_TYPE,
FCLT_F_STATUS;
------ 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

285
NETS/nets.sql
View File

@@ -1,285 +0,0 @@
-- Script containing customer specific configuration sql statements for NETS (Netwerkstad Twente)
-- (c) 2008 Facilitor/Dijkoraad IT bv
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800700
set echo on
SPOOL xNETS.LST
/* Formatted on 29-3-2016 16:45:15 (QP5 v5.136.908.31019) */
CREATE OR REPLACE FORCE VIEW nets_v_noti_cntreminder_rappel
(
code,
sender,
receiver,
text,
key,
xkey
)
AS
SELECT 'CUST01',
NULL,
c.prs_perslid_key_beh,
'Beste ' || p.prs_perslid_voornaam
|| DECODE (p.prs_perslid_tussenvoegsel,
NULL, ' ',
' ' || p.prs_perslid_tussenvoegsel || ' ')
|| p.prs_perslid_naam
|| CHR (13)
|| CHR (13)
|| 'Op '
|| TO_CHAR (c.cnt_contract_looptijd_tot, 'dd-mm-yyyy')
|| ' loopt '
|| c.cnt_contract_nummer_intern
|| ' ('
|| c.cnt_contract_omschrijving
|| ') af. Het is raadzaam hierover contact '
|| CHR (13)
|| 'op te nemen met zowel uw leverancier als uw interne organisatie.'
|| CHR (13)
|| CHR (13)
|| 'Raadpleeg het digitale contract in Facilitor om de vervolgstappen te bepalen.'
|| CHR (13)
|| 'Indien het contract verlengd wordt, zorg er dan voor dat de mutaties en de daarbij behorende '
|| CHR (13)
|| 'documenten digitaal worden vastgelegd in Facilitor.'
|| CHR (13)
|| CHR (13)
|| CHR (13)
|| 'Met vriendelijke groet,'
|| CHR (13)
|| CHR (13)
|| 'Applicatiebeheer Facilitor',
c.cnt_contract_key,
NULL
FROM cnt_v_aanwezigcontract c,
prs_bedrijf b,
prs_perslid p,
prs_v_afdeling_boom ab
WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND c.prs_perslid_key_beh = p.prs_perslid_key
AND p.prs_afdeling_key = ab.prs_afdeling_key
AND ab.prs_afdeling_key1 IN (41, 42, 43) -- Alleen mails naar ALM/ENS/BOR-beh!
AND TRUNC (SYSDATE) = TRUNC (cnt.cnt_getRappeldatum (c.cnt_contract_key))
UNION ALL
SELECT 'CUST01',
NULL,
c.prs_perslid_key_eig,
'Beste ' || p.prs_perslid_voornaam
|| DECODE (p.prs_perslid_tussenvoegsel,
NULL, ' ',
' ' || p.prs_perslid_tussenvoegsel || ' ')
|| p.prs_perslid_naam
|| CHR (13)
|| CHR (13)
|| 'Op '
|| TO_CHAR (c.cnt_contract_looptijd_tot, 'dd-mm-yyyy')
|| ' loopt '
|| c.cnt_contract_nummer_intern
|| ' ('
|| c.cnt_contract_omschrijving
|| ') af. Het is raadzaam hierover contact '
|| CHR (13)
|| 'op te nemen met zowel uw leverancier als uw interne organisatie.'
|| CHR (13)
|| CHR (13)
|| 'Raadpleeg het digitale contract in Facilitor om de vervolgstappen te bepalen.'
|| CHR (13)
|| 'Indien het contract verlengd wordt, zorg er dan voor dat de mutaties en de daarbij behorende '
|| CHR (13)
|| 'documenten digitaal worden vastgelegd in Facilitor.'
|| CHR (13)
|| CHR (13)
|| CHR (13)
|| 'Met vriendelijke groet,'
|| CHR (13)
|| CHR (13)
|| 'Applicatiebeheer Facilitor',
c.cnt_contract_key,
NULL
FROM cnt_v_aanwezigcontract c,
prs_bedrijf b,
prs_perslid p,
prs_v_afdeling_boom ab
WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND c.prs_perslid_key_eig = p.prs_perslid_key
AND p.prs_afdeling_key = ab.prs_afdeling_key
AND ab.prs_afdeling_key1 = 43 -- Alleen mails naar BOR-eig!
AND TRUNC (SYSDATE) = TRUNC (cnt.cnt_getRappeldatum (c.cnt_contract_key));
-- Staan er bij contracten gesprekken gepland?
-- Zo ja, wanneer staat het eerste, tweede en derde gesprek gepland?
CREATE OR REPLACE FORCE VIEW nets_v_noti_gesprek_tekst
AS
SELECT k.cnt_srtkenmerk_key, kc.cnt_contract_key, kc.cnt_kenmerkcontract_waarde
FROM cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
WHERE sk.cnt_srtkenmerk_key in (111,112,113)
AND kc.cnt_kenmerkcontract_verwijder is null
AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key;
-- Zijn er bij contracten gesprekken geweest?
CREATE OR REPLACE FORCE VIEW nets_v_noti_gesprek_ja
AS
SELECT 111 cnt_srtkenmerk_key, kc.cnt_contract_key
FROM cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
WHERE sk.cnt_srtkenmerk_key = 114 -- 'Eerste gesprek geweest'
AND kc.cnt_kenmerkcontract_verwijder is null
AND kc.cnt_kenmerkcontract_waarde = '21' -- 'Ja'
AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key
UNION ALL
SELECT 112 cnt_srtkenmerk_key, kc.cnt_contract_key
FROM cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
WHERE sk.cnt_srtkenmerk_key = 115 -- 'Tweede gesprek geweest'
AND kc.cnt_kenmerkcontract_verwijder is null
AND kc.cnt_kenmerkcontract_waarde = '21' -- 'Ja'
AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key
UNION ALL
SELECT 113 cnt_srtkenmerk_key, kc.cnt_contract_key
FROM cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc
WHERE sk.cnt_srtkenmerk_key = 116 -- 'Derde gesprek geweest'
AND kc.cnt_kenmerkcontract_verwijder is null
AND kc.cnt_kenmerkcontract_waarde = '21' -- 'Ja'
AND sk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key
AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key;
-- Contractgesprekken die staan gepland tussen nu en 8 weken (7*8 dagen) in de toekomst.
/* Formatted on 29-3-2016 16:58:02 (QP5 v5.136.908.31019) */
CREATE OR REPLACE FORCE VIEW nets_v_noti_cntreminder_gespr
(
code,
sender,
receiver,
text,
key,
xkey
)
AS
SELECT 'CUST02',
NULL,
c.prs_perslid_key_beh,
'Beste ' || p.prs_perslid_voornaam
|| DECODE (p.prs_perslid_tussenvoegsel,
NULL, ' ',
' ' || p.prs_perslid_tussenvoegsel || ' ')
|| p.prs_perslid_naam
|| CHR (13)
|| CHR (13)
|| 'U bent beheerder van contract '
|| c.cnt_contract_nummer_intern
|| ' ('
|| c.cnt_contract_omschrijving
|| '). Met uw leverancier is'
|| CHR (13)
|| 'overeengekomen dat u (tussentijds) gaat evalueren. '
|| CHR (13)
|| CHR (13)
|| CHR (13)
|| 'Onderneem de volgende acties:'
|| CHR (13)
|| CHR (13)
|| '- Interne evaluatie;'
|| CHR (13)
|| '- Afspraak leverancier.'
|| CHR (13)
|| CHR (13)
|| 'Wilt u dit realiseren voor '
|| g.cnt_kenmerkcontract_waarde
|| '.'
|| CHR (13)
|| 'Zorg ervoor dat het (tussentijdse) evaluatieverslag digitaal vastgelegd wordt in het dossier van Facilitor.'
|| CHR (13)
|| CHR (13)
|| CHR (13)
|| 'Met vriendelijke groet,'
|| CHR (13)
|| CHR (13)
|| 'Applicatiebeheer Facilitor',
c.cnt_contract_key,
NULL
FROM cnt_v_aanwezigcontract c,
prs_perslid p,
prs_v_afdeling_boom ab,
nets_v_noti_gesprek_tekst g
WHERE c.prs_perslid_key_beh = p.prs_perslid_key
AND p.prs_afdeling_key = ab.prs_afdeling_key
AND ab.prs_afdeling_key1 IN (41, 42, 43) -- Alleen mails naar ALM/ENS/BOR-beh!
AND c.cnt_contract_key = g.cnt_contract_key
AND TRUNC (SYSDATE + (7 * 8)) = TRUNC(fac.safe_to_date (g.cnt_kenmerkcontract_waarde, 'dd-mm-yyyy'))
AND NOT EXISTS
(SELECT 'x'
FROM nets_v_noti_gesprek_ja x
WHERE x.cnt_srtkenmerk_key = g.cnt_srtkenmerk_key
AND x.cnt_contract_key = g.cnt_contract_key)
UNION ALL
SELECT 'CUST02',
NULL,
c.prs_perslid_key_eig,
'Beste ' || p.prs_perslid_voornaam
|| DECODE (p.prs_perslid_tussenvoegsel,
NULL, ' ',
' ' || p.prs_perslid_tussenvoegsel || ' ')
|| p.prs_perslid_naam
|| CHR (13)
|| CHR (13)
|| 'U bent beheerder van contract '
|| c.cnt_contract_nummer_intern
|| ' ('
|| c.cnt_contract_omschrijving
|| '). Met uw leverancier is'
|| CHR (13)
|| 'overeengekomen dat u (tussentijds) gaat evalueren. '
|| CHR (13)
|| CHR (13)
|| CHR (13)
|| 'Onderneem de volgende acties:'
|| CHR (13)
|| CHR (13)
|| '- Interne evaluatie;'
|| CHR (13)
|| '- Afspraak leverancier.'
|| CHR (13)
|| CHR (13)
|| 'Wilt u dit realiseren voor '
|| g.cnt_kenmerkcontract_waarde
|| '.'
|| CHR (13)
|| 'Zorg ervoor dat het (tussentijdse) evaluatieverslag digitaal vastgelegd wordt in het dossier van Facilitor.'
|| CHR (13)
|| CHR (13)
|| CHR (13)
|| 'Met vriendelijke groet,'
|| CHR (13)
|| CHR (13)
|| 'Applicatiebeheer Facilitor',
c.cnt_contract_key,
NULL
FROM cnt_v_aanwezigcontract c,
prs_perslid p,
prs_v_afdeling_boom ab,
nets_v_noti_gesprek_tekst g
WHERE c.prs_perslid_key_beh = p.prs_perslid_key
AND p.prs_afdeling_key = ab.prs_afdeling_key
AND ab.prs_afdeling_key1 = 43 -- Alleen mails naar BOR-eig!
AND c.cnt_contract_key = g.cnt_contract_key
AND TRUNC (SYSDATE + (7 * 8)) = TRUNC(fac.safe_to_date (g.cnt_kenmerkcontract_waarde, 'dd-mm-yyyy'))
AND NOT EXISTS
(SELECT 'x'
FROM nets_v_noti_gesprek_ja x
WHERE x.cnt_srtkenmerk_key = g.cnt_srtkenmerk_key
AND x.cnt_contract_key = g.cnt_contract_key);
BEGIN fac.registercustversion('NETS', 4); END;
/
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
COMMIT;
SPOOL OFF

1644
NFIT/nfit.sql
View File

File diff suppressed because it is too large Load Diff