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

Uitgecommentarieerdere code uit vebe_processemail verwijderd

Browse Source 
svn path=/Customer/trunk/; revision=41311
This commit is contained in:
Jos Groot Lipman
2019-03-05 12:37:42 +00:00
parent 61c1ef9532
commit 44aafdf2c0
1 changed files with 63 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

180
VEBE/vebe.sql
View File

@@ -37,17 +37,17 @@ AS
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
BEGIN
-- Kenmerk 1: Indirect of direct heeft de waarde I of D. Een I wordt vertaald naar 1, een D naar 0. Een andere letter of NULL value wordt naar 0 vertaald.
UPDATE fac_imp_perslid
SET prs_kenmerk1 = DECODE(UPPER(prs_kenmerk1),'I','1','D','0','0')
WHERE fac_import_key = p_import_key;
-- Kenmerk 4: Contactvia heeft waarde ja of nee of leeg (NULL). Een ja wordt vertaald naar 1, een nee naar 0. Iets anders of NULL value wordt naar 0 vertaald.
UPDATE fac_imp_perslid
SET prs_kenmerk4 = DECODE(UPPER(prs_kenmerk4),'JA','1','NEE','0','0')
WHERE fac_import_key = p_import_key;
EXCEPTION
WHEN OTHERS
THEN
@@ -70,8 +70,8 @@ BEGIN
v_errorhint := 'Generieke update';
-- de sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid proc
-- 1.Roepnaam 2.Voorletters 3.Tussenvoegsel 4.Achternaam 5.Persnr. 6.Afdnr. 7.Functie 8.Email 9.Mobile 10.Telefoon 11.Loginnaam 12.Direct-Indirect 13.Straat-huisnr 14.Postcode-Woonplaats 15.Contactvia
-- 1.Roepnaam 2.Voorletters 3.Tussenvoegsel 4.Achternaam 5.Persnr. 6.Afdnr. 7.Functie 8.Email 9.Mobile 10.Telefoon 11.Loginnaam 12.Direct-Indirect 13.Straat-huisnr 14.Postcode-Woonplaats 15.Contactvia
prs.import_perslid (p_import_key,
'0;0;0;0;0;0;6;4;3;1;' ||
@@ -81,11 +81,11 @@ BEGIN
'0;0;0;0;0;0',
'Roepnaam;Voorletters;Tussenvoegsel;Achternaam;Persnr.;Afdnr.;Functie;Email;Mobile;Telefoon;Loginnaam%'
);
vebe_post_import_perslid(p_import_key);
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
@@ -150,8 +150,8 @@ CREATE OR REPLACE PROCEDURE vebe_update_perslid (
-- a) niet meer in het importbestand staan, wel in Facilitor, en
-- b) waarvan de persoon in Facilitor een gevulde personeelsnummer heeft (leeg personeelsnummer van af blijven, dit zijn stagiairs etc die handmatig zijn toegevoegd)
-- c) waarvan de persoon in Facilitor niet begint met een _ in de loginnaam (ook van af blijven)
-- d)
-- d)
CURSOR c_del
IS
SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full
@@ -163,7 +163,7 @@ CREATE OR REPLACE PROCEDURE vebe_update_perslid (
AND pf.prs_perslid_key = p.prs_perslid_key
AND i.prs_perslid_nr IS NULL
ORDER BY 2;
v_count NUMBER;
BEGIN
@@ -198,7 +198,7 @@ BEGIN
END LOOP;
vebe_post_update_perslid(p_import_key);
END vebe_update_perslid;
/
@@ -496,7 +496,7 @@ AS
WHERE c4.cnt_contract_nummer_intern =
c1.cnt_contract_nummer_intern)
and c2.cnt_contract_looptijd_tot > c1.cnt_contract_looptijd_van
and c2.cnt_contract_looptijd_van < c1.cnt_contract_looptijd_tot;
and c2.cnt_contract_looptijd_van < c1.cnt_contract_looptijd_tot;
-- TEMP view t.b.v. Basis UDR rapport...
@@ -635,7 +635,7 @@ AS
ins_deel_omschrijving,
ins_deel_opmerking,
COALESCE (gov_huidig_jaar, 'Nee') gov_huidig_jaar,
COALESCE (gov_vorig_jaar, 'Nee') gov_vorig_jaar,
COALESCE (gov_vorig_jaar, 'Nee') gov_vorig_jaar,
(SELECT ud.fac_usrdata_code
FROM fac_usrdata ud
WHERE ud.fac_usrdata_key =
@@ -844,7 +844,7 @@ AND ud.fac_usrdata_vervaldatum IS NULL OR ud.fac_usrdata_vervaldatum > SYSDATE;
CREATE OR REPLACE VIEW vebe_v_vebe_weektabel_2jaar
(jaar, periode, week, maandag)
AS
WITH
WITH
thisyear AS
(SELECT * FROM vebe_v_startperiode_per_jaar
WHERE jaar = to_char(SYSDATE, 'yyyy')),
@@ -886,7 +886,7 @@ GROUP BY jaar, periode;
CREATE OR REPLACE VIEW vebe_v_maandtabel_2jaar
(jaar, periode, dag_start, dag_eind, aant_dagen_jaar)
AS
WITH
WITH
thisyear AS
(SELECT * FROM vebe_v_startperiode_per_jaar
WHERE jaar = to_char(SYSDATE, 'yyyy')),
@@ -895,7 +895,7 @@ WITH
WHERE jaar = to_char(SYSDATE, 'yyyy') + 1)
SELECT
jaar,
LEVEL periode,
LEVEL periode,
to_date('01-' || LEVEL || '-' || jaar, 'dd-mm-yyyy') startdatum,
TRUNC(to_date('01-' || LEVEL || '-' || jaar, 'dd-mm-yyyy') + 32, 'MM') - 1 einddatum,
to_date('31-12-' || jaar, 'dd-mm-yyyy') - to_date('1-1-' || jaar, 'dd-mm-yyyy') + 1
@@ -904,7 +904,7 @@ CONNECT BY LEVEL <= 1* 12
UNION ALL
SELECT
jaar,
13 periode,
13 periode,
NULL startdatum,
NULL einddatum,
to_date('31-12-' || jaar, 'dd-mm-yyyy') - to_date('1-1-' || jaar, 'dd-mm-yyyy') + 1
@@ -912,7 +912,7 @@ FROM thisyear
UNION ALL
SELECT
jaar,
LEVEL periode,
LEVEL periode,
to_date('01-' || LEVEL || '-' || jaar, 'dd-mm-yyyy') startdatum,
TRUNC(to_date('01-' || LEVEL || '-' || jaar, 'dd-mm-yyyy') + 32, 'MM') - 1 einddatum,
to_date('31-12-' || jaar, 'dd-mm-yyyy') - to_date('1-1-' || jaar, 'dd-mm-yyyy') + 1
@@ -921,7 +921,7 @@ CONNECT BY LEVEL <= 1* 12
UNION ALL
SELECT
jaar,
13 periode,
13 periode,
NULL startdatum,
NULL einddatum,
to_date('31-12-' || jaar, 'dd-mm-yyyy') - to_date('1-1-' || jaar, 'dd-mm-yyyy') + 1
@@ -1288,7 +1288,7 @@ AS
FROM vebe_rap_wagenpark_tmp;
---------- Gebruiksovereenkomst TIJDELIJKE Tankpassen
CREATE OR REPLACE VIEW vebe_cnt_tankpas_gebruiks_ovk
(
cnt_gebruik_key,
@@ -1320,10 +1320,10 @@ CREATE OR REPLACE VIEW vebe_cnt_tankpas_gebruiks_ovk
ins_deel_opmerking
)
AS
SELECT
SELECT
c2.cnt_contract_key cnt_gebruik_key,
p2.prs_perslid_key prs_berijder_key,
d.ins_deel_key,
d.ins_deel_key,
c2.prs_perslid_key_beh prs_gebr_perslid_key_beh,
c2.prs_perslid_key_eig prs_gebr_perslid_key_eig,
c2.cnt_contract_nummer_intern cnt_gebruik_nummer_intern,
@@ -1426,8 +1426,8 @@ AS
c2.cnt_contract_nummer_intern)
AND c2.cnt_prs_perslid_key = p2.prs_perslid_key(+)
AND d.ins_deel_key = co2.cnt_ins_deel_key;
-- rapportage tankpassen
-- rapportage tankpassen
CREATE OR REPLACE VIEW vebe_v_rap_tankpassen
(
ins_deel_key,
@@ -1558,11 +1558,11 @@ AS
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = 3
AND cco.cnt_ins_deel_key(+) = d.ins_deel_key;
-- LEASECONTRACT NOTIFICATIES naar contractbeheerder, contracteigenaren, (nog) niet naar berijders.
-- Elke dag de bij aflopende leaseonctracten notificaties de deur 'uitgooien', die NIET met de standaard noti-jobs gaan (omdat de export nog iets extra's doet, insert of zo).
-- 1. LEASEcontracten (soortcontract met disckey 21) die in rappel staat, en waarvan nog niet eerder een noti naar contracteigenaar is uitgegaan
-- 1. LEASEcontracten (soortcontract met disckey 21) die in rappel staat, en waarvan nog niet eerder een noti naar contracteigenaar is uitgegaan
-- 2. Afgemelde GUNNINGSOpdracht (type opdracht met mld_typeopdr_key = 5) een noti met 2 links naar de melder (= AP/aanspreekpunt) van de bijbehorende melding zodat deze 2 acties kan uitvoeren:
-- a) LINK 1: naar opdracht zodat de bijlage bij de opdracht kan downloaden/openen, printen en laten ondertekenen
-- b) LINK 2: Nieuwe melding 'Stuur getekende leaseovk' zodat de getekende leaseovk kan worden geupload.
@@ -1587,7 +1587,7 @@ IS
v_tracking VARCHAR2 (1000);
v_fac_usrrap_key NUMBER(10);
-- Leasecontracten (met disckey 21) die in rappel staat, en waarvan nog niet eerder een noti naar contracteigenaar is uitgegaan
-- Als het kenmerk Vaker notificeren (key 121) aan staat dan wordt er vaker dan 1x genotificeerd.
CURSOR c_noti_leasecontract_1st_time
@@ -1597,7 +1597,7 @@ IS
'Rapp<EFBFBD>l: Leaseovereenkomst ' || c.cnt_lease_nummer_intern
|| DECODE (c.cnt_lease_versie,
NULL, '',
'.' || c.cnt_lease_versie)
'.' || c.cnt_lease_versie)
|| ' ('
|| c.cnt_lease_omschr
|| ' '
@@ -1614,8 +1614,8 @@ IS
AND (SYSDATE BETWEEN c.cnt_lease_rappeldatum
AND c.cnt_lease_opzegdatum)
AND c.cnt_lease_looptijd_tot >= to_date('01-10-2016','dd-mm-yyyy')
AND NOT EXISTS
(SELECT 'x'
AND NOT EXISTS
(SELECT 'x'
FROM fac_tracking t, fac_srtnotificatie sn
WHERE c.cnt_lease_key = t.fac_tracking_refkey
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
@@ -1627,27 +1627,27 @@ IS
AND kc.cnt_kenmerkcontract_waarde = 1
AND TRUNC (t.fac_tracking_datum) <
TRUNC (SYSDATE)));
CURSOR c_noti_krabbel_leaseovk
IS
SELECT m.prs_perslid_key prs_perslid_key_aanspreekpunt, p1.prs_perslid_naam_friendly prs_perslid_naam_aanspreekpunt, 'Verzoek ondertekenen van leaseovereenkomst voor ' || p2.prs_perslid_naam_friendly mail_subject, o.mld_opdr_key
SELECT m.prs_perslid_key prs_perslid_key_aanspreekpunt, p1.prs_perslid_naam_friendly prs_perslid_naam_aanspreekpunt, 'Verzoek ondertekenen van leaseovereenkomst voor ' || p2.prs_perslid_naam_friendly mail_subject, o.mld_opdr_key
FROM mld_opdr o, fac_tracking t, fac_srtnotificatie sn, mld_melding m, prs_v_perslid_fullnames_all p1, prs_v_perslid_fullnames_all p2
WHERE o.mld_typeopdr_key = 5
AND o.mld_opdr_key = t.fac_tracking_refkey
AND m.mld_melding_key = o.mld_melding_key
AND p1.prs_perslid_key = m.prs_perslid_key
AND p1.prs_perslid_key = m.prs_perslid_key
AND p2.prs_perslid_key = m.prs_perslid_key_voor
AND sn.fac_srtnotificatie_key = t.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode = 'opdracht'
AND o.mld_statusopdr_key = 6
AND sn.fac_srtnotificatie_key = (select fac_srtnotificatie_key from fac_srtnotificatie where fac_srtnotificatie_code = 'ORDAFM')
AND NOT EXISTS
(SELECT 'x'
AND NOT EXISTS
(SELECT 'x'
FROM fac_tracking t, fac_srtnotificatie sn
WHERE o.mld_opdr_key = t.fac_tracking_refkey
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_code = 'CUST03');
AND sn.fac_srtnotificatie_code = 'CUST03');
CURSOR c_noti_cnt_tankpas
@@ -1657,7 +1657,7 @@ IS
'Rapp<EFBFBD>l: Tijdelijke tankpas van gebruiksovereenkomst ' || c.cnt_gebruik_nummer_intern
|| DECODE (c.cnt_gebruik_versie,
NULL, '',
'.' || c.cnt_gebruik_versie)
'.' || c.cnt_gebruik_versie)
|| ' ('
|| c.cnt_gebruik_omschr
|| ')'
@@ -1677,16 +1677,16 @@ IS
BEGIN
-- Userrapportage key 81 waar de view vebe_cnt_lease_en_gebruiks_ovk met alle leasecontract info staat.
v_fac_usrrap_key := 81;
-- Alle leasecontracten in rappel die niet al eerder naar eigenaar zijn genotificeerd, dus alleen 1x, notificeren.
FOR rc IN c_noti_leasecontract_1st_time
LOOP
BEGIN
v_errorhint := rc.mail_subject;
v_errormsg := '';
-- Mailen van eenmalige notificatie naar de eigenaar/aanspreekpunt via CUST01 (rapport-node).
@@ -1697,7 +1697,7 @@ BEGIN
fac.trackaction ('CUST02', rc.cnt_lease_key, NULL, NULL, v_tracking);
DELETE cnt_kenmerkcontract WHERE cnt_kenmerk_key = 121 AND cnt_contract_key = rc.cnt_lease_key;
COMMIT;
EXCEPTION
@@ -1715,7 +1715,7 @@ BEGIN
FOR rc IN c_noti_krabbel_leaseovk
LOOP
BEGIN
v_errorhint := rc.mail_subject;
v_errormsg := '';
-- Mailen van eenmalige notificatie naar de aanspreekpunt via CUST03 (opdracht-node).
@@ -1723,7 +1723,7 @@ BEGIN
-- En we tracken via CUST03 (opdracht-node)
v_tracking := 'Mail naar aanspreekpunt ' || rc.prs_perslid_naam_aanspreekpunt || ': ' || rc.mail_subject;
fac.trackaction ('#CUST03', rc.mld_opdr_key, NULL, NULL, v_tracking);
COMMIT;
EXCEPTION
@@ -1734,18 +1734,18 @@ BEGIN
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
COMMIT;
END;
END;
END LOOP;
FOR rc IN c_noti_cnt_tankpas
LOOP
BEGIN
v_errorhint := rc.mail_subject;
v_errormsg := '';
-- Mailen van een notificatie naar de beheerder van de gebruiksovereenkomst van de tijdelijke tankpas.
-- fac.putnotificationsrtprio (NULL, rc.prs_gebr_perslid_key_beh, '', rc.cnt_gebruik_key, rc.mail_subject, NULL, NULL, NULL, NULL, 2, NULL);
-- fac.putnotificationprio (pfrom, pto, pmessage, pmode, poptemail, poptmobile, 2);
fac.putnotificationprio (NULL, rc.prs_gebr_perslid_key_beh, rc.mail_subject, 2, NULL, NULL, 2);
COMMIT;
@@ -1758,9 +1758,9 @@ BEGIN
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
COMMIT;
END;
END;
END LOOP;
COMMIT;
EXCEPTION
@@ -1783,7 +1783,7 @@ CREATE OR REPLACE VIEW vebe_v_export_noti_wagenpark (
AS
SELECT 'notificatie;key contract;contractnr;key aanspreekpunt;aanspreekpunt;mailsubject;contractomschrijving;leasemaatschappij;einddatum', 0
FROM DUAL
UNION ALL
UNION ALL
SELECT REPLACE(REPLACE('CUST01'
|| ';'
|| c.cnt_lease_key
@@ -1831,8 +1831,8 @@ UNION ALL
AND (SYSDATE BETWEEN c.cnt_lease_rappeldatum
AND c.cnt_lease_opzegdatum)
AND c.cnt_lease_looptijd_tot >= to_date('01-10-2016','dd-mm-yyyy')
AND NOT EXISTS
(SELECT 'x'
AND NOT EXISTS
(SELECT 'x'
FROM fac_tracking t, fac_srtnotificatie sn
WHERE c.cnt_lease_key = t.fac_tracking_refkey
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
@@ -1868,14 +1868,14 @@ UNION ALL
WHERE o.mld_typeopdr_key = 5
AND o.mld_opdr_key = t.fac_tracking_refkey
AND m.mld_melding_key = o.mld_melding_key
AND p1.prs_perslid_key = m.prs_perslid_key
AND p1.prs_perslid_key = m.prs_perslid_key
AND p2.prs_perslid_key = m.prs_perslid_key_voor
AND sn.fac_srtnotificatie_key = t.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode = 'opdracht'
AND o.mld_statusopdr_key = 6
AND sn.fac_srtnotificatie_key = (select fac_srtnotificatie_key from fac_srtnotificatie where fac_srtnotificatie_code = 'ORDAFM')
AND NOT EXISTS
(SELECT 'x'
AND NOT EXISTS
(SELECT 'x'
FROM fac_tracking t, fac_srtnotificatie sn
WHERE o.mld_opdr_key = t.fac_tracking_refkey
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
@@ -1883,7 +1883,7 @@ UNION ALL
UNION ALL
SELECT 'notificatie;key contract;contractnr;key wagenparkbeh;berijder;mailsubject;contractomschrijving;afdeling;einddatum', (select max(mld_melding_key) + 20000 from mld_melding)
FROM DUAL
UNION ALL
UNION ALL
SELECT REPLACE(REPLACE(''
|| ';'
|| c.cnt_gebruik_key
@@ -1935,17 +1935,17 @@ AS
v_flag_on_fenote NUMBER (10);
v_flag_on_bonote NUMBER (10);
v_mld_meldbron_key NUMBER (10);
v_prs_perslid_sysuser_key NUMBER (10);
v_mailadres_to_wagenpark VARCHAR2(100);
BEGIN
v_prs_perslid_sysuser_key := 81;
v_mailadres_to_wagenpark := 'XrTeMOZ@vebe.facilitor.nl';
-- We beschouwen dit als een nieuwe melding
IF (UPPER(pto) = UPPER(v_mailadres_to_wagenpark))
THEN
THEN
-- Mailmelding (onder vakgroep 'Mailmelding') met mld_stdmelding_key 161, deze staat in de setting defaultmelding.
defaultstdmelding := fac.getsetting ('defaultstdmelding');
v_mld_meldbron_key := 4;
@@ -2038,62 +2038,8 @@ BEGIN
VALUES (psessionid, 'maillog', 'Als notitie toegevoegd aan melding ' || v_mldkey);
-- We gaan GEEN Vlaggetjes zetten zoals mld_edit_note.asp dat doet, VEBE werkt hier niet mee.
--BEGIN
-- v_flag_on_fenote := fac.getsetting('mld_flag_on_fenote');
-- v_flag_on_bonote := fac.getsetting('mld_flag_on_bonote');
--
-- IF v_flag_on_bonote <> 0 AND v_flag_on_bonote IS NOT NULL
-- THEN
-- UPDATE mld_melding
-- SET mld_melding_flag = v_flag_on_bonote
-- WHERE mld_melding_key = v_mldkey
-- AND ( (mld_melding_flag = v_flag_on_fenote)
-- OR (mld_melding_flag = 0 OR mld_melding_flag IS NULL));
--
-- END IF;
--EXCEPTION
-- WHEN OTHERS
-- THEN
-- DBMS_OUTPUT.put_line( 'Niet gelukt om flag '
-- || v_flag_on_bonote
-- || ' te zetten.');
--END;
-- Bepalen van de behandelaar van deze melding
--BEGIN
-- SELECT mld_melding_behandelaar_key
-- INTO v_behandelaar_key
-- FROM mld_melding m, prs_perslid p
-- WHERE mld_melding_key = v_mldkey
-- AND mld_melding_behandelaar_key = p.prs_perslid_key
-- AND p.prs_perslid_email IS NOT NULL
-- AND p.prs_perslid_verwijder IS NULL;
--EXCEPTION
-- WHEN OTHERS
-- THEN
-- v_behandelaar_key := NULL;
--END;
--
--IF v_behandelaar_key IS NOT NULL
--THEN
-- -- Bestaande melding en behandelaar is bekend.
--
-- -- Notificatie naar behandelaar
-- fac.putnotificationsrtprio (
-- NULL,
-- v_behandelaar_key,
-- 'MLDNOB',
-- v_mldkey,
-- 'Melding ' || v_mldkey || ' is door de klant aangepast.',
-- 2,
-- NULL,
-- NULL,
-- NULL,
-- 2,
-- NULL);
--END IF;
ELSE
-- suggested extensions:
-- check for MLDUSE-write autorisations
-- parse the subject to find an appropriate stdmelding, if uniquely possible
@@ -2354,7 +2300,7 @@ AS
AND uitv_a.mld_typeopdr_key = 81))
WHERE mld_vervolg_melding = incl_start_key OR incl_start_key IS NULL;
-- Rapport doorlooptijden
-- Rapport doorlooptijden
CREATE OR REPLACE VIEW VEBE_V_RAP_DOORLOOPTIJDEN
AS
SELECT mld_melding_key,