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

PNBR#66402 -- persoon komt niet in Facilitor via dagelijkse import

Browse Source 
svn path=/Customer/trunk/; revision=50647
This commit is contained in:
Arthur Egberink
2021-04-06 10:48:48 +00:00
parent 9303c694c6
commit 38f46cc53f
1 changed files with 68 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
PNBR/pnbr.sql
View File

@@ -134,7 +134,7 @@ AS
CREATE OR REPLACE PACKAGE pnbr
AS
PROCEDURE update_vertr_bezoeker (p_bezoekers_key NUMBER);
PROCEDURE noti_bezoek;
PROCEDURE noti_bezoek_gastheer;
@@ -148,12 +148,12 @@ AS
p_kenmerkdomein_key NUMBER,
p_kenmerk_waarde VARCHAR2)
RETURN VARCHAR2;
PROCEDURE set_kenmerk(p_module IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_link_key IN NUMBER,
p_kenmerk_waarde IN VARCHAR2,
p_history IN NUMBER);
p_history IN NUMBER);
END;
/
@@ -164,14 +164,14 @@ AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (200);
BEGIN
-- Overschrijf de naam en het emailadres
UPDATE bez_bezoekers b
SET bez_afspraak_naam = 'Vertrouwelijk', bez_bezoekers_email = NULL, bez_afspraak_bedrijf = 'Vertrouwelijk'
WHERE b.bez_bezoekers_key = p_bezoekers_key;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
@@ -1021,8 +1021,8 @@ 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.
-- 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
@@ -1171,7 +1171,7 @@ BEGIN
UPDATE fac_imp_perslid
SET alg_ruimte_nr = 'HJZ'
WHERE alg_ruimte_nr LIKE 'HJZ%';
*/
COMMIT;
@@ -1353,9 +1353,32 @@ BEGIN
-- Daarvan moet 1 record uit de importtabel verwijderd worden
FOR rec IN c_del_dubbele
LOOP
v_aanduiding := rec.prs_perslid_nr;
v_errorhint := 'Verwijder records van personen die 2 keer voorkomen';
BEGIN
DELETE fac_imp_perslid i
WHERE i.prs_perslid_nr = rec.prs_perslid_nr;
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;
@@ -1363,10 +1386,33 @@ BEGIN
-- Dan zetten we eerst de login even goed zodat daarna via login bijgewerkt kan worden
FOR rec IN c_oslogin
LOOP
v_aanduiding := rec.prs_perslid_nr || ' - ' || rec.prs_perslid_oslogin;
v_errorhint := 'Aanpassen login van mensen die nog geen login hadden';
BEGIN
UPDATE prs_perslid p
SET p.prs_perslid_oslogin = rec.prs_perslid_oslogin
WHERE p.prs_perslid_nr = rec.prs_perslid_nr;
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;
@@ -8201,7 +8247,7 @@ BEGIN
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
fac_notificatie_status,
prs_perslid_key_receiver,
fac_notificatie_receiver_email,
fac_notificatie_receiver_email,
fac_notificatie_oms,
fac_notificatie_refkey,
fac_notificatie_prioriteit)
@@ -8209,7 +8255,7 @@ BEGIN
161, --- mldnot
2,
rec.prs_perslid_key_voor,
rec.email_melder,
rec.email_melder,
'Notitie toegevoegd door OGD bij melding '
|| rec.mld_melding_key,
rec.mld_melding_key,
@@ -8234,7 +8280,7 @@ BEGIN
INSERT INTO fac_notificatie (
fac_srtnotificatie_key,
fac_notificatie_status,
prs_perslid_key_receiver,
prs_perslid_key_receiver,
fac_notificatie_receiver_email,
fac_notificatie_oms,
fac_notificatie_refkey,
@@ -8486,15 +8532,15 @@ BEGIN
-- een timestamp zetten dat de sms verstuurd is
pnbr.set_kenmerk ('BEZ', 1060, rec.bez_bezoekers_key, TO_CHAR (SYSDATE, 'yyyy-mm-dd hh24:mi:ss'), 0);
COMMIT;
END LOOP;
END;
/
CREATE OR REPLACE VIEW PNBR_V_RAP_REL_GESCHENKEN
AS
AS
SELECT bes_bestelling_key,
bestelaanvraagnr,
besteldatum,
@@ -8594,7 +8640,7 @@ AS
1041, --- Geschenk GS (cat. D)
3481 --- VVV Cadeaukaart
);
CREATE OR REPLACE VIEW PNBR_V_NOTI_MAILING
(
CODE,
@@ -8618,9 +8664,9 @@ AS
FROM fac_srtnotificatie sn
WHERE sn.fac_srtnotificatie_code = 'CUST08'
AND TO_CHAR (SYSDATE, 'dd') = '01' -- Elke 1e dag het nieuwe kwartaal
AND TO_CHAR (SYSDATE, 'mm') IN ('01', -- Over kwartaal 4 vorig jaar
'04', -- Over kwartaal 1
'07', -- Over kwartaal 2
AND TO_CHAR (SYSDATE, 'mm') IN ('01', -- Over kwartaal 4 vorig jaar
'04', -- Over kwartaal 1
'07', -- Over kwartaal 2
'10' -- Over kwartaal 3
);
@@ -8762,7 +8808,7 @@ AS
SELECT d.ins_deel_omschrijving,
d.ins_deel_key,
r.alg_ruimte_key,
r.alg_ruimte_nr,
r.alg_ruimte_nr,
stat_his.ranking,
stat_his.ins_deel_state,
DECODE (stat_his.ins_deel_state,
@@ -8773,7 +8819,7 @@ SELECT d.ins_deel_omschrijving,
COALESCE (stat_his.duur_status,
ROUND ((SYSDATE - stat_his.ins_deel_statedate) * 1440)) duur_status
FROM ins_deel d,
alg_ruimte r,
alg_ruimte r,
(SELECT ranking,
ins_deel_key,
ins_deel_state,
@@ -8790,7 +8836,7 @@ SELECT d.ins_deel_omschrijving,
PARTITION BY ins_deel_key
ORDER BY ins_deel_key, ins_deel_statedate DESC) AS ranking
FROM ins_deel_state_history) rank_state) stat_his
WHERE d.ins_deel_key = stat_his.ins_deel_key
WHERE d.ins_deel_key = stat_his.ins_deel_key
AND d.ins_alg_ruimte_key = r.alg_ruimte_key;
--- bezet wordt direct bezet
@@ -8836,7 +8882,7 @@ AS
FROM ins_deel_state_history) rank_state
WHERE ranking = 1) current_state
WHERE d.ins_deel_key = current_state.ins_deel_key;
------ payload end ------
SET DEFINE OFF