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

DEFINE thisfile = 'BLCC#39810_2.SQL'
DEFINE dbuser   = '^BLCC'
DEFINE custid   = 'BLCC'

SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT;
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
WHENEVER SQLERROR CONTINUE;
SPOOL &fcltlogfile
SET DEFINE OFF

------ payload begin ------

CREATE OR REPLACE VIEW BLCC_V_RAP_CATERINGOVERZICHT
(
   FCLT_F_DEBITEUR,
   ORGANISATIE,
   LOCATIE,
   FCLT_F_RUIMTE,
   FCLT_F_DATUM,
   TIJD_VANAF,
   TIJD_TOT,
   RESNR,
   OMSCHRIJVING,
   ARTIKELKEY,
   ARTIKELNR,
   ARTIKELOMSCHRIJVING,
   AANTAL,
   STUKPRIJS,
   KOSTEN,
   BESTELLER,
   COSTCENTER,
   ACTIVITEIT
)
AS
   SELECT DISTINCT
          COALESCE (kl.prs_kenmerklink_waarde, '???') deb_nr,
          (SELECT prs_afdeling_omschrijving
             FROM prs_afdeling
            WHERE prs_afdeling_key = ab.prs_afdeling_key)
             deb_oms,
          DECODE (
             r.alg_ruimte_key,
             NULL,
             'Onbekend',
                rg.alg_gebouw_upper
             || '-'
             || rg.alg_verdieping_code
             || '-'
             || rg.alg_ruimte_nr)
             afleveradres,
          r.alg_ruimte_omschrijving,
          rr.res_rsv_ruimte_van,
          TO_CHAR (rr.res_rsv_ruimte_van, 'hh24:mi'),
          TO_CHAR (rr.res_rsv_ruimte_tot, 'hh24:mi'),
          rr.res_reservering_key || '/' || rr.res_rsv_ruimte_volgnr,
          rr.res_rsv_ruimte_opmerking,
          ra.res_artikel_key,
          ra.res_artikel_nr,
          ra.res_artikel_omschrijving,
          rra.res_rsv_artikel_aantal,
          ra.res_artikel_prijs,
          rra.res_rsv_artikel_prijs,
          prs_perslid_naam_full,
          (SELECT MAX (kw.res_kenmerkreservering_waarde)
             FROM res_kenmerkwaarde kw, res_kenmerk rk
            WHERE     kw.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
                  AND kw.res_kenmerkwaarde_verwijder IS NULL
                  AND kw.res_kenmerk_key = rk.res_kenmerk_key
                  AND rk.res_srtkenmerk_key = 1)
             costcenter,
          rac.res_activiteit_omschrijving
     FROM res_rsv_ruimte rr,
          alg_ruimte r,
          res_artikel ra,
          res_rsv_artikel rra,
          prs_v_perslid_fullnames ppf,
          res_discipline rd,
          prs_perslid p,
          prs_v_afdeling_boom ab,
          prs_kostenplaats pk,
          res_activiteit rac,
          res_opstelling o,
          res_ruimte rui,
          prs_kenmerklink kl,
          alg_v_ruimte_gegevens_all rg
    WHERE     rr.alg_ruimte_key = r.alg_ruimte_key
          AND rra.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
          AND rui.res_ruimte_key = rui.res_ruimte_key
          AND rra.res_artikel_key = ra.res_artikel_key
          AND rr.res_rsv_ruimte_contact_key = ppf.prs_perslid_key
          AND rr.res_rsv_ruimte_host_key = ppf.prs_perslid_key
          AND ra.res_discipline_key = rd.ins_discipline_key
          AND rr.prs_kostenplaats_key = pk.prs_kostenplaats_key(+)
          AND rr.res_activiteit_key = rac.res_activiteit_key
          AND r.alg_ruimte_key = rg.alg_ruimte_key
          AND rr.res_rsv_ruimte_host_key = p.prs_perslid_key
          AND p.prs_afdeling_key = ab.prs_afdeling_key
          AND COALESCE (ab.prs_afdeling_key2, ab.prs_afdeling_key) =
                kl.prs_link_key(+)
          AND kl.prs_kenmerklink_niveau(+) = 'A'
          AND kl.prs_kenmerk_key(+) = 1001                   -- Debiteurnummer
          AND p.prs_perslid_key = ppf.prs_perslid_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