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

TRRL#79186 -- Implementatie Facilitor bij de Tirrel (TRRL)

Browse Source 
svn path=/Customer/trunk/; revision=64532
This commit is contained in:
Arthur Egberink
2024-05-06 09:26:43 +00:00
parent cfb8be6073
commit 6808e940ab
1 changed files with 103 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
TRRL/trrl.sql Normal file
View File

@@ -0,0 +1,103 @@
--
-- $Id$
--
-- Script containing customer specific sql statements for the FACILITOR database
DEFINE thisfile = 'trrl.sql'
DEFINE dbuser = 'TRRL'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
WHENEVER SQLERROR CONTINUE;
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
SPOOL &fcltlogfile
WHENEVER SQLERROR EXIT;
SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
WHENEVER SQLERROR CONTINUE;
---------------------------------------
PROMPT &fcltcusttxt
---------------------------------------
SET DEFINE OFF
------ payload begin ------
-- Rapportage om kostenoverzicht van de gemaakte reserveringen uit te draaien.
-- De normaal berekende kosten kunnen overrulled worden door de kosten in het veld met
-- kenmerk key 1. Is dit kenmerk gevuld, dan gelden deze kosten.
CREATE OR REPLACE VIEW trrl_v_rap_res_fin_gegevens
AS
SELECT rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr res_reservering_nr,
rrr.res_rsv_ruimte_key,
rrr.res_rsv_ruimte_van res_rsv_ruimte_datum,
rrr.res_rsv_ruimte_van res_rsv_ruimte_van,
rrr.res_rsv_ruimte_tot res_rsv_ruimte_tot,
pf.prs_perslid_naam_full,
rrr.res_rsv_ruimte_omschrijving,
rr.res_ruimte_nr,
k.prs_kostenplaats_omschrijving,
COALESCE (FAC.safe_to_number (flx.getflex ('RES', 1, rrr.res_rsv_ruimte_key)),
RES.getruimteprijs (rrr.res_rsv_ruimte_key)) prijs
FROM res_rsv_ruimte rrr,
prs_kostenplaats k,
prs_v_perslid_fullnames pf,
res_ruimte_opstelling rro,
res_ruimte rr
WHERE rrr.prs_kostenplaats_key = k.prs_kostenplaats_key
AND rrr.res_rsv_ruimte_host_key = pf.prs_perslid_key
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_verwijder IS NULL;
-- Rapport om de door te belasten kosten van de meldingen te tonen.
CREATE OR REPLACE VIEW trrl_v_rap_mld_fin_gegevens
AS
SELECT psl.prs_perslid_naam,
TO_NUMBER (kmm.mld_kenmerkmelding_waarde)
mld_kenmerkmelding_waarde,
meld.mld_melding_onderwerp,
meld.mld_melding_omschrijving,
meld.mld_melding_datum,
dis.ins_discipline_omschrijving,
std.mld_stdmelding_omschrijving,
srtdis.ins_srtdiscipline_omschrijving,
kp.prs_kostenplaats_nr,
kp.prs_kostenplaats_omschrijving,
MLD.getmeldingstatusdate (meld.mld_melding_key, 5)
mld_melding_afmelddatum
FROM mld_srtkenmerk srt,
mld_kenmerk km,
mld_kenmerkmelding kmm,
prs_perslid psl,
mld_melding meld,
mld_discipline dis,
mld_stdmelding std,
ins_srtdiscipline srtdis,
prs_kostenplaats kp,
alg_v_allonrgoed_gegevens aog -- alle onroerend goed gegevens met unieke key, ruimte kan dus nooit een zelfde key hebben als verdieping of gebouw
WHERE srt.mld_srtkenmerk_key = km.mld_srtkenmerk_key
AND kmm.mld_kenmerk_key = km.mld_kenmerk_key
AND meld.mld_melding_key = kmm.mld_melding_key
AND meld.prs_perslid_key = psl.prs_perslid_key
AND meld.mld_alg_onroerendgoed_keys = aog.alg_onroerendgoed_keys
AND std.mld_ins_discipline_key = dis.ins_discipline_key
AND std.mld_stdmelding_key = meld.mld_stdmelding_key
AND srt.mld_srtkenmerk_key = 21 -- Door te belasten kosten.
AND dis.ins_srtdiscipline_key = srtdis.ins_srtdiscipline_key
AND kp.prs_kostenplaats_key = meld.prs_kostenplaats_key;
------ payload end ------
SET DEFINE OFF
BEGIN adm.systrackscriptId ('$Id$', 0); END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF
SET DEFINE ON
PROMPT Logfile of this upgrade is: &fcltlogfile