-- -- $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