WZKW#85829 -- Aanpassing reserverings overeenkomst
svn path=/Customer/trunk/; revision=67101
This commit is contained in:
Norbert Wassink
180
WZKW/WZKW.sql
180
WZKW/WZKW.sql
@@ -1097,6 +1097,71 @@ AS
|
||||
AND rk2.res_kenmerk_code = 'FACTUURSYNC')
|
||||
ORDER BY 5, 2, 3;
|
||||
|
||||
CREATE OR REPLACE VIEW wzkw_v_fact_res_intern
|
||||
AS
|
||||
/* Formatted on 11-11-2024 14:59:10 (QP5 v5.336) */
|
||||
SELECT rrr.res_rsv_ruimte_key rrr_key,
|
||||
rrr.res_reservering_key reservering_key,
|
||||
rrr.res_rsv_ruimte_volgnr res_volgnr,
|
||||
to_char(rrr.res_rsv_ruimte_van,'Q') kwartaal,
|
||||
to_char(rrr.res_rsv_ruimte_van,'YYYY') jaar,
|
||||
rrr.res_rsv_ruimte_van ruimte_van,
|
||||
COALESCE(rer.RES_RUIMTE_FRIENDLYNAME,
|
||||
rrr.res_rsv_ruimte_omschrijving) rrr_oms,
|
||||
'Res Intern ' || rer.res_ruimte_nr ruimte_oms,
|
||||
alg.ALG_GEBOUW_UPPER gebouw_code,
|
||||
alg.ALG_RUIMTE_NR ruimte_NR,
|
||||
res.getresruimteprijs (
|
||||
rer.res_ruimte_key,
|
||||
rrr.res_rsv_ruimte_van,
|
||||
rrr.res_rsv_ruimte_tot,
|
||||
0) prijs,
|
||||
rrr.RES_RSV_RUIMTE_PRIJS rrr_prijs,
|
||||
(SELECT SUM(COALESCE(rra.res_rsv_artikel_prijs,rra.RES_RSV_ARTIKEL_AANTAL*ra.res_artikel_prijs))
|
||||
FROM res_rsv_artikel rra, res_artikel ra
|
||||
WHERE rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
|
||||
AND ra.res_artikel_key = rra.res_artikel_key) catering,
|
||||
(SELECT SUM(COALESCE(rrd.res_rsv_deel_prijs,rrd.RES_RSV_deel_AANTAL*rd.res_deel_prijs))
|
||||
FROM res_rsv_deel rrd, res_deel rd
|
||||
WHERE rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
|
||||
AND rd.res_deel_key = rrd.res_deel_key) object,
|
||||
'Intern' soort_reservering,
|
||||
TO_CHAR (rrr.res_rsv_ruimte_van, 'YYYY') fact_jaar,
|
||||
(SELECT p.prs_kostenplaats_nr
|
||||
FROM prs_kostenplaats p
|
||||
WHERE p.prs_kostenplaats_key=rrr.prs_kostenplaats_key) kostenplaats_nr,
|
||||
(SELECT rkr.res_kenmerkreservering_waarde
|
||||
FROM RES_KENMERKWAARDE rkr, res_kenmerk rk
|
||||
WHERE rk.res_kenmerk_code = 'RESERVERINGREF'
|
||||
AND rkr.res_kenmerk_key = rk.res_kenmerk_key
|
||||
AND rkr.res_kenmerkwaarde_verwijder IS NULL
|
||||
AND rkr.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key) reservering_ref
|
||||
FROM res_rsv_ruimte rrr,
|
||||
res_activiteit ra,
|
||||
res_ruimte_opstelling rop,
|
||||
res_alg_ruimte rarm,
|
||||
res_ruimte rer,
|
||||
alg_v_ruimte_gegevens_all alg
|
||||
WHERE
|
||||
rrr.res_status_bo_key = 2
|
||||
AND rrr.res_status_fo_key = 2
|
||||
AND ra.res_activiteit_omschrijving = 'Interne reservering'
|
||||
AND rrr.RES_ACTIVITEIT_KEY = ra.RES_ACTIVITEIT_KEY
|
||||
AND rrr.res_ruimte_opstel_key = rop.res_ruimte_opstel_key
|
||||
AND rer.res_ruimte_key = rop.res_ruimte_key
|
||||
AND rarm.res_ruimte_key = rer.res_ruimte_key
|
||||
AND alg.alg_ruimte_key = rarm.alg_ruimte_key
|
||||
-- AND rrr.res_reservering_key=2036
|
||||
AND rrr.res_rsv_ruimte_key NOT IN
|
||||
(SELECT rkw2.res_rsv_ruimte_key
|
||||
FROM res_kenmerkwaarde rkw2, res_kenmerk rk2
|
||||
WHERE rkw2.res_kenmerk_key = rk2.res_kenmerk_key
|
||||
AND rk2.res_kenmerk_code = 'FACTUURSYNC')
|
||||
ORDER BY 4, 2, 3;
|
||||
|
||||
|
||||
|
||||
|
||||
CREATE OR REPLACE VIEW wzkw_v_fact_all
|
||||
(
|
||||
rrr_key,
|
||||
@@ -1764,6 +1829,114 @@ AS
|
||||
FROM fac_rapport
|
||||
WHERE fac_rapport_node LIKE 'CSH_RESINC'
|
||||
ORDER BY fac_rapport_node,fac_rapport_volgnr;
|
||||
|
||||
CREATE OR REPLACE PROCEDURE WZKW_SELECT_RES2CASHDOORB (p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2
|
||||
)
|
||||
AS
|
||||
|
||||
CURSOR sel(p_kwartaal IN VARCHAR2, p_jaar IN VARCHAR2)
|
||||
IS
|
||||
SELECT gebouw_code,
|
||||
kostenplaats_nr,
|
||||
jaar,
|
||||
kwartaal,
|
||||
count(*) aantal,
|
||||
sum(prijs) totaal
|
||||
from wzkw_v_fact_res_intern
|
||||
WHERE jaar='2024'
|
||||
AND kwartaal<='2'
|
||||
GROUP BY gebouw_code, kostenplaats_nr, jaar,kwartaal
|
||||
ORDER by kwartaal, gebouw_code, kostenplaats_nr;
|
||||
|
||||
|
||||
|
||||
v_count NUMBER;
|
||||
v_bestand VARCHAR2(20);
|
||||
v_kwartaal NUMBER;
|
||||
v_jaar NUMBER;
|
||||
v_SyncDate_Key NUMBER;
|
||||
v_error NUMBER;
|
||||
v_errormsg VARCHAR2(200);
|
||||
v_errorhint VARCHAR2 (200);
|
||||
v_grootboek VARCHAR2(10);
|
||||
v_grootboekTB VARCHAR2(10);
|
||||
v_welzijnskwartier VARCHAR2(10);
|
||||
v_csv_regel VARCHAR2(2000);
|
||||
BEGIN
|
||||
v_bestand:= 'CSH_RESDOORB';
|
||||
v_count:=1;
|
||||
v_error:=0;
|
||||
|
||||
-- Eerst opruimen
|
||||
DELETE FROM fac_rapport WHERE fac_rapport_node LIKE 'CSH_RESDOORB%';
|
||||
|
||||
-- Welke periode hebben we.. we gaan altijd per kwartaal
|
||||
SELECT fac.safe_to_number(TO_CHAR(SYSDATE,'Q')) , fac.safe_to_number(TO_CHAR(SYSDATE,'YYYY'))
|
||||
INTO v_kwartaal, v_jaar
|
||||
FROM DUAL;
|
||||
IF v_kwartaal=1
|
||||
THEN
|
||||
v_jaar:=v_jaar-1;
|
||||
v_kwartaal:=4;
|
||||
ELSE
|
||||
v_kwartaal:=v_kwartaal-1;
|
||||
END IF;
|
||||
|
||||
BEGIN
|
||||
SELECT rk.res_kenmerk_key
|
||||
INTO v_SyncDate_Key
|
||||
FROM res_activiteit ra,
|
||||
res_kenmerk rk
|
||||
WHERE rk.RES_KENMERK_CODE = 'FACTUURSYNC_INT'
|
||||
AND rk.res_activiteit_key = ra.res_activiteit_key
|
||||
AND ra.res_activiteit_omschrijving = 'Interne reservering'
|
||||
AND ra.res_activiteit_verwijder IS NULL;
|
||||
EXCEPTION
|
||||
WHEN NO_DATA_FOUND THEN
|
||||
v_error:=1;
|
||||
v_errormsg:='Kenmerk key voor FactuurSync_INT op Activiteit Interne reservering niet gevonden';
|
||||
fac.writelog ('RES2CASHDOORB', 'E', v_errormsg, v_errorhint);
|
||||
END;
|
||||
v_grootboek:='2020';
|
||||
v_grootboekTB:='2998';
|
||||
v_welzijnskwartier:='5694';
|
||||
|
||||
|
||||
IF v_error=0
|
||||
THEN
|
||||
-- Gaan we eerste de export file maken
|
||||
FOR rec IN sel(''||v_kwartaal, ''||v_jaar)
|
||||
LOOP
|
||||
v_count:=v_count+1;
|
||||
v_csv_regel:='0440|0101='||v_welzijnskwartier||'|0425='||rec.kostenplaats_nr||'|1490='||v_count||'|0451=|0452='||SUBSTR('DBL Huisvesting '||rec.gebouw_code||' Q'||rec.kwartaal||'-'||rec.jaar||')' ,1,40)||'|0421=1.00|0455='||LTRIM(TO_CHAR(ROUND(rec.totaal,2),'999999999.99'))||'|0442=|0118=|0201='||v_grootboek||'|0911='||rec.kostenplaats_nr||'|1919=|';
|
||||
wzkw.add_csv_row (v_bestand, v_csv_regel);
|
||||
v_count:=v_count+1;
|
||||
v_csv_regel:='0440|0101='||v_welzijnskwartier||'|0425='||rec.kostenplaats_nr||'|1490='||v_count||'|0451=|0452='||SUBSTR('DBL Huisvesting '||rec.gebouw_code||' Q'||rec.kwartaal||'-'||rec.jaar||')' ,1,40)||'|0421=1.00|0455='||LTRIM(TO_CHAR(ROUND(rec.totaal,2),'999999999.99'))||'|0442=|0118=|0201='||v_grootboekTB||'|0911='||rec.kostenplaats_nr||'|1919=|';
|
||||
wzkw.add_csv_row (v_bestand, v_csv_regel);
|
||||
END LOOP;
|
||||
/*
|
||||
FOR rec_upd IN sel_sync(v_kartaal, v_jaar)
|
||||
LOOP
|
||||
flx.setflex('RES',v_SyncDate_Key, rec_upd.rrr_key, TO_CHAR(TRUNC(SYSDATE),'DD-MM-YYYY'));
|
||||
END LOOP;
|
||||
*/
|
||||
END IF;
|
||||
END;
|
||||
/
|
||||
|
||||
|
||||
CREATE OR REPLACE VIEW WZKW_V_EXPORT_RES2CASHDOORB (
|
||||
result,
|
||||
result_order,
|
||||
exact_exp
|
||||
)
|
||||
AS
|
||||
SELECT fac_rapport_regel ,fac_rapport_volgnr, fac_rapport_node
|
||||
FROM fac_rapport
|
||||
WHERE fac_rapport_node LIKE 'CSH_RESDOORB'
|
||||
ORDER BY fac_rapport_node,fac_rapport_volgnr;
|
||||
|
||||
|
||||
-- EINDE EXPORT RES2CASHMND
|
||||
|
||||
@@ -2185,7 +2358,7 @@ AS
|
||||
rrr.res_rsv_ruimte_van,
|
||||
rrr.res_rsv_ruimte_tot,
|
||||
COALESCE (incid.res_kenmerkreservering_waarde, '0'))) prijs_ruimte,
|
||||
(SELECT SUM (rra.res_rsv_artikel_aantal * ra.res_artikel_prijs)
|
||||
(SELECT SUM (COALESCE(rra.RES_RSV_ARTIKEL_PRIJS ,rra.res_rsv_artikel_aantal * ra.res_artikel_prijs))
|
||||
FROM res_rsv_artikel rra, res_artikel ra
|
||||
WHERE rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
|
||||
AND rra.res_artikel_key = ra.res_artikel_key) prijs_cat,
|
||||
@@ -2259,11 +2432,6 @@ AS
|
||||
ORDER BY 2,3,4,5;
|
||||
|
||||
|
||||
SELECT *
|
||||
FROM res_rsv_artikel
|
||||
WHERE res_rsv_ruimte_key = 21
|
||||
|
||||
|
||||
CREATE OR REPLACE VIEW WZWK_V_HUURDERBEDRIJF
|
||||
(
|
||||
prs_bedrijf_key,
|
||||
|
||||
Reference in New Issue
Block a user