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

381
SROZ/sroz.sql
View File

@@ -278,6 +278,53 @@ BEGIN
END sroz_update_prs; 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*! -- Bronview met alle afgemelde Externe bijeenkomsten tot *nu*!
CREATE OR REPLACE VIEW sroz_v_res_all 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_rsv_deel_key,
res_reservering_key, res_reservering_key,
res_rsv_ruimte_volgnr, res_rsv_ruimte_volgnr,
debiteur, debiteurnummer,
debiteurnaam,
debiteurcontact,
res_rsv_ruimte_van, res_rsv_ruimte_van,
res_rsv_ruimte_tot, res_rsv_ruimte_tot,
res_rsv_ruimte_omschrijving, res_rsv_ruimte_omschrijving,
@@ -299,13 +348,28 @@ CREATE OR REPLACE VIEW sroz_v_res_all
btw, btw,
debiteurreferentie, debiteurreferentie,
administratie, administratie,
kostenplaats kostenplaats,
code_rcvm,
export2afas_key,
export2afas_oms,
controleur
) )
AS AS
SELECT x.sortering, SELECT x.sortering,
x.res_rsv_ruimte_key, x.res_rsv_artikel_key, x.res_rsv_deel_key, x.res_rsv_ruimte_key, x.res_rsv_artikel_key, x.res_rsv_deel_key,
x.res_reservering_key, x.res_rsv_ruimte_volgnr, 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_van, x.res_rsv_ruimte_tot,
x.res_rsv_ruimte_omschrijving, x.res_rsv_ruimte_omschrijving,
x.res_status_bo_key, x.res_rsv_ruimte_ordernr, x.res_status_bo_key, x.res_rsv_ruimte_ordernr,
@@ -314,8 +378,12 @@ AS
ROUND (x.artikelprijs, 2), ROUND (x.artikelprijs, 2),
x.btw, x.btw,
ref.res_kenmerkreservering_waarde debiteurref, ref.res_kenmerkreservering_waarde debiteurref,
'1' administratie, a.fac_usrdata_code administratie,
'7' kostenplaats '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, 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_rsv_ruimte_key, NULL res_rsv_artikel_key, NULL res_rsv_deel_key,
rrr.res_reservering_key, rrr.res_rsv_ruimte_volgnr, 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)))) (rrr.res_rsv_ruimte_prijs * 0.5) / (24 * (rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van))))
artikelprijs, artikelprijs,
COALESCE (fac.safe_to_number (rr.res_ruimte_groep), 21) btw, 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, FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro, res_ruimte_opstelling rro,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key ( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
@@ -383,7 +452,8 @@ AS
'Afgesproken prijs' artikelomschrijving, 'Afgesproken prijs' artikelomschrijving,
rrr.res_rsv_ruimte_totaal artikelprijs, rrr.res_rsv_ruimte_totaal artikelprijs,
COALESCE (fac.safe_to_number (rr.res_ruimte_groep), 21) btw, 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, FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro, res_ruimte_opstelling rro,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key ( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
@@ -427,7 +497,8 @@ AS
'Korting' artikelomschrijving, 'Korting' artikelomschrijving,
-1 * rrr.res_rsv_ruimte_korting artikelprijs, -1 * rrr.res_rsv_ruimte_korting artikelprijs,
COALESCE (fac.safe_to_number (rr.res_ruimte_groep), 21) btw, 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, FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro, res_ruimte_opstelling rro,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key ( 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) DECODE (rra.res_rsv_artikel_prijs, NULL, rra.res_artikel_prijs, rra.res_rsv_artikel_prijs / rra.res_rsv_artikel_aantal)
artikelprijs, artikelprijs,
rra.btw, 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, FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro, res_ruimte_opstelling rro,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key ( 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_rsv_artikel_dirtlevel = 0
AND rra.res_artikel_key = ra.res_artikel_key AND rra.res_artikel_key = ra.res_artikel_key
AND ra.res_discipline_key IN (50) -- Momento extra 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 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_tot < SYSDATE -- Niet in toekomst!
AND rrr.res_rsv_ruimte_dirtlevel = 0 -- Niet dirty! AND rrr.res_rsv_ruimte_dirtlevel = 0 -- Niet dirty!
@@ -575,6 +649,8 @@ AS
AND rro.res_ruimte_key = rar2.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 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 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 rrr.res_status_bo_key IN (5, 6)
AND NOT EXISTS AND NOT EXISTS
(SELECT 1 (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))) 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, artikelprijs,
21 btw, -- Hard 21% 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, FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro, res_ruimte_opstelling rro,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key ( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
@@ -641,11 +718,27 @@ AS
LEFT JOIN res_v_aanwezigkenmerkwaarde deb LEFT JOIN res_v_aanwezigkenmerkwaarde deb
ON x.res_rsv_ruimte_key = deb.res_rsv_ruimte_key ON x.res_rsv_ruimte_key = deb.res_rsv_ruimte_key
AND deb.res_kenmerk_key = 2 -- Debiteur AND deb.res_kenmerk_key = 2 -- Debiteur
LEFT JOIN prs_bedrijf b LEFT JOIN sroz_v_huurders h
ON deb.res_kenmerkreservering_waarde = TO_CHAR (b.prs_bedrijf_key) ON deb.res_kenmerkreservering_waarde = TO_CHAR (h.prs_bedrijf_key)
LEFT JOIN res_v_aanwezigkenmerkwaarde ref LEFT JOIN res_v_aanwezigkenmerkwaarde ref
ON x.res_rsv_ruimte_key = ref.res_rsv_ruimte_key ON x.res_rsv_ruimte_key = ref.res_rsv_ruimte_key
AND ref.res_kenmerk_key = 3 -- Referentie debiteur 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! -- Actueel: Externe reserveringen lopende week!
@@ -653,7 +746,9 @@ CREATE OR REPLACE VIEW sroz_v_rap_actual_res
( (
hide_f_sortering, hide_f_sortering,
reserveringsnummer, reserveringsnummer,
debiteur, debiteurnummer,
debiteurnaam,
debiteurcontact,
vandatum, vandatum,
totdatum, totdatum,
omschrijving, omschrijving,
@@ -663,12 +758,16 @@ CREATE OR REPLACE VIEW sroz_v_rap_actual_res
btw, btw,
debiteurreferentie, debiteurreferentie,
administratie, administratie,
kostenplaats kostenplaats,
code_rcvm,
controleur
) )
AS AS
SELECT sortering, SELECT sortering,
TO_CHAR (res_reservering_key) || '/' || TO_CHAR (res_rsv_ruimte_volgnr), 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_van, 'dd-mm-yyyy hh24:mi:ss'),
TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'), TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'),
res_rsv_ruimte_omschrijving, res_rsv_ruimte_omschrijving,
@@ -678,13 +777,18 @@ AS
btw, btw,
debiteurreferentie, debiteurreferentie,
administratie, administratie,
kostenplaats kostenplaats,
code_rcvm,
controleur
FROM sroz_v_res_all FROM sroz_v_res_all
WHERE res_rsv_ruimte_van > TRUNC (SYSDATE, 'iw') 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, GROUP BY sortering,
TO_CHAR (res_reservering_key) || '/' || TO_CHAR (res_rsv_ruimte_volgnr), 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_van, 'dd-mm-yyyy hh24:mi:ss'),
TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'), TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'),
res_rsv_ruimte_omschrijving, res_rsv_ruimte_omschrijving,
@@ -693,14 +797,18 @@ AS
btw, btw,
debiteurreferentie, debiteurreferentie,
administratie, administratie,
kostenplaats; kostenplaats,
code_rcvm,
controleur;
-- Concept: Externe reserveringen voorgaande week! -- Concept: Externe reserveringen voorgaande week!
CREATE OR REPLACE VIEW sroz_v_rap_dryrun_res CREATE OR REPLACE VIEW sroz_v_rap_dryrun_res
( (
hide_f_sortering, hide_f_sortering,
reserveringsnummer, reserveringsnummer,
debiteur, debiteurnummer,
debiteurnaam,
debiteurcontact,
vandatum, vandatum,
totdatum, totdatum,
omschrijving, omschrijving,
@@ -710,12 +818,16 @@ CREATE OR REPLACE VIEW sroz_v_rap_dryrun_res
btw, btw,
debiteurreferentie, debiteurreferentie,
administratie, administratie,
kostenplaats kostenplaats,
code_rcvm,
controleur
) )
AS AS
SELECT sortering, SELECT sortering,
TO_CHAR (res_reservering_key) || '/' || TO_CHAR (res_rsv_ruimte_volgnr), 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_van, 'dd-mm-yyyy hh24:mi:ss'),
TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'), TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'),
res_rsv_ruimte_omschrijving, res_rsv_ruimte_omschrijving,
@@ -725,14 +837,18 @@ AS
btw, btw,
debiteurreferentie, debiteurreferentie,
administratie, administratie,
kostenplaats kostenplaats,
code_rcvm,
controleur
FROM sroz_v_res_all FROM sroz_v_res_all
WHERE res_rsv_ruimte_van > TO_DATE ('01-07-2018' , 'dd-mm-yyyy') WHERE res_rsv_ruimte_van < TRUNC (SYSDATE, 'iw')
AND 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, GROUP BY sortering,
TO_CHAR (res_reservering_key) || '/' || TO_CHAR (res_rsv_ruimte_volgnr), 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_van, 'dd-mm-yyyy hh24:mi:ss'),
TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'), TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'),
res_rsv_ruimte_omschrijving, res_rsv_ruimte_omschrijving,
@@ -741,7 +857,9 @@ AS
btw, btw,
debiteurreferentie, debiteurreferentie,
administratie, administratie,
kostenplaats; kostenplaats,
code_rcvm,
controleur;
-- Definitief: Externe reserveringen voorgaande weken! -- Definitief: Externe reserveringen voorgaande weken!
-- TODO: Beter historisch opslaan in fin_verkoopfactuur-tabel? -- TODO: Beter historisch opslaan in fin_verkoopfactuur-tabel?
@@ -750,7 +868,9 @@ CREATE OR REPLACE VIEW sroz_v_rap_frozen_res
hide_f_sortering, hide_f_sortering,
fclt_x_week, fclt_x_week,
reserveringsnummer, reserveringsnummer,
debiteur, debiteurnummer,
debiteurnaam,
debiteurcontact,
vandatum, vandatum,
totdatum, totdatum,
omschrijving, omschrijving,
@@ -760,13 +880,17 @@ CREATE OR REPLACE VIEW sroz_v_rap_frozen_res
btw, btw,
debiteurreferentie, debiteurreferentie,
administratie, administratie,
kostenplaats kostenplaats,
code_rcvm,
controleur
) )
AS 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, 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 (TRUNC (fac.gettrackingdate ('RESVER', res_rsv_ruimte_key), 'iw') - 1, 'yyyy-iw') week,
TO_CHAR (res_reservering_key) || '/' || TO_CHAR (res_rsv_ruimte_volgnr), 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_van, 'dd-mm-yyyy hh24:mi:ss'),
TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'), TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'),
res_rsv_ruimte_omschrijving, res_rsv_ruimte_omschrijving,
@@ -776,14 +900,19 @@ AS
btw, btw,
debiteurreferentie, debiteurreferentie,
administratie, administratie,
kostenplaats kostenplaats,
code_rcvm,
controleur
FROM sroz_v_res_all 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! 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, 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 (TRUNC (fac.gettrackingdate ('RESVER', res_rsv_ruimte_key), 'iw') - 1, 'yyyy-iw'),
TO_CHAR (res_reservering_key) || '/' || TO_CHAR (res_rsv_ruimte_volgnr), 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_van, 'dd-mm-yyyy hh24:mi:ss'),
TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'), TO_CHAR (res_rsv_ruimte_tot, 'dd-mm-yyyy hh24:mi:ss'),
res_rsv_ruimte_omschrijving, res_rsv_ruimte_omschrijving,
@@ -792,7 +921,9 @@ AS
btw, btw,
debiteurreferentie, debiteurreferentie,
administratie, administratie,
kostenplaats; kostenplaats,
code_rcvm,
controleur;
-- WHERE FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 15 -- WHERE FAC.count_work_days (TRUNC (SYSDATE, 'mm') - 1, SYSDATE - 1) = 15
-- AND TO_CHAR (SYSDATE - 1, 'd') BETWEEN '2' AND '6' -- 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' || ';btw'
|| ';debiteurreferentie' || ';debiteurreferentie'
|| ';administratie' || ';administratie'
|| ';kostenplaats', || ';kostenplaats'
|| ';codercvm'
|| ';contactpersoon',
0 0
FROM DUAL FROM DUAL
WHERE TO_CHAR (SYSDATE, 'd') = '4' -- Woensdag WHERE TO_CHAR (SYSDATE, 'd') = '4' -- Woensdag
UNION ALL UNION ALL
SELECT reserveringsnummer SELECT reserveringsnummer
|| ';' || ';'
|| debiteur || debiteurnummer
|| ';' || ';'
|| vandatum || vandatum
|| ';' || ';'
@@ -844,10 +977,14 @@ AS -- View bevat alleen inhoud op de dag na de 15e werkdag van de maand!
|| ';' || ';'
|| administratie || administratie
|| ';' || ';'
|| kostenplaats, || kostenplaats
|| ';'
|| code_rcvm
|| ';'
|| debiteurcontact,
ROWNUM ROWNUM
FROM ( SELECT reserveringsnummer, FROM ( SELECT reserveringsnummer,
debiteur, debiteurnummer,
vandatum, vandatum,
totdatum, totdatum,
omschrijving, omschrijving,
@@ -857,7 +994,9 @@ AS -- View bevat alleen inhoud op de dag na de 15e werkdag van de maand!
btw, btw,
debiteurreferentie, debiteurreferentie,
administratie, administratie,
kostenplaats kostenplaats,
code_rcvm,
debiteurcontact
FROM sroz_v_rap_frozen_res FROM sroz_v_rap_frozen_res
WHERE fclt_x_week = TO_CHAR (TRUNC (SYSDATE, 'iw') - 1, 'yyyy-iw') WHERE fclt_x_week = TO_CHAR (TRUNC (SYSDATE, 'iw') - 1, 'yyyy-iw')
ORDER BY hide_f_sortering) ORDER BY hide_f_sortering)
@@ -870,19 +1009,16 @@ AS
-- Verwerken te exporteren regels! -- Verwerken te exporteren regels!
CURSOR c1 CURSOR c1
IS IS
SELECT '[' || debiteur || '] ' aanduiding, SELECT '[' || debiteurnummer || '] ' aanduiding,
res_rsv_ruimte_key, res_rsv_artikel_key, res_rsv_deel_key, res_rsv_ruimte_key, res_rsv_artikel_key, res_rsv_deel_key,
res_status_bo_key, debiteurnummer, aantal, artikelprijs, btw
debiteur,
aantal,
artikelprijs,
btw
FROM sroz_v_res_all FROM sroz_v_res_all
WHERE res_rsv_ruimte_van > TO_DATE ('01-07-2018' , 'dd-mm-yyyy') WHERE res_rsv_ruimte_van < TRUNC (SYSDATE, 'iw')
AND 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)
AND controleur IS NOT NULL -- Gecontroleerd
AND sortering NOT LIKE '%R1' -- Skip Korting-regels! AND sortering NOT LIKE '%R1' -- Skip Korting-regels!
ORDER BY debiteur, sortering DESC; ORDER BY debiteurnummer, sortering DESC;
v_errormsg VARCHAR2 (1000); v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER; oracle_err_num NUMBER;
@@ -892,11 +1028,7 @@ AS
v_prijs NUMBER (9, 2); v_prijs NUMBER (9, 2);
BEGIN BEGIN
-- LET OP: FIN-export draait dagelijks na middernacht (begin van dag) en de -- 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 -- verkoop wordt wekelijks alleen in de nacht na woensdag doorgezet.
-- 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 TO_CHAR (SYSDATE, 'd') = '4' IF TO_CHAR (SYSDATE, 'd') = '4'
THEN THEN
v_regel_nr := 0; v_regel_nr := 0;
@@ -905,95 +1037,43 @@ BEGIN
FOR rec IN c1 FOR rec IN c1
LOOP LOOP
BEGIN BEGIN
v_prijs := ROUND (rec.aantal * rec.artikelprijs, 2);
IF rec.res_rsv_artikel_key IS NOT NULL IF rec.res_rsv_artikel_key IS NOT NULL
THEN -- Verbruiksartikel-regel THEN -- Artikel-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;
v_errormsg := 'Fout verwerken res_rsv_artikel'; v_errormsg := 'Fout verwerken res_rsv_artikel';
UPDATE res_rsv_artikel UPDATE res_rsv_artikel
SET res_status_bo_key = 6 -- AV (en zet ook Verwerkt-date) SET res_status_bo_key = 6 -- AV (en zet ook Verwerkt-date)
WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key; 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 ELSIF rec.res_rsv_deel_key IS NOT NULL
THEN -- Voorziening-regel THEN -- Voorziening-regel
IF rec.res_status_bo_key = 2 v_errormsg := 'Fout bewaren res_rsv_deel_prijs';
THEN
v_errormsg := 'Fout bepalen res_rsv_artikel_prijs';
SELECT res.getdeelprijs (rec.res_rsv_deel_key) UPDATE res_rsv_deel
INTO v_prijs SET res_rsv_deel_prijs = v_prijs
FROM DUAL; WHERE res_rsv_deel_key = rec.res_rsv_deel_key;
v_errormsg := 'Fout afmelden res_rsv_deel';
UPDATE res_rsv_deel
SET res_status_bo_key = 5,
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'; v_errormsg := 'Fout verwerken res_rsv_deel';
UPDATE res_rsv_deel UPDATE res_rsv_deel
SET res_status_bo_key = 6 -- AV (en zet ook Verwerkt-date) SET res_status_bo_key = 6 -- AV (en zet ook Verwerkt-date)
WHERE res_rsv_deel_key = rec.res_rsv_deel_key; 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 ELSE -- Ruimte-regel
IF rec.res_status_bo_key = 2 v_errormsg := 'Fout bewaren res_rsv_ruimte_prijs';
THEN
v_errormsg := 'Fout bepalen res_rsv_ruimte_prijs';
--SELECT res.getruimteprijs (rec.res_rsv_ruimte_key) UPDATE res_rsv_ruimte
-- INTO v_prijs SET res_rsv_ruimte_prijs = v_prijs,
-- FROM DUAL; res_rsv_ruimte_ordernr = rec.debiteurnummer || '|' || TO_CHAR (rec.btw) -- Historisch bewaren: debiteurnummer + btw
v_prijs := ROUND (rec.aantal * rec.artikelprijs, 2); WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
v_errormsg := 'Fout afmelden res_rsv_ruimte';
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
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'; v_errormsg := 'Fout verwerken res_rsv_ruimte';
@@ -1001,7 +1081,7 @@ BEGIN
SET res_status_bo_key = 6 -- AV SET res_status_bo_key = 6 -- AV
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key; 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); fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, NULL);
END IF; END IF;
@@ -1025,53 +1105,6 @@ BEGIN
END; 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 -- View tbv. Fidato/TiC Narrow Casting om reserveringsgegevens te tonen <20>n de
-- Omschrijvingen van geaccepteerde/niet afgemelde meldingen van soortmelding -- Omschrijvingen van geaccepteerde/niet afgemelde meldingen van soortmelding
-- Bericht (met key=1). -- Bericht (met key=1).