diff --git a/HPJI/hpji.sql b/HPJI/hpji.sql index c154e9e1f..70a67ed8f 100644 --- a/HPJI/hpji.sql +++ b/HPJI/hpji.sql @@ -312,269 +312,233 @@ AS v_buscontr NUMBER; CURSOR c IS - --bespreek contract (Subsidie en Detachering) + -- bespreek contract (Subsidie en Detachering) SELECT c.ins_discipline_key, - c.cnt_contract_key, - c.cnt_contract_nummer_intern, - c.cnt_contract_omschrijving, - b.prs_bedrijf_naam, - NULL AS accountmanager, - c.prs_perslid_key_eig AS teamleider, - NULL AS business_controller, - 1421 AS stdmelding, - 'Bespreek contract' AS taak - FROM cnt_contract c, - cnt_kenmerkcontract d, - cnt_kenmerk ck, - prs_bedrijf b - WHERE c.ins_discipline_key IN (1821, 1842) - AND c.cnt_contract_key = d.cnt_contract_key - AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key - AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key - AND TRUNC ( - ADD_MONTHS ( - fac.safe_to_date ( - d.cnt_kenmerkcontract_waarde, - 'dd-mm-yyyy'), - -1)) = - TRUNC (SYSDATE) - AND ck.cnt_srtkenmerk_key = 570 --bespreek contract + c.cnt_contract_key, + c.cnt_contract_nummer_intern, + c.cnt_contract_omschrijving, + b.prs_bedrijf_naam, + c.prs_perslid_key_beh AS accountmanager, -- was NULL + c.prs_perslid_key_eig AS teamleider, + NULL AS business_controller, + 1421 AS stdmelding, + 'Bespreek contract' AS taak + FROM cnt_contract c, + cnt_kenmerkcontract d, + cnt_kenmerk ck, + prs_bedrijf b + WHERE c.ins_discipline_key IN (1821, 1842) + AND c.cnt_contract_key = d.cnt_contract_key + AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key + AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key + AND TRUNC ( + ADD_MONTHS ( + fac.safe_to_date (d.cnt_kenmerkcontract_waarde,'dd-mm-yyyy'), + -1)) = TRUNC (SYSDATE) + AND ck.cnt_srtkenmerk_key = 570 -- bespreek contract UNION ALL - --bespreek contract (Onderaanneming en Raamovereenkomst) + -- bespreek contract (Onderaanneming en Raamovereenkomst) SELECT c.ins_discipline_key, - c.cnt_contract_key, - c.cnt_contract_nummer_intern, - c.cnt_contract_omschrijving, - b.prs_bedrijf_naam, - c.prs_perslid_key_beh AS accountmanager, - NULL AS teamleider, - NULL AS business_controller, - 1403 AS stdmelding, - 'Bespreek contract' AS taak - FROM cnt_contract c, - cnt_kenmerkcontract d, - cnt_kenmerk ck, - prs_bedrijf b - WHERE c.ins_discipline_key IN (1822, 1901) - AND c.cnt_contract_key = d.cnt_contract_key - AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key - AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key - AND TRUNC ( - ADD_MONTHS ( - fac.safe_to_date ( - d.cnt_kenmerkcontract_waarde, - 'dd-mm-yyyy'), - -1)) = - TRUNC (SYSDATE) - AND ck.cnt_srtkenmerk_key = 570 --bespreek contract + c.cnt_contract_key, + c.cnt_contract_nummer_intern, + c.cnt_contract_omschrijving, + b.prs_bedrijf_naam, + c.prs_perslid_key_beh AS accountmanager, + c.prs_perslid_key_eig AS teamleider, -- was NULL + NULL AS business_controller, + 1403 AS stdmelding, + 'Bespreek contract' AS taak + FROM cnt_contract c, + cnt_kenmerkcontract d, + cnt_kenmerk ck, + prs_bedrijf b + WHERE c.ins_discipline_key IN (1822, 1901) + AND c.cnt_contract_key = d.cnt_contract_key + AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key + AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key + AND TRUNC ( + ADD_MONTHS ( + fac.safe_to_date (d.cnt_kenmerkcontract_waarde,'dd-mm-yyyy'), + -1)) = TRUNC (SYSDATE) + AND ck.cnt_srtkenmerk_key = 570 -- bespreek contract UNION ALL - --Indienen aanvraag + -- Indienen aanvraag (Subsidies) SELECT c.ins_discipline_key, - c.cnt_contract_key, - c.cnt_contract_nummer_intern, - c.cnt_contract_omschrijving, - b.prs_bedrijf_naam, - NULL AS accountmanager, - c.prs_perslid_key_eig AS teamleider, - 109570 AS business_controller, - 1404 AS stdmelding, - 'Indienen aanvraag' AS taak - FROM cnt_contract c, - cnt_kenmerkcontract d, - cnt_kenmerk ck, - prs_bedrijf b - WHERE c.ins_discipline_key IN (1821)--, --Subsidies - --1822, --Raamovereenkomst (moet deze ook?) - --1842, --Detacheringen (moet deze ook?) - --1901) --Onderaannemers (moet deze ook?) - AND c.cnt_contract_key = d.cnt_contract_key - AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key - AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key - AND TRUNC ( - ADD_MONTHS ( - fac.safe_to_date ( - d.cnt_kenmerkcontract_waarde, - 'dd-mm-yyyy'), - -2)) = - TRUNC (SYSDATE) - AND ck.cnt_srtkenmerk_key = 571 --Indienen aanvraag + c.cnt_contract_key, + c.cnt_contract_nummer_intern, + c.cnt_contract_omschrijving, + b.prs_bedrijf_naam, + c.prs_perslid_key_beh AS accountmanager, -- was NULL + c.prs_perslid_key_eig AS teamleider, + 109570 AS business_controller, + 1404 AS stdmelding, + 'Indienen aanvraag' AS taak + FROM cnt_contract c, + cnt_kenmerkcontract d, + cnt_kenmerk ck, + prs_bedrijf b + WHERE c.ins_discipline_key IN (1821) + AND c.cnt_contract_key = d.cnt_contract_key + AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key + AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key + AND TRUNC ( + ADD_MONTHS ( + fac.safe_to_date (d.cnt_kenmerkcontract_waarde,'dd-mm-yyyy'), + -2)) = TRUNC (SYSDATE) + AND ck.cnt_srtkenmerk_key = 571 -- Indienen aanvraag UNION ALL -- Tussentijdse verantwoording (Subsidie) SELECT c.ins_discipline_key, - c.cnt_contract_key, - c.cnt_contract_nummer_intern, - c.cnt_contract_omschrijving, - b.prs_bedrijf_naam, - NULL AS accountmanager, - c.prs_perslid_key_eig AS teamleider, - NULL AS business_controller, - 1406 AS stdmelding, - 'Tussentijdse verantwoording' AS taak - FROM cnt_contract c, - cnt_kenmerkcontract d, - cnt_kenmerk ck, - prs_bedrijf b - WHERE c.ins_discipline_key IN (1821) --Contractsoort Subsidie - AND c.cnt_contract_key = d.cnt_contract_key - AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key - AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key - AND TRUNC ( - ADD_MONTHS ( - fac.safe_to_date ( - d.cnt_kenmerkcontract_waarde, - 'dd-mm-yyyy'), - -2)) = - TRUNC (SYSDATE) - AND ck.cnt_srtkenmerk_key = 572 --Tussentijdse verantwoording + c.cnt_contract_key, + c.cnt_contract_nummer_intern, + c.cnt_contract_omschrijving, + b.prs_bedrijf_naam, + c.prs_perslid_key_beh AS accountmanager, -- was NULL + c.prs_perslid_key_eig AS teamleider, + 109570 AS business_controller, -- was NULL (nu JA bij subsidies) + 1406 AS stdmelding, + 'Tussentijdse verantwoording' AS taak + FROM cnt_contract c, + cnt_kenmerkcontract d, + cnt_kenmerk ck, + prs_bedrijf b + WHERE c.ins_discipline_key IN (1821) -- Subsidie + AND c.cnt_contract_key = d.cnt_contract_key + AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key + AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key + AND TRUNC ( + ADD_MONTHS ( + fac.safe_to_date (d.cnt_kenmerkcontract_waarde,'dd-mm-yyyy'), + -2)) = TRUNC (SYSDATE) + AND ck.cnt_srtkenmerk_key = 572 -- Tussentijdse verantwoording UNION ALL -- Tussentijdse verantwoording (Raamovereenkomst) SELECT c.ins_discipline_key, - c.cnt_contract_key, - c.cnt_contract_nummer_intern, - c.cnt_contract_omschrijving, - b.prs_bedrijf_naam, - c.prs_perslid_key_beh AS accountmanager, - NULL AS teamleider, - NULL AS business_controller, - 1601 AS stdmelding, - 'Tussentijdse verantwoording' AS taak - FROM cnt_contract c, - cnt_kenmerkcontract d, - cnt_kenmerk ck, - prs_bedrijf b - WHERE c.ins_discipline_key IN (1822) --Contractsoort Raamovereenkomst - AND c.cnt_contract_key = d.cnt_contract_key - AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key - AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key - AND TRUNC ( - ADD_MONTHS ( - fac.safe_to_date ( - d.cnt_kenmerkcontract_waarde, - 'dd-mm-yyyy'), - -2)) = - TRUNC (SYSDATE) - AND ck.cnt_srtkenmerk_key = 572 --Tussentijdse verantwoording + c.cnt_contract_key, + c.cnt_contract_nummer_intern, + c.cnt_contract_omschrijving, + b.prs_bedrijf_naam, + c.prs_perslid_key_beh AS accountmanager, + c.prs_perslid_key_eig AS teamleider, -- was NULL + NULL AS business_controller, + 1601 AS stdmelding, + 'Tussentijdse verantwoording' AS taak + FROM cnt_contract c, + cnt_kenmerkcontract d, + cnt_kenmerk ck, + prs_bedrijf b + WHERE c.ins_discipline_key IN (1822) -- Raamovereenkomst + AND c.cnt_contract_key = d.cnt_contract_key + AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key + AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key + AND TRUNC ( + ADD_MONTHS ( + fac.safe_to_date (d.cnt_kenmerkcontract_waarde,'dd-mm-yyyy'), + -2)) = TRUNC (SYSDATE) + AND ck.cnt_srtkenmerk_key = 572 -- Tussentijdse verantwoording UNION ALL - --Indienen vaststelling + -- Indienen vaststelling (Subsidies) SELECT c.ins_discipline_key, - c.cnt_contract_key, - c.cnt_contract_nummer_intern, - c.cnt_contract_omschrijving, - b.prs_bedrijf_naam, - NULL AS accountmanager, - c.prs_perslid_key_eig AS teamleider, - 109570 AS business_controller, - 1405 AS stdmelding, - 'Indienen vaststelling' AS taak - FROM cnt_contract c, - cnt_kenmerkcontract d, - cnt_kenmerk ck, - prs_bedrijf b - WHERE c.ins_discipline_key IN (1821)--, --Subsidies - --1822, --Raamovereenkomst (moet deze ook?) - --1842, --Detacheringen (moet deze ook?) - --1901) --Onderaannemers (moet deze ook?) - AND c.cnt_contract_key = d.cnt_contract_key - AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key - AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key - AND TRUNC ( - ADD_MONTHS ( - fac.safe_to_date ( - d.cnt_kenmerkcontract_waarde, - 'dd-mm-yyyy'), - -2)) = - TRUNC (SYSDATE) - AND ck.cnt_srtkenmerk_key = 567 --Indienen vaststelling + c.cnt_contract_key, + c.cnt_contract_nummer_intern, + c.cnt_contract_omschrijving, + b.prs_bedrijf_naam, + c.prs_perslid_key_beh AS accountmanager, -- was NULL + c.prs_perslid_key_eig AS teamleider, + 109570 AS business_controller, + 1405 AS stdmelding, + 'Indienen vaststelling' AS taak + FROM cnt_contract c, + cnt_kenmerkcontract d, + cnt_kenmerk ck, + prs_bedrijf b + WHERE c.ins_discipline_key IN (1821) + AND c.cnt_contract_key = d.cnt_contract_key + AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key + AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key + AND TRUNC ( + ADD_MONTHS ( + fac.safe_to_date (d.cnt_kenmerkcontract_waarde,'dd-mm-yyyy'), + -2)) = TRUNC (SYSDATE) + AND ck.cnt_srtkenmerk_key = 567 -- Indienen vaststelling UNION ALL - --contract loopt af (Subsidie en Detachering) + -- contract loopt af (Subsidie en Detachering) SELECT c.ins_discipline_key, - c.cnt_contract_key, - c.cnt_contract_nummer_intern, - c.cnt_contract_omschrijving, - b.prs_bedrijf_naam, - NULL AS accountmanager, - c.prs_perslid_key_eig AS teamleider, - NULL AS business_controller, - 1402 AS stdmelding, - 'Contract loopt af' AS taak - FROM cnt_contract c, - cnt_kenmerkcontract d, - cnt_kenmerk ck, - prs_bedrijf b - WHERE c.ins_discipline_key IN (1821, 1842) --Subsidies & Detacheringen - AND c.cnt_contract_key = d.cnt_contract_key - AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key - AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key - AND TRUNC ( - ADD_MONTHS ( - fac.safe_to_date ( - d.cnt_kenmerkcontract_waarde, - 'dd-mm-yyyy'), - -2)) = - TRUNC (SYSDATE) - AND ck.cnt_srtkenmerk_key = 569 --contract loopt af + c.cnt_contract_key, + c.cnt_contract_nummer_intern, + c.cnt_contract_omschrijving, + b.prs_bedrijf_naam, + c.prs_perslid_key_beh AS accountmanager, -- was NULL + c.prs_perslid_key_eig AS teamleider, + NULL AS business_controller, + 1402 AS stdmelding, + 'Contract loopt af' AS taak + FROM cnt_contract c, + cnt_kenmerkcontract d, + cnt_kenmerk ck, + prs_bedrijf b + WHERE c.ins_discipline_key IN (1821, 1842) + AND c.cnt_contract_key = d.cnt_contract_key + AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key + AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key + AND TRUNC ( + ADD_MONTHS ( + fac.safe_to_date (d.cnt_kenmerkcontract_waarde,'dd-mm-yyyy'), + -2)) = TRUNC (SYSDATE) + AND ck.cnt_srtkenmerk_key = 569 -- contract loopt af UNION ALL - --contract loopt af (Raamovereenkomst & onderaanneming) + -- contract loopt af (Raamovereenkomst & Onderaanneming) SELECT c.ins_discipline_key, - c.cnt_contract_key, - c.cnt_contract_nummer_intern, - c.cnt_contract_omschrijving, - b.prs_bedrijf_naam, - c.prs_perslid_key_beh AS accountmanager, - NULL AS teamleider, - NULL AS business_controller, - 1423 AS stdmelding, - 'Contract loopt af' AS taak - FROM cnt_contract c, - cnt_kenmerkcontract d, - cnt_kenmerk ck, - prs_bedrijf b - WHERE c.ins_discipline_key IN (1822, 1901) -- Raamovereenkomst & Onderaanneming - AND c.cnt_contract_key = d.cnt_contract_key - AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key - AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key - AND TRUNC ( - ADD_MONTHS ( - fac.safe_to_date ( - d.cnt_kenmerkcontract_waarde, - 'dd-mm-yyyy'), - -3)) = - TRUNC (SYSDATE) - AND ck.cnt_srtkenmerk_key = 569 --contract loopt af + c.cnt_contract_key, + c.cnt_contract_nummer_intern, + c.cnt_contract_omschrijving, + b.prs_bedrijf_naam, + c.prs_perslid_key_beh AS accountmanager, + c.prs_perslid_key_eig AS teamleider, -- was NULL + NULL AS business_controller, + 1423 AS stdmelding, + 'Contract loopt af' AS taak + FROM cnt_contract c, + cnt_kenmerkcontract d, + cnt_kenmerk ck, + prs_bedrijf b + WHERE c.ins_discipline_key IN (1822, 1901) + AND c.cnt_contract_key = d.cnt_contract_key + AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key + AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key + AND TRUNC ( + ADD_MONTHS ( + fac.safe_to_date (d.cnt_kenmerkcontract_waarde,'dd-mm-yyyy'), + -3)) = TRUNC (SYSDATE) + AND ck.cnt_srtkenmerk_key = 569 -- contract loopt af UNION ALL - --Accountantsverklaring + -- Accountantsverklaring (Subsidies) << TL blijft NIET aangezet SELECT c.ins_discipline_key, - c.cnt_contract_key, - c.cnt_contract_nummer_intern, - c.cnt_contract_omschrijving, - b.prs_bedrijf_naam, - NULL AS accountmanager, - NULL AS teamleider, - 109570 AS business_controller, - 1401 AS stdmelding, - 'Accountantsverklaring' AS taak - FROM cnt_contract c, - cnt_kenmerkcontract d, - cnt_kenmerk ck, - prs_bedrijf b - WHERE c.ins_discipline_key IN (1821)--, --Subsidies - --1822, --Raamovereenkomst (moet deze ook?) - --1842, --Detacheringen (moet deze ook?) - --1901) --Onderaannemers (moet deze ook?) - AND c.cnt_contract_key = d.cnt_contract_key - AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key - AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key - AND TRUNC ( - ADD_MONTHS ( - fac.safe_to_date ( - d.cnt_kenmerkcontract_waarde, - 'dd-mm-yyyy'), - -3)) = - TRUNC (SYSDATE) - AND ck.cnt_srtkenmerk_key = 568; --Accountantsverklaring + c.cnt_contract_key, + c.cnt_contract_nummer_intern, + c.cnt_contract_omschrijving, + b.prs_bedrijf_naam, + c.prs_perslid_key_beh AS accountmanager, -- was NULL + NULL AS teamleider, -- blijft NULL i.v.m. uitzondering + 109570 AS business_controller, + 1401 AS stdmelding, + 'Accountantsverklaring' AS taak + FROM cnt_contract c, + cnt_kenmerkcontract d, + cnt_kenmerk ck, + prs_bedrijf b + WHERE c.ins_discipline_key IN (1821) + AND c.cnt_contract_key = d.cnt_contract_key + AND d.cnt_kenmerk_key = ck.cnt_kenmerk_key + AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key + AND TRUNC ( + ADD_MONTHS ( + fac.safe_to_date (d.cnt_kenmerkcontract_waarde,'dd-mm-yyyy'), + -3)) = TRUNC (SYSDATE) + AND ck.cnt_srtkenmerk_key = 568; -- Accountantsverklaring BEGIN - v_uitvoerder := 4; --Standaard de persoon Facilitor - v_kostenplaats := 1910; --Standaard Facilitair + v_uitvoerder := 4; -- Standaard de persoon Facilitor + v_kostenplaats := 1910; -- Standaard Facilitair FOR rec IN c LOOP @@ -589,34 +553,33 @@ AS v_errorhint := 'Bepalen uitvoerder en kostenplaats'; SELECT NVL(MIN (p.prs_perslid_key),4), NVL(MIN (d.prs_kostenplaats_key),1910) - INTO v_uitvoerder, v_kostenplaats - FROM prs_perslid p, prs_afdeling d - WHERE p.prs_afdeling_key = d.prs_afdeling_key - AND p.prs_perslid_verwijder IS NULL - AND prs_perslid_key = - DECODE (rec.stdmelding, - 1401, rec.business_controller, - 1402, rec.teamleider, - 1403, rec.accountmanager, - 1404, rec.teamleider, - 1405, rec.teamleider, - 1406, rec.teamleider, - 1421, rec.teamleider, - 1423, rec.accountmanager, - 1601, rec.accountmanager); + INTO v_uitvoerder, v_kostenplaats + FROM prs_perslid p, prs_afdeling d + WHERE p.prs_afdeling_key = d.prs_afdeling_key + AND p.prs_perslid_verwijder IS NULL + AND prs_perslid_key = + DECODE (rec.stdmelding, + 1401, rec.business_controller, + 1402, rec.teamleider, + 1403, rec.accountmanager, + 1404, rec.teamleider, + 1405, rec.teamleider, + 1406, rec.teamleider, + 1421, rec.teamleider, + 1423, rec.accountmanager, + 1601, rec.accountmanager); - -- Notificaties aanmaken tbv accountmanagers + -- Notificaties accountmanager v_errorhint := 'notificatie_accountmanager'; v_accm := rec.accountmanager; - IF v_accm IS NOT NULL - THEN + IF v_accm IS NOT NULL THEN FAC.trackaction ( 'CNTMAI', rec.cnt_contract_key, NULL, NULL, - 'Notificatie naar accountmanager, taak: ' + 'Notificatie naar accountmanager, taak: ' || rec.taak || ' bij contract ' || rec.cnt_contract_key @@ -635,37 +598,24 @@ AS fac_notificatie_refkey, fac_notificatie_extrakey, fac_notificatie_prioriteit) - VALUES ( - 53, -- CNTMAI - 2, -- mail - NULL, - v_accm, - 'Notificatie naar accountmanager, taak: ' - || rec.taak - || ' bij contract ' - || rec.cnt_contract_key - || '(' - || rec.prs_bedrijf_naam - || ' - ' - || rec.cnt_contract_omschrijving - || ')', - rec.cnt_contract_key, - NULL, - 2); + VALUES (53, 2, NULL, v_accm, + 'Notificatie naar accountmanager, taak: ' + || rec.taak || ' bij contract ' || rec.cnt_contract_key + || '(' || rec.prs_bedrijf_naam || ' - ' || rec.cnt_contract_omschrijving || ')', + rec.cnt_contract_key, NULL, 2); END IF; - -- Notificaties aanmaken tbv teamleiders + -- Notificaties teamleider v_errorhint := 'notificatie_teamleider'; v_teaml := rec.teamleider; - IF v_teaml IS NOT NULL - THEN + IF v_teaml IS NOT NULL THEN FAC.trackaction ( 'CNTMAI', rec.cnt_contract_key, NULL, NULL, - 'Notificatie naar teamleider/clustermanager, taak: ' + 'Notificatie naar teamleider/clustermanager, taak: ' || rec.taak || ' bij contract ' || rec.cnt_contract_key @@ -684,37 +634,24 @@ AS fac_notificatie_refkey, fac_notificatie_extrakey, fac_notificatie_prioriteit) - VALUES ( - 53, -- CNTMAI - 2, -- mail - NULL, - v_teaml, - 'Notificatie naar teamleider/clustermanager, taak: ' - || rec.taak - || ' bij contract ' - || rec.cnt_contract_key - || '(' - || rec.prs_bedrijf_naam - || ' - ' - || rec.cnt_contract_omschrijving - || ')', - rec.cnt_contract_key, - NULL, - 2); + VALUES (53, 2, NULL, v_teaml, + 'Notificatie naar teamleider/clustermanager, taak: ' + || rec.taak || ' bij contract ' || rec.cnt_contract_key + || '(' || rec.prs_bedrijf_naam || ' - ' || rec.cnt_contract_omschrijving || ')', + rec.cnt_contract_key, NULL, 2); END IF; - -- Notificaties aanmaken tbv de business controller + -- Notificaties business controller v_errorhint := 'notificatie_businesscontrol'; v_buscontr := rec.business_controller; - IF v_buscontr IS NOT NULL - THEN + IF v_buscontr IS NOT NULL THEN FAC.trackaction ( 'CNTMAI', rec.cnt_contract_key, NULL, NULL, - 'Notificatie naar Business Controller, taak: ' + 'Notificatie naar Business Controller, taak: ' || rec.taak || ' bij contract ' || rec.cnt_contract_key @@ -733,67 +670,44 @@ AS fac_notificatie_refkey, fac_notificatie_extrakey, fac_notificatie_prioriteit) - VALUES ( - 53, -- CNTMAI - 2, -- mail - NULL, - v_buscontr, - 'Notificatie naar Business Controller, taak: ' - || rec.taak - || ' bij contract ' - || rec.cnt_contract_key - || '(' - || rec.prs_bedrijf_naam - || ' - ' - || rec.cnt_contract_omschrijving - || ')', - rec.cnt_contract_key, - NULL, - 2); + VALUES (53, 2, NULL, v_buscontr, + 'Notificatie naar Business Controller, taak: ' + || rec.taak || ' bij contract ' || rec.cnt_contract_key + || '(' || rec.prs_bedrijf_naam || ' - ' || rec.cnt_contract_omschrijving || ')', + rec.cnt_contract_key, NULL, 2); END IF; -- Melding aanmaken - v_errorhint := - 'Melding aanmaken vanuit contract ' - || rec.cnt_contract_key - || ' met taak ' - || rec.taak; + v_errorhint := 'Melding aanmaken vanuit contract ' || rec.cnt_contract_key || ' met taak ' || rec.taak; INSERT INTO mld_melding (mld_melding_module, - mld_meldbron_key, - mld_melding_datum, - mld_melding_onderwerp, - mld_melding_omschrijving, - mld_melding_status, - mld_melding_t_uitvoertijd, - mld_stdmelding_key, - mld_alg_locatie_key, - mld_melding_externnr, - prs_perslid_key, - prs_perslid_key_voor, - prs_kostenplaats_key, - mld_melding_behandelaar_key, - mld_melding_spoed, - mld_melding_kto_type, - mld_melding_kto_key) - VALUES ( + mld_meldbron_key, + mld_melding_datum, + mld_melding_onderwerp, + mld_melding_omschrijving, + mld_melding_status, + mld_melding_t_uitvoertijd, + mld_stdmelding_key, + mld_alg_locatie_key, + mld_melding_externnr, + prs_perslid_key, + prs_perslid_key_voor, + prs_kostenplaats_key, + mld_melding_behandelaar_key, + mld_melding_spoed, + mld_melding_kto_type, + mld_melding_kto_key) + VALUES ( 'MLD', - 6, -- system + 6, -- system SYSDATE, - SUBSTR ( - 'Contract ' - || rec.cnt_contract_key - || ': ' - || rec.prs_bedrijf_naam - || ' - ' - || rec.cnt_contract_omschrijving, - 1, - 80), + SUBSTR('Contract ' || rec.cnt_contract_key || ': ' || rec.prs_bedrijf_naam + || ' - ' || rec.cnt_contract_omschrijving,1,80), NULL, - 2, -- Nieuw - NULL, -- stduitvoer + 2, -- Nieuw + NULL, -- stduitvoer rec.stdmelding, - NULL, -- Locatie onbekend + NULL, -- Locatie onbekend NULL, v_uitvoerder, v_uitvoerder, @@ -802,25 +716,15 @@ AS 3, 'C', rec.cnt_contract_key) - RETURNING mld_melding_key - INTO v_mldkey; + RETURNING mld_melding_key INTO v_mldkey; END; END LOOP; EXCEPTION - WHEN OTHERS - THEN + WHEN OTHERS THEN oracle_err_num := SQLCODE; oracle_err_mes := SUBSTR (SQLERRM, 1, 200); - v_errorhint := - 'ORACLE (error ' - || oracle_err_num - || '/' - || oracle_err_mes - || ')'; - fac.writelog (p_applname, - 'E', - 'Proces afgebroken!', - v_errorhint); + v_errorhint := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')'; + fac.writelog (p_applname, 'E', 'Proces afgebroken!', v_errorhint); END hpji_acties_verkoopcontracten; END; /