INLO#74388 -- Verkoopinterface voor De Kreek - Oncescript om oude reserveringen die buiten nieuwe verkoopinterface vallen op verwerkt te krijgen

svn path=/Customer/; revision=58331
This commit is contained in:
Jos Migo
2022-12-13 18:48:51 +00:00
parent 02d3e57711
commit 6af0e17eeb

View File

@@ -34,11 +34,11 @@ DECLARE
CURSOR c
IS
SELECT v.res_rsv_ruimte_key, v.items_totaal
FROM inlo_v_res_hoofd v
WHERE v.prs_bedrijf_key = 11401
AND status_actie = 'afgemeld - totaal'
AND datum < TO_DATE('14-08-2022','dd-mm-yyyy') ;
SELECT v.res_rsv_ruimte_key, v.soortreservering, v.items_totaal
FROM inlo_v_res_hoofd v
WHERE v.prs_bedrijf_key = 11401
AND status_actie = 'afgemeld - totaal'
AND datum < TO_DATE('14-08-2022','dd-mm-yyyy') ;
BEGIN
@@ -46,28 +46,35 @@ BEGIN
LOOP
BEGIN
-- VERWERKEN
UPDATE res_rsv_ruimte
-- VERWERKEN
-- Ruimte
IF rec.soortreservering = 'Ruimte-reservering'
THEN
UPDATE res_rsv_ruimte
SET res_status_bo_key = 6
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key ;
END IF;
BEGIN
fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, 4, sysdate, 'Verwerkt via eenmalig script: betreft reservering voor Verkoopinterface-Kreek-tijdperk waar al eerder hanndmatig een verkoopfactuur voor is aangemaakt') ;
END;
BEGIN
fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, 4, sysdate, 'Verwerkt via eenmalig script: betreft reservering voor Verkoopinterface-Kreek-tijdperk waar al eerder hanndmatig een verkoopfactuur voor is aangemaakt') ;
END;
-- Bijbehorende catering en voorzieningen ook verwerken
IF rec.items_totaal > 0
THEN
-- Bijbehorende catering en voorzieningen ook verwerken
IF rec.items_totaal > 0
THEN
UPDATE res_rsv_artikel
SET res_status_bo_key = 6, res_rsv_artikel_verwerkt = SYSDATE
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key ;
UPDATE res_rsv_artikel
SET res_status_bo_key = 6, res_rsv_artikel_verwerkt = SYSDATE
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key ;
UPDATE res_rsv_deel
SET res_status_bo_key = 6, res_rsv_deel_verwerkt = SYSDATE
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
UPDATE res_rsv_deel
SET res_status_bo_key = 6, res_rsv_deel_verwerkt = SYSDATE
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
END IF;
END IF;
END;