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

svn path=/Customer/trunk/; revision=64532

TRRL/trrl.sql

@@ -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
+