From f53112ba2a80766660276f8147afb8035045aa2f Mon Sep 17 00:00:00 2001 From: Jos Migo Date: Fri, 20 Jun 2025 13:03:58 +0000 Subject: [PATCH] HMOD#88835 -- inpassen contractbeeer 2.0 svn path=/Customer/trunk/; revision=69502 --- HMOD/hmod.sql | 115 +++++++++++++++----------------------------------- 1 file changed, 35 insertions(+), 80 deletions(-) diff --git a/HMOD/hmod.sql b/HMOD/hmod.sql index c9345da36..82237a2c8 100644 --- a/HMOD/hmod.sql +++ b/HMOD/hmod.sql @@ -1492,6 +1492,7 @@ AS NULL, '', '.' || c.cnt_contract_versie) cnt_contract_nr, + c.cnt_contract_omschrijving, c.cnt_contract_looptijd_van begindatum, c.cnt_contract_looptijd_tot einddatum, cnt.cnt_getopzegdatum (c.cnt_contract_key) cnt_opzegdatum, @@ -1519,11 +1520,13 @@ AS 3, lcl.l ('lcl_cnt_forapproval')) cnt_contract_status, + CASE WHEN cnt_contract_verlenging = 2 THEN 'nee' ELSE 'ja' END + automatisch_verlengen, (SELECT kc.cnt_kenmerkcontract_waarde FROM cnt_kenmerkcontract kc, cnt_kenmerk k WHERE k.cnt_kenmerk_key = kc.cnt_kenmerk_key AND kc.cnt_contract_key = c.cnt_contract_key - AND k.cnt_srtkenmerk_key = 122) -- contractbeheerder + AND k.cnt_kenmerk_key = 716) -- contractbeheerder vink_beheerder, (SELECT p.prs_perslid_email FROM prs_perslid p @@ -1534,7 +1537,7 @@ AS FROM cnt_kenmerkcontract kc, cnt_kenmerk k WHERE k.cnt_kenmerk_key = kc.cnt_kenmerk_key AND kc.cnt_contract_key = c.cnt_contract_key - AND k.cnt_srtkenmerk_key = 123) -- contractverantwoordelijke + AND k.cnt_kenmerk_key = 715) -- verantwoordelijk manager vink_verantwoordelijke, (SELECT p.prs_perslid_email FROM prs_perslid p @@ -1545,77 +1548,35 @@ AS FROM cnt_kenmerkcontract kc, cnt_kenmerk k WHERE k.cnt_kenmerk_key = kc.cnt_kenmerk_key AND kc.cnt_contract_key = c.cnt_contract_key - AND k.cnt_srtkenmerk_key = 124) -- rappel anders - vink_anders, + AND k.cnt_kenmerk_key = 724) -- rappel 2e aanspreekpunt + vink_tweede_aanspreekpunt, + (SELECT p.prs_perslid_email + FROM prs_perslid p + WHERE p.prs_perslid_key = (SELECT fac.safe_to_number(kc.cnt_kenmerkcontract_waarde) + FROM cnt_kenmerkcontract kc, cnt_kenmerk k + WHERE k.cnt_kenmerk_key = kc.cnt_kenmerk_key + AND kc.cnt_contract_key = c.cnt_contract_key + AND k.cnt_kenmerk_key = 723) + AND p.prs_perslid_verwijder IS NULL) + tweede_aanspreekpunt_email, (SELECT kc.cnt_kenmerkcontract_waarde FROM cnt_kenmerkcontract kc, cnt_kenmerk k WHERE k.cnt_kenmerk_key = kc.cnt_kenmerk_key AND kc.cnt_contract_key = c.cnt_contract_key - AND k.cnt_srtkenmerk_key = 161) -- EMAIL bij rappel anders - anders_email + AND k.cnt_kenmerk_key = 717) -- opgezegd + contract_opgezegd, + (SELECT kc.cnt_kenmerkcontract_waarde + FROM cnt_kenmerkcontract kc, cnt_kenmerk k + WHERE k.cnt_kenmerk_key = kc.cnt_kenmerk_key + AND kc.cnt_contract_key = c.cnt_contract_key + AND k.cnt_kenmerk_key = 709) -- opgezegd_reden + contract_opgezegd_reden FROM cnt_v_aanwezigcontract c, ins_tab_discipline d WHERE c.ins_discipline_key = d.ins_discipline_key AND d.ins_discipline_module = 'CNT'; --- Rappel-opzet - versie 1 ----- Wekelijks verstuurd naar Beheerder en Contractverantwoordelijke -CREATE OR REPLACE VIEW hmod_v_noti_cntreminder -( - code, - sender, - receiver, - text, - key, - xkey, - xemail, - xmobile -) -AS - SELECT NULL, - NULL, - c.prs_perslid_key_beh, - 'Rappel: Contract ' || c.cnt_contract_nummer_intern - || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie) - || ' (' || 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, - NULL, - NULL, - NULL - FROM cnt_v_aanwezigcontract c, prs_bedrijf b - WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key - AND cnt_contract_status = 0 - AND NOT EXISTS - (SELECT km.cnt_contract_key - FROM cnt_kenmerkcontract km, cnt_kenmerk k - WHERE km.cnt_contract_key = c.cnt_contract_key AND km.cnt_kenmerk_key = k.cnt_kenmerk_key AND k.cnt_srtkenmerk_key = 61) - AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key) AND cnt.cnt_getopzegdatum (c.cnt_contract_key)) - UNION ALL - SELECT NULL, - NULL, - c.prs_perslid_key_eig, - 'Rappel: Contract ' || c.cnt_contract_nummer_intern - || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie) - || ' (' || 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, - NULL, - NULL, - NULL - FROM cnt_v_aanwezigcontract c, prs_bedrijf b - WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key - AND cnt_contract_status = 0 - AND c.prs_perslid_key_eig IS NOT NULL - AND NOT EXISTS - (SELECT km.cnt_contract_key - FROM cnt_kenmerkcontract km, cnt_kenmerk k - WHERE km.cnt_contract_key = c.cnt_contract_key AND km.cnt_kenmerk_key = k.cnt_kenmerk_key AND k.cnt_srtkenmerk_key = 61) - AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key) AND cnt.cnt_getopzegdatum (c.cnt_contract_key)); - -- Rappel-opzet - HERZIEN ----- Eenmalig verstuurd... +---- Eenmalig verstuurd naar optioneel contract-veantwoordelijke, contractbeheerder en 2e aanspreekpunt CREATE OR REPLACE VIEW hmod_v_noti_cntreminder_2 ( code, @@ -1647,10 +1608,8 @@ AS -- Op rappel-datum naar de Beheerder/Administrateur sturen AND c.cnt_contract_status = 0 AND cnt.cnt_getrappeldatum (c.cnt_contract_key) = TRUNC (SYSDATE) AND c.prs_perslid_key_beh <> c.prs_perslid_key_eig -- als administrateur gelijk aan 1e aanspreekpunt dan dan sturen we de info-mail niet uit - AND NOT EXISTS -- kenmerkveld 'Opgezegd' staat uit - (SELECT km.cnt_contract_key - FROM cnt_kenmerkcontract km, cnt_kenmerk k - WHERE km.cnt_contract_key = c.cnt_contract_key AND km.cnt_kenmerk_key = k.cnt_kenmerk_key AND k.cnt_srtkenmerk_key = 61) + AND v.contract_opgezegd IS NULL + AND v.automatisch_verlengen = 'nee' UNION ALL -- Op rappel-datum ACTIE-mail naar het 1e aanspreekpunt sturen (contractverantwoordelijke) SELECT 'CUST02', NULL, @@ -1671,33 +1630,29 @@ AS -- Op rappel-datum naar de Beheerder/Administrateur sturen AND c.cnt_contract_status = 0 AND cnt.cnt_getrappeldatum (c.cnt_contract_key) = TRUNC (SYSDATE) AND c.prs_perslid_key_eig IS NOT NULL - AND NOT EXISTS -- kenmerkveld 'Opgezegd' staat uit - (SELECT km.cnt_contract_key - FROM cnt_kenmerkcontract km, cnt_kenmerk k - WHERE km.cnt_contract_key = c.cnt_contract_key AND km.cnt_kenmerk_key = k.cnt_kenmerk_key AND k.cnt_srtkenmerk_key = 61) + AND v.contract_opgezegd IS NULL + AND v.automatisch_verlengen = 'nee' UNION ALL -- Op rappel-datum ACTIE-mail naar het 'RAPPEL-ANDERS-emailadres' - SELECT 'CUST02', + SELECT 'CUST03', NULL, NULL, - 'ACTIE: Rappel verstuurd voor contract ' || c.cnt_contract_nummer_intern + 'TER INFO: Rappel verstuurd voor contract ' || c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie) || ' (' || 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, NULL, - v.anders_email, + v.tweede_aanspreekpunt_email, NULL FROM hmod_v_cnt_rappel_basis v, cnt_v_aanwezigcontract c, prs_bedrijf b WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key AND v.cnt_contract_key = c.cnt_contract_key - AND v.vink_anders = 1 + AND v.vink_tweede_aanspreekpunt = 1 AND c.cnt_contract_status = 0 AND cnt.cnt_getrappeldatum (c.cnt_contract_key) = TRUNC (SYSDATE) - AND NOT EXISTS -- kenmerkveld 'Opgezegd' staat uit - (SELECT km.cnt_contract_key - FROM cnt_kenmerkcontract km, cnt_kenmerk k - WHERE km.cnt_contract_key = c.cnt_contract_key AND km.cnt_kenmerk_key = k.cnt_kenmerk_key AND k.cnt_srtkenmerk_key = 61) ; + AND v.contract_opgezegd IS NULL + AND v.automatisch_verlengen = 'nee' ; -- domeinview Contracten CREATE OR REPLACE VIEW hmod_v_contracten