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

FSN#54025 FIN-export

Browse Source 
svn path=/Customer/trunk/; revision=40371
This commit is contained in:
Maarten van der Heide
2019-01-02 13:13:14 +00:00
parent ae1d139592
commit e34695d872
1 changed files with 207 additions and 174 deletions
Download Patch File Download Diff File Expand all files Collapse all files

369
SROZ/sroz.sql
View File

@@ -278,6 +278,53 @@ BEGIN
END sroz_update_prs;
/
-- Domein met alle huurders (debiteuren).
CREATE OR REPLACE VIEW sroz_v_huurders
(
prs_bedrijf_key,
prs_bedrijf_naam,
prs_bedrijf_verwijder
)
AS
SELECT b.prs_bedrijf_key,
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 || ']/'
|| COALESCE (TRIM (cp.prs_contactpersoon_aanhef || ' ' || TRIM (cp.prs_contactpersoon_voornaam || ' ' || TRIM (cp.prs_contactpersoon_tussenv || ' ' || cp.prs_contactpersoon_naam))), '-') || ';T:'
|| COALESCE (cp.prs_contactpersoon_telefoon_1, cp.prs_contactpersoon_telefoon_2, b.prs_bedrijf_telefoon, b.prs_bedrijf_telefoon2, '-') || ';E:'
|| COALESCE (cp.prs_contactpersoon_email, 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
AND b.prs_bedrijf_key = cp.prs_bedrijf_key;
-- Domein met controleurs.
CREATE OR REPLACE VIEW sroz_v_controleurs
(
prs_perslid_key,
prs_perslid_naam_full,
prs_perslid_naam_friendly,
prs_perslid_verwijder
)
AS
SELECT pf.prs_perslid_key,
pf.prs_perslid_naam_full,
pf.prs_perslid_naam_friendly,
p.prs_perslid_verwijder
FROM fac_gebruikersgroep gg, prs_perslid p, prs_v_perslid_fullnames_all pf
WHERE gg.fac_groep_key = 6 -- FOBO RES
AND gg.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND SUBSTR (p.prs_perslid_oslogin, 1, 1) != '_';
-- Bronview met alle afgemelde Externe bijeenkomsten tot *nu*!
CREATE OR REPLACE VIEW sroz_v_res_all
(
@@ -287,7 +334,9 @@ CREATE OR REPLACE VIEW sroz_v_res_all
res_rsv_deel_key,
res_reservering_key,
res_rsv_ruimte_volgnr,
debiteur,
debiteurnummer,
debiteurnaam,
debiteurcontact,
res_rsv_ruimte_van,
res_rsv_ruimte_tot,
res_rsv_ruimte_omschrijving,
@@ -299,13 +348,28 @@ CREATE OR REPLACE VIEW sroz_v_res_all
btw,
debiteurreferentie,
administratie,
kostenplaats
kostenplaats,
code_rcvm,
export2afas_key,
export2afas_oms,
controleur
)
AS
SELECT x.sortering,
x.res_rsv_ruimte_key, x.res_rsv_artikel_key, x.res_rsv_deel_key,
x.res_reservering_key, x.res_rsv_ruimte_volgnr,
b.prs_overeenkomst_nr debiteur,
TRIM (SUBSTR (h.prs_bedrijf_naam,
INSTR (h.prs_bedrijf_naam, '[') + 1,
INSTR (h.prs_bedrijf_naam, ']/') - INSTR (h.prs_bedrijf_naam, '[') - 1))
debiteurnummer,
TRIM (SUBSTR (h.prs_bedrijf_naam,
1,
INSTR (h.prs_bedrijf_naam, '[') - 1))
debiteurnaam,
TRIM (SUBSTR (h.prs_bedrijf_naam,
INSTR (h.prs_bedrijf_naam, '/') + 1,
INSTR (h.prs_bedrijf_naam, ';T') - INSTR (h.prs_bedrijf_naam, '/') - 1))
debiteurcontact,
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,
@@ -314,8 +378,12 @@ AS
ROUND (x.artikelprijs, 2),
x.btw,
ref.res_kenmerkreservering_waarde debiteurref,
'1' administratie,
'7' kostenplaats
a.fac_usrdata_code administratie,
'7' kostenplaats,
x.code_rcvm,
e.fac_usrdata_key,
e.fac_usrdata_omschr,
c.prs_perslid_naam_friendly
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,
@@ -334,7 +402,8 @@ AS
(rrr.res_rsv_ruimte_prijs * 0.5) / (24 * (rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van))))
artikelprijs,
COALESCE (fac.safe_to_number (rr.res_ruimte_groep), 21) btw,
COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key) alg_ruimte_key
COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key) alg_ruimte_key,
'R' code_rcvm
FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
@@ -383,7 +452,8 @@ AS
'Afgesproken prijs' artikelomschrijving,
rrr.res_rsv_ruimte_totaal artikelprijs,
COALESCE (fac.safe_to_number (rr.res_ruimte_groep), 21) btw,
COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key) alg_ruimte_key
COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key) alg_ruimte_key,
'R' code_rcvm
FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
@@ -427,7 +497,8 @@ AS
'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
COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key) alg_ruimte_key,
'R' code_rcvm
FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
@@ -472,7 +543,8 @@ AS
DECODE (rra.res_rsv_artikel_prijs, NULL, rra.res_artikel_prijs, rra.res_rsv_artikel_prijs / rra.res_rsv_artikel_aantal)
artikelprijs,
rra.btw,
COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key, rrr.alg_ruimte_key) alg_ruimte_key
COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key, rrr.alg_ruimte_key) alg_ruimte_key,
ks.prs_kostensoort_altcode code_rcvm
FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
@@ -566,7 +638,9 @@ AS
AND rra.res_rsv_artikel_dirtlevel = 0
AND rra.res_artikel_key = ra.res_artikel_key
AND ra.res_discipline_key IN (50) -- Momento extra
AND ra.res_artikel_btw IS NULL) rra
AND ra.res_artikel_btw IS NULL) rra,
res_discipline rd,
prs_kostensoort ks
WHERE rrr.res_activiteit_key IN (30, -11, -50) -- Externe bijeenkomst/Uitleen/Rondleiding
AND rrr.res_rsv_ruimte_tot < SYSDATE -- Niet in toekomst!
AND rrr.res_rsv_ruimte_dirtlevel = 0 -- Niet dirty!
@@ -575,6 +649,8 @@ AS
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_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rra.res_discipline_key = rd.ins_discipline_key
AND rd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
AND rrr.res_status_bo_key IN (5, 6)
AND NOT EXISTS
(SELECT 1
@@ -600,7 +676,8 @@ AS
DECODE (rrd.res_rsv_deel_prijs, NULL, rd.res_deel_prijs, rrd.res_rsv_deel_prijs / (24 * (rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van)))
artikelprijs,
21 btw, -- Hard 21%
COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key, rrr.alg_ruimte_key) alg_ruimte_key
COALESCE (rar1.alg_ruimte_key, rar2.alg_ruimte_key, rrr.alg_ruimte_key) alg_ruimte_key,
'V' code_rcvm
FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
@@ -641,11 +718,27 @@ AS
LEFT JOIN res_v_aanwezigkenmerkwaarde deb
ON x.res_rsv_ruimte_key = deb.res_rsv_ruimte_key
AND deb.res_kenmerk_key = 2 -- Debiteur
LEFT JOIN prs_bedrijf b
ON deb.res_kenmerkreservering_waarde = TO_CHAR (b.prs_bedrijf_key)
LEFT JOIN sroz_v_huurders h
ON deb.res_kenmerkreservering_waarde = TO_CHAR (h.prs_bedrijf_key)
LEFT JOIN res_v_aanwezigkenmerkwaarde ref
ON x.res_rsv_ruimte_key = ref.res_rsv_ruimte_key
AND ref.res_kenmerk_key = 3 -- Referentie debiteur
LEFT JOIN res_v_aanwezigkenmerkwaarde adm
ON x.res_rsv_ruimte_key = adm.res_rsv_ruimte_key
AND adm.res_kenmerk_key = 161 -- Administratie
LEFT JOIN fac_v_aanwezigusrdata a
ON adm.res_kenmerkreservering_waarde = TO_CHAR (a.fac_usrdata_key)
LEFT JOIN res_v_aanwezigkenmerkwaarde e2a
ON x.res_rsv_ruimte_key = e2a.res_rsv_ruimte_key
AND e2a.res_kenmerk_key = 181 -- Export naar Afas
LEFT JOIN fac_v_aanwezigusrdata e
ON e2a.res_kenmerkreservering_waarde = TO_CHAR (e.fac_usrdata_key)
LEFT JOIN res_v_aanwezigkenmerkwaarde gdr
ON x.res_rsv_ruimte_key = gdr.res_rsv_ruimte_key
AND gdr.res_kenmerk_key = 182 -- Gecontroleerd door
LEFT JOIN sroz_v_controleurs c
ON gdr.res_kenmerkreservering_waarde = TO_CHAR (c.prs_perslid_key)
WHERE x.res_rsv_ruimte_van > TO_DATE ('01-01-2019', 'dd-mm-yyyy')
;
-- Actueel: Externe reserveringen lopende week!
@@ -653,7 +746,9 @@ CREATE OR REPLACE VIEW sroz_v_rap_actual_res
(
hide_f_sortering,
reserveringsnummer,
debiteur,
debiteurnummer,
debiteurnaam,
debiteurcontact,
vandatum,
totdatum,
omschrijving,
@@ -663,12 +758,16 @@ CREATE OR REPLACE VIEW sroz_v_rap_actual_res
btw,
debiteurreferentie,
administratie,
kostenplaats
kostenplaats,
code_rcvm,
controleur
)
AS
SELECT sortering,
TO_CHAR (res_reservering_key) || '/' || TO_CHAR (res_rsv_ruimte_volgnr),
debiteur,
debiteurnummer,
debiteurnaam,
debiteurcontact,
TO_CHAR (res_rsv_ruimte_van, 'dd-mm-yyyy hh24:mi:ss'),
TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'),
res_rsv_ruimte_omschrijving,
@@ -678,13 +777,18 @@ AS
btw,
debiteurreferentie,
administratie,
kostenplaats
kostenplaats,
code_rcvm,
controleur
FROM sroz_v_res_all
WHERE res_rsv_ruimte_van > TRUNC (SYSDATE, 'iw')
AND res_status_bo_key != 6 -- Niet AV!
AND res_status_bo_key != 6 -- Niet AV
AND export2afas_key = 161 -- Ja (zodra afgemeld+gecontroleerd)
GROUP BY sortering,
TO_CHAR (res_reservering_key) || '/' || TO_CHAR (res_rsv_ruimte_volgnr),
debiteur,
debiteurnummer,
debiteurnaam,
debiteurcontact,
TO_CHAR (res_rsv_ruimte_van, 'dd-mm-yyyy hh24:mi:ss'),
TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'),
res_rsv_ruimte_omschrijving,
@@ -693,14 +797,18 @@ AS
btw,
debiteurreferentie,
administratie,
kostenplaats;
kostenplaats,
code_rcvm,
controleur;
-- Concept: Externe reserveringen voorgaande week!
CREATE OR REPLACE VIEW sroz_v_rap_dryrun_res
(
hide_f_sortering,
reserveringsnummer,
debiteur,
debiteurnummer,
debiteurnaam,
debiteurcontact,
vandatum,
totdatum,
omschrijving,
@@ -710,12 +818,16 @@ CREATE OR REPLACE VIEW sroz_v_rap_dryrun_res
btw,
debiteurreferentie,
administratie,
kostenplaats
kostenplaats,
code_rcvm,
controleur
)
AS
SELECT sortering,
TO_CHAR (res_reservering_key) || '/' || TO_CHAR (res_rsv_ruimte_volgnr),
debiteur,
debiteurnummer,
debiteurnaam,
debiteurcontact,
TO_CHAR (res_rsv_ruimte_van, 'dd-mm-yyyy hh24:mi:ss'),
TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'),
res_rsv_ruimte_omschrijving,
@@ -725,14 +837,18 @@ AS
btw,
debiteurreferentie,
administratie,
kostenplaats
kostenplaats,
code_rcvm,
controleur
FROM sroz_v_res_all
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!
WHERE res_rsv_ruimte_van < TRUNC (SYSDATE, 'iw')
AND res_status_bo_key != 6 -- Niet AV
AND export2afas_key = 161 -- Ja (zodra afgemeld+gecontroleerd)
GROUP BY sortering,
TO_CHAR (res_reservering_key) || '/' || TO_CHAR (res_rsv_ruimte_volgnr),
debiteur,
debiteurnummer,
debiteurnaam,
debiteurcontact,
TO_CHAR (res_rsv_ruimte_van, 'dd-mm-yyyy hh24:mi:ss'),
TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'),
res_rsv_ruimte_omschrijving,
@@ -741,7 +857,9 @@ AS
btw,
debiteurreferentie,
administratie,
kostenplaats;
kostenplaats,
code_rcvm,
controleur;
-- Definitief: Externe reserveringen voorgaande weken!
-- TODO: Beter historisch opslaan in fin_verkoopfactuur-tabel?
@@ -750,7 +868,9 @@ CREATE OR REPLACE VIEW sroz_v_rap_frozen_res
hide_f_sortering,
fclt_x_week,
reserveringsnummer,
debiteur,
debiteurnummer,
debiteurnaam,
debiteurcontact,
vandatum,
totdatum,
omschrijving,
@@ -760,13 +880,17 @@ CREATE OR REPLACE VIEW sroz_v_rap_frozen_res
btw,
debiteurreferentie,
administratie,
kostenplaats
kostenplaats,
code_rcvm,
controleur
)
AS
SELECT TO_CHAR (TRUNC (fac.gettrackingdate ('RESVER', res_rsv_ruimte_key), 'iw') - 1, 'yyyy-iw') || TO_CHAR (SUBSTR (res_rsv_ruimte_ordernr, 1, INSTR (res_rsv_ruimte_ordernr, '|') - 1), 'FM00000009') || sortering sortering,
TO_CHAR (TRUNC (fac.gettrackingdate ('RESVER', res_rsv_ruimte_key), 'iw') - 1, 'yyyy-iw') week,
TO_CHAR (res_reservering_key) || '/' || TO_CHAR (res_rsv_ruimte_volgnr),
debiteur,
debiteurnummer,
debiteurnaam,
debiteurcontact,
TO_CHAR (res_rsv_ruimte_van, 'dd-mm-yyyy hh24:mi:ss'),
TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'),
res_rsv_ruimte_omschrijving,
@@ -776,14 +900,19 @@ AS
btw,
debiteurreferentie,
administratie,
kostenplaats
kostenplaats,
code_rcvm,
controleur
FROM sroz_v_res_all
WHERE fac.gettrackingdate ('RESVER', res_rsv_ruimte_key) > TRUNC (ADD_MONTHS (SYSDATE, -24), 'yyyy') -- Huidige jaar en 2 voorgaande jaren!
AND res_status_bo_key = 6 -- AV!
--AND res_status_bo_key = 6 -- AV!
AND res_rsv_ruimte_ordernr IS NOT NULL
GROUP BY TO_CHAR (TRUNC (fac.gettrackingdate ('RESVER', res_rsv_ruimte_key), 'iw') - 1, 'yyyy-iw') || TO_CHAR (SUBSTR (res_rsv_ruimte_ordernr, 1, INSTR (res_rsv_ruimte_ordernr, '|') - 1), 'FM00000009') || sortering,
TO_CHAR (TRUNC (fac.gettrackingdate ('RESVER', res_rsv_ruimte_key), 'iw') - 1, 'yyyy-iw'),
TO_CHAR (res_reservering_key) || '/' || TO_CHAR (res_rsv_ruimte_volgnr),
debiteur,
debiteurnummer,
debiteurnaam,
debiteurcontact,
TO_CHAR (res_rsv_ruimte_van, 'dd-mm-yyyy hh24:mi:ss'),
TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'),
res_rsv_ruimte_omschrijving,
@@ -792,7 +921,9 @@ AS
btw,
debiteurreferentie,
administratie,
kostenplaats;
kostenplaats,
code_rcvm,
controleur;
-- WHERE FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 15
-- AND TO_CHAR (SYSDATE - 1, 'd') BETWEEN '2' AND '6'
@@ -817,14 +948,16 @@ AS -- View bevat alleen inhoud op de dag na de 15e werkdag van de maand!
|| ';btw'
|| ';debiteurreferentie'
|| ';administratie'
|| ';kostenplaats',
|| ';kostenplaats'
|| ';codercvm'
|| ';contactpersoon',
0
FROM DUAL
WHERE TO_CHAR (SYSDATE, 'd') = '4' -- Woensdag
UNION ALL
SELECT reserveringsnummer
|| ';'
|| debiteur
|| debiteurnummer
|| ';'
|| vandatum
|| ';'
@@ -844,10 +977,14 @@ AS -- View bevat alleen inhoud op de dag na de 15e werkdag van de maand!
|| ';'
|| administratie
|| ';'
|| kostenplaats,
|| kostenplaats
|| ';'
|| code_rcvm
|| ';'
|| debiteurcontact,
ROWNUM
FROM ( SELECT reserveringsnummer,
debiteur,
debiteurnummer,
vandatum,
totdatum,
omschrijving,
@@ -857,7 +994,9 @@ AS -- View bevat alleen inhoud op de dag na de 15e werkdag van de maand!
btw,
debiteurreferentie,
administratie,
kostenplaats
kostenplaats,
code_rcvm,
debiteurcontact
FROM sroz_v_rap_frozen_res
WHERE fclt_x_week = TO_CHAR (TRUNC (SYSDATE, 'iw') - 1, 'yyyy-iw')
ORDER BY hide_f_sortering)
@@ -870,19 +1009,16 @@ AS
-- Verwerken te exporteren regels!
CURSOR c1
IS
SELECT '[' || debiteur || '] ' aanduiding,
SELECT '[' || debiteurnummer || '] ' aanduiding,
res_rsv_ruimte_key, res_rsv_artikel_key, res_rsv_deel_key,
res_status_bo_key,
debiteur,
aantal,
artikelprijs,
btw
debiteurnummer, aantal, artikelprijs, btw
FROM sroz_v_res_all
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!
WHERE res_rsv_ruimte_van < TRUNC (SYSDATE, 'iw')
AND res_status_bo_key != 6 -- Niet AV
AND export2afas_key = 161 -- Ja (zodra afgemeld+gecontroleerd)
AND controleur IS NOT NULL -- Gecontroleerd
AND sortering NOT LIKE '%R1' -- Skip Korting-regels!
ORDER BY debiteur, sortering DESC;
ORDER BY debiteurnummer, sortering DESC;
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
@@ -892,11 +1028,7 @@ AS
v_prijs NUMBER (9, 2);
BEGIN
-- 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!
-- verkoop wordt wekelijks alleen in de nacht na woensdag doorgezet.
IF TO_CHAR (SYSDATE, 'd') = '4'
THEN
v_regel_nr := 0;
@@ -905,103 +1037,51 @@ BEGIN
FOR rec IN c1
LOOP
BEGIN
v_prijs := ROUND (rec.aantal * rec.artikelprijs, 2);
IF rec.res_rsv_artikel_key IS NOT NULL
THEN -- Verbruiksartikel-regel
IF rec.res_status_bo_key = 2
THEN
v_errormsg := 'Fout bepalen res_rsv_artikel_prijs';
SELECT res.getartikelprijs (rec.res_rsv_artikel_key)
INTO v_prijs
FROM DUAL;
v_errormsg := 'Fout afmelden res_rsv_artikel';
UPDATE res_rsv_artikel
SET res_status_bo_key = 5,
res_rsv_artikel_prijs = v_prijs,
--res_rsv_artikel_inkoopprijs =
-- (SELECT res_artikel_inkoopprijs
-- FROM res_artikel
-- WHERE res_artikel_key = rec.res_artikel_key),
res_rsv_artikel_btw = rec.btw
WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key;
v_errormsg := 'Fout tracken afmelding';
fac.trackaction ('RESAFM', rec.res_rsv_ruimte_key, NULL, NULL, 'Verbruik afgemeld');
END IF;
THEN -- Artikel-regel
v_errormsg := 'Fout verwerken res_rsv_artikel';
UPDATE res_rsv_artikel
SET res_status_bo_key = 6 -- AV (en zet ook Verwerkt-date)
WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key;
v_errormsg := 'Fout tracken verwerking';
v_errormsg := 'Fout tracken C-verwerking';
fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, 'Verbruik verwerkt');
fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, 'Artikel verwerkt');
ELSIF rec.res_rsv_deel_key IS NOT NULL
THEN -- Voorziening-regel
IF rec.res_status_bo_key = 2
THEN
v_errormsg := 'Fout bepalen res_rsv_artikel_prijs';
SELECT res.getdeelprijs (rec.res_rsv_deel_key)
INTO v_prijs
FROM DUAL;
v_errormsg := 'Fout afmelden res_rsv_deel';
v_errormsg := 'Fout bewaren res_rsv_deel_prijs';
UPDATE res_rsv_deel
SET res_status_bo_key = 5,
res_rsv_deel_prijs = v_prijs
SET res_rsv_deel_prijs = v_prijs
WHERE res_rsv_deel_key = rec.res_rsv_deel_key;
v_errormsg := 'Fout tracken afmelding';
fac.trackaction ('RESAFM', rec.res_rsv_ruimte_key, NULL, NULL, 'Overig afgemeld');
END IF;
v_errormsg := 'Fout verwerken res_rsv_deel';
UPDATE res_rsv_deel
SET res_status_bo_key = 6 -- AV (en zet ook Verwerkt-date)
WHERE res_rsv_deel_key = rec.res_rsv_deel_key;
v_errormsg := 'Fout tracken verwerking';
v_errormsg := 'Fout tracken V-verwerking';
fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, 'Overig verwerkt');
fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, 'Voorziening verwerkt');
ELSE -- Ruimte-regel
IF rec.res_status_bo_key = 2
THEN
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';
v_errormsg := 'Fout bewaren res_rsv_ruimte_prijs';
UPDATE res_rsv_ruimte
SET res_status_bo_key = 5,
res_rsv_ruimte_prijs = v_prijs,
res_rsv_ruimte_ordernr = rec.debiteur || '|' || TO_CHAR (rec.btw) -- Historisch bewaren: debiteur + btw
SET res_rsv_ruimte_prijs = v_prijs,
res_rsv_ruimte_ordernr = rec.debiteurnummer || '|' || TO_CHAR (rec.btw) -- Historisch bewaren: debiteurnummer + btw
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
v_errormsg := 'Fout tracken afmelding';
fac.trackaction ('RESAFM', rec.res_rsv_ruimte_key, NULL, NULL, NULL);
END IF;
v_errormsg := 'Fout verwerken res_rsv_ruimte';
UPDATE res_rsv_ruimte
SET res_status_bo_key = 6 -- AV
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
v_errormsg := 'Fout tracken verwerking';
v_errormsg := 'Fout tracken R-verwerking';
fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, NULL);
END IF;
@@ -1025,53 +1105,6 @@ BEGIN
END;
/
-- Domein met alle huurders (debiteuren).
CREATE OR REPLACE VIEW sroz_v_huurders
(
prs_bedrijf_key,
prs_bedrijf_naam,
prs_bedrijf_verwijder
)
AS
SELECT b.prs_bedrijf_key,
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 || ']/'
|| COALESCE (TRIM (cp.prs_contactpersoon_aanhef || ' ' || TRIM (cp.prs_contactpersoon_voornaam || ' ' || TRIM (cp.prs_contactpersoon_tussenv || ' ' || cp.prs_contactpersoon_naam))), '-') || ';T:'
|| COALESCE (cp.prs_contactpersoon_telefoon_1, cp.prs_contactpersoon_telefoon_2, b.prs_bedrijf_telefoon, b.prs_bedrijf_telefoon2, '-') || ';E:'
|| COALESCE (cp.prs_contactpersoon_email, 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
AND b.prs_bedrijf_key = cp.prs_bedrijf_key;
-- Domein met controleurs.
CREATE OR REPLACE VIEW sroz_v_controleurs
(
prs_perslid_key,
prs_perslid_naam_full,
prs_perslid_naam_friendly,
prs_perslid_verwijder
)
AS
SELECT pf.prs_perslid_key,
pf.prs_perslid_naam_full,
pf.prs_perslid_naam_friendly,
p.prs_perslid_verwijder
FROM fac_gebruikersgroep gg, prs_perslid p, prs_v_perslid_fullnames_all pf
WHERE gg.fac_groep_key = 6 -- FOBO RES
AND gg.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND SUBSTR (p.prs_perslid_oslogin, 1, 1) != '_';
-- View tbv. Fidato/TiC Narrow Casting om reserveringsgegevens te tonen <20>n de
-- Omschrijvingen van geaccepteerde/niet afgemelde meldingen van soortmelding
-- Bericht (met key=1).