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

WZKW#80227 -- aanpassing berekening ruimte bedragen.

Browse Source 
svn path=/Customer/trunk/; revision=68007
This commit is contained in:
Norbert Wassink
2025-02-17 14:28:42 +00:00
parent 2a73b8d8ee
commit edccac00bb
1 changed files with 84 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

118
WZKW/WZKW.sql
View File

@@ -1162,7 +1162,7 @@ AS
(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')
AND rk2.res_kenmerk_code = 'FACTUURSYNC_INT')
ORDER BY 4, 2, 3;
@@ -1843,44 +1843,50 @@ AS
CURSOR sel(p_kwartaal IN VARCHAR2, p_jaar IN VARCHAR2)
IS
SELECT gebouw_code,
kostenplaats_nr,
jaar,
kwartaal,
count(*) aantal,
sum(prijs) totaal
SELECT gebouw_code,
kostenplaats_nr,
jaar,
kwartaal,
DECODE(kwartaal,1,'01',2,'04',3,'07',4,'12') maand,
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
WHERE jaar=p_jaar
AND TO_CHAR(kwartaal)= p_kwartaal
GROUP BY gebouw_code, kostenplaats_nr, jaar,kwartaal, 4
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_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_gebouw_code_org VARCHAR2(10);
v_gebouw_kpn VARCHAR2(10);
v_sum_gebouw NUMBER;
v_grootboek VARCHAR2(10);
v_grootboekTB VARCHAR2(10);
v_welzijnskwartier VARCHAR2(10);
v_csv_regel VARCHAR2(2000);
v_csv_regel VARCHAR2(2000);
BEGIN
v_bestand:= 'CSH_RESDOORB';
v_count:=1;
v_count:=0;
v_error:=0;
-- Eerst opruimen
DELETE FROM fac_rapport WHERE fac_rapport_node LIKE 'CSH_RESDOORB%';
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;
@@ -1894,7 +1900,7 @@ BEGIN
INTO v_SyncDate_Key
FROM res_activiteit ra,
res_kenmerk rk
WHERE rk.RES_KENMERK_CODE = 'FACTUURSYNC_INT'
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;
@@ -1905,22 +1911,66 @@ BEGIN
fac.writelog ('RES2CASHDOORB', 'E', v_errormsg, v_errorhint);
END;
v_grootboek:='2020';
v_grootboekTB:='2998';
v_welzijnskwartier:='5694';
v_grootboekTB:='2998';
v_gebouw_code_org:='';
v_sum_gebouw:=0;
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);
IF (v_count>1 AND rec.gebouw_code <> v_gebouw_code_org)
THEN
BEGIN
SELECT prs_kostenplaats_nr
INTO v_gebouw_kpn
from prs_kostenplaats k, alg_gebouw g
WHERE g.ALG_GEBOUW_CODE=v_gebouw_code_org
AND k.prs_kostenplaats_key=g.prs_kostenplaats_key;
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_gebouw_kpn:='NB';
END;
v_csv_regel:='0301|0901=DBL|0911='||v_gebouw_kpn||'|0201='||v_grootboekTB||'|0306='||SUBSTR('DBL Huisv. '||v_gebouw_code_org||' Q'||rec.kwartaal ,1,40)||'|0307=-'||LTRIM(TO_CHAR(ROUND(v_sum_gebouw,2),'999999999.99'))||'|0302='||TO_CHAR(SYSDATE,'YYMMDD')||'|0301='||SUBSTR(rec.jaar,3,2)||rec.maand||'|0303=STUKNR';
wzkw.add_csv_row (v_bestand, v_csv_regel);
v_sum_gebouw:=0;
END IF;
v_sum_gebouw:=v_sum_gebouw+ROUND(rec.totaal,2);
v_csv_regel:='0301|0901=DBL|0911='||rec.kostenplaats_nr||'|0201='||v_grootboek||'|0306='||SUBSTR('DBL Huisv. '||rec.gebouw_code||' Q'||rec.kwartaal ,1,40)||'|0307='||LTRIM(TO_CHAR(ROUND(rec.totaal,2),'999999999.99'))||'|0302='||TO_CHAR(SYSDATE,'YYMMDD')||'|0301='||SUBSTR(rec.jaar,3,2)||rec.maand||'|0303=STUKNR';
wzkw.add_csv_row (v_bestand, v_csv_regel);
v_count:=v_count+1;
v_gebouw_code_org:=rec.gebouw_code;
v_kwartaal:=rec.kwartaal;
END LOOP;
-- Dan moeten we nu voor de laatse regel nog een tegenboekingt doen.
BEGIN
SELECT prs_kostenplaats_nr
INTO v_gebouw_kpn
FROM prs_kostenplaats k, alg_gebouw g
WHERE g.alg_gebouw_code=v_gebouw_code_org
AND k.prs_kostenplaats_key=g.prs_kostenplaats_key;
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_gebouw_kpn:='NB';
END;
v_csv_regel:='0301|0901=DBL|0911='||v_gebouw_kpn||'|0201='||v_grootboekTB||'|0306='||SUBSTR('DBL Huisv. '||v_gebouw_code_org||' Q'||v_kwartaal ,1,40)||'|0307=-'||LTRIM(TO_CHAR(ROUND(v_sum_gebouw,2),'999999999.99'))||'|0302='||TO_CHAR(SYSDATE,'YYMMDD')||'|0301='||SUBSTR(v_jaar,3,2)||LPAD(v_kwartaal,2,'0')||'|0303=STUKNR';
wzkw.add_csv_row (v_bestand, v_csv_regel);
IF v_count=0
THEN
-- We hebben geen recorda maar er is toch een tegenboeking record ten onrechte gemaakt dus gaan we die maar verwijderen
DELETE
FROM fac_rapport
WHERE fac_rapport_node LIKE 'CSH_RESDOORB%';
END IF;
/*
FOR rec_upd IN sel_sync(v_kartaal, v_jaar)
LOOP
@@ -1929,7 +1979,7 @@ BEGIN
*/
END IF;
END;
/
/
CREATE OR REPLACE VIEW WZKW_V_EXPORT_RES2CASHDOORB (