TDNL#80795 Aanpassing import Werkplekken

svn path=/Customer/trunk/; revision=67004
This commit is contained in:
Norbert Wassink
2024-11-12 14:33:11 +00:00
parent 3cb9f8b96b
commit f66e88042a

View File

@@ -1895,7 +1895,7 @@ BEGIN
v_regel:=v_regel+1;
v_status_bo := 2; -- Alles op Geregistreerd (want alleen lopende reserveringen)
v_status_fo := 2; -- Alles op Definitief (want alleen lopende reserveringen)
v_no_show := TO_NUMBER (NULL);
@@ -1904,76 +1904,89 @@ BEGIN
v_datum_van:= fac.safe_to_date(rec.res_van,'DD-MM-YYYY HH24:MI:SS');
v_datum_tot:= fac.safe_to_date(rec.res_tot,'DD-MM-YYYY HH24:MI:SS');
-- IS ER AL EEN RESERVERING OP DEZE WERKPLEK DATUM en TIJD
SELECT count(*) INTO v_count
FROM res_rsv_ruimte rrr,
res_rsv_deel rd
WHERE rrr.res_rsv_ruimte_van =v_datum_van
AND rrr.res_rsv_ruimte_tot = v_datum_tot
AND rd.res_rsv_ruimte_key= rrr.res_rsv_ruimte_key
AND rd.res_deel_key=v_res_deel_key
AND rrr.res_rsv_ruimte_verwijder IS NULL;
v_errormsg := 'Fout toevoegen res_reservering';
INSERT INTO res_reservering (res_reservering_verwijder)
VALUES (NULL)
RETURNING res_reservering_key
INTO v_reservering_key;
v_errormsg := 'Fout toevoegen res_rsv_ruimte.';
INSERT INTO res_rsv_ruimte (res_reservering_key,
res_rsv_ruimte_volgnr,
res_rsv_ruimte_opmerking,
res_rsv_ruimte_omschrijving,
prs_kostenplaats_key,
res_rsv_ruimte_contact_key,
res_rsv_ruimte_host_key,
alg_ruimte_key,
--res_ruimte_opstel_key,
res_rsv_ruimte_cvab_mode,
res_activiteit_key,
res_rsv_ruimte_van,
res_rsv_ruimte_tot,
res_rsv_ruimte_bezoekers,
res_rsv_ruimte_bezoekers_shown,
res_status_bo_key,
res_status_fo_key,
res_rsv_ruimte_noshow,
res_rsv_ruimte_externnr)
VALUES (v_reservering_key,
1,
NULL,
NULL,
TO_NUMBER (NULL),
v_prs_perslid_key,
v_prs_perslid_key,
v_alg_ruimte_key,
2, -- CVAB-mode op Afhalen!
v_res_activiteit_key,
v_datum_van,
v_datum_tot,
TO_NUMBER (NULL),
v_no_show,
TO_NUMBER (NULL),
v_status_fo,
v_no_show,
NULL) -- Externnr moet uniek zijn en TD-nr is dat niet!
RETURNING res_rsv_ruimte_key
INTO v_rsv_ruimte_key;
v_errormsg := 'Fout toevoegen res_rsv_deel.';
INSERT INTO res_rsv_deel (res_deel_key,
res_rsv_deel_aantal,
res_status_bo_key,
res_rsv_ruimte_key,
res_rsv_deel_van,
res_rsv_deel_tot)
VALUES (v_res_deel_key,
1,
v_status_bo,
v_rsv_ruimte_key,
v_datum_van,
v_datum_tot);
-- Toevoegen Reserveringsnummer TOPdesk
v_errormsg := 'Fout toevoegen Reserveringsnummer TOPdesk';
flx.setflex('RES',v_kenmerk_key,v_rsv_ruimte_key,rec.reservering_key||'/1');
fac.trackaction ('RESNEW', v_rsv_ruimte_key, NULL, SYSDATE, 'Gemigreerd vanuit CONN');
IF v_count=0
THEN
v_regel:=v_regel+1;
v_errormsg := 'Fout toevoegen res_reservering';
INSERT INTO res_reservering (res_reservering_verwijder)
VALUES (NULL)
RETURNING res_reservering_key
INTO v_reservering_key;
v_errormsg := 'Fout toevoegen res_rsv_ruimte.';
INSERT INTO res_rsv_ruimte (res_reservering_key,
res_rsv_ruimte_volgnr,
res_rsv_ruimte_opmerking,
res_rsv_ruimte_omschrijving,
prs_kostenplaats_key,
res_rsv_ruimte_contact_key,
res_rsv_ruimte_host_key,
alg_ruimte_key,
--res_ruimte_opstel_key,
res_rsv_ruimte_cvab_mode,
res_activiteit_key,
res_rsv_ruimte_van,
res_rsv_ruimte_tot,
res_rsv_ruimte_bezoekers,
res_rsv_ruimte_bezoekers_shown,
res_status_bo_key,
res_status_fo_key,
res_rsv_ruimte_noshow,
res_rsv_ruimte_externnr)
VALUES (v_reservering_key,
1,
NULL,
NULL,
TO_NUMBER (NULL),
v_prs_perslid_key,
v_prs_perslid_key,
v_alg_ruimte_key,
2, -- CVAB-mode op Afhalen!
v_res_activiteit_key,
v_datum_van,
v_datum_tot,
TO_NUMBER (NULL),
v_no_show,
TO_NUMBER (NULL),
v_status_fo,
v_no_show,
NULL) -- Externnr moet uniek zijn en TD-nr is dat niet!
RETURNING res_rsv_ruimte_key
INTO v_rsv_ruimte_key;
v_errormsg := 'Fout toevoegen res_rsv_deel.';
INSERT INTO res_rsv_deel (res_deel_key,
res_rsv_deel_aantal,
res_status_bo_key,
res_rsv_ruimte_key,
res_rsv_deel_van,
res_rsv_deel_tot)
VALUES (v_res_deel_key,
1,
v_status_bo,
v_rsv_ruimte_key,
v_datum_van,
v_datum_tot);
-- Toevoegen Reserveringsnummer TOPdesk
v_errormsg := 'Fout toevoegen Reserveringsnummer TOPdesk';
flx.setflex('RES',v_kenmerk_key,v_rsv_ruimte_key,rec.reservering_key||'/1');
fac.trackaction ('RESNEW', v_rsv_ruimte_key, NULL, SYSDATE, 'Gemigreerd vanuit CONN');
ELSE
fac.imp_writelog (p_import_key, 'W', ' WP '|| rec.werkplek||' is al bezet op '||TO_CHAR(v_datum_van,'DD-MM-YYYY HH24:MI:SS')||'.','');
END IF;
ELSE
fac.imp_writelog (p_import_key, 'W', ' WP reserveringen '|| rec.reservering_key||' niet verwerkt','');
@@ -1985,7 +1998,7 @@ BEGIN
END LOOP;
fac.imp_writelog (p_import_key, 'S', v_regel||' WP reserveringen DONE: ' || TO_CHAR (SYSDATE, 'DD-MM-YYYY HH24:MI:SS'), '');
fac.imp_writelog (p_import_key, 'S', v_regel||' WP reserveringen toegevoegd: ' || TO_CHAR (SYSDATE, 'DD-MM-YYYY HH24:MI:SS'), '');
EXCEPTION
WHEN OTHERS