FZKH#87266 -- Implementatie - Aanpassing reservering import

svn path=/Customer/trunk/; revision=70341
This commit is contained in:
Norbert Wassink
2025-09-17 11:02:31 +00:00
parent b819998468
commit 8a49a5008b

View File

@@ -1879,13 +1879,14 @@ AS
AND UPPER(fac_imp_csv_col02) <> UPPER('Reserveringen')
ORDER BY fac_imp_csv_key;
v_res_startdatum DATE;
v_res_einddatum DATE;
v_prs_perslid_key NUMBER;
v_res_ruimte_opstel_key NUMBER;
v_res_activiteit_key NUMBER;
v_rsv_ruimte_key NUMBER;
v_reservering_key NUMBER;
v_res_startdatum DATE;
v_res_einddatum DATE;
v_prs_perslid_key NUMBER;
v_prs_perslid_key_nu NUMBER;
v_res_ruimte_opstel_key NUMBER;
v_res_activiteit_key NUMBER;
v_rsv_ruimte_key NUMBER;
v_reservering_key NUMBER;
v_res_kenmerk_key NUMBER;
v_status_bo NUMBER;
@@ -1918,14 +1919,33 @@ BEGIN
-- Heb ik de reserverig al
v_volgnr:=fac.safe_to_number(rec.ultimo_code_volgnr);
v_reservering_key:=0;
BEGIN
SELECT r.res_reservering_key
INTO v_reservering_key
SELECT prs_perslid_key
INTO v_prs_perslid_key
FROM prs_perslid p
WHERE UPPER(p.prs_perslid_email) = UPPER(rec.res_aanvrager);
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_prs_perslid_key:=3;
END;
BEGIN
SELECT r.res_reservering_key , rrr.res_rsv_ruimte_key, rrr.res_rsv_ruimte_contact_key
INTO v_reservering_key, v_rsv_ruimte_key, v_prs_perslid_key_nu
FROM res_reservering r, res_rsv_ruimte rrr
WHERE r.res_reservering_externnr=rec.ultimo_code
AND rrr.res_reservering_key=r.res_reservering_key
AND rrr.res_rsv_ruimte_volgnr = v_volgnr
AND rrr.res_rsv_ruimte_verwijder IS NULL;
IF v_prs_perslid_key<> v_prs_perslid_key_nu
THEN
UPDATE res_rsv_ruimte
SET res_rsv_ruimte_contact_key=v_prs_perslid_key,
res_rsv_ruimte_host_key=v_prs_perslid_key
WHERE res_rsv_ruimte_key=v_rsv_ruimte_key;
END IF;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
@@ -1938,15 +1958,7 @@ BEGIN
IF v_reservering_key < 0 -- alleen aanmaken als we hem nog niet hebben
THEN
BEGIN
SELECT prs_perslid_key
INTO v_prs_perslid_key
FROM prs_perslid p
WHERE UPPER(p.prs_perslid_naam) = UPPER(rec.res_aanvrager);
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_prs_perslid_key:=3;
END;
v_aanduiding := 'Reservering '||rec.ultimo_code||' voor ruimte met ruimte Nr :'||rec.res_ruimte_nr||' is niet gevonden';
SELECT MIN(rro.res_ruimte_opstel_key)
@@ -4581,6 +4593,18 @@ AS
-- MT Manadleijks onderhgoud notificatie view initiele oppzet
CREATE OR REPLACE VIEW FZKH_V_MT_TAKEN_MAAND
(
ins_deel_key,
ins_deel_omschrijving,
ins_deel_opmerking,
eigenaar_soort,
extra_key,
locatie,
ins_srtcontrole,
status,
plandatum,
email
)
AS
SELECT sel.*,
(SELECT COALESCE(MAX(p.prs_perslid_email),'medischetechniek@flevoziekenhuis.nl') email
@@ -4634,6 +4658,65 @@ SELECT iv.ins_deel_key,
WHERE sel.eigenaar_soort = 'Afdeling'
ORDER BY 5,9;
CREATE OR REPLACE VIEW FZKH_V_NOTI_MTTAKEN
(
xkey,
code,
sender,
receiver,
xemail,
xsender,
text,
key,
xmobile
)
AS
SELECT distinct f.extra_key extra_key,
'CUST10',
NULL,
NULL,
('norbert@ipdesign.nl;') xemail,
('medischetechniek@flevoziekenhuis.nl') xsender,
'Lijst met taken maand '||TO_CHAR(ADD_MONTHS(TRUNC(SYSDATE,'MM'),1),'DD-MM-YYYY')||' voor afdeling '||f.locatie,
r.fac_usrrap_key,
NULL
FROM fzkh_v_MT_taken_maand f, fac_usrrap r
WHERE r.fac_usrrap_code='MT_TAKEN_RAPPORT'
AND f.extra_key=97;
CREATE OR REPLACE VIEW FZKH_V_MT_ACCEPTATIEOBJECT
(
code,
sender,
receiver,
key,
text,
xemail,
xsender,
xmobile
)
AS
SELECT
'CUST09' code,
NULL sender,
NULL receiver,
m.mld_melding_key key,
'Acceptatie object melding' text,
'norbert@ipdesign.nl' xemail,
'medischetechniek@flevoziekenhuis.nl' xsender,
NULL xmobile
FROM mld_melding m ,
mld_stdmelding sm,
fac_tracking ft ,
fac_notificatie_job fj
WHERE m.mld_stdmelding_key=sm.mld_stdmelding_key
AND sm.mld_stdmelding_code='MT_ACCEPTATIE_OBJECT'
AND m.mld_melding_status=5
AND ft.fac_srtnotificatie_key=47
AND ft.fac_tracking_refkey=m.mld_melding_key
AND fj.fac_notificatie_job_view='FZKH_V_MT_ACCEPTATIEOBJECT'
AND ft.fac_tracking_datum>COALESCE(fj.fac_notificatie_job_lastrun,SYSDATE);