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

HPJI#90559 Updaten notificatiesysteem voor contracten en verantwoordelijkheden

Browse Source 
svn path=/Customer/trunk/; revision=70429
This commit is contained in:
Sander Schepers
2025-09-26 13:59:40 +00:00
parent d8713bb48f
commit fdbfdefe3a
1 changed files with 274 additions and 370 deletions
Download Patch File Download Diff File Expand all files Collapse all files

644
HPJI/hpji.sql
View File

@@ -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;
/