BLCC#39810 -- Cateringoverzicht herzien ter acceptatie

svn path=/Customer/; revision=34200

onces/BLCC/BLCC#39810_2.sql

@@ -0,0 +1,122 @@
+--
+-- $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,
+          rra.res_rsv_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