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

VEBE#53710 Aanpassing bon voor laatste berijder. Aanpassing teruggedraaid, oplossing zat in XSL

Browse Source 
svn path=/Customer/trunk/; revision=39160
This commit is contained in:
Sander Schepers
2018-09-17 13:11:35 +00:00
parent 6513226fe8
commit e042707e74
1 changed files with 108 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

231
VEBE/vebe.sql
View File

@@ -1586,37 +1586,36 @@ IS
v_count NUMBER (10);
v_tracking VARCHAR2 (1000);
v_fac_usrrap_key NUMBER(10);
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
IS
SELECT c.prs_lease_perslid_key_eig,
c.prs_eigenaar_naam_friendly,
'Rapp<EFBFBD>l: Leaseovereenkomst ' || c.cnt_lease_nummer_intern
|| DECODE (c.cnt_lease_versie,
NULL, '',
'.' || c.cnt_lease_versie)
|| ' ('
|| c.cnt_lease_omschr
|| ' '
|| c.prs_bedrijf_naam
|| ')'
|| ' loopt af op '
|| TO_CHAR (c.cnt_lease_looptijd_tot, 'DD-MM-YYYY')
|| '.' mail_subject,
c.cnt_lease_key,
max(c.cnt_gebruik_looptijd_van),
c.cnt_lease_nummer_intern,
c.cnt_lease_versie
FROM vebe_cnt_lease_en_gebruiks_ovk c
WHERE cnt_lease_status = 0
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'
SELECT c.prs_lease_perslid_key_eig,
c.prs_eigenaar_naam_friendly,
'Rapp<EFBFBD>l: Leaseovereenkomst ' || c.cnt_lease_nummer_intern
|| DECODE (c.cnt_lease_versie,
NULL, '',
'.' || c.cnt_lease_versie)
|| ' ('
|| c.cnt_lease_omschr
|| ' '
|| c.prs_bedrijf_naam
|| ')'
|| ' loopt af op '
|| TO_CHAR (c.cnt_lease_looptijd_tot, 'DD-MM-YYYY')
|| '.' mail_subject,
c.cnt_lease_key,
c.cnt_lease_nummer_intern,
c.cnt_lease_versie
FROM vebe_cnt_lease_en_gebruiks_ovk c
WHERE cnt_lease_status = 0
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'
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,91 +1626,78 @@ SELECT c.prs_lease_perslid_key_eig,
WHERE kc.cnt_kenmerk_key = 121
AND kc.cnt_kenmerkcontract_waarde = 1
AND TRUNC (t.fac_tracking_datum) <
TRUNC (SYSDATE)))
GROUP BY (c.prs_lease_perslid_key_eig,
c.prs_eigenaar_naam_friendly, 'Rapp<EFBFBD>l: Leaseovereenkomst ' || c.cnt_lease_nummer_intern
|| DECODE (c.cnt_lease_versie,
NULL, '',
'.' || c.cnt_lease_versie)
|| ' ('
|| c.cnt_lease_omschr
|| ' '
|| c.prs_bedrijf_naam
|| ')'
|| ' loopt af op '
|| TO_CHAR (c.cnt_lease_looptijd_tot, 'DD-MM-YYYY')
|| '.', c.cnt_lease_key,c.cnt_lease_nummer_intern, c.cnt_lease_versie);
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
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
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
IS
SELECT c.prs_gebr_perslid_key_beh,
NULL,
'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_omschr
|| ')'
|| ' loopt af op '
|| TO_CHAR (c.cnt_gebruik_looptijd_tot, 'DD-MM-YYYY')
|| '.' mail_subject,
c.cnt_gebruik_key,
c.cnt_gebruik_nummer_intern,
c.cnt_gebruik_versie
FROM vebe_cnt_tankpas_gebruiks_ovk c
WHERE cnt_gebruik_status = 0
SELECT c.prs_gebr_perslid_key_beh,
NULL,
'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_omschr
|| ')'
|| ' loopt af op '
|| TO_CHAR (c.cnt_gebruik_looptijd_tot, 'DD-MM-YYYY')
|| '.' mail_subject,
c.cnt_gebruik_key,
c.cnt_gebruik_nummer_intern,
c.cnt_gebruik_versie
FROM vebe_cnt_tankpas_gebruiks_ovk c
WHERE cnt_gebruik_status = 0
AND TO_CHAR (SYSDATE, 'd') = '4'
AND (SYSDATE BETWEEN c.cnt_gebruik_rappeldatum
AND c.cnt_gebruik_opzegdatum)
AND c.cnt_gebruik_looptijd_tot >= to_date('01-05-2017','dd-mm-yyyy');
AND (SYSDATE BETWEEN c.cnt_gebruik_rappeldatum
AND c.cnt_gebruik_opzegdatum)
AND c.cnt_gebruik_looptijd_tot >= to_date('01-05-2017','dd-mm-yyyy');
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.
-- 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).
-- Mailen van eenmalige notificatie naar de eigenaar/aanspreekpunt via CUST01 (rapport-node).
-- fac.putnotificationsrtprio ( NULL, rc.prs_lease_perslid_key_eig, 'CUST01', v_fac_usrrap_key, rc.mail_subject, NULL, NULL, NULL, rc.cnt_lease_key, 2, NULL);
fac.putnotificationsrtprio ( NULL, rc.prs_lease_perslid_key_eig, 'CUST01', v_fac_usrrap_key, rc.mail_subject, NULL, NULL, NULL, rc.cnt_lease_key, 2, NULL);
v_tracking := 'Rappel mail naar aanspreekpunt ' || rc.prs_eigenaar_naam_friendly || ': Leaseovereenkomst ' || rc.cnt_lease_nummer_intern || ' loopt af';
-- En we tracken via CUST02 (contract-node)
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;
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
@@ -1722,59 +1708,59 @@ 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_krabbel_leaseovk
LOOP
BEGIN
BEGIN
v_errorhint := rc.mail_subject;
v_errormsg := '';
-- Mailen van eenmalige notificatie naar de aanspreekpunt via CUST03 (opdracht-node).
fac.putnotificationsrtprio ( NULL, rc.prs_perslid_key_aanspreekpunt, 'CUST03', rc.mld_opdr_key, rc.mail_subject, NULL, NULL, NULL, NULL, 2, NULL);
-- 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;
v_errorhint := rc.mail_subject;
v_errormsg := '';
-- Mailen van eenmalige notificatie naar de aanspreekpunt via CUST03 (opdracht-node).
fac.putnotificationsrtprio ( NULL, rc.prs_perslid_key_aanspreekpunt, 'CUST03', rc.mld_opdr_key, rc.mail_subject, NULL, NULL, NULL, NULL, 2, NULL);
-- 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
WHEN OTHERS
THEN
v_count_error := v_count_error + 1;
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
COMMIT;
END;
EXCEPTION
WHEN OTHERS
THEN
v_count_error := v_count_error + 1;
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
COMMIT;
END;
END LOOP;
FOR rc IN c_noti_cnt_tankpas
LOOP
BEGIN
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;
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;
EXCEPTION
WHEN OTHERS
THEN
v_count_error := v_count_error + 1;
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
COMMIT;
END;
EXCEPTION
WHEN OTHERS
THEN
v_count_error := v_count_error + 1;
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
COMMIT;
END;
END LOOP;
COMMIT;
EXCEPTION
@@ -1790,7 +1776,6 @@ END vebe_export_noti_wagenpark;
/
CREATE OR REPLACE VIEW vebe_v_export_noti_wagenpark (
result,
result_order