60839: Koppeling Facilitor - Topdesk

svn path=/Customer/trunk/; revision=48331
This commit is contained in:
Suzan Wiegerinck
2020-09-30 09:00:05 +00:00
parent 241c6dca2d
commit dea6b790c0

View File

@@ -7204,6 +7204,9 @@ AS
v_aanduiding VARCHAR2 (100);
v_locatie_key NUMBER;
v_lengte NUMBER;
v_status_ogd VARCHAR2 (200);
v_status_ogd_new VARCHAR2 (200);
v_status_ogd_key NUMBER;
v_new_note VARCHAR2 (4000);
-- Dit haalt het externnummer op uit de opdrachtomschrijving indien externnr bij de melding nog leeg is
@@ -7424,20 +7427,56 @@ BEGIN
FOR rec IN actie_cust
LOOP
BEGIN
v_aanduiding := 'Melding: ' || rec.mld_melding_key;
v_errorhint :=
'Status melding naar Actie aanvrager voor melding '
|| rec.mld_melding_key;
SELECT ko.mld_kenmerkopdr_waarde
INTO v_status_ogd
FROM mld_kenmerkopdr ko,
mld_kenmerk k,
mld_srtkenmerk sk,
mld_opdr o
WHERE ko.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
AND o.mld_opdr_key = ko.mld_opdr_key
AND sk.mld_srtkenmerk_key = 9081
AND ko.mld_kenmerkopdr_verwijder IS NULL
AND o.mld_melding_key = rec.mld_melding_key;
UPDATE mld_melding
SET mld_melding_actiecode = 2
WHERE mld_melding_key = rec.mld_melding_key;
fac.trackaction ('MLDNOT',
rec.mld_melding_key,
rec.prs_perslid_key_voor,
NULL,
'Notitie toegevoegd door OGD');
IF UPPER (v_status_ogd) = 'PENDING CUSTOMER'
THEN
v_aanduiding := 'Melding: ' || rec.mld_melding_key;
v_errorhint :=
'Status melding naar Actie aanvrager voor melding '
|| rec.mld_melding_key;
UPDATE mld_melding
SET mld_melding_actiecode = 2
WHERE mld_melding_key = rec.mld_melding_key;
fac.trackaction ('MLDNOT',
rec.mld_melding_key,
rec.prs_perslid_key_voor,
NULL,
'Notitie toegevoegd door OGD');
/* IF upper(v_status_ogd) = 'PENDING DPL'
THEN*/
ELSE
v_aanduiding := 'Melding: ' || rec.mld_melding_key;
v_errorhint :=
'Status melding naar Attentie voor melding '
|| rec.mld_melding_key;
UPDATE mld_melding
SET mld_melding_actiecode = 129
WHERE mld_melding_key = rec.mld_melding_key;
fac.trackaction (
'MLDNOB',
rec.mld_melding_key,
8502, --- generieke perslid voor mail naar DPL
NULL,
'Melding kwalitatief onvoldoende bevonden door OGD');
END IF;
-- Vervolgens zetten we de sync date zodat we weten dat we weten tot hoever de notities al genotificeerd zijn
mld.upsertmeldingkenmerk (rec.mld_kenmerk_key,
@@ -7540,6 +7579,41 @@ BEGIN
NULL,
'Sync_OGD: ' || rec.sync || ' --> ' || rec.note);
END CASE;
-- De status OGD werken we dan ook nog even netjes bij
SELECT k.mld_kenmerk_key,
CASE
WHEN (UPPER (ko.mld_kenmerkopdr_waarde) = 'PENDING CUSTOMER')
THEN
'Reactie ontvangen'
WHEN UPPER (ko.mld_kenmerkopdr_waarde) = 'PENDING DPL'
AND m.mld_melding_flag = 3
THEN
'Pending DPL'
WHEN UPPER (ko.mld_kenmerkopdr_waarde) = 'PENDING DPL'
AND (m.mld_melding_flag <> 3 OR m.mld_melding_flag IS NULL)
THEN
'Reactie ontvangen'
END CASE
INTO v_status_ogd_key, v_status_ogd_new
FROM mld_kenmerkopdr ko,
mld_kenmerk k,
mld_srtkenmerk sk,
mld_opdr o,
mld_melding m
WHERE ko.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
AND o.mld_opdr_key = ko.mld_opdr_key
AND sk.mld_srtkenmerk_key = 9081
AND ko.mld_kenmerkopdr_verwijder IS NULL
AND o.mld_melding_key = m.mld_melding_key
AND o.mld_opdr_key = rec.mld_opdr_key;
mld.upsertopdrachtkenmerk (v_status_ogd_key,
rec.mld_opdr_key,
v_status_ogd_new);
EXCEPTION
WHEN OTHERS
THEN