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

FSN#54025 FIN-export+rapportages

Browse Source 
svn path=/Customer/trunk/; revision=39817
This commit is contained in:
Maarten van der Heide
2018-11-15 14:42:44 +00:00
parent 2a5ef6ef96
commit 85287e7d54
1 changed files with 203 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

336
SROZ/sroz.sql
View File

@@ -309,14 +309,14 @@ AS
x.res_rsv_ruimte_van, x.res_rsv_ruimte_tot,
x.res_rsv_ruimte_omschrijving,
x.res_status_bo_key, x.res_rsv_ruimte_ordernr,
x.aantal,
ROUND (x.aantal, 2),
x.artikelomschrijving,
x.artikelprijs,
ROUND (x.artikelprijs, 2),
x.btw,
ref.res_kenmerkreservering_waarde debiteurref,
'1' administratie,
'7' kostenplaats
FROM (SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyymmdd') || SUBSTR ('000' || TO_CHAR (res_reservering_key), -9) || 'R0' sortering,
FROM (SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyymmdd hh24mi') || SUBSTR ('00000000' || TO_CHAR (res_reservering_key), -9) || 'R0' sortering,
rrr.res_rsv_ruimte_key, NULL res_rsv_artikel_key, NULL res_rsv_deel_key,
rrr.res_reservering_key, rrr.res_rsv_ruimte_volgnr,
rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot,
@@ -372,52 +372,8 @@ AS
WHERE res_rsv_deel_dirtlevel = 0 -- Niet dirty!
AND res_status_bo_key = 2
AND res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)
UNION ALL -- Korting
SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyymmdd') || SUBSTR ('000' || TO_CHAR (res_reservering_key), -9) || 'R1' sortering,
rrr.res_rsv_ruimte_key, NULL res_rsv_artikel_key, NULL res_rsv_deel_key,
rrr.res_reservering_key, rrr.res_rsv_ruimte_volgnr,
rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot,
rrr.res_rsv_ruimte_omschrijving,
rrr.res_status_bo_key, rrr.res_rsv_ruimte_ordernr,
1 aantal,
'Korting' artikelomschrijving,
-1 * rrr.res_rsv_ruimte_korting artikelprijs,
COALESCE (fac.safe_to_number (rr.res_ruimte_groep), 21) btw,
COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key) alg_ruimte_key
FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
FROM res_alg_ruimte
WHERE res_alg_ruimte_verwijder IS NULL
GROUP BY res_ruimte_key) rar1,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
FROM res_alg_ruimte
WHERE res_alg_ruimte_verwijder IS NOT NULL
GROUP BY res_ruimte_key) rar2,
res_ruimte rr
WHERE rrr.res_activiteit_key = 30 -- Externe bijeenkomst (g<><67>n 11 of 50=Uitleen of Rondleiding)!
AND rrr.res_rsv_ruimte_tot < SYSDATE -- Niet in toekomst!
AND rrr.res_rsv_ruimte_dirtlevel = 0 -- Niet dirty!
AND COALESCE (rrr.res_rsv_ruimte_korting, 0) != 0
AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key -- Alleen Ruimte-reserveringen!
AND rro.res_ruimte_key = rar1.res_ruimte_key(+)
AND rro.res_ruimte_key = rar2.res_ruimte_key(+)
AND COALESCE (rar1.res_ruimte_key, rar2.res_ruimte_key) = rr.res_ruimte_key
AND rrr.res_status_bo_key IN (5, 6)
AND NOT EXISTS
(SELECT 1
FROM res_v_aanwezigrsv_artikel
WHERE res_rsv_artikel_dirtlevel = 0 -- Niet dirty!
AND res_status_bo_key = 2
AND res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)
AND NOT EXISTS
(SELECT 1
FROM res_v_aanwezigrsv_deel
WHERE res_rsv_deel_dirtlevel = 0 -- Niet dirty!
AND res_status_bo_key = 2
AND res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)
UNION ALL -- Afgesproken ruimteprijs
SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyymmdd') || SUBSTR ('000' || TO_CHAR (res_reservering_key), -9) || 'R1' sortering,
SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyymmdd hh24mi') || SUBSTR ('00000000' || TO_CHAR (res_reservering_key), -9) || 'R0' sortering,
rrr.res_rsv_ruimte_key, NULL res_rsv_artikel_key, NULL res_rsv_deel_key,
rrr.res_reservering_key, rrr.res_rsv_ruimte_volgnr,
rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot,
@@ -460,8 +416,52 @@ AS
WHERE res_rsv_deel_dirtlevel = 0 -- Niet dirty!
AND res_status_bo_key = 2
AND res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)
UNION ALL -- Korting
SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyymmdd hh24mi') || SUBSTR ('00000000' || TO_CHAR (res_reservering_key), -9) || 'R1' sortering,
rrr.res_rsv_ruimte_key, NULL res_rsv_artikel_key, NULL res_rsv_deel_key,
rrr.res_reservering_key, rrr.res_rsv_ruimte_volgnr,
rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot,
rrr.res_rsv_ruimte_omschrijving,
rrr.res_status_bo_key, rrr.res_rsv_ruimte_ordernr,
1 aantal,
'Korting' artikelomschrijving,
-1 * rrr.res_rsv_ruimte_korting artikelprijs,
COALESCE (fac.safe_to_number (rr.res_ruimte_groep), 21) btw,
COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key) alg_ruimte_key
FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
FROM res_alg_ruimte
WHERE res_alg_ruimte_verwijder IS NULL
GROUP BY res_ruimte_key) rar1,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
FROM res_alg_ruimte
WHERE res_alg_ruimte_verwijder IS NOT NULL
GROUP BY res_ruimte_key) rar2,
res_ruimte rr
WHERE rrr.res_activiteit_key = 30 -- Externe bijeenkomst (g<><67>n 11 of 50=Uitleen of Rondleiding)!
AND rrr.res_rsv_ruimte_tot < SYSDATE -- Niet in toekomst!
AND rrr.res_rsv_ruimte_dirtlevel = 0 -- Niet dirty!
AND COALESCE (rrr.res_rsv_ruimte_korting, 0) != 0
AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key -- Alleen Ruimte-reserveringen!
AND rro.res_ruimte_key = rar1.res_ruimte_key(+)
AND rro.res_ruimte_key = rar2.res_ruimte_key(+)
AND COALESCE (rar1.res_ruimte_key, rar2.res_ruimte_key) = rr.res_ruimte_key
AND rrr.res_status_bo_key IN (5, 6)
AND NOT EXISTS
(SELECT 1
FROM res_v_aanwezigrsv_artikel
WHERE res_rsv_artikel_dirtlevel = 0 -- Niet dirty!
AND res_status_bo_key = 2
AND res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)
AND NOT EXISTS
(SELECT 1
FROM res_v_aanwezigrsv_deel
WHERE res_rsv_deel_dirtlevel = 0 -- Niet dirty!
AND res_status_bo_key = 2
AND res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)
UNION ALL -- Verbruik=Verbruiksartikelen
SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyymmdd') || SUBSTR ('000' || TO_CHAR (res_reservering_key), -9) || 'V' || TO_CHAR (rra.res_discipline_key) || SUBSTR ('000' || TO_CHAR (COALESCE (rra.res_artikel_volgnummer, 0)), -3) sortering,
SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyymmdd hh24mi') || SUBSTR ('00000000' || TO_CHAR (res_reservering_key), -9) || 'V' || TO_CHAR (rra.res_discipline_key) || SUBSTR ('000' || TO_CHAR (COALESCE (rra.res_artikel_volgnummer, 0)), -3) sortering,
rrr.res_rsv_ruimte_key, rra.res_rsv_artikel_key, NULL res_rsv_deel_key,
rrr.res_reservering_key, rrr.res_rsv_ruimte_volgnr,
rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot,
@@ -589,7 +589,7 @@ AS
AND res_status_bo_key = 2
AND res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)
UNION ALL -- Overig=Voorzieningen
SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyymmdd') || SUBSTR ('000' || TO_CHAR (res_reservering_key), -9) || 'X' || TO_CHAR (rd.res_discipline_key) || SUBSTR (rd.res_deel_omschrijving, 1, 3) sortering,
SELECT TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyymmdd hh24mi') || SUBSTR ('00000000' || TO_CHAR (res_reservering_key), -9) || 'X' || SUBSTR (rd.res_deel_omschrijving, 1, 3) sortering,
rrr.res_rsv_ruimte_key, NULL res_rsv_artikel_key, rrd.res_rsv_deel_key,
rrr.res_reservering_key, rrr.res_rsv_ruimte_volgnr,
rrr.res_rsv_ruimte_van, rrr.res_rsv_ruimte_tot,
@@ -794,67 +794,75 @@ AS
administratie,
kostenplaats;
-- WHERE FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 15
-- AND TO_CHAR (SYSDATE - 1, 'd') BETWEEN '2' AND '6'
-- AND NOT EXISTS
-- (SELECT 1
-- FROM mld_vrije_dagen
-- WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (SYSDATE - 1))
CREATE OR REPLACE VIEW sroz_v_export_fin
(
result,
result_order
)
AS -- View bevat alleen inhoud op de dag na de 15e werkdag van de maand!
SELECT 'volgnummer'
|| ';debiteurennummer'
|| ';omschrijving_nota'
|| ';notagebonden_tekst'
|| ';omschrijving_boekingsregel'
|| ';bedrag'
|| ';btw_kode'
|| ';fcl_lang'
|| ';ecl_lang',
SELECT 'reserveringsnummer'
|| ';debiteur'
|| ';vandatum'
|| ';totdatum'
|| ';omschrijving'
|| ';aantal'
|| ';artikelomschrijving'
|| ';artikelprijs'
|| ';btw'
|| ';debiteurreferentie'
|| ';administratie'
|| ';kostenplaats',
0
FROM DUAL
WHERE FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 15
AND TO_CHAR (SYSDATE - 1, 'd') BETWEEN '2' AND '6'
AND NOT EXISTS
(SELECT 1
FROM mld_vrije_dagen
WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (SYSDATE - 1))
WHERE TO_CHAR (SYSDATE, 'd') = '4' -- Woensdag
UNION ALL
SELECT volgnummer
SELECT reserveringsnummer
|| ';'
|| debiteurennummer
|| debiteur
|| ';'
|| omschrijving_nota
|| vandatum
|| ';'
|| notagebonden_tekst
|| totdatum
|| ';'
|| omschrijving_boekingsregel
|| omschrijving
|| ';'
|| REPLACE (TO_CHAR (bedrag), '.', ',')
|| REPLACE (TO_CHAR (aantal), '.', ',')
|| ';'
|| REPLACE (TO_CHAR (btw_kode), '.', ',') -- Als BTW niet een geheel percentage, dan >2 posities!
|| artikelomschrijving
|| ';'
|| fcl_lang
|| REPLACE (TO_CHAR (artikelprijs), '.', ',')
|| ';'
|| ecl_lang,
|| REPLACE (TO_CHAR (btw), '.', ',')
|| ';'
|| debiteurreferentie
|| ';'
|| administratie
|| ';'
|| kostenplaats,
ROWNUM
FROM ( SELECT volgnummer,
debiteurennummer,
omschrijving_nota,
notagebonden_tekst,
omschrijving_boekingsregel,
bedrag,
btw_kode,
fcl_lang,
ecl_lang
FROM ( SELECT reserveringsnummer,
debiteur,
vandatum,
totdatum,
omschrijving,
aantal,
artikelomschrijving,
artikelprijs,
btw,
debiteurreferentie,
administratie,
kostenplaats
FROM sroz_v_rap_frozen_res
WHERE fclt_x_maand = TO_CHAR (TRUNC (SYSDATE, 'mm') - 1, 'yyyy-mm')
ORDER BY volgnummer,
hide_f_sortering)
WHERE FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 15
AND TO_CHAR (SYSDATE - 1, 'd') BETWEEN '2' AND '6'
AND NOT EXISTS
(SELECT 1
FROM mld_vrije_dagen
WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (SYSDATE - 1));
WHERE fclt_x_week = TO_CHAR (TRUNC (SYSDATE, 'iw') - 1, 'yyyy-iw')
ORDER BY hide_f_sortering)
WHERE TO_CHAR (SYSDATE, 'd') = '4' -- Woensdag
;
CREATE OR REPLACE PROCEDURE sroz_select_fin (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
@@ -862,59 +870,41 @@ AS
-- Verwerken te exporteren regels!
CURSOR c1
IS
SELECT '[' || debiteurennummer || '] ' aanduiding,
SELECT '[' || debiteur || '] ' aanduiding,
res_rsv_ruimte_key, res_rsv_artikel_key, res_rsv_deel_key,
res_status_bo_key,
debiteurennummer, alg_locatie_omschrijving,
bedrag, btw_kode
debiteur,
aantal,
artikelprijs,
btw
FROM sroz_v_res_all
WHERE reslev > TO_DATE ('01-07-2018' , 'dd-mm-yyyy')
AND reslev < TRUNC (SYSDATE, 'mm')
WHERE res_rsv_ruimte_van > TO_DATE ('01-07-2018' , 'dd-mm-yyyy')
AND res_rsv_ruimte_van < TRUNC (SYSDATE, 'iw')
AND res_status_bo_key != 6 -- Niet AV!
AND sortering NOT LIKE '%R1' -- Skip Korting-regels!
ORDER BY debiteurennummer, alg_locatie_omschrijving, sortering DESC;
ORDER BY debiteur, sortering DESC;
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_holiday NUMBER;
v_factuur_nr NUMBER;
v_regel_nr NUMBER;
v_amount_tot NUMBER (10, 2);
v_prev_deb VARCHAR2 (255);
v_prev_loc VARCHAR2 (255);
v_prijs NUMBER (9, 2);
BEGIN
SELECT COUNT ( * )
INTO v_holiday
FROM mld_vrije_dagen
WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (SYSDATE - 1);
-- LET OP: FIN-export draait dagelijks na middernacht (begin van dag) en de
-- verkoop wordt maandelijks alleen in de nacht na 15e werkdag van de maand
-- doorgezet.
-- IF nacht na 1e werkdag van de maand (<28>n geen weekend <20>n geen vrije dag)!
-- count_work_days (d1,d2) bepaalt het #werkdagen van d1 tot d2 (als d1=d2,
-- dan return 0); daarom bepalen tov. laatste dag van vorige maand!
IF FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 15
AND TO_CHAR (SYSDATE - 1, 'd') BETWEEN '2' AND '6'
AND v_holiday = 0
IF TO_CHAR (SYSDATE, 'd') = '4'
THEN
v_factuur_nr := 0;
v_regel_nr := 0;
v_amount_tot := 0;
v_prev_deb := 'Quqelequ';
v_prev_loc := 'Quqelequ';
FOR rec IN c1
LOOP
BEGIN
-- Per debiteur/locatie <20><>n (verzamel)factuur=hetzelfde volgnummer!
IF rec.debiteurennummer != v_prev_deb OR rec.alg_locatie_omschrijving != v_prev_loc
THEN
v_prev_deb := rec.debiteurennummer;
v_prev_loc := rec.alg_locatie_omschrijving;
v_factuur_nr := v_factuur_nr + 1;
END IF;
IF rec.res_rsv_artikel_key IS NOT NULL
THEN -- Verbruiksartikel-regel
IF rec.res_status_bo_key = 2
@@ -934,7 +924,7 @@ BEGIN
-- (SELECT res_artikel_inkoopprijs
-- FROM res_artikel
-- WHERE res_artikel_key = rec.res_artikel_key),
res_rsv_artikel_btw = rec.btw_kode
res_rsv_artikel_btw = rec.btw
WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key;
v_errormsg := 'Fout tracken afmelding';
@@ -985,18 +975,19 @@ BEGIN
ELSE -- Ruimte-regel
IF rec.res_status_bo_key = 2
THEN
--v_errormsg := 'Fout bepalen res_rsv_ruimte_prijs';
v_errormsg := 'Fout bepalen res_rsv_ruimte_prijs';
--SELECT res.getruimteprijs (rec.res_rsv_ruimte_key)
-- INTO v_prijs
-- FROM DUAL;
v_prijs := ROUND (rec.aantal * rec.artikelprijs, 2);
v_errormsg := 'Fout afmelden res_rsv_ruimte';
UPDATE res_rsv_ruimte
SET res_status_bo_key = 5,
res_rsv_ruimte_prijs = rec.bedrag,
res_rsv_ruimte_ordernr = TO_CHAR (v_factuur_nr) || '|' || rec.debiteurennummer || '|' || rec.btw_kode -- Historisch bewaren: volgnummer + debiteurennummer + btw_kode
res_rsv_ruimte_prijs = v_prijs,
res_rsv_ruimte_ordernr = rec.debiteur || '|' || TO_CHAR (rec.btw) -- Historisch bewaren: debiteur + btw
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
v_errormsg := 'Fout tracken afmelding';
@@ -1015,7 +1006,8 @@ BEGIN
fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, NULL);
END IF;
v_amount_tot := v_amount_tot + rec.bedrag;
v_regel_nr := v_regel_nr + 1;
v_amount_tot := v_amount_tot + v_prijs;
COMMIT;
EXCEPTION
WHEN OTHERS
@@ -1028,7 +1020,7 @@ BEGIN
END;
END LOOP;
fac.writelog (p_applname, 'S', 'FIN export/#facturen: ' || TO_CHAR (v_factuur_nr), TO_CHAR (v_amount_tot));
fac.writelog (p_applname, 'S', 'FIN export/#regels: ' || TO_CHAR (v_regel_nr), TO_CHAR (v_amount_tot));
END IF;
END;
/
@@ -1042,13 +1034,20 @@ CREATE OR REPLACE VIEW sroz_v_huurders
)
AS
SELECT b.prs_bedrijf_key,
b.prs_bedrijf_naam || ' [' || prs_overeenkomst_nr || ']',
b.prs_bedrijf_naam || ' [' || prs_overeenkomst_nr || ']/-;T:'
|| COALESCE (b.prs_bedrijf_telefoon, b.prs_bedrijf_telefoon2, '-') || ';E:'
|| COALESCE (b.prs_bedrijf_email, '-') || ';F:'
|| DECODE (b.prs_bedrijf_post_adres, NULL, '-', TRIM (b.prs_bedrijf_post_adres || ', ' || b.prs_bedrijf_post_postcode) || ' ' || b.prs_bedrijf_post_plaats),
prs_bedrijf_verwijder
FROM prs_bedrijf b
WHERE b.prs_bedrijf_huurder = 1
UNION ALL
SELECT 100000000 + cp.prs_contactpersoon_key,
b.prs_bedrijf_naam || ' [' || prs_overeenkomst_nr || ']' || DECODE (cp.prs_contactpersoon_key, NULL, '', '/' || cp.prs_contactpersoon_naam),
b.prs_bedrijf_naam || ' [' || prs_overeenkomst_nr || ']/'
|| COALESCE (cp.prs_contactpersoon_naam, '-') || ';T:'
|| COALESCE (b.prs_bedrijf_telefoon, b.prs_bedrijf_telefoon2, '-') || ';E:'
|| COALESCE (b.prs_bedrijf_email, '-') || ';F:'
|| DECODE (b.prs_bedrijf_post_adres, NULL, '-', TRIM (b.prs_bedrijf_post_adres || ', ' || b.prs_bedrijf_post_postcode) || ' ' || b.prs_bedrijf_post_plaats),
cp.prs_contactpersoon_verwijder
FROM prs_bedrijf b, prs_contactpersoon cp
WHERE b.prs_bedrijf_huurder = 1
@@ -1259,7 +1258,7 @@ AS
AND rro1.res_opstelling_key = ro1.res_opstelling_key
AND rro1.res_ruimte_opstel_default IS NULL
UNION
SELECT 'Begin' begin_eind, -- Begin als koppelzaal of smartboard opstarten
SELECT 'Begin' begin_eind, -- Begin als koppelzaal of smartboard opstarten of Opmerking beheerder
rrr1.*, rr1.res_ruimte_key, rr1.res_ruimte_nr, ro1.res_opstelling_omschrijving, res_ruimte_opstel_default,
NULL next_van
FROM res_v_aanwezigrsv_ruimte rrr1, res_ruimte_opstelling rro1, res_ruimte rr1, res_opstelling ro1,
@@ -1278,6 +1277,11 @@ AS
FROM res_v_aanwezigkenmerkwaarde kw, res_kenmerk k
WHERE kw.res_kenmerk_key = k.res_kenmerk_key
AND k.res_srtkenmerk_key = 121 -- Smartboard opstarten door beheerder
AND kw.res_rsv_ruimte_key = rrr1.res_rsv_ruimte_key)
OR EXISTS
(SELECT 1
FROM res_v_aanwezigkenmerkwaarde kw
WHERE kw.res_kenmerk_key IN (44, 46) -- Opmerking beheerder
AND kw.res_rsv_ruimte_key = rrr1.res_rsv_ruimte_key))
UNION
SELECT 'Eind' begin_eind, -- Eind als koppelzaal
@@ -1319,7 +1323,7 @@ AS
(SELECT 1
FROM res_v_aanwezigrsv_deel rrd, res_deel rd
WHERE rrd.res_deel_key = rd.res_deel_key
AND rd.res_discipline_key IN (54, 55, 122, 123)
AND rd.res_discipline_key IN (54, 55, 102, 103)
AND rrd.res_rsv_ruimte_key = rrr1.res_rsv_ruimte_key))
UNION
SELECT 'Eind' begin_eind, -- Eind als geboekt uit Beheerder-catalogi
@@ -1346,7 +1350,7 @@ AS
(SELECT 1
FROM res_v_aanwezigrsv_deel rrd, res_deel rd
WHERE rrd.res_deel_key = rd.res_deel_key
AND rd.res_discipline_key IN (54, 55, 122, 123)
AND rd.res_discipline_key IN (54, 55, 102, 103)
AND rrd.res_rsv_ruimte_key = rrr1.res_rsv_ruimte_key))) x
LEFT JOIN ( SELECT res_ruimte_key, COUNT (*) aantal
FROM res_alg_ruimte
@@ -1377,7 +1381,7 @@ AS
FROM res_v_aanwezigrsv_deel rrd, res_deel rd
WHERE rrd.res_rsv_deel_van BETWEEN TRUNC (SYSDATE) AND TRUNC (SYSDATE + 5)
AND rrd.res_deel_key = rd.res_deel_key
AND rd.res_discipline_key IN (54, 55, 122, 123)
AND rd.res_discipline_key IN (54, 55, 102, 103)
GROUP BY rrd.res_rsv_ruimte_key) rd
ON x.res_rsv_ruimte_key = rd.res_rsv_ruimte_key
LEFT JOIN res_v_aanwezigkenmerkwaarde opm_beh
@@ -1385,6 +1389,72 @@ AS
AND opm_beh.res_kenmerk_key IN (44, 46) -- Opmerking beheerder
;
CREATE OR REPLACE VIEW sroz_v_rap_infopunt
(
hide_f_sortering,
res_rsv_ruimte_key,
datum,
resnr,
begintijd,
eindtijd,
ruimte,
titel,
programma,
debiteur,
team
)
AS
SELECT TO_CHAR (x.res_rsv_ruimte_van, 'yyyymmdd hh24:mi') || TO_CHAR (res_ruimte_nr)
sortering,
x.res_rsv_ruimte_key,
x.res_rsv_ruimte_van datum,
TO_CHAR (x.res_reservering_key) || '/' || TO_CHAR (x.res_rsv_ruimte_volgnr)
resnr,
x.res_rsv_ruimte_van,
x.res_rsv_ruimte_tot,
x.res_ruimte_nr ruimte,
x.res_rsv_ruimte_omschrijving titel,
prog.res_kenmerkreservering_waarde programma,
x.prs_bedrijf_naam debiteur,
CASE
WHEN x.res_rsv_ruimte_flag > 0
THEN lcl.l ('lcl_res_flag' || x.res_rsv_ruimte_flag)
END
team
FROM (SELECT rrr.res_rsv_ruimte_key,
rrr.res_reservering_key,
rrr.res_rsv_ruimte_volgnr,
rrr.res_rsv_ruimte_van,
rrr.res_rsv_ruimte_tot,
rrr.res_rsv_ruimte_omschrijving,
rrr.res_rsv_ruimte_flag,
rr.res_ruimte_nr,
deb.prs_bedrijf_naam
FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro,
res_ruimte rr,
(SELECT kw.res_rsv_ruimte_key, b.prs_bedrijf_naam
FROM res_kenmerkwaarde kw, res_kenmerk k, prs_bedrijf b
WHERE kw.res_kenmerk_key = k.res_kenmerk_key
AND k.res_srtkenmerk_key = 2 -- Debiteur
AND kw.res_kenmerkreservering_waarde = TO_CHAR (b.prs_bedrijf_key)
UNION ALL
SELECT kw.res_rsv_ruimte_key, b.prs_bedrijf_naam
FROM res_kenmerkwaarde kw, res_kenmerk k, prs_contactpersoon cp, prs_bedrijf b
WHERE kw.res_kenmerk_key = k.res_kenmerk_key
AND k.res_srtkenmerk_key = 2 -- Debiteur
AND kw.res_kenmerkreservering_waarde = TO_CHAR (cp.prs_contactpersoon_key - 100000000)
AND cp.prs_bedrijf_key = b.prs_bedrijf_key) deb
WHERE rrr.res_rsv_ruimte_van BETWEEN TRUNC (SYSDATE) AND TRUNC(SYSDATE + 5)
AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
AND rro.res_ruimte_key = rr.res_ruimte_key
AND rrr.res_rsv_ruimte_key = deb.res_rsv_ruimte_key(+)) x
LEFT JOIN
res_v_aanwezigkenmerkwaarde prog
ON x.res_rsv_ruimte_key = prog.res_rsv_ruimte_key
AND prog.res_kenmerk_key IN (41, 42) -- Programma
;
------ payload end ------
SET DEFINE OFF