Customer/PCBO/PCBO.sql

--
-- $Id$
--
-- Script containing customer specific sql statements for the FACILITOR database

DEFINE thisfile = 'PCBO.SQL'
DEFINE dbuser   = 'PCBO'

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 ------
CREATE OR REPLACE VIEW pcbo_v_rapp_gebouwdossier
(
    html_foto,
    BRIN,
    Locatie_omschrijving,
    Adres,
    Postcode,
    Plaats,
    Verantwoordelijke,
    Telefoonnummer_verantw,
    Gebouw_code,
    Gebouw_naam,
    Gebouw_key
)
AS
     SELECT DECODE (
               g.alg_gebouw_image,
               NULL, 'Geen foto',
                  '<img  src="https://pcbo.facilitor.nl/cust/PCBO/photos/gebouw/'     
               || g.alg_gebouw_image
               || '" height="60">')
               foto,
           l.alg_locatie_code,
           l.alg_locatie_omschrijving,
           l.alg_locatie_adres,
           l.alg_locatie_postcode,
           l.alg_locatie_plaats,
           l.alg_locatie_verantw, 
           l.alg_locatie_verantw_tel,           
           g.alg_gebouw_code,
           g.alg_gebouw_naam,
           g.alg_gebouw_key
      FROM alg_gebouw   g,
           alg_locatie  l
     WHERE l.alg_locatie_key = g.alg_locatie_key
     AND g.alg_gebouw_verwijder IS NULL;

CREATE OR REPLACE VIEW PCBO_V_CAD_THEMA_GEBRUIKSF
(
    ALG_RUIMTE_KEY,
    WAARDE,
    WAARDE_KEY
)
AS
    SELECT r.alg_ruimte_key, COALESCE(gf.fac_usrdata_omschr, 'Onbekend'), COALESCE(gf.fac_usrdata_key, 21)
      from alg_ruimte  r,
           (SELECT rr.alg_ruimte_key, ud.fac_usrdata_omschr, ud.fac_usrdata_key
              FROM alg_onrgoedkenmerk    ok,
                   fac_usrdata           ud,
                   fac_kenmerkdomein     rk,
                   alg_kenmerk           k,
                   alg_v_aanwezigruimte  rr
             WHERE     rk.fac_usrtab_key = ud.fac_usrtab_key
                   AND k.fac_kenmerkdomein_key = rk.fac_kenmerkdomein_key
                   AND TO_CHAR (ud.fac_usrdata_key) =
                       ok.alg_onrgoedkenmerk_waarde
                   AND k.alg_kenmerk_key = 1101
                   AND rr.alg_ruimte_key = ok.alg_onrgoed_key) gf
     WHERE gf.alg_ruimte_key (+) = r.alg_ruimte_key;

CREATE OR REPLACE TRIGGER pcbo_t_thema_gebruiksf_i_iu
    INSTEAD OF INSERT OR UPDATE
    ON PCBO_V_CAD_THEMA_GEBRUIKSF
    FOR EACH ROW
BEGIN
    --- kenmerk bijwerken, let op: de nieuwe waarde is de key en dus niet de omschrijving    
    alg.upsertkenmerk (1101, :new.alg_ruimte_key, :new.waarde_key);
END;
/

CREATE OR REPLACE VIEW PCBO_V_ALGEMEEN
AS
SELECT D.INS_DEEL_KEY INS_DEEL_KEY,
       D.INS_DEEL_OMSCHRIJVING || ' - ' || D.INS_DEEL_OPMERKING INS_OMSCHRIJVING
  FROM INS_DEEL D, INS_SRTDEEL SD, INS_SRTGROEP SG
 WHERE     D.INS_SRTDEEL_KEY = SD.INS_SRTDEEL_KEY
       AND SG.INS_SRTGROEP_KEY = SD.INS_SRTGROEP_KEY
       AND SG.INS_SRTGROEP_KEY = 81  -- algemeen
       AND D.INS_DEEL_VERWIJDER IS NULL;
       
CREATE OR REPLACE VIEW PCBO_V_BOUWKUNDIG
AS
SELECT D.INS_DEEL_KEY INS_DEEL_KEY,
       D.INS_DEEL_OMSCHRIJVING || ' - ' || D.INS_DEEL_OPMERKING INS_OMSCHRIJVING
  FROM INS_DEEL D, INS_SRTDEEL SD, INS_SRTGROEP SG
 WHERE     D.INS_SRTDEEL_KEY = SD.INS_SRTDEEL_KEY
       AND SG.INS_SRTGROEP_KEY = SD.INS_SRTGROEP_KEY
       AND SG.INS_SRTGROEP_KEY = 82  -- bouwkundig
       AND D.INS_DEEL_VERWIJDER IS NULL;

CREATE OR REPLACE VIEW PCBO_V_E_INSTALLATIES
AS
SELECT D.INS_DEEL_KEY INS_DEEL_KEY,
       D.INS_DEEL_OMSCHRIJVING || ' - ' || D.INS_DEEL_OPMERKING INS_OMSCHRIJVING
  FROM INS_DEEL D, INS_SRTDEEL SD, INS_SRTGROEP SG
 WHERE     D.INS_SRTDEEL_KEY = SD.INS_SRTDEEL_KEY
       AND SG.INS_SRTGROEP_KEY = SD.INS_SRTGROEP_KEY
       AND SG.INS_SRTGROEP_KEY = 83  -- e-installaties
       AND D.INS_DEEL_VERWIJDER IS NULL;
 
CREATE OR REPLACE VIEW PCBO_V_W_INSTALLATIES
AS
SELECT D.INS_DEEL_KEY INS_DEEL_KEY,
       D.INS_DEEL_OMSCHRIJVING || ' - ' || D.INS_DEEL_OPMERKING INS_OMSCHRIJVING
  FROM INS_DEEL D, INS_SRTDEEL SD, INS_SRTGROEP SG
 WHERE     D.INS_SRTDEEL_KEY = SD.INS_SRTDEEL_KEY
       AND SG.INS_SRTGROEP_KEY = SD.INS_SRTGROEP_KEY
       AND SG.INS_SRTGROEP_KEY = 84  -- w-installaties
       AND D.INS_DEEL_VERWIJDER IS NULL;

CREATE OR REPLACE VIEW PCBO_V_CONSTRUCTIE
AS
SELECT D.INS_DEEL_KEY INS_DEEL_KEY,
       D.INS_DEEL_OMSCHRIJVING || ' - ' || D.INS_DEEL_OPMERKING INS_OMSCHRIJVING
  FROM INS_DEEL D, INS_SRTDEEL SD, INS_SRTGROEP SG
 WHERE     D.INS_SRTDEEL_KEY = SD.INS_SRTDEEL_KEY
       AND SG.INS_SRTGROEP_KEY = SD.INS_SRTGROEP_KEY
       AND SG.INS_SRTGROEP_KEY = 101  -- constructie
       AND D.INS_DEEL_VERWIJDER IS NULL;

CREATE OR REPLACE VIEW PCBO_V_CAD_THEMA_VLOERAFW
(
    ALG_RUIMTE_KEY,
    WAARDE
)
AS
    SELECT r.alg_ruimte_key, va.fac_usrdata_omschr
      FROM alg_ruimte  r,
           (SELECT rr.alg_ruimte_key, ud.fac_usrdata_omschr
              FROM alg_onrgoedkenmerk    ok,
                   fac_usrdata           ud,
                   fac_kenmerkdomein     rk,
                   alg_kenmerk           k,
                   alg_v_aanwezigruimte  rr
             WHERE     rk.fac_usrtab_key = ud.fac_usrtab_key
                   AND k.fac_kenmerkdomein_key = rk.fac_kenmerkdomein_key
                   AND TO_CHAR (ud.fac_usrdata_key) =
                       ok.alg_onrgoedkenmerk_waarde
                   AND k.alg_kenmerk_key = 1161
                   AND rr.alg_ruimte_key = ok.alg_onrgoed_key) va
     WHERE va.alg_ruimte_key = r.alg_ruimte_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