admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
16e0ed6ca292d3280bb7e7f007f5eff2d5f8e4b2
Customer/BLOS/blos.sql
Jos Migo 16e0ed6ca2 BLOS#74763 -- kalenderfunctie voor backoffice en uitstaande TD-opdrachten 
svn path=/Customer/trunk/; revision=60530
2023-05-26 09:29:28 +00:00

1799 lines
71 KiB
SQL
Raw Blame History

--
-- $Id$
--
-- Script containing customer specific db-configuration for BLOS.
DEFINE thisfile = 'BLOS.SQL'
DEFINE dbuser = '^BLOS'
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 ------
-- Mail2Melding - Basis uit SVRZ overgenomen:
-- - SERVICEDESK -: key=1=Melding via mail - Nog te rubriceren (servicedesk@blos.facilitor-test.nl)
CREATE OR REPLACE PROCEDURE BLOS_processemail (
pfrom IN VARCHAR2,
pto IN VARCHAR2,
psubject IN VARCHAR2,
pbody IN VARCHAR2,
psessionid IN VARCHAR2,
pemailkey IN NUMBER)
AS
c_onbekend_key NUMBER (10) := 221; -- Melder onbekend
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_exist_ticket VARCHAR2 (255) := '';
v_perslid_key NUMBER (10);
v_kostenplaats_key NUMBER (10);
v_locatie_key NUMBER (10);
v_discipline_key NUMBER (10);
v_stdmelding_key NUMBER (10);
v_melding_key NUMBER (10);
v_folder_kkey NUMBER (10);
v_count NUMBER (10);
v_count_wp NUMBER (10);
BEGIN
CASE
WHEN UPPER (pto) LIKE 'SERVICEDESK@%'
THEN
-- Bepaal de melder/noteur op basis van e-mail adres zoals in pfrom?
----- Voor BLOS nog inpassen = KOSTENPLAATS van het GEBOUW!!!!
v_errormsg := 'Fout bepalen melder ' || COALESCE (pfrom, '???');
SELECT COUNT (*), max(prs_perslid_key)
INTO v_count, v_perslid_key
FROM prs_v_aanwezigperslid
WHERE UPPER (prs_perslid_email) LIKE UPPER (pfrom) || '%';
-- Als er persoon gevonden is, dan ff checken of er ook werkplekkoppelingen onder zijn aangemaakt
IF v_count = 1
THEN
SELECT COUNT (*)
INTO v_count_wp
FROM prs_perslidwerkplek
WHERE prs_perslid_key = v_perslid_key;
END IF;
IF v_count = 1 AND v_count_wp > 0
THEN
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, MIN (wpg.alg_locatie_key)
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
FROM prs_v_aanwezigperslid p, prs_afdeling a,
(SELECT pw.prs_perslid_key, pw.prs_werkplek_key
FROM prs_perslidwerkplek pw
WHERE NOT EXISTS
(SELECT 1
FROM prs_perslidwerkplek
WHERE prs_perslid_key = pw.prs_perslid_key
AND prs_perslidwerkplek_key > pw.prs_perslidwerkplek_key)) pw,
prs_v_werkplekperslid_gegevens wpg
WHERE p.prs_afdeling_key = a.prs_afdeling_key
AND UPPER (p.prs_perslid_email) LIKE UPPER (pfrom) || '%'
AND p.prs_perslid_key = pw.prs_perslid_key(+)
AND pw.prs_werkplek_key = wpg.prs_werkplek_key(+)
GROUP BY p.prs_perslid_key, a.prs_kostenplaats_key;
ELSE -- Melder + Werkplek kan niet 1-duidig worden bepaald, dus Onbekend en 21= Iepenhoeve Hoofdkantoor!
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 36
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
FROM prs_v_aanwezigperslid p, prs_afdeling a
WHERE p.prs_afdeling_key = a.prs_afdeling_key
AND p.prs_perslid_key = c_onbekend_key;
END IF;
/*
v_errormsg := 'Fout bepalen bestaande melding';
v_exist_ticket := psubject;
IF REGEXP_INSTR (v_exist_ticket, '\d') > 0
THEN
v_exist_ticket := SUBSTR (v_exist_ticket, REGEXP_INSTR (v_exist_ticket, '\d')) || 'x'; -- Gedeelte vanaf eerste cijfer in v_exist_ticket plus 'x'!
v_exist_ticket := SUBSTR (v_exist_ticket, 1, REGEXP_INSTR (v_exist_ticket, '\D') - 1); -- Gedeelte tot eerste niet-cijfer in v_exist_ticket!
ELSE
v_exist_ticket := 'x';
END IF;
SELECT COUNT (*)
INTO v_count
FROM mld_melding
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
-- Om te voorkomen dat huisnummers in het Onderwerp resulteren in het
-- toevoegen van Notities, dit alleen doen voor nummers > 16000!
IF v_count = 1 AND fac.safe_to_number (v_exist_ticket) > 16000
THEN -- Notitie bij bestaande melding!
SELECT mld_stdmelding_key, mld_melding_key
INTO v_stdmelding_key, v_melding_key
FROM mld_melding
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
v_errormsg := 'Fout toevoegen notitie';
INSERT INTO mld_melding_note (mld_melding_key,
prs_perslid_key,
mld_melding_note_omschrijving,
mld_melding_note_flag)
VALUES (v_melding_key,
v_perslid_key,
pfrom || CHR (13) || CHR (10) || psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
0);
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'maillog', 'Notitie onder exist-melding ' || v_melding_key);
-- Vlaggetjes zetten zoals mld_edit_note.asp dat doet!
IF fac.getsetting ('mld_melding_actiecode') = 1
THEN
UPDATE mld_melding
SET mld_melding_actiecode = 1 + 128 -- BO + Attentie
WHERE mld_melding_key = v_melding_key;
END IF;
ELSE -- Nieuwe melding!
*/
-- Bepaal de afgesproken soortmelding met key=1=Melding via mail - Nog te rubriceren
v_errormsg := 'Fout bepalen soortmelding';
SELECT mld_ins_discipline_key, mld_stdmelding_key
INTO v_discipline_key, v_stdmelding_key
FROM mld_stdmelding
WHERE mld_stdmelding_key = 1;
-- Suggested extensions:
-- - Check for MLDUSE-write autorisations
-- - Parse the subject to find the appropriate stdmelding, if uniquely possible
-- - Append (as a note?) to an existing melding if #key is found in the subject
v_errormsg := 'Fout toevoegen melding';
INSERT INTO mld_melding (mld_melding_module,
mld_meldbron_key,
mld_alg_locatie_key,
mld_alg_onroerendgoed_keys,
mld_melding_datum,
mld_melding_omschrijving,
mld_stdmelding_key,
mld_melding_t_uitvoertijd,
prs_kostenplaats_key,
prs_perslid_key,
prs_perslid_key_voor,
mld_melding_status,
mld_melding_spoed,
mld_melding_onderwerp,
mld_melding_behandelaar2_key,
mld_ins_discipline_key)
VALUES ('MLD',
4, -- email
v_locatie_key,
NULL, --v_onrgoed_keys,
SYSDATE,
pfrom || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
v_stdmelding_key,
NULL,
v_kostenplaats_key,
v_perslid_key,
v_perslid_key,
NULL,
3, -- prio normaal
SUBSTR (psubject, 1, 80),
NULL,
NULL) -- BT Helpdesk I+A
RETURNING mld_melding_key
INTO v_melding_key;
mld.setmeldingstatus (v_melding_key, 2, v_perslid_key);
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || v_melding_key);
/*
END IF;
*/
-- Find the lowest volgnummer of the Folder-flexfield.
SELECT MIN (k1.mld_kenmerk_key)
INTO v_folder_kkey
FROM mld_stdmelding sm1, ins_tab_discipline td1, mld_kenmerk k1, mld_srtkenmerk sk1
WHERE sm1.mld_stdmelding_key = v_stdmelding_key
AND sm1.mld_ins_discipline_key = td1.ins_discipline_key
AND k1.mld_kenmerk_verwijder IS NULL
AND k1.mld_srtkenmerk_key = sk1.mld_srtkenmerk_key
AND sk1.mld_srtkenmerk_kenmerktype = 'M'
AND ((k1.mld_stdmelding_key = sm1.mld_stdmelding_key AND k1.mld_kenmerk_niveau = 'S')
OR (k1.mld_stdmelding_key = td1.ins_discipline_key AND k1.mld_kenmerk_niveau = 'D')
OR (k1.mld_stdmelding_key = td1.ins_srtdiscipline_key AND k1.mld_kenmerk_niveau = 'T')
OR (k1.mld_kenmerk_niveau = 'A')
)
AND NOT EXISTS
(SELECT 1
FROM mld_stdmelding sm2, ins_tab_discipline td2, mld_kenmerk k2, mld_srtkenmerk sk2
WHERE sm2.mld_stdmelding_key = v_stdmelding_key
AND sm2.mld_ins_discipline_key = td2.ins_discipline_key
AND k2.mld_kenmerk_verwijder IS NULL
AND k2.mld_srtkenmerk_key = sk2.mld_srtkenmerk_key
AND sk2.mld_srtkenmerk_kenmerktype = 'M'
AND ((k2.mld_stdmelding_key = sm2.mld_stdmelding_key AND k2.mld_kenmerk_niveau = 'S')
OR (k2.mld_stdmelding_key = td2.ins_discipline_key AND k2.mld_kenmerk_niveau = 'D')
OR (k2.mld_stdmelding_key = td2.ins_srtdiscipline_key AND k2.mld_kenmerk_niveau = 'T')
OR (k1.mld_kenmerk_niveau = 'A')
)
AND k2.mld_kenmerk_volgnummer < k1.mld_kenmerk_volgnummer);
IF v_folder_kkey IS NOT NULL
THEN
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'kenmerkpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key / 1000), 'FM0000') || '___\M' || v_melding_key || '\' || v_folder_kkey || '\');
END IF;
ELSE
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'errormsg', 'Ontvanger ongeldig - Neem contact op met uw systeembeheerder ');
END CASE;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('PROCESSEMAIL', 'E', 'BLOS_processemail afgebroken!', '[' || pfrom || '] ' || v_errormsg);
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder ');
COMMIT;
END;
/
-- Hulpview: Alle locaties die bij een bepaald CLUSTER horen
CREATE OR REPLACE VIEW blos_v_cluster_locaties
(
ALG_LOCATIE_KEY,
ALG_LOCATIE_CODE,
ALG_LOCATIE_OMSCHRIJVING,
CLUSTER_DISTRICT_CODE, -- Districtsniveau
CLUSTER_LABEL_CODE, -- Locatieniveau - Het (oorspronkelijke) label
TYPE_LOCATIE,
RUIMTE_KEY,
VERVALDATUM
)
AS
SELECT l.alg_locatie_key,
l.alg_locatie_code,
l.alg_locatie_omschrijving,
UPPER(d.alg_district_omschrijving),
(SELECT ud.fac_usrdata_upper
FROM alg_onrgoedkenmerk km, fac_usrdata ud
WHERE km.alg_onrgoed_key = l.alg_locatie_key
AND km.alg_onrgoed_niveau = 'L'
AND km.alg_kenmerk_key = 1000 -- Cluster Label (oorspronkelijk)
AND km.alg_onrgoedkenmerk_verwijder IS NULL
AND fac.safe_to_number (km.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = 1)
AS cluster_label_code,
(SELECT ud.fac_usrdata_upper
FROM alg_onrgoedkenmerk km, fac_usrdata ud
WHERE km.alg_onrgoed_key = l.alg_locatie_key
AND km.alg_onrgoed_niveau = 'L'
AND km.alg_kenmerk_key = 1002 -- type_opvang/locatie
AND km.alg_onrgoedkenmerk_verwijder IS NULL
AND fac.safe_to_number (km.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = 2)
AS type_locatie,
(SELECT min(alg_ruimte_key)
FROM alg_v_allonrgoed_gegevens v
WHERE v.alg_locatie_key = l.alg_locatie_key and v.alg_type ='R')
AS ruimte_key,
l.alg_locatie_vervaldatum
vervaldatum
FROM alg_locatie l, alg_district d
WHERE l.alg_locatie_verwijder IS NULL AND l.alg_district_key = d.alg_district_key
AND COALESCE(trunc(l.alg_locatie_vervaldatum),trunc(sysdate)+1) > trunc(sysdate) ;
-- Hulpview Personen - Alle locatiemanagers/personen met werkplekkoppelingen
-- NIEUWE opzet van de werkplekkoppeling - Aansturing via PERSONENKAART (zie ticket BLOS#68339).
--- Toelichting:
---- Je hebt LABELS op Locatieniveau + Op Districts-niveau
---- Niveau 1 = Kenmerk PRS => Te koppelen met NAAM label uit Eigen Tabel
---- Niveau 2 = Kenmerk PRS => Te koppelen met CODE/NAAM uit Districtstabel
CREATE OR REPLACE VIEW blos_v_cluster_personen_1
(
NIVEAU,
PRS_PERSLID_KEY,
PRS_PERSLID_VOLLEDIGENAAM,
PRS_KENMERK_UPPER,
CLUSTER_WP
)
AS
SELECT '1 - locatie',
p.prs_perslid_key,
p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam,
k.prs_kenmerk_upper,
v.cluster_label_code -- uit eigen tabel
cluster_wp
FROM prs_perslid p,
prs_kenmerklink kl,
prs_kenmerk k,
(SELECT UPPER (ud.fac_usrdata_omschr) cluster_label, ud.fac_usrdata_code cluster_label_code,
ud.fac_usrdata_vervaldatum
FROM fac_usrtab ut, fac_usrdata ud
WHERE ut.fac_usrtab_key = ud.fac_usrtab_key
AND ut.fac_usrtab_key = 1
AND fac_usrdata_verwijder IS NULL) v
WHERE p.prs_perslid_key = kl.prs_link_key AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND kl.prs_kenmerk_key = k.prs_kenmerk_key
AND k.prs_kenmerk_verwijder IS NULL
AND p.prs_perslid_verwijder IS NULL
AND k.prs_kenmerk_upper = v.cluster_label -- Koppeling op Clusternaam
AND NOT EXISTS (SELECT 1 FROM blos_v_cluster_locaties WHERE k.prs_kenmerk_upper = cluster_district_code GROUP BY cluster_district_code)
UNION
SELECT '2 - district',
p.prs_perslid_key,
p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam,
k.prs_kenmerk_upper,
v.cluster_district_code
cluster_wp
FROM prs_perslid p,
prs_kenmerklink kl,
prs_kenmerk k,
(SELECT cluster_district_code, COUNT (*)
FROM blos_v_cluster_locaties
GROUP BY cluster_district_code) v
WHERE p.prs_perslid_key = kl.prs_link_key AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND kl.prs_kenmerk_key = k.prs_kenmerk_key
AND k.prs_kenmerk_verwijder IS NULL
AND p.prs_perslid_verwijder IS NULL
AND k.prs_kenmerk_upper = v.cluster_district_code -- Koppeling op Districtnaam/code
;
CREATE OR REPLACE VIEW blos_v_cluster_personen_2
(
PRS_PERSLID_KEY,
ALG_LOCATIE_KEY
)
AS
SELECT p.prs_perslid_key, l.alg_locatie_key
FROM blos_v_cluster_personen_1 p, blos_v_cluster_locaties l
WHERE p.niveau = '1 - locatie' AND p.cluster_wp = l.cluster_label_code
UNION
SELECT p.prs_perslid_key, l.alg_locatie_key
FROM blos_v_cluster_personen_1 p, blos_v_cluster_locaties l
WHERE p.niveau = '2 - district'
AND p.cluster_wp = l.cluster_district_code ;
-- BRONVIEW: Alle locaties met haar kostenplaats(en)
CREATE OR REPLACE VIEW blos_v_locaties_kp
(
alg_locatie_key,
alg_locatie_omschrijving,
prs_kostenplaats_key,
prs_kostenplaats_nr,
prs_kostenplaats_eind,
prs_kostenplaats_verwijder
)
AS
SELECT alg_locatie_key,
alg_locatie_omschrijving,
kw.alg_onrgoedkenmerk_waarde prs_kostenplaats_key,
prs_kostenplaats_nr,
prs_kostenplaats_eind,
prs_kostenplaats_verwijder
FROM alg_locatie l, alg_onrgoedkenmerk kw, prs_kostenplaats kp
WHERE kw.alg_onrgoed_key = l.alg_locatie_key
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
kp.prs_kostenplaats_key
AND alg_onrgoed_niveau = 'L'
AND kw.alg_kenmerk_key = 1140 -- kostenplaats-1
UNION
SELECT alg_locatie_key,
alg_locatie_omschrijving,
kw.alg_onrgoedkenmerk_waarde prs_kostenplaats_key,
prs_kostenplaats_nr,
prs_kostenplaats_eind,
prs_kostenplaats_verwijder
FROM alg_locatie l, alg_onrgoedkenmerk kw, prs_kostenplaats kp
WHERE kw.alg_onrgoed_key = l.alg_locatie_key
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
kp.prs_kostenplaats_key
AND alg_onrgoed_niveau = 'L'
AND kw.alg_kenmerk_key = 1141 -- kostenplaats-2
UNION
SELECT alg_locatie_key,
alg_locatie_omschrijving,
kw.alg_onrgoedkenmerk_waarde prs_kostenplaats_key,
prs_kostenplaats_nr,
prs_kostenplaats_eind,
prs_kostenplaats_verwijder
FROM alg_locatie l, alg_onrgoedkenmerk kw, prs_kostenplaats kp
WHERE kw.alg_onrgoed_key = l.alg_locatie_key
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
kp.prs_kostenplaats_key
AND alg_onrgoed_niveau = 'L'
AND kw.alg_kenmerk_key = 1142 -- kostenplaats-3
;
-- BRONVIEW: Alle werkplek-koppeling per locatiemanager en de kp's die daarbij vanuit locatiekaart bijhoren
CREATE OR REPLACE VIEW blos_v_locaties_wp_kp
(
prs_perslid_key,
prs_perslid_naam,
prs_srtperslid_omschrijving,
prs_perslidwerkplek_key,
alg_locatie_omschrijving,
alg_locatie_key,
prs_kostenplaats_key,
prs_kostenplaats_nr
)
AS
SELECT v.prs_perslid_key,
p.prs_perslid_naam,
sp.prs_srtperslid_omschrijving,
v.prs_perslidwerkplek_key,
l.alg_locatie_omschrijving,
lkp.alg_locatie_key,
lkp.prs_kostenplaats_key,
lkp.prs_kostenplaats_nr
FROM prs_v_werkplekperslid_gegevens v,
alg_locatie l,
prs_perslid p,
prs_srtperslid sp,
blos_v_locaties_kp lkp
WHERE v.prs_perslid_key = p.prs_perslid_key
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
AND v.alg_locatie_key = l.alg_locatie_key
AND v.alg_locatie_key = lkp.alg_locatie_key(+)
AND prs_srtperslid_upper = 'LOCATIEMANAGER';
--- DE PROCEDURE om voor de Locatiemanagers van de CLUSTERS de juiste CLUSTER-LOCATIES te koppelen als werkplek
CREATE OR REPLACE VIEW blos_v_export_wpcluster
(
result,
result_order
)
AS
SELECT '"SYNC - Werkplekkoppeling en Mandaten"'
|| ';"Uitgevoerd"',
0
FROM DUAL ;
CREATE OR REPLACE PROCEDURE blos_select_wpcluster (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
AS
-- Werkplekkoppelingen toevoegen
CURSOR c_nieuw
IS
SELECT p.prs_perslid_key,
p.alg_locatie_key,
l.alg_locatie_code,
l.cluster_label_code,
l.cluster_district_code
FROM blos_v_cluster_personen_2 p, blos_v_cluster_locaties l
WHERE p.alg_locatie_key = l.alg_locatie_key
AND NOT EXISTS
(SELECT v.alg_locatie_key
FROM prs_perslidwerkplek wp,
prs_v_werkplekafdeling_geg v
WHERE wp.prs_perslidwerkplek_key =
v.prs_perslidwerkplek_key
AND wp.prs_perslid_key = p.prs_perslid_key
AND v.alg_locatie_key = p.alg_locatie_key);
-- Werkplekkoppelingen verwijderen
CURSOR c_del
IS
SELECT b.prs_perslid_key,
b.alg_locatie_key,
b.prs_perslidwerkplek_key,
COALESCE (l.alg_locatie_code,
'Vervallen locactie ' || loc.alg_locatie_code)
alg_locatie_code,
l.cluster_label_code,
l.cluster_district_code
FROM (SELECT wp.prs_perslid_key,
v.alg_locatie_key,
wp.prs_perslidwerkplek_key,
v.prs_werkplek_key,
v.prs_werkplek_volgnr,
v.alg_ruimte_key
FROM prs_perslidwerkplek wp, prs_v_werkplekafdeling_geg v
WHERE wp.prs_perslidwerkplek_key = v.prs_perslidwerkplek_key)
b,
blos_v_cluster_locaties l,
alg_locatie loc
WHERE b.alg_locatie_key = l.alg_locatie_key(+)
AND b.alg_locatie_key = loc.alg_locatie_key
AND NOT EXISTS
(SELECT l.alg_locatie_key
FROM blos_v_cluster_personen_2 l
WHERE l.prs_perslid_key = b.prs_perslid_key
AND l.alg_locatie_key = b.alg_locatie_key);
-- Mandaten toevoegen
CURSOR m_nieuw
IS
SELECT v.prs_perslid_key,
v.prs_perslid_naam,
v.alg_locatie_omschrijving,
v.prs_kostenplaats_key,
kp.prs_kostenplaats_nr
FROM blos_v_locaties_wp_kp v, prs_kostenplaats kp
WHERE v.prs_kostenplaats_key = kp.prs_kostenplaats_key
AND v.prs_kostenplaats_key NOT IN
(SELECT prs_kostenplaats_key
FROM prs_perslidkostenplaats pkp
WHERE pkp.prs_perslid_key = v.prs_perslid_key)
ORDER BY 1,
2,
3,
4;
-- Mandaten verwijderen
CURSOR m_del
IS
SELECT pkp.prs_perslidkostenplaats_key,
pkp.prs_perslid_key,
p.prs_perslid_naam,
pkp.prs_kostenplaats_key,
kp.prs_kostenplaats_nr
FROM prs_perslidkostenplaats pkp,
prs_kostenplaats kp,
prs_perslid p
WHERE pkp.prs_kostenplaats_key = kp.prs_kostenplaats_key
AND p.prs_perslid_key = pkp.prs_perslid_key
AND pkp.prs_kostenplaats_key NOT IN
(SELECT v.prs_kostenplaats_key
FROM blos_v_locaties_wp_kp v
WHERE v.prs_kostenplaats_key IS NOT NULL
AND v.prs_perslid_key = pkp.prs_perslid_key)
ORDER BY 1, 2, 3;
v_ruimte_key NUMBER;
v_prs_werkplek_volgnr NUMBER;
v_prs_werkplek_key NUMBER;
v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000);
oracle_err_mes VARCHAR2 (200);
oracle_err_num NUMBER;
currentversion fac_module.fac_module_version%TYPE;
v_aanduiding VARCHAR2 (1000);
v_count NUMBER;
BEGIN
v_count := 0;
FOR rec IN c_nieuw
LOOP
v_aanduiding :=
'Werkplekkoppeling: '
|| rec.alg_locatie_code
|| ' ('
|| rec.cluster_label_code
|| ' - '
|| rec.cluster_district_code
|| ')';
v_errormsg := 'Fout bij aanmaken werkplekkoppeling';
-- Ruimte_key ophalen van desbetreffende locatie_keten
SELECT MIN (alg_ruimte_key)
INTO v_ruimte_key
FROM alg_v_allonrgoed_gegevens v
WHERE v.alg_locatie_key = rec.alg_locatie_key AND v.alg_type = 'R';
IF v_ruimte_key IS NULL
THEN
fac.writelog (p_applname,
'W',
v_errormsg || ' Locatie wordt overgeslagen:',
v_aanduiding);
END IF;
v_errorhint :=
'INSERT clusterkoppeling bij persoon: '
|| rec.alg_locatie_code
|| ' / '
|| rec.prs_perslid_key;
IF v_ruimte_key IS NOT NULL
THEN
-- Volgnr werkplek
SELECT COALESCE (MIN (prs_werkplek_volgnr + 1), 1)
INTO v_prs_werkplek_volgnr
FROM prs_werkplek pw
WHERE prs_alg_ruimte_key = v_ruimte_key
AND NOT EXISTS
(SELECT *
FROM prs_werkplek pw2
WHERE prs_alg_ruimte_key = v_ruimte_key
AND pw2.prs_werkplek_volgnr =
pw.prs_werkplek_volgnr + 1);
INSERT INTO prs_werkplek w (prs_werkplek_volgnr,
prs_werkplek_omschrijving,
prs_alg_ruimte_key,
prs_werkplek_virtueel)
SELECT v_prs_werkplek_volgnr,
alg_ruimte_nr || '/1',
v_ruimte_key,
1
FROM alg_ruimte
WHERE alg_ruimte_key = v_ruimte_key;
SELECT prs_werkplek_key
INTO v_prs_werkplek_key
FROM prs_werkplek
WHERE prs_alg_ruimte_key = v_ruimte_key
AND prs_werkplek_volgnr = v_prs_werkplek_volgnr;
INSERT INTO prs_perslidwerkplek (prs_perslidwerkplek_bezetting,
prs_perslidwerkplek_volgnr,
prs_werkplek_key,
prs_perslid_key) -- prs_perslidwerkplek_key)
VALUES (100,
NULL,
v_prs_werkplek_key,
rec.prs_perslid_key);
fac.trackaction ('PRSUPD',
rec.prs_perslid_key,
3,
SYSDATE,
v_aanduiding);
END IF;
END LOOP;
FOR rec IN c_del
LOOP
v_aanduiding :=
'Werkplekkoppeling verwijderen - betreft: '
|| rec.alg_locatie_code
|| ' ('
|| rec.cluster_label_code
|| ' - '
|| rec.cluster_district_code
|| ')';
v_errorhint := 'werkplekkoppeling verwijderen';
DELETE FROM prs_werkplek
WHERE prs_werkplek_key IN
(SELECT prs_werkplek_key
FROM prs_perslidwerkplek
WHERE prs_perslidwerkplek_key =
rec.prs_perslidwerkplek_key);
DELETE FROM prs_perslidwerkplek
WHERE prs_perslidwerkplek_key = rec.prs_perslidwerkplek_key;
fac.trackaction ('PRSUPD',
rec.prs_perslid_key,
3,
SYSDATE,
v_aanduiding);
END LOOP;
FOR rec IN m_nieuw
LOOP
BEGIN
v_aanduiding :=
'Mandaat: '
|| rec.prs_perslid_naam
|| ' op kostenplaats '
|| rec.prs_kostenplaats_nr;
v_errormsg := 'Fout bij aanmaken mandaat';
INSERT INTO prs_perslidkostenplaats (
prs_perslidkostenplaats_boeken,
prs_perslidkostenplaats_inzage,
prs_perslid_key,
prs_kostenplaats_key)
VALUES (1,
1,
rec.prs_perslid_key,
rec.prs_kostenplaats_key);
END;
END LOOP;
FOR rec IN m_del
LOOP
BEGIN
v_aanduiding :=
'Mandaat '
|| rec.prs_kostenplaats_nr
|| ' verwijdern voor persoon '
|| rec.prs_perslid_naam;
v_errormsg := 'Fout bij verwijderen mandaat';
DELETE FROM prs_perslidkostenplaats
WHERE prs_perslidkostenplaats_key =
rec.prs_perslidkostenplaats_key;
END;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes;
fac.writelog (p_applname,
'E',
v_errormsg,
v_errorhint);
END;
/
CREATE OR REPLACE PROCEDURE blos_import_perslid (p_import_key IN NUMBER)
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
v_aantal_in_fclt NUMBER;
-- overige variabelen
v_prs_afdeling_key1 NUMBER(10);
v_prs_afdeling_upper2 VARCHAR2(15);
c_prs_afdeling_key NUMBER(10) := 251 ; -- Fallback-afdeling 'ONBEKEND'
v_alg_locatie_key NUMBER(10);
v_alg_locatie_afas VARCHAR(60);
v_alg_locatie_code VARCHAR2(10);
v_alg_gebouw_key NUMBER(10);
v_alg_gebouw_code VARCHAR2(12);
v_alg_verdieping_key NUMBER(10);
v_alg_verdieping_volgnr NUMBER(3);
v_alg_ruimte_key NUMBER(10);
v_alg_ruimte_nr VARCHAR2(20);
CURSOR c_email
IS
SELECT fac_imp_file_index, p.prs_perslid_key, p.prs_perslid_email
FROM fac_imp_perslid i, prs_perslid p
WHERE fac_import_key = p_import_key
AND i.prs_perslid_nr = p.prs_perslid_nr AND p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_email IS NOT NULL
ORDER BY 1 ;
CURSOR c_login
IS
SELECT fac_imp_file_index, p.prs_perslid_key, p.prs_perslid_oslogin
FROM fac_imp_perslid i, prs_perslid p
WHERE fac_import_key = p_import_key
AND i.prs_perslid_nr = p.prs_perslid_nr AND p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_oslogin IS NOT NULL
ORDER BY 1 ;
CURSOR c_afd
IS
SELECT fac_imp_file_index, prs_kenmerk3, prs_srtperslid_omschrijving
FROM fac_imp_perslid
WHERE fac_import_key = p_import_key ;
CURSOR c_loc
IS
SELECT fac_imp_file_index, prs_kenmerk2
FROM fac_imp_perslid
WHERE fac_import_key = p_import_key ;
BEGIN
-- Het aangeleverde bestand heeft de gegevens komma gescheiden ipv ;
v_errorhint := 'Delimiter goed zetten';
-- UPDATE fac_imp_file
-- SET fac_imp_file_line = REPLACE (fac_imp_file_line, ',', ';')
-- WHERE fac_import_key = p_import_key;
-- Het aangeleverde bestand heeft aanhalingstekens om de invoervelden..
-- UPDATE fac_imp_file
-- SET fac_imp_file_line = REPLACE (fac_imp_file_line, '"', '')
-- WHERE fac_import_key = p_import_key;
v_errorhint := 'Generieke update';
-- De sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid procedure
---
prs.import_perslid (
p_import_key,
'0;0;0;0;0;0;1;2;0;0;'
|| '0;0;0;0;0;0;4;3;0;1;'
|| '7;0;0;0;0;0;2;5;6;0;'
|| '0;0;0;0;0;0;0;0;0;0;'
|| '0;0;0;0;0;0',
'Personeelsnummer;Naam;Mail werk;Telnr. werk;Kostenplaats omschrijving;Werkgever;Functie omschrijving%');
-- 1 2 3 4 5 6 7
-- BESTAND BIJ BLOS: Personeelsnummer;Naam;Mail werk;Telnr. werk;Kostenplaats omschrijving;Werkgever;Functie omschrijving
v_errorhint := 'Functie goed vullen';
-- Functie is niet altijd gevuld, eerst gevuld met Persoonsnr, nu vullen met kenmerk1 (of 'Onbekend').
/*
UPDATE fac_imp_perslid
SET prs_srtperslid_omschrijving =
DECODE (prs_kenmerk1, NULL, 'Onbekend', prs_kenmerk1);
*/
v_errorhint := 'Bestaande EMAIL uit Facilitor handhaven';
-- Facilitor is leading qua emailadressen. => OPEN: Uiteindelijk via IT-objecten vullen/sturen
FOR rec IN c_email
LOOP
BEGIN
UPDATE fac_imp_perslid
SET prs_perslid_email = rec.prs_perslid_email
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END;
END LOOP;
v_errorhint := 'Records uit AFAS nog uitsluiten van import';
-- <nog nader te bepalen>
-- UPDATE fac_imp_perslid
-- SET prs_kenmerk7 = NULL
-- WHERE prs_kenmerk7 IS NOT NULL AND INSTR(UPPER(prs_kenmerk7),'@BLOS.NL')=0 ;
FOR rec IN c_login
LOOP
BEGIN
v_errorhint := 'Bestaande OSLOGIN uit Facilitor handhaven';
UPDATE fac_imp_perslid
SET prs_perslid_oslogin = rec.prs_perslid_oslogin
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END;
END LOOP;
v_errorhint := 'Login afleiden van emailadres (voor locatieleiders)';
-- Voor de locatieleiders de oslogin vullen in geval nog niet gevuld in Facilitor (vanuit vorige cursor)
/*
UPDATE fac_imp_perslid
SET prs_perslid_oslogin =
UPPER((SUBSTR (prs_perslid_email,
0,
INSTR (prs_perslid_email, '@') - 1)))
WHERE
UPPER (prs_perslid_email) LIKE '%BLOS.NL'
AND prs_perslid_email IS NOT NULL
AND INSTR(UPPER(prs_srtperslid_omschrijving),'LOCATIEMANAGER')>0
AND prs_perslid_oslogin IS NULL
AND LENGTH((SUBSTR (prs_perslid_email,
0,
INSTR (prs_perslid_email, '@') - 1))) <=30 ;
*/
v_errorhint := 'Afdeling bepalen en vullen';
-- Afdeling bepalen waar persoon onder komt te vallen. <NOG GOED UITDENKEN en WERKEN>
-- Afdeling komt niet mee, dus vullen hem eerst met Personeelsnummer en gaan daarna de juiste afdelingscode bepalen.
-- Voor locatiemanagers geldt dat deze altijd op organisatie 'LOCATIEMANAGERS' moeten komen (onder dit organisatieonderdeel zitten op niveau 2 de team/afdelingen/kostenplaatsen)
FOR rec IN c_afd
LOOP
BEGIN
v_errorhint := 'Persoon aan Afdeling koppelen';
-- Business Unit vinden
SELECT prs_afdeling_key
INTO v_prs_afdeling_key1
FROM prs_afdeling
WHERE prs_bedrijf_key = 21 AND SUBSTR(prs_afdeling_omschrijving,8) = rec.prs_kenmerk3 ;
-- Alle medewerkers, locatieleiders en pedagogisch medewerkers op onder juiste LOC_MAN koppelen..
IF v_prs_afdeling_key1 IS NOT NULL
THEN
-- Afdelingsniveau 2 bepalen voor Managers...
SELECT a.prs_afdeling_upper
INTO v_prs_afdeling_upper2
FROM prs_v_afdeling_boom v, prs_afdeling a
WHERE niveau = 2
AND prs_afdeling_key1 = v_prs_afdeling_key1
AND v.prs_afdeling_key = a.prs_afdeling_key AND INSTR(a.prs_afdeling_upper,'LOC_MAN')>0 ;
UPDATE fac_imp_perslid
SET prs_afdeling_naam = v_prs_afdeling_upper2
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
ELSE
-- Als werkgever onbekend dan op fallback laten landen...
UPDATE fac_imp_perslid
SET prs_afdeling_naam = (SELECT prs_afdeling_upper FROM prs_afdeling WHERE prs_afdeling_key = c_prs_afdeling_key)
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END IF;
END;
END LOOP;
v_errorhint := 'Locatie bepalen en vullen';
-- Op basis van kostenplaatsomschrijving gaan we kijken of we de locatie en werkplekkoppeling kunnen maken
FOR rec IN c_loc
LOOP
BEGIN
v_errorhint := 'Persoon aan Locatie-Ruimte koppelen adhv de kostenplaats - ' || TO_CHAR(rec.fac_imp_file_index) ;
v_alg_locatie_key := NULL;
v_alg_gebouw_key := NULL;
v_alg_verdieping_key := NULL;
v_alg_ruimte_key := NULL;
v_alg_locatie_afas := replace(replace(rec.prs_kenmerk2,' BSO', ''),' KDV', '') ; -- In AFAS wordt opvangsoort ook in kp-omschrijving meegenomen..
IF rec.prs_kenmerk2 IS NULL
THEN
UPDATE fac_imp_perslid
SET prs_kenmerk20 = 'Geen werkplekkoppeling'
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
ELSE
SELECT MAX(alg_locatie_key)
INTO v_alg_locatie_key
FROM alg_locatie
WHERE INSTR(alg_locatie_upper, UPPER(v_alg_locatie_afas)) > 0
AND alg_locatie_verwijder IS NULL
AND (alg_locatie_vervaldatum IS NULL OR TRUNC(alg_locatie_vervaldatum) > TRUNC(SYSDATE) ) ;
END IF;
IF v_alg_locatie_key IS NOT NULL THEN
-- Locatie_code ophalen
SELECT alg_locatie_code
INTO v_alg_locatie_code
FROM alg_locatie
WHERE alg_locatie_key = v_alg_locatie_key ;
-- Gebouw_key ophalen
SELECT min(alg_gebouw_key)
INTO v_alg_gebouw_key
FROM alg_gebouw
WHERE alg_locatie_key = v_alg_locatie_key
AND alg_gebouw_verwijder IS NULL
AND (TRUNC(alg_gebouw_vervaldatum) > TRUNC(sysdate) OR alg_gebouw_vervaldatum IS NULL ) ;
-- Om bij update dit kenmerkveld weg te kunnen schrijven naar kenmerkveld 'Default standplaats'
UPDATE fac_imp_perslid
SET prs_kenmerk20 = (SELECT UPPER(alg_locatie_code) || ' - ' || alg_locatie_omschrijving FROM alg_locatie WHERE alg_locatie_key = v_alg_locatie_key)
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
IF v_alg_gebouw_key IS NOT NULL THEN
-- Gebouw_code ophalen
SELECT alg_gebouw_code
INTO v_alg_gebouw_code
FROM alg_gebouw
WHERE alg_gebouw_key = v_alg_gebouw_key ;
-- Verdiepings_key ophalen
SELECT min(alg_verdieping_key)
INTO v_alg_verdieping_key
FROM alg_verdieping
WHERE alg_gebouw_key = v_alg_gebouw_key
AND alg_verdieping_verwijder IS NULL ;
END IF;
IF v_alg_verdieping_key IS NOT NULL THEN
-- Verdieping_volgnr ophalen
SELECT alg_verdieping_volgnr
INTO v_alg_verdieping_volgnr
FROM alg_verdieping
WHERE alg_verdieping_key = v_alg_verdieping_key ;
-- Ruimte_key ophalen
SELECT min(alg_ruimte_key)
INTO v_alg_ruimte_key
FROM alg_ruimte
WHERE alg_verdieping_key = v_alg_verdieping_key
AND alg_ruimte_verwijder IS NULL ;
END IF;
IF v_alg_ruimte_key IS NOT NULL THEN
-- Ruimte_nr ophalen
SELECT alg_ruimte_nr
INTO v_alg_ruimte_nr
FROM alg_ruimte
WHERE alg_ruimte_key = v_alg_ruimte_key ;
-- Vullen vastgoed-keten in import-tabel
UPDATE fac_imp_perslid
SET alg_locatie_code = v_alg_locatie_code,
alg_gebouw_code = v_alg_gebouw_code,
alg_verdieping_volgnr = v_alg_verdieping_volgnr,
alg_ruimte_nr = v_alg_ruimte_nr
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END IF;
ELSE
-- Geen Locatie/Vastgoedketen kunnen vinden
UPDATE fac_imp_perslid
SET prs_kenmerk20 = 'Geen werkplekkoppeling'
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END IF;
END;
END LOOP;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
END blos_import_perslid;
/
CREATE OR REPLACE PROCEDURE blos_update_perslid (p_import_key IN NUMBER)
IS
-- Alle personen verwijderen die niet meer in het import bestand voorkomen
-- Personen in de juiste autorisatiegroep zetten.
-- Match bij BLOS KINDEROPVANG is Personeelsnummer.
-- Geen acties tenzij het aantal records in de importtabel meer dan 100 medewerkers betreft.
CURSOR c_del
IS
SELECT p.prs_perslid_key, p.prs_perslid_naam, p.prs_perslid_email, p.prs_perslid_nr, sp.prs_srtperslid_omschrijving
FROM prs_perslid p, prs_srtperslid sp, prs_v_afdeling_boom a
WHERE p.prs_perslid_verwijder IS NULL
AND p.prs_afdeling_key = a.prs_afdeling_key AND a.prs_bedrijf_key = 21 -- GO Kinderopvang
AND p.prs_srtperslid_key = sp.prs_srtperslid_key -- AND sp.prs_srtperslid_upper NOT IN ('TEAMACCOUNT','INTERNE AFDELING','UITZENDKRACHT')
-- VOOR BLOS_TEST de huidige personen onder Business Unit Blos-Groep (UNIT) NIET verwijderen (afd_key=21 en afd_niveau=1)
AND a.prs_afdeling_key1 NOT IN (21)
AND NOT EXISTS (SELECT 1
FROM fac_imp_perslid
WHERE p.prs_perslid_nr = prs_perslid_nr
)
ORDER BY 1 ;
CURSOR c_flex -- Voor updaten van de algemene flex-kenmerkvelden op actuele medewerkers
IS
SELECT p.prs_perslid_key, i.prs_kenmerk2, i.prs_kenmerk3, i.prs_kenmerk20
FROM prs_v_aanwezigperslid p, fac_imp_perslid i
WHERE p.prs_perslid_key = i.prs_perslid_key
ORDER BY 1;
v_count NUMBER;
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
/*v_fac_gebruikersgroep_key NUMBER(10);
v_alg_ruimte_key NUMBER;
v_prs_werkplek_key NUMBER;
v_waarnemer_overrule VARCHAR2 (12);
v_prs_perslid_key NUMBER(10); -- budgethouder op kp
v_prs_perslidkostenplaats_key NUMBER(10) ;
v_fac_profiel_key NUMBER(10);
*/
BEGIN
v_errorhint := 'Niet genoeg personen in bestand, import afgebroken';
SELECT COUNT ( * ) INTO v_count FROM fac_imp_perslid;
IF v_count >= 100
THEN
v_errorhint := 'Verwerken persoonsgegevens';
-- Geldig importbestand wat betreft aantal personen
COMMIT;
-- generic update
-- 'EMAIL' betekent dat op basis van Email wordt gematched. 'NR' op basis van personeelsnummer.
-- 'NULL' betekent altijd geen werkplekken verwijderen
-- Voor BLOS / AFAS geldt:
---- Op NR gaan matchen.
prs.update_perslid (p_import_key, 'NR', NULL);
v_errorhint := 'Verwijderen persoonsgegevens';
-- Verwijder personen die niet meer in de import voorkomen.
FOR rec IN c_del
LOOP
BEGIN
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
END;
END LOOP;
FOR rec IN c_flex
LOOP
BEGIN
v_errorhint:='Fout bijwerken kenmerkveld Regio';
PRS.upsertkenmerk (1120, rec.prs_perslid_key, rec.prs_kenmerk3);
v_errorhint:='Fout bijwerken kenmerkveld Locatie';
PRS.upsertkenmerk (1121, rec.prs_perslid_key, rec.prs_kenmerk2);
v_errorhint:='Fout bijwerken kenmerkveld Inzet locatie';
PRS.upsertkenmerk (1122, rec.prs_perslid_key, rec.prs_kenmerk20);
END;
END LOOP;
-- Te weinig personen in bestand om import uit te voeren
ELSE
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
COMMIT;
END IF;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
END blos_update_perslid;
/
-- Ivm clusterkoppeling is het belangrijk dat locaties goed zijn vastgelegd.
-- Omdat in de praktijk dit paar keer niet goed is gegaan een noti-job om applicatiebeheer hierop netjes te attenderen
CREATE OR REPLACE VIEW blos_v_noti_locatiebeheer
(
sender,
receiver,
text,
code,
key,
xkey
)
AS
SELECT 3, -- Facilitor
m.prs_perslid_key,
'Locatie onvolledig vastgelegd: '
|| v.alg_locatie_code
|| ' - '
|| v.alg_locatie_omschrijving
|| ' van '
|| v.cluster_label_code,
'CUST01',
m.prs_perslid_key,
NULL
FROM
blos_v_cluster_locaties v,
(SELECT g.fac_groep_key,
p.prs_perslid_key,
p.prs_perslid_email AS email
FROM fac_groep g, fac_gebruikersgroep ge, prs_perslid p
WHERE g.fac_groep_key = 22 -- Applicatiebeheer
AND g.fac_groep_key = ge.fac_groep_key
AND ge.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_email IS NOT NULL
AND p.prs_perslid_verwijder IS NULL) m
WHERE
v.ruimte_key IS NULL
and v.cluster_label_code IS NOT NULL ;
-- Hook functie die na het saven (mld_postsave) van een melding aangeroepen wordt.
CREATE OR REPLACE PROCEDURE blos_mld_after_insert (p_key IN NUMBER)
AS
v_locatie_key NUMBER;
v_kenmerk_waarde_cluster VARCHAR (100);
v_kenmerk_waarde_key NUMBER (10);
v_mld_kenmerkmelding_key NUMBER (10);
v_mld_kenmerkmelding_waarde VARCHAR (100);
v_errormsg VARCHAR2 (100);
BEGIN
v_errormsg := 'Ophalen meldinggegevens';
SELECT m.mld_alg_locatie_key
INTO v_locatie_key
FROM mld_melding m
WHERE mld_melding_key = p_key AND mld_stdmelding_key NOT IN (1) ; -- Niet voor M2M-meldingen
IF v_locatie_key IS NOT NULL
THEN
BEGIN
-- Ophalen waarde Cluster bij Locatie vastgelegd
SELECT ud.fac_usrdata_omschr, ud.fac_usrdata_key
INTO v_kenmerk_waarde_cluster, v_kenmerk_waarde_key
FROM alg_locatie l, alg_onrgoedkenmerk k, alg_kenmerk km, fac_kenmerkdomein kd, fac_usrdata ud
WHERE l.alg_locatie_key = v_locatie_key
AND l.alg_locatie_key = k.alg_onrgoed_key AND alg_onrgoed_niveau = 'L' AND k.alg_kenmerk_key = 1000 -- Clusterlabel (oorspronkelijk)
AND k.alg_kenmerk_key = km.alg_kenmerk_key
AND km.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
AND kd.fac_usrtab_key = ud.fac_usrtab_key
AND fac.safe_to_number(k.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key ;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_kenmerk_waarde_cluster := NULL;
v_kenmerk_waarde_key := NULL;
END;
BEGIN
-- Is het kenmerk al eerder weggeschreven op de melding?
SELECT km.mld_kenmerkmelding_key, km.mld_kenmerkmelding_waarde
INTO v_mld_kenmerkmelding_key, v_mld_kenmerkmelding_waarde
FROM mld_melding m, mld_kenmerkmelding km
WHERE m.mld_melding_key = p_key
AND m.mld_melding_key = km.mld_melding_key
AND km.mld_kenmerk_key = 221 -- Clusterlabel (oorspronkelijk)
AND km.mld_kenmerkmelding_verwijder IS NULL ;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_mld_kenmerkmelding_key := NULL;
END;
-- Toevoegen kenmerk-record als waarde gevuld en er nog geen record is aangemaakt
IF v_kenmerk_waarde_cluster IS NOT NULL AND v_mld_kenmerkmelding_key IS NULL
THEN
BEGIN
INSERT INTO mld_kenmerkmelding (mld_melding_key,
mld_kenmerk_key,
mld_kenmerkmelding_waarde)
VALUES (p_key, 221, v_kenmerk_waarde_cluster) ;
END;
END IF;
-- Aanpassen kenmerk-record als de locatie is omgezet op de melding
IF v_kenmerk_waarde_cluster IS NOT NULL AND v_mld_kenmerkmelding_key IS NOT NULL AND v_mld_kenmerkmelding_waarde <> v_kenmerk_waarde_cluster
THEN
BEGIN
UPDATE mld_kenmerkmelding
SET mld_kenmerkmelding_waarde = v_kenmerk_waarde_cluster
WHERE mld_kenmerkmelding_key = v_mld_kenmerkmelding_key;
END;
END IF;
END IF;
END blos_mld_after_insert;
/
---------------------------------------------------------------------------------------------------------------
--- Rapportage Views ---
---------------------------------------------------------------------------------------------------------------
-- Rapportage Gebouwbeheer
CREATE OR REPLACE VIEW BLOS_V_ALG_ONROERENDGOED
(
CLUSTER_NAAM,
LOCATIE,
LOCATIE_CODE,
LOCATIE_KEY,
GEBOUW,
-- gegevens uit locatiekaart
CLUSTERLABEL_OORSPRONKELIJK,
TYPE_OPVANG,
BIJZONDERHEDEN,
KOSTENPLAATS_1,
KOSTENPLAATS_2,
KOSTENPLAATS_3,
--
VERDIEPING,
RUIMTENR,
RUIMTE_OMSCHRIJVING,
RUIMTEFUNCTIE,
BVO_M2,
VLOERSOORT
)
AS
SELECT d.alg_district_omschrijving,
l.alg_locatie_omschrijving,
l.alg_locatie_code,
l.alg_locatie_key,
v.alg_gebouw_code || ' - ' || v.alg_gebouw_naam
gebouw,
km.cluster_label_oorspr,
km.type_opvang,
km.bijzonderheden,
km.kostenplaats_1,
km.kostenplaats_2,
km.kostenplaats_3,
v.alg_verdieping_omschrijving || ' - ' || v.alg_verdieping_code
verdieping,
v.alg_ruimte_nr,
v.alg_ruimte_omschrijving,
sr.alg_srtruimte_omschrijving,
r.alg_ruimte_bruto_vloeropp,
flx.getdomeinwaarde(101, flx.getflex('ALG', 1080, r.alg_ruimte_key, 'R')) vloersoort
FROM alg_v_onroerendgoed_gegevens v,
alg_locatie l,
alg_district d,
(SELECT l.alg_locatie_key,
flx.getdomeinwaarde(1, flx.getflex('ALG',1000, l.alg_locatie_key,'L')) cluster_label_oorspr,
flx.getdomeinwaarde(2, flx.getflex('ALG',1002, l.alg_locatie_key,'L')) type_opvang,
flx.getflex('ALG',1020, l.alg_locatie_key,'L') bijzonderheden,
flx.getdomeinwaarde(161,flx.getflex('ALG',1141, l.alg_locatie_key,'L')) kostenplaats_1,
flx.getdomeinwaarde(161,flx.getflex('ALG',1142, l.alg_locatie_key,'L')) kostenplaats_2,
flx.getdomeinwaarde(161,flx.getflex('ALG',1143, l.alg_locatie_key,'L')) kostenplaats_3
FROM alg_locatie l ) km,
alg_ruimte r,
alg_srtruimte sr
WHERE v.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND v.alg_type IN ('R')
AND v.alg_locatie_key = km.alg_locatie_key
AND v.alg_ruimte_key = r.alg_ruimte_key AND r.alg_ruimte_verwijder IS NULL
AND r.alg_srtruimte_key = sr.alg_srtruimte_key (+)
ORDER BY d.alg_district_omschrijving, l.alg_locatie_code, v.alg_gebouw_code, v.alg_ruimte_nr
;
CREATE OR REPLACE VIEW blos_v_rap_ruimteketen_check
AS
SELECT l.alg_locatie_code,
g.alg_gebouw_code||'-'||g.alg_gebouw_naam
alg_gebouw_omschrijving,
v.alg_verdieping_volgnr,
v.alg_verdieping_code,
v.alg_verdieping_omschrijving,
r.alg_ruimte_nr,
r.alg_ruimte_verwijder
FROM alg_locatie l,
alg_gebouw g,
alg_verdieping v,
alg_ruimte r
WHERE l.alg_locatie_key = g.alg_locatie_key
AND g.alg_gebouw_key = v.alg_gebouw_key
AND v.alg_verdieping_key = r.alg_verdieping_key
AND ( v.alg_verdieping_volgnr <> 0
OR alg_verdieping_omschrijving <> 'Verdieping 0'
OR alg_ruimte_nr <> CHR (95))
AND l.alg_locatie_verwijder IS NULL
AND l.alg_locatie_vervaldatum IS NULL
AND v.alg_verdieping_verwijder IS NULL
AND r.alg_ruimte_verwijder IS NULL;
CREATE OR REPLACE VIEW blos_v_rap_locatie_labels
AS
SELECT cluster_label_code label_oorspronkelijk, COUNT (*) aantal_locaties
FROM blos_v_cluster_locaties
GROUP BY cluster_label_code;
CREATE OR REPLACE VIEW blos_v_rap_locatie_clusters
AS
SELECT cluster_district_code cluster_district, COUNT (*) aantal_locaties
FROM blos_v_cluster_locaties
GROUP BY cluster_district_code;
CREATE OR REPLACE VIEW blos_v_rap_opdrachten_intern
(
TYPE,
MLD_OPDR_KEY,
MLD_UITVOERENDE_KEY,
OPDRACHTNR,
OPDRACHT_DATUM,
STATUS,
MELDING,
BEHANDELAAR,
LOCATIE_PLAATS,
LOCATIE_OMSCHRIJVING,
GEPLANDE_AANVANG,
OMSCHRIJVING,
PRS_PERSLID_KEY,
NAAM_UITVOERDER,
CLUSTER_BLOS,
CLUSTER_LABEL,
TYPE_LOCATIE,
UREN_BESTEED,
AFMELD_DATUM,
OPDRACHT_TYPE,
TD_NAAM,
PRIORITEIT
)
AS
SELECT CASE
WHEN mu.TYPE = 'B' THEN 'Poule-opdracht'
WHEN mu.TYPE = 'P' THEN 'Klus-opdracht'
ELSE '<?>'
END
TYPE,
o.mld_opdr_key,
CASE
WHEN mu.TYPE = 'B' THEN o.prs_perslid_key
WHEN mu.TYPE = 'P' THEN mu.mld_uitvoerende_key
ELSE NULL
END
mld_uitvoerende_key,
TO_CHAR (o.mld_melding_key)
|| '/'
|| o.mld_opdr_bedrijfopdr_volgnr
opdrachtnummer,
o.mld_opdr_datumbegin,
DECODE (
os.mld_statusopdr_key,
8, DECODE (o.mld_opdr_halted,
1, 'Onderbroken',
os.mld_statusopdr_omschrijving),
os.mld_statusopdr_omschrijving)
status,
std.mld_stdmelding_omschrijving,
COALESCE (p.prs_perslid_naam_full, '<nog geen behandelaar>'), -- BEHANDELAAR
l.alg_locatie_plaats,
l.alg_locatie_omschrijving,
COALESCE(o.mld_opdr_plandatum, o.mld_opdr_einddatum)
geplande_aanvang,
TRIM (
REGEXP_REPLACE (
REGEXP_SUBSTR (o.mld_opdr_omschrijving,
'(([^ ]*)( |$)*){10}'),
'[[:space:]]',
' '))
|| '...',
p.prs_perslid_key,
mu.naam,
d.alg_district_omschrijving,
(SELECT ud.fac_usrdata_omschr
FROM alg_onrgoedkenmerk k, fac_usrdata ud
WHERE k.alg_onrgoed_key = m.mld_alg_locatie_key
AND fac.safe_to_number (k.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = 1
AND k.alg_kenmerk_key = 1000), -- kenmerk Cluster_Label
(SELECT ud.fac_usrdata_omschr
FROM alg_onrgoedkenmerk k, fac_usrdata ud
WHERE k.alg_onrgoed_key = m.mld_alg_locatie_key
AND fac.safe_to_number (k.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = 2
AND k.alg_kenmerk_key = 1002), -- kenmerk Type KDV, BVO, et.
(SELECT ko.mld_kenmerkopdr_waarde
FROM mld_kenmerkopdr ko
WHERE ko.mld_opdr_key = o.mld_opdr_key
AND ko.mld_kenmerk_key = 25), -- kenmerk Uren_besteed
(SELECT MAX (ft.fac_tracking_datum)
FROM fac_tracking ft
WHERE ft.fac_tracking_refkey = o.mld_opdr_key
AND ft.fac_srtnotificatie_key = 74), -- MLDAFM
ot.mld_typeopdr_omschrijving,
CASE
WHEN mu.TYPE = 'B' THEN COALESCE (p.prs_perslid_naam_full, '<nog geen behandelaar>')
WHEN mu.TYPE = 'P' THEN mu.naam
ELSE '<?>'
END TD_NAAM,
COALESCE(v.prioriteit,'3 - NORMAAL')
prioriteit
FROM mld_opdr o,
mld_melding m,
mld_typeopdr ot,
prs_v_perslid_fullnames p,
ins_tab_discipline d,
mld_stdmelding std,
alg_locatie l,
alg_district d,
mld_v_uitvoerende mu,
mld_statusopdr os,
(
SELECT ko.mld_opdr_key, ud.fac_usrdata_code || ' - ' || ud.fac_usrdata_omschr prioriteit
FROM mld_kenmerkopdr ko, fac_usrdata ud
WHERE fac.safe_to_number(ko.mld_kenmerkopdr_waarde) = ud.fac_usrdata_key
AND fac_usrtab_key = 81 -- keuzelijst eigen tabel Prioriteit
AND ko.mld_kenmerk_key = 361 -- kenmerk Prioriteit
) v
WHERE o.mld_melding_key = m.mld_melding_key(+)
AND o.prs_perslid_key = p.prs_perslid_key(+)
AND o.mld_typeopdr_key = ot.mld_typeopdr_key
AND ot.mld_typeopdr_isofferte = 0 -- Alleen werkopdrachten
AND m.mld_stdmelding_key = std.mld_stdmelding_key(+)
AND std.mld_ins_discipline_key = d.ins_discipline_key(+)
AND m.mld_alg_locatie_key = l.alg_locatie_key -- alle std-meldingen hebben verplicht-niveau locatie
AND l.alg_district_key = d.alg_district_key
AND o.mld_uitvoerende_keys = mu.mld_uitvoerende_key
AND os.mld_statusopdr_key = o.mld_statusopdr_key
AND mu.intern = 1
AND o.mld_opdr_key = v.mld_opdr_key(+);
CREATE OR REPLACE VIEW blos_v_cal_opdrachten_intern
(
USER_KEY,
TITLE,
TOT,
VAN,
ITEM_KEY,
COLOR,
TEXTCOLOR
)
AS
SELECT mld_uitvoerende_key,
type || ' - ' || opdrachtnr || CHR(10) || locatie_plaats || CHR(10) || 'Prio: ' || prioriteit,
geplande_aanvang + 2/24,
geplande_aanvang,
mld_opdr_key,
DECODE (status,
'Afgewezen', '#C0C0C0', -- Afgewezen grijs
'Afgemeld', '#C0C0C0', -- Afgemeld grijs
'Toegekend', DECODE (LOWER(prioriteit),
'3 - normaal', '#0000FF', -- Toegekend en prio normaal is blauw
'4 - laag', '#20b2f5', -- Toegekend en prio laag is licht-blauw
'2 - hoog', '#f58a20', -- Toegekend en prio laag is oranje
'1 - kritiek', '#bf0b3b', -- Toegekend en prio laag is rood
'#0000FF'),
'Geaccepteerd', '#008000') color, -- Geaccepteerd groen
DECODE (status,
'Afgewezen', '#FFFFFF', -- Afgewezen
'Toegekend', '#FFFFFF', -- Toegekend
'Afgemeld', '#000000', -- Afgemeld
'Geaccepteerd', '#FFFFFF') textcolor -- Geaccepteerd
FROM blos_v_rap_opdrachten_intern ;
CREATE OR REPLACE VIEW BLOS_V_CAL_OPDRACHTEN_BO
(
USER_KEY,
TITLE,
TOT,
VAN,
ITEM_KEY,
COLOR,
TEXTCOLOR,
TD_NAAM,
LOCATIE_PLAATS,
STATUS
)
AS
SELECT mld_uitvoerende_key,
td_naam
|| CHR (10)
|| TYPE
|| ' - '
|| opdrachtnr
|| CHR (10)
|| locatie_plaats
|| CHR (10)
|| 'Prio: '
|| prioriteit,
geplande_aanvang + 2 / 24,
geplande_aanvang,
mld_opdr_key,
DECODE (
status,
'Afgewezen', '#C0C0C0', -- Afgewezen grijs
'Afgemeld', '#C0C0C0', -- Afgemeld grijs
'Toegekend', DECODE (LOWER (prioriteit),
'3 - normaal', '#0000FF', -- Toegekend en prio normaal is blauw
'4 - laag', '#20b2f5', -- Toegekend en prio laag is licht-blauw
'2 - hoog', '#f58a20', -- Toegekend en prio laag is oranje
'1 - kritiek', '#bf0b3b', -- Toegekend en prio laag is rood
'#0000FF'),
'Geaccepteerd', '#008000')
color, -- Geaccepteerd groen
DECODE (status,
'Afgewezen', '#FFFFFF', -- Afgewezen
'Toegekend', '#FFFFFF', -- Toegekend
'Afgemeld', '#000000', -- Afgemeld
'Geaccepteerd', '#FFFFFF')
textcolor, -- Geaccepteerd,
td_naam,
locatie_plaats,
status
FROM blos_v_rap_opdrachten_intern ;
-- Tbv webshop-accounts planethappy
CREATE OR REPLACE VIEW BLOS_V_PERSONENLIJST_LOCMAN
(
PRS_PERSLID_KEY,
NAAM,
PERSONEELSNUMMER,
EMAIL
)
AS
SELECT p.prs_perslid_key,
CASE
WHEN p.prs_perslid_tussenvoegsel IS NULL
THEN
p.prs_perslid_voornaam
|| ' '
|| p.prs_perslid_naam
|| ' ('
|| sp.prs_srtperslid_omschrijving
|| ')'
ELSE
p.prs_perslid_voornaam
|| ' '
|| p.prs_perslid_tussenvoegsel
|| ' '
|| p.prs_perslid_naam
|| ' ('
|| sp.prs_srtperslid_omschrijving
|| ')'
END
naam,
p.prs_perslid_nr,
p.prs_perslid_email
FROM prs_perslid p,
prs_srtperslid sp,
prs_v_afdeling a,
prs_bedrijf b
WHERE p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = 21 -- bedrijfs_key BLOS
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
AND UPPER (sp.prs_srtperslid_omschrijving) = 'LOCATIEMANAGER'
AND p.prs_perslid_verwijder IS NULL
ORDER BY p.prs_perslid_naam;
-- Notificactiejob voor BLOS vanuit Opdrachten Notities met bepaalde notitie-classificatie voor servicedesk...
-- Flag = 16 (en geen +1 xemail, xmobile)
CREATE OR REPLACE VIEW BLOS_V_NOTI_SERVICEDESK_ORD -- ORD = Orders/Opdrachten
(
SENDER,
RECEIVER,
TEXT,
CODE,
FAC_SRTNOTIFICATIE_KEY,
KEY,
XKEY
-- XEMAIL,
-- XMOBILE
)
AS
SELECT (SELECT prs_perslid_key
FROM prs_perslid
WHERE prs_perslid_upper = 'FACILITOR')
sender,
241 -- prs_perslid van persoon Facilitairbeheer Onderhoud met juiste emailadres facilitairbeheer@blos.nl
receiver,
'Opdrachtnotitie bij ' || TO_CHAR(o.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) ||
' van ' || p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam
text,
'CUST02'
code,
(SELECT fac_srtnotificatie_key
FROM fac_srtnotificatie
WHERE fac_srtnotificatie_code = 'CUST02')
fac_srtnotificatie_key,
o.mld_opdr_key
key,
n.mld_opdr_note_key
xkey
FROM mld_melding m,
mld_opdr o,
mld_opdr_note n,
prs_perslid p,
fac_note_group ng
WHERE o.mld_opdr_key = n.mld_opdr_key
AND m.mld_melding_key = o.mld_melding_key
AND n.prs_perslid_key = p.prs_perslid_key
AND n.fac_note_group_key = ng.fac_note_group_key
AND ng.fac_note_group_key = 1 -- 'Notitie voor Facilitair'
AND n.prs_perslid_key NOT IN
(SELECT gg.prs_perslid_key
FROM fac_gebruikersgroep gg, fac_groep g
WHERE gg.fac_groep_key = g.fac_groep_key
AND g.fac_groep_key = 21) -- Servicedesk - Operationeel
AND n.mld_opdr_note_aanmaak >=
COALESCE (
( SELECT MAX (ft.fac_tracking_datum)
FROM fac_tracking ft, fac_srtnotificatie sn
WHERE ft.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode = 'opdracht'
AND sn.fac_srtnotificatie_code = 'CUST02'),
SYSDATE - (SELECT COALESCE (fac_notificatie_job_interval, 1) / 24
FROM fac_notificatie_job
WHERE fac_notificatie_job_view = 'BLOS_V_NOTI_SERVICEDESK_ORD' )
) ;
---------------------------------------------------------------------------------------------------------------
--- Facilitor Graphics / CAD ---
---------------------------------------------------------------------------------------------------------------
CREATE OR REPLACE VIEW blos_v_thema_set_res_wp
AS
SELECT ins_deel_key, DECODE (rd.res_deel_key, NULL, 0, 1) waarde
FROM ins_deel d,
(SELECT *
FROM res_deel
WHERE res_deel_verwijder IS NULL) rd
WHERE d.ins_deel_key = rd.res_ins_deel_key(+);
CREATE OR REPLACE VIEW blos_v_thema_vloersoort
(
ALG_RUIMTE_KEY,
WAARDE,
WAARDE_KEY
)
AS
SELECT r.alg_ruimte_key,
COALESCE (va.fac_usrdata_omschr, 'Onbekend'),
va.fac_usrdata_key
FROM alg_ruimte r,
(SELECT rr.alg_ruimte_key,
ud.fac_usrdata_omschr,
ud.fac_usrdata_key
FROM alg_onrgoedkenmerk ok,
fac_usrdata ud,
fac_kenmerkdomein rk,
alg_kenmerk k,
alg_v_aanwezigruimte rr
WHERE rk.fac_usrtab_key = ud.fac_usrtab_key
AND k.fac_kenmerkdomein_key = rk.fac_kenmerkdomein_key
AND TO_CHAR (ud.fac_usrdata_key) =
ok.alg_onrgoedkenmerk_waarde
AND ok.alg_kenmerk_key = 1080
AND k.alg_kenmerk_niveau = 'R'
AND k.alg_kenmerk_verwijder IS NULL
AND rr.alg_ruimte_key = ok.alg_onrgoed_key) va
WHERE r.alg_ruimte_key = va.alg_ruimte_key(+);
---------------------------------------------------------------------------------------------------------------
--- Periodieke procedures die afgetrapt worden binnen BLOS ---
---------------------------------------------------------------------------------------------------------------
-- script om dagelijks terugkerende scripts aan te roepen.
CREATE OR REPLACE PROCEDURE blos_select_daily_task (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
AS
BEGIN
-- job om de werkplekkoppelingen te realiseren en onderhouden voor de locatiemanagers
blos_select_wpcluster ('WP_CLUSTER', SYSDATE);
END;
/
/* TZT nog aanpassen naar onderstaande
CREATE OR REPLACE PROCEDURE blos_daily
AS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
blos_select_wpcluster ('WP_CLUSTER', SYSDATE);
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 ('DAILY', 'E', 'Proces afgebroken!', v_errormsg);
END blos_daily;
/
*/
------ 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
Reference in New Issue View Git Blame Copy Permalink