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

PNBR#60839: Koppeling Facilitor - Topdesk, fase 2: unhappy flow

Browse Source 
PNBR#63326: Aanpassing personen import

svn path=/Customer/trunk/; revision=48402
This commit is contained in:
Suzan Wiegerinck
2020-10-06 12:55:23 +00:00
parent 886bb7feab
commit 1bc1f6312d
1 changed files with 619 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

722
PNBR/pnbr.sql
View File

@@ -1012,7 +1012,8 @@ AS
v_seq_of_columns VARCHAR (255);
BEGIN
v_seq_of_columns :=
'0;0;0;4;5;6;7;8;9;11;10;0;0;0;0;13;14;15;0;17;16;18;19;12;0;0;3;1;2;30;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46';
'0;0;0;0;0;0;7;8;9;11;10;0;0;0;0;13;14;15;0;17;16;18;19;12;0;0;0;0;0;30;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46';
-- '0;0;0;4;5;6;7;8;9;11;10;0;0;0;0;13;14;15;0;17;16;18;19;12;0;0;3;1;2;30;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46';
prs.import_perslid (
p_import_key,
v_seq_of_columns,
@@ -1020,6 +1021,10 @@ BEGIN
-- we gebruikten kenmerk1 om tijdelijk de verdieping op te slaan. Bij PNBR kunnen namelijk letters in de verdieping staan. Deze
-- proberen we eruit te werken zodat we op het laatst de verdieping weer om kunnen zetten.
-- Zie Logcentre #63326: aanpassing personen import. De ruimte gegevens geven veel foutmeldingen.
-- We nemen de locatie gegevens voorlopig niet meer over
/*
UPDATE fac_imp_perslid
SET alg_locatie_code = 'PH',
alg_gebouw_code = '01',
@@ -1166,30 +1171,85 @@ BEGIN
UPDATE fac_imp_perslid
SET alg_ruimte_nr = 'HJZ'
WHERE alg_ruimte_nr LIKE 'HJZ%';
*/
COMMIT;
END pnbr_import_perslid_mut;
/
CREATE OR REPLACE PROCEDURE pnbr_update_perslid_mut (p_import_key IN NUMBER)
IS
CURSOR c_renew IS
SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full
FROM fac_imp_perslid i,
prs_perslid p,
prs_v_perslid_fullnames_all pf
WHERE p.prs_perslid_nr = i.prs_perslid_nr
AND pf.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_verwijder IS NULL
AND EXISTS
(SELECT prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_kenmerklink_verwijder IS NULL
AND prs_link_key = p.prs_perslid_key
AND prs_kenmerk_key = 1020) -- datum uitdienst
ORDER BY 2;
c_fielddelimitor VARCHAR2 (1) := ';';
v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (200);
v_sleutelkolom VARCHAR2 (200);
v_count NUMBER (10);
v_ongeldig NUMBER (1);
v_count_update NUMBER (10);
v_count_error NUMBER (10);
v_count_tot NUMBER (10);
v_wpcount_error NUMBER (10);
--
v_perslid_key NUMBER (10);
v_perslid_nr VARCHAR2 (100);
v_afdeling_key NUMBER (10);
v_srtperslid_key NUMBER (10);
v_prs_perslid_naam VARCHAR2 (200);
v_prs_perslid_tussenvoegsel VARCHAR2 (200);
v_kostenplaats_nr VARCHAR2 (100);
v_locatie_key NUMBER (10);
v_gebouw_key NUMBER (10);
v_verdieping_key NUMBER (10);
v_ruimte_key NUMBER (10);
v_space VARCHAR2 (1);
-- OS LOGIN komt meerdere keren voor met verschillende personeelsnrs
-- Van de personen die dubbel voorkomen in de import (nieuw account is aangemaakt maar oude is nog niet vervallen) zal slechts 1 regel gebruikt worden om de persoonsgegevens bij te werken.
-- Dat zal op basis van het reeds bestaande personeelsnummer moeten zijn.
CURSOR c_del_dubbele IS
SELECT ip.prs_perslid_nr
FROM fac_imp_perslid ip
WHERE EXISTS
( SELECT i.prs_perslid_oslogin
FROM fac_imp_perslid i
WHERE i.prs_perslid_oslogin IS NOT NULL
AND i.prs_perslid_oslogin =
ip.prs_perslid_oslogin
GROUP BY i.prs_perslid_oslogin
HAVING COUNT (i.prs_perslid_nr) > 1)
AND NOT EXISTS
(SELECT p.prs_perslid_nr
FROM prs_perslid p
WHERE p.prs_perslid_nr = ip.prs_perslid_nr);
--- bijwerken stamtabel met functies als er nieuwe functies in de import zitten
CURSOR c_imp_functie IS
SELECT MIN (prs_srtperslid_omschrijving) prs_srtperslid_omschrijving
FROM fac_imp_perslid i
WHERE NOT EXISTS
(SELECT prs_srtperslid_key
FROM prs_srtperslid sp
WHERE UPPER (sp.prs_srtperslid_omschrijving) =
UPPER (i.prs_srtperslid_omschrijving)
AND prs_srtperslid_verwijder IS NULL)
GROUP BY UPPER (prs_srtperslid_omschrijving);
--- import van perslid
CURSOR c_imp_perslid IS
SELECT *
FROM fac_imp_perslid ip;
-- Set kenmerk 'Datum uitdienst' als pers met persnr niet meer in de import file zit
-- Let op: oslogin kan er wel in zitten, persoon heeft dan nieuw persnummer!
-- Account wordt dan na 2 maanden definitief beeindigd
CURSOR c_mark IS
SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full
FROM fac_imp_perslid i,
@@ -1208,6 +1268,7 @@ IS
AND prs_kenmerk_key = 1020) -- datum uitdienst
ORDER BY 2;
--- Daadwerkelijk beeindigen van account als deze 2 maanden geleden is gemarkeerd
CURSOR c_del IS
SELECT p.prs_perslid_key, p.prs_perslid_nr, pf.prs_perslid_naam_full
FROM fac_imp_perslid i,
@@ -1229,19 +1290,35 @@ IS
SYSDATE),
2) <
SYSDATE
ORDER BY 2;
-- Kenmerk veld 'Datum uitdienst' leegmaken bij perslid als deze toch weer in de import tabel zit
-- Mdw is waarschijnlijk weer in dienst
CURSOR c_renew IS
SELECT p.prs_perslid_key,
p.prs_perslid_nr,
pf.prs_perslid_naam_full,
p.prs_perslid_oslogin
FROM fac_imp_perslid i,
prs_perslid p,
prs_v_perslid_fullnames_all pf
WHERE (p.prs_perslid_oslogin = i.prs_perslid_oslogin
OR p.prs_perslid_nr = i.prs_perslid_nr)
AND pf.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_verwijder IS NULL
AND EXISTS
(SELECT prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_kenmerklink_verwijder IS NULL
AND prs_link_key = p.prs_perslid_key
AND prs_kenmerk_key = 1020) -- datum uitdienst
ORDER BY 2;
CURSOR c_imp IS
SELECT *
FROM fac_imp_file
WHERE fac_import_key = p_import_key;
v_perslid_key NUMBER;
v_perslid_nr VARCHAR2 (100);
v_kostenplaats_nr VARCHAR2 (100);
v_count NUMBER;
BEGIN
-- generic update
v_count_update := 0;
v_count_tot := 0;
v_count_error := 0;
v_wpcount_error := 0;
SELECT COUNT (*) INTO v_count FROM fac_imp_perslid;
@@ -1257,19 +1334,435 @@ BEGIN
RETURN;
END IF;
prs.update_perslid (p_import_key, 'NR', 'A');
-- Personen die 2x voorkomen in de importtabel op basis van oslogin
-- Daarvan moet 1 record uit de importtabel verwijderd worden
FOR rec IN c_del_dubbele
LOOP
BEGIN
DELETE fac_imp_perslid i
WHERE i.prs_perslid_nr = rec.prs_perslid_nr;
END;
END LOOP;
-- eerst alle functies up to date
FOR rec IN c_imp_functie
LOOP
BEGIN
v_aanduiding := '';
v_errormsg := '';
v_errorhint := '';
v_count_tot := v_count_tot + 1;
v_aanduiding := rec.prs_srtperslid_omschrijving;
v_errorhint := 'Zoek in verwijderde functies';
SELECT MAX (prs_srtperslid_key)
INTO v_srtperslid_key
FROM prs_srtperslid sp
WHERE UPPER (sp.prs_srtperslid_omschrijving) =
UPPER (recSPersLid.prs_srtperslid_omschrijving);
IF v_srtperslid_key IS NULL
THEN
v_errorhint := 'Fout bij toevoegen functie';
INSERT INTO prs_srtperslid (prs_srtperslid_omschrijving)
VALUES (recSPersLid.prs_srtperslid_omschrijving);
ELSE
v_errorhint := 'Reanimeer functie';
UPDATE prs_srtperslid
SET prs_srtperslid_verwijder = NULL
WHERE prs_srtperslid_key = v_srtperslid_key;
END IF;
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 :=
' (ORACLE error number = <'
|| ORACLE_err_num
|| '> ORACLE error message = <'
|| ORACLE_err_mes
|| '>)';
fac.imp_writelog (p_import_key,
'E',
v_aanduiding || v_errormsg,
v_errorhint);
COMMIT; -- tbv logging
END;
END LOOP;
fac.imp_writelog (
p_import_key,
'S',
'Personeelsfunctie: toegevoegde regels zonder foutmelding: '
|| TO_CHAR (v_count_tot - v_count_error),
'');
fac.imp_writelog (
p_import_key,
'S',
'Personeelsfunctie: toegevoegde regels met foutmelding: '
|| TO_CHAR (v_count_error),
'');
COMMIT; -- logging
v_count_update := 0;
v_count_tot := 0;
v_count_error := 0;
----------------------------------------------------
--- BEGIN STANDAARD IMPORT -------------------------
----------------------------------------------------
FOR rec IN c_imp_perslid
LOOP
BEGIN
v_aanduiding := '';
v_errormsg := '';
v_errorhint := '';
v_count_tot := v_count_tot + 1;
v_aanduiding :=
rec.prs_perslid_naam
|| '|'
|| rec.prs_perslid_voornaam
|| '| ';
v_errormsg := '';
v_errorhint := 'Fout bij bepalen functie';
SELECT prs_srtperslid_key
INTO v_srtperslid_key
FROM prs_srtperslid
WHERE prs_srtperslid_verwijder IS NULL
AND UPPER (prs_srtperslid_omschrijving) =
UPPER (rec.prs_srtperslid_omschrijving);
IF rec.prs_perslid_oslogin IS NOT NULL
THEN
v_sleutelkolom := 'LOGIN';
ELSE
v_sleutelkolom := 'NR';
END IF;
v_errorhint :=
'Afdeling niet gevonden [' || rec.prs_afdeling_naam || ']';
SELECT a.prs_afdeling_key
INTO v_afdeling_key
FROM prs_v_aanwezigafdeling_boom b, prs_afdeling a
WHERE UPPER (a.prs_afdeling_naam) =
UPPER (rec.prs_afdeling_naam)
AND a.prs_afdeling_verwijder IS NULL
AND a.prs_afdeling_key = b.prs_afdeling_key;
v_space := '';
-- kijk hoe we met partnernamen moeten omgaan:
IF rec.prs_perslid_naamgebruik_code = 0
THEN
-- normaal gebruik van naam. Eigen naam wordt gebruikt
v_prs_perslid_naam := rec.prs_perslid_naam;
v_prs_perslid_tussenvoegsel := rec.prs_perslid_tussenvoegsel;
ELSIF rec.prs_perslid_naamgebruik_code = 1
THEN
-- personen die de geboortenaam van de partner icm de eigen naam willen gebruiken
IF rec.prs_perslid_tussenvoegsel IS NOT NULL
THEN
v_space := ' ';
END IF;
v_prs_perslid_naam :=
rec.prs_perslid_partner_naam
|| ' - '
|| rec.prs_perslid_tussenvoegsel
|| v_space
|| rec.prs_perslid_naam;
v_prs_perslid_tussenvoegsel :=
rec.prs_perslid_partner_tussenv;
ELSIF rec.prs_perslid_naamgebruik_code = 2
THEN
-- personen die de geboortenaam van de partner willen gebruiken
v_prs_perslid_naam := rec.prs_perslid_partner_naam;
v_prs_perslid_tussenvoegsel :=
rec.prs_perslid_partner_tussenv;
ELSIF rec.prs_perslid_naamgebruik_code = 3
THEN
-- personen die de eigen naam icm de geboortenaam van de partner willen gebruiken
IF rec.prs_perslid_partner_tussenv IS NOT NULL
THEN
v_space := ' ';
END IF;
v_prs_perslid_naam :=
rec.prs_perslid_naam
|| ' - '
|| rec.prs_perslid_partner_tussenv
|| v_space
|| rec.prs_perslid_partner_naam;
v_prs_perslid_tussenvoegsel := rec.prs_perslid_tussenvoegsel;
END IF;
IF LENGTH (v_prs_perslid_naam) > 60
THEN
v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 60);
fac.imp_writelog (
p_import_key,
'W',
rec.prs_perslid_naam
|| '|'
|| rec.prs_perslid_voornaam
|| '| '
|| 'Samengestelde achternaam is te lang',
'Aanduiding wordt afgebroken tot ['
|| v_prs_perslid_naam
|| ']');
END IF;
-- v_sleutelkolom
-- NR = prs_perslid_nr
-- LOGIN = prs_perslid_oslogin
v_errorhint := 'Kijken of de persoon al bestaat';
SELECT MAX (prs_perslid_key), COUNT (*)
INTO v_perslid_key, v_count
FROM prs_perslid
WHERE prs_perslid_verwijder IS NULL
AND ( (UPPER (p_sleutelkolom) = 'NR'
AND UPPER (prs_perslid_nr) =
UPPER (rec.prs_perslid_nr)
)
OR
( UPPER (p_sleutelkolom) = 'LOGIN'
AND UPPER (prs_perslid_oslogin) =
UPPER (rec.prs_perslid_oslogin)
)
);
IF (v_count = 0)
THEN
v_errorhint := 'Fout bij toevoegen persoon';
INSERT INTO prs_perslid (prs_perslid_module,
prs_srtperslid_key,
prs_afdeling_key,
prs_perslid_naam,
prs_perslid_voorletters,
prs_perslid_tussenvoegsel,
prs_perslid_voornaam,
prs_perslid_telefoonnr,
prs_perslid_mobiel,
prs_perslid_email,
prs_perslid_nr,
prs_perslid_geslacht,
prs_perslid_titel,
prs_perslid_dienstverband,
prs_perslid_oslogin,
prs_perslid_apikey)
VALUES ('PRS',
v_srtperslid_key,
v_afdeling_key,
v_prs_perslid_naam,
rec.prs_perslid_voorletters,
v_prs_perslid_tussenvoegsel,
rec.prs_perslid_voornaam,
rec.prs_perslid_telefoonnr,
rec.prs_perslid_mobiel,
rec.prs_perslid_email,
rec.prs_perslid_nr,
rec.prs_perslid_geslacht,
rec.prs_perslid_titel,
rec.prs_perslid_dienstverband,
rec.prs_perslid_oslogin,
rec.prs_perslid_apikey)
RETURNING prs_perslid_key
INTO v_perslid_key;
prs.setpassword (v_perslid_key, rec.prs_perslid_wachtwoord);
COMMIT;
v_count_update := v_count_update + 1;
ELSIF v_count = 1
THEN
UPDATE prs_perslid
SET prs_srtperslid_key = v_srtperslid_key,
prs_afdeling_key = v_afdeling_key,
prs_perslid_naam = v_prs_perslid_naam,
prs_perslid_voorletters = rec.prs_perslid_voorletters,
prs_perslid_tussenvoegsel =
v_prs_perslid_tussenvoegsel,
prs_perslid_voornaam = rec.prs_perslid_voornaam,
prs_perslid_nr = rec.prs_perslid_nr,
prs_perslid_dienstverband =
rec.prs_perslid_dienstverband,
prs_perslid_geslacht = rec.prs_perslid_geslacht,
prs_perslid_titel = rec.prs_perslid_titel,
prs_perslid_telefoonnr = rec.prs_perslid_telefoonnr,
prs_perslid_mobiel = rec.prs_perslid_mobiel,
prs_perslid_email = rec.prs_perslid_email,
prs_perslid_oslogin = rec.prs_perslid_oslogin,
prs_perslid_apikey = rec.prs_perslid_apikey
WHERE prs_perslid_key = v_perslid_key;
IF rec.prs_perslid_wachtwoord IS NOT NULL
THEN
prs.setpassword (v_perslid_key,
rec.prs_perslid_wachtwoord);
END IF;
END IF;
-- Voor CUST-postprocessing (van de kenmerken) is het handig te onthouden:
UPDATE fac_imp_perslid
SET prs_perslid_key = v_perslid_key
WHERE fac_import_key = rec.fac_import_key
AND fac_imp_file_index = rec.fac_imp_file_index;
COMMIT; -- persoon in ieder geval toegevoegd.
v_aanduiding :=
rec.prs_perslid_nr
|| '|'
|| rec.prs_perslid_naam
|| '|'
|| rec.prs_perslid_voornaam
|| '|'
|| rec.alg_locatie_code
|| '|'
|| rec.alg_gebouw_code
|| '|'
|| rec.alg_verdieping_volgnr
|| '|'
|| rec.alg_ruimte_nr
|| ' - ';
v_locatie_key := NULL;
v_gebouw_key := NULL;
v_verdieping_key := NULL;
v_ruimte_key := NULL;
v_errorhint := 'Fout bij bepalen locatie';
SELECT MAX (alg_locatie_key)
INTO v_locatie_key
FROM alg_v_aanweziglocatie
WHERE UPPER (alg_locatie_code) = UPPER (rec.alg_locatie_code);
v_errorhint := 'Fout bij bepalen gebouw';
SELECT MAX (alg_gebouw_key)
INTO v_gebouw_key
FROM alg_v_aanweziggebouw
WHERE UPPER (alg_gebouw_code) = UPPER (rec.alg_gebouw_code)
AND alg_locatie_key = v_locatie_key;
v_errorhint := 'Fout bij bepalen verdieping';
SELECT MAX (alg_verdieping_key)
INTO v_verdieping_key
FROM alg_v_aanwezigverdieping
WHERE UPPER (alg_verdieping_volgnr) =
UPPER (rec.alg_verdieping_volgnr)
AND alg_gebouw_key = v_gebouw_key;
v_errorhint := 'Fout bij bepalen beoogde ruimte';
SELECT MAX (alg_ruimte_key)
INTO v_ruimte_key
FROM alg_v_aanwezigruimte r
WHERE r.alg_ruimte_upper_nr = UPPER (rec.alg_ruimte_nr)
AND r.alg_verdieping_key = v_verdieping_key;
-- standaard ruimte moet door cust gedeelte van deFout bij bepalen beoogde ruimte import ingevuld worden.
-- als er een locatie ingevuld is willen we ook een ruimte vinden.
IF v_ruimte_key IS NULL AND rec.alg_locatie_code IS NOT NULL
THEN
fac.imp_writelog (
p_import_key,
'W',
v_aanduiding || ' Ruimte kan niet gevonden worden',
'Controleer locatie,gebouw en verdieping');
END IF;
-- fouten bij het bepalen van de werkplek worden als waarschuwing weergegeven.
BEGIN
v_errorhint := 'Fout bij het aanpassen van de werkplek';
PRS.movetoruimte (v_perslid_key, v_ruimte_key, p_alg_type);
EXCEPTION
WHEN OTHERS
THEN
v_wpcount_error := v_wpcount_error + 1;
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
' (ORACLE error number = <'
|| ORACLE_err_num
|| '> ORACLE error message = <'
|| ORACLE_err_mes
|| '>)';
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || v_errormsg,
v_errorhint);
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 :=
' (ORACLE error number = <'
|| ORACLE_err_num
|| '> ORACLE error message = <'
|| ORACLE_err_mes
|| '>)';
fac.imp_writelog (p_import_key,
'E',
v_aanduiding || v_errormsg,
v_errorhint);
COMMIT; -- tbv logging
END;
END LOOP;
fac.imp_writelog (
p_import_key,
'S',
'Persoon: verwerkte regels zonder foutmelding: '
|| TO_CHAR (v_count_tot - v_count_error),
'');
fac.imp_writelog (
p_import_key,
'S',
'Persoon: verwerkte regels met foutmelding: '
|| TO_CHAR (v_count_error),
'');
fac.imp_writelog (
p_import_key,
'S',
'Werkplek: verwerkte regels met foutmelding: '
|| TO_CHAR (v_wpcount_error),
'');
-- ken iedereen een profiel toe
UPDATE prs_perslid
SET fac_profiel_key = 1
WHERE fac_profiel_key IS NULL;
-- clear flexfield 'Datum uitdienst' for perslid records if people tagged with an 'uitdienst datum' are present again in the import file.
-- their contract is probably renewed.
FOR rec IN c_renew
LOOP
BEGIN
PRS.upsertkenmerk (1020, rec.prs_perslid_key, NULL);
prs.upsertkenmerk (1020, rec.prs_perslid_key, NULL);
fac.imp_writelog (
p_import_key,
'I',
@@ -1280,8 +1773,6 @@ BEGIN
END;
END LOOP;
-- set flexfield 'Datum uitdienst' for perslid records if people registered with perslid_nr are not present in the import file.
-- they will be deleted after 2 months.
FOR rec IN c_mark
LOOP
BEGIN
@@ -1302,8 +1793,6 @@ BEGIN
END;
END LOOP;
-- 2 maanden na het zetten van de uitdienst datum worden de medewerkers daadwerkelijk verwijderd.
FOR rec IN c_del
LOOP
BEGIN
@@ -1311,6 +1800,15 @@ BEGIN
END;
END LOOP;
INSERT INTO prs_perslidkostenplaats (prs_perslid_key,
prs_perslidkostenplaats_boeken)
SELECT prs_perslid_key, 1
FROM prs_v_aanwezigperslid p
WHERE NOT EXISTS
(SELECT pk.prs_perslid_key
FROM prs_perslidkostenplaats pk
WHERE p.prs_perslid_key = pk.prs_perslid_key);
-- we gaan conflicten in de login notificeren naar Menno Udo (key = 3371)
SELECT COUNT (*)
INTO v_count
@@ -1332,20 +1830,10 @@ BEGIN
4,
3371);
END IF;
INSERT INTO prs_perslidkostenplaats (prs_perslid_key,
prs_perslidkostenplaats_boeken)
SELECT prs_perslid_key, 1
FROM prs_v_aanwezigperslid p
WHERE NOT EXISTS
(SELECT pk.prs_perslid_key
FROM prs_perslidkostenplaats pk
WHERE p.prs_perslid_key = pk.prs_perslid_key);
END pnbr_update_perslid_mut;
/
CREATE OR REPLACE PROCEDURE pnbr_import_organisatie_mut (
p_import_key IN NUMBER)
AS
@@ -7198,16 +7686,16 @@ CREATE OR REPLACE PROCEDURE pnbr_export_topdesk (p_applname IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2)
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errorhint VARCHAR2 (100);
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);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errorhint VARCHAR2 (100);
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
-- De syncstate moet gezet worden om te bepalen wat wanneer gesynchroniseerd is
@@ -7441,7 +7929,7 @@ BEGIN
AND o.mld_melding_key = rec.mld_melding_key;
IF UPPER (v_status_ogd) = 'WACHT OP KLANT' --- voorheen: PENDING CUSTOMER
IF UPPER (v_status_ogd) = 'WACHT OP KLANT' --- voorheen: PENDING CUSTOMER
THEN
v_aanduiding := 'Melding: ' || rec.mld_melding_key;
v_errorhint :=
@@ -7458,24 +7946,48 @@ BEGIN
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;
IF UPPER (v_status_ogd) = 'MELDING KWALITATIEF ONVOLDOENDE'
THEN
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;
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');
UPDATE mld_melding
SET mld_melding_flag = 3
WHERE mld_melding_key = rec.mld_melding_key;
fac.trackaction (
'MLDNOB',
rec.mld_melding_key,
8502, --- generieke perslid voor mail naar DPL
NULL,
'Melding '
|| rec.mld_melding_key
|| ' is kwalitatief onvoldoende bevonden door OGD');
ELSE
v_aanduiding := 'Melding: ' || rec.mld_melding_key;
v_errorhint :=
'Notitie door OGD gemaakt bij 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 '
|| rec.mld_melding_key
|| ' heeft een nieuwe notitie van OGD');
END IF;
END IF;
-- Vervolgens zetten we de sync date zodat we weten dat we weten tot hoever de notities al genotificeerd zijn
@@ -7582,38 +8094,42 @@ BEGIN
-- De status OGD werken we dan ook nog even netjes bij
SELECT k.mld_kenmerk_key,
CASE
WHEN (UPPER (ko.mld_kenmerkopdr_waarde) = 'WACHT OP KLANT') --> PENDING CUSTOMER is geworden Wacht op klant
THEN
'Reactie ontvangen'
WHEN UPPER (ko.mld_kenmerkopdr_waarde) = 'MELDING KWALITATIEF ONVOLDOENDE' --> PENDING DPL is geworden Melding kwalitatief onvoldoende
AND m.mld_melding_flag = 3
THEN
'Melding kwalitatief onvoldoende'
WHEN UPPER (ko.mld_kenmerkopdr_waarde) = 'MELDING KWALITATIEF ONVOLDOENDE'
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;
CASE
WHEN (UPPER (ko.mld_kenmerkopdr_waarde) =
'WACHT OP KLANT') --> PENDING CUSTOMER is geworden Wacht op klant
THEN
'Reactie ontvangen'
WHEN UPPER (ko.mld_kenmerkopdr_waarde) =
'MELDING KWALITATIEF ONVOLDOENDE' --> PENDING DPL is geworden Melding kwalitatief onvoldoende
AND m.mld_melding_flag = 3
THEN
'Melding kwalitatief onvoldoende'
WHEN UPPER (ko.mld_kenmerkopdr_waarde) =
'MELDING KWALITATIEF ONVOLDOENDE'
AND ( m.mld_melding_flag <> 3
OR m.mld_melding_flag IS NULL)
THEN
'Reactie ontvangen'
ELSE
'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
@@ -7641,7 +8157,7 @@ EXCEPTION
'E',
'Error ' || oracle_err_num || '/' || oracle_err_mes,
v_errorhint);
END;
END pnbr_export_topdesk;
/
CREATE OR REPLACE PROCEDURE pnbr_export_sms_bezoeker (