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

WZKW#80227 -- Implementatie Stichting Welzijnskwartier, reserveringsovereenkomst

Browse Source 
svn path=/Customer/trunk/; revision=65126
This commit is contained in:
Norbert Wassink
2024-06-13 12:56:53 +00:00
parent 1cf0f05ca9
commit 34e2451309
1 changed files with 41 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
WZKW/WZKW.sql
View File

@@ -802,7 +802,8 @@ AS
b.prs_bedrijf_key bedrijf_key,
b.prs_leverancier_nr lev_nr,
b.prs_bedrijf_naam huurder,
rrr.res_rsv_ruimte_omschrijving rrr_oms,
COALESCE(rer.RES_RUIMTE_FRIENDLYNAME,
rrr.res_rsv_ruimte_omschrijving) rrr_oms,
'Huur ' || rer.res_ruimte_nr ruimte_oms,
alg.ALG_RUIMTE_NR ruimte_NR,
COALESCE (fac.safe_to_number(comm_prijs.res_kenmerkreservering_waarde),
@@ -1398,6 +1399,7 @@ AS
v_errorhint VARCHAR2 (200);
v_grootboek VARCHAR2(10);
v_resverwijs VARCHAR2(40);
v_maand VARCHAR2(40);
BEGIN
v_bestand:= 'CSH_RESINC';
v_count:=0;
@@ -1429,6 +1431,13 @@ BEGIN
wzkW.WZKW_GENERATE_FIN_VERKOOP(rec.rrr_key);
END LOOP;
SELECT 'Betreft maand '||
RTRIM(TO_CHAR(ADD_MONTHS (TRUNC (SYSDATE,'MM'),-1),'Month','NLS_DATE_LANGUAGE = dutch'))||' '||
TO_CHAR(ADD_MONTHS (TRUNC (SYSDATE,'MM'),-1),'YYYY')
INTO v_maand
FROM DUAL;
FOR rex_exp IN sel_finv
LOOP
@@ -1447,13 +1456,21 @@ BEGIN
v_csv_regel:='0440|0101='||v_huurder||'|0425='||v_reservering_key||'|1490='||v_count||'|0451=|0452='||SUBSTR(v_resverwijs,1,40)||'|0421=1.00|0455='||'|0442=|0118=|0201=|0911=|1919=|';
wzkw.add_csv_row (v_bestand, v_csv_regel);
v_count:=v_count+1;
v_csv_regel:='0440|0101='||v_huurder||'|0425='||v_reservering_key||'|1490='||v_count||'|0451=|0452='||SUBSTR(v_maand,1,40)||'|0421=1.00|0455='||'|0442=|0118=|0201=|0911=|1919=|';
wzkw.add_csv_row (v_bestand, v_csv_regel);
v_count:=v_count+1;
v_huurder:=rex_exp.huurder;
v_reservering_key:=rex_exp.reservering_key;
v_resverwijs:=rex_exp.res_ref;
END IF;
IF rex_exp.soort='Ruimte' THEN
v_grootboek:='8200';
v_grootboek:='8290';
ELSIF rex_exp.soort='Catering' THEN
v_grootboek:='7110';
ELSIF rex_exp.soort='Object' THEN
@@ -1474,6 +1491,10 @@ BEGIN
v_csv_regel:='0440|0101='||v_huurder||'|0425='||v_reservering_key||'|1490='||v_count||'|0451=|0452='||SUBSTR(v_resverwijs,1,40)||'|0421=1.00|0455='||'|0442=|0118=|0201=|0911=|1919=|';
wzkw.add_csv_row (v_bestand, v_csv_regel);
v_count:=v_count+1;
v_csv_regel:='0440|0101='||v_huurder||'|0425='||v_reservering_key||'|1490='||v_count||'|0451=|0452='||SUBSTR(v_maand,1,40)||'|0421=1.00|0455='||'|0442=|0118=|0201=|0911=|1919=|';
wzkw.add_csv_row (v_bestand, v_csv_regel);
v_count:=v_count+1;
END IF;
@@ -1616,23 +1637,23 @@ AS
kpn_1,
kpn_bezet_1,
ROUND(opp*prijs*(kpn_bezet_1/100),2) bedrag_1,
ROUND(doorbelast_bedrag*(kpn_bezet_1/100),2) bedrag_km_1,
ROUND(doorbelast_bedrag*(afd_bezetting/100)*(kpn_bezet_1/100),2) bedrag_km_1,
kpn_2,
kpn_bezet_2,
ROUND(opp*prijs*(kpn_bezet_2/100),2) bedrag_2,
ROUND(doorbelast_bedrag*(kpn_bezet_2/100),2) bedrag_km_2,
ROUND(doorbelast_bedrag*(afd_bezetting/100)*(kpn_bezet_2/100),2) bedrag_km_2,
kpn_3,
kpn_bezet_3,
ROUND(opp*prijs*(kpn_bezet_3/100),2) bedrag_1,
ROUND(doorbelast_bedrag*(kpn_bezet_3/100),2) bedrag_km_3,
ROUND(opp*prijs*(kpn_bezet_3/100),2) bedrag_3,
ROUND(doorbelast_bedrag*(afd_bezetting/100)*(kpn_bezet_3/100),2) bedrag_km_3,
kpn_4,
kpn_bezet_4,
ROUND(opp*prijs*(kpn_bezet_4/100),2) bedrag_4,
ROUND(doorbelast_bedrag*(kpn_bezet_4/100),2) bedrag_km_4,
ROUND(doorbelast_bedrag*(afd_bezetting/100)*(kpn_bezet_4/100),2) bedrag_km_4,
kpn_5,
kpn_bezet_5,
ROUND(opp*prijs*(kpn_bezet_5/100),2) bedrag_5,
ROUND(doorbelast_bedrag*(kpn_bezet_5/100),2) bedrag_km_5,
ROUND(doorbelast_bedrag*(afd_bezetting/100)*(kpn_bezet_5/100),2) bedrag_km_5,
(COALESCE(kpn_bezet_1,0)+COALESCE(kpn_bezet_2,0)+COALESCE(kpn_bezet_3,0)+COALESCE(kpn_bezet_4,0)+COALESCE(kpn_bezet_5,0)) tot_bezetting
FROM (
SELECT l.alg_locatie_code locatie_code,
@@ -1785,6 +1806,18 @@ AS
FROM prs_bedrijf b
WHERE b.prs_bedrijf_key =
fac.safe_to_number (huurder.res_kenmerkreservering_waarde)) huurder,
(SELECT b.prs_bedrijf_bezoek_adres
FROM prs_bedrijf b
WHERE b.prs_bedrijf_key =
fac.safe_to_number (huurder.res_kenmerkreservering_waarde)) huurder_adres,
(SELECT b.PRS_BEDRIJF_BEZOEK_postcode
FROM prs_bedrijf b
WHERE b.prs_bedrijf_key =
fac.safe_to_number (huurder.res_kenmerkreservering_waarde)) huurder_postcode,
(SELECT b.prs_bedrijf_bezoek_plaats
FROM prs_bedrijf b
WHERE b.prs_bedrijf_key =
fac.safe_to_number (huurder.res_kenmerkreservering_waarde)) huurder_plaats,
rer.res_ruimte_nr ruimte,
l.alg_locatie_adres adres,
l.alg_locatie_postcode postcode,