ALLI#40175 Rapport CYOD webshop (bestelregels + objectdetails)

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

ALLI/alli.sql

@@ -1,22 +1,22 @@
--- Script containing customer specific configuration sql statements for ALLI
--- (c) 2012 SG|facilitor bv
--- $Revision$
+--
 -- $Id$
 --
--- Support: +31 53 4800700
+-- Script containing customer specific configuration sql statements for ALLI
 
-set echo on
+DEFINE thisfile = 'ALLI.SQL'
+DEFINE dbuser   = '^ALLI'
+DEFINE custid   = 'ALLI'
 
-spool ALLI.lst
-
-CREATE OR REPLACE VIEW alli_v_import_log
-AS
-   SELECT imp_log_status fclt_f_status,
-          imp_log_omschrijving omschrijving,
-          imp_log_hint opmerking
-   FROM imp_log
-   WHERE imp_log_applicatie = 'PRS';
+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 PROCEDURE alli_import_prs (
    p_import_key IN NUMBER
@@ -2824,14 +2824,150 @@ AS
     WHERE     b.fac_bookmark_id = 'BhIEFEoAItbkuYJL'
           AND g.alg_gebouw_key = rg.alg_gebouw_key
           AND l.alg_locatie_key = rg.alg_locatie_key;
+          
+-- rapport met ICT objecten (key 321) gekoppeld aan de bij behorende bestellingen (key 221
+-- groep_key 1623 = Telefoons
+-- srtdeel_key 9202 = notebooks, srtdeel_key 9201 = telefonie      
+CREATE OR REPLACE VIEW alli_v_rap_ict_insbes
+(
+   ins_deel_key,
+   ins_gekoppeld_aan,
+   ins_eigenaar,
+   ins_naam,
+   ins_afdeling,
+   ins_identificatie,
+   ins_beschrijving,
+   ins_objectsoort,
+   ins_groep,
+   artikel_groep,
+   artikel,
+   artikelnummer,
+   bes_aantal,
+   bes_item_prijs,
+   bes_totaal,
+   bestelling,
+   ins_artikelnummer,
+   ins_serienummer,
+   ins_aanschafdatum,
+   ins_imei
+)
+AS
+   SELECT d.ins_deel_key,
+          DECODE (ins_alg_ruimte_type,
+                  'P', 'Persoon',
+                  'A', 'Afdeling',
+                  'C', 'Contactpersoon',
+                  'R', 'Ruimte',
+                  'W', 'Werkplek',
+                  'T', 'Terrein',
+                  '??')
+             gekoppeld_aan,
+          COALESCE (pf.prs_perslid_naam_full,
+                    a.prs_afdeling_omschrijving,
+                    '??')
+             eigenaar,
+          pf.prs_perslid_naam_full naam,
+          a.prs_afdeling_omschrijving || ' (' || a.prs_afdeling_naam || ')'
+             afdeling,
+          ins_deel_omschrijving,
+          ins_deel_opmerking beschrijving,
+          ins_srtdeel_omschrijving,
+          ins_srtgroep_omschrijving,
+          cyod.bes_srtgroep_omschrijving,
+          cyod.bes_srtdeel_omschrijving,
+          cyod.bes_srtdeel_nr,
+          cyod.aantal,
+          cyod.item_prijs,
+          cyod.totaal,
+          insbes.ins_kenmerkdeel_waarde bestelling,
+          (SELECT ins_kenmerkdeel_waarde
+             FROM ins_kenmerkdeel ikd, ins_kenmerk k
+            WHERE     ins_deel_key = d.ins_deel_key
+                  AND ikd.ins_kenmerk_key = k.ins_kenmerk_key
+                  AND k.ins_srtkenmerk_key = 2)
+             artikelnr,
+          (SELECT ins_kenmerkdeel_waarde
+             FROM ins_kenmerkdeel ikd, ins_kenmerk k
+            WHERE     ins_deel_key = d.ins_deel_key
+                  AND ikd.ins_kenmerk_key = k.ins_kenmerk_key
+                  AND k.ins_srtkenmerk_key = 3)
+             serienummer,
+          (SELECT fac.safe_to_date (ins_kenmerkdeel_waarde, 'dd-mm-yyyy')
+             FROM ins_kenmerkdeel ikd, ins_kenmerk k
+            WHERE     ins_deel_key = d.ins_deel_key
+                  AND ikd.ins_kenmerk_key = k.ins_kenmerk_key
+                  AND k.ins_srtkenmerk_key = 5)
+             aanschafdatum,
+          (SELECT ins_kenmerkdeel_waarde
+             FROM ins_kenmerkdeel ikd, ins_kenmerk k
+            WHERE     ins_deel_key = d.ins_deel_key
+                  AND ikd.ins_kenmerk_key = k.ins_kenmerk_key
+                  AND k.ins_srtkenmerk_key = 4)
+             imei
+     FROM ins_v_aanwezigdeel d,
+          ins_v_deel_gegevens_keys idg,
+          prs_v_perslid_fullnames_all pf,
+          prs_afdeling a,
+          ins_srtdeel sd,
+          ins_srtgroep sg,
+          (SELECT ikd.ins_deel_key, ins_kenmerkdeel_waarde
+             FROM ins_kenmerkdeel ikd, ins_kenmerk k
+            WHERE ikd.ins_kenmerk_key = k.ins_kenmerk_key
+                  AND k.ins_srtkenmerk_key = 1) insbes,
+          (SELECT b.bes_bestelling_key,
+                  dis.ins_discipline_omschrijving ins_discipline_omschrijving,
+                  grp.bes_srtgroep_key bes_srtgroep_key,
+                  grp.bes_srtgroep_omschrijving bes_srtgroep_omschrijving,
+                  srt.bes_srtdeel_nr bes_srtdeel_nr,
+                  srt.bes_srtdeel_omschrijving bes_srtdeel_omschrijving,
+                  bi.bes_bestelling_item_aantal aantal,
+                  COALESCE (bi.bes_bestelling_item_prijs, 0) item_prijs,
+                  bi.bes_bestelling_item_aantal
+                  * COALESCE (bi.bes_bestelling_item_prijs, 0)
+                     totaal
+             FROM bes_bestelling_item bi,
+                  bes_srtdeel srt,
+                  bes_bestelling b,
+                  bes_srtgroep grp,
+                  ins_tab_discipline dis
+            WHERE     bi.bes_srtdeel_key = srt.bes_srtdeel_key
+                  AND srt.bes_srtgroep_key = grp.bes_srtgroep_key
+                  AND grp.ins_discipline_key = dis.ins_discipline_key
+                  AND bi.bes_bestelling_key = b.bes_bestelling_key
+                  AND NOT EXISTS
+                        (SELECT b1.bes_bestelling_key
+                           FROM bes_bestelling b1
+                          WHERE bes_bestelling_parentkey =
+                                   b.bes_bestelling_key)
+                  AND b.bes_bestelling_key IN
+                           (SELECT bes_bestelling_key
+                              FROM bes_bestelling_item bbi,
+                                   bes_srtdeel bd,
+                                   bes_srtgroep bsg
+                             WHERE bbi.bes_srtdeel_key = bd.bes_srtdeel_key
+                                   AND bd.bes_srtgroep_key =
+                                         bsg.bes_srtgroep_key
+                                   AND bsg.ins_discipline_key = 221)) cyod
+    WHERE     d.ins_srtdeel_key = sd.ins_srtdeel_key
+          AND d.ins_deel_key = idg.ins_deel_key
+          AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
+          AND sg.ins_discipline_key = 321
+          AND pf.prs_perslid_key(+) = idg.prs_perslid_key
+          AND a.prs_afdeling_key(+) = idg.prs_afdeling_key
+          AND insbes.ins_deel_key = d.ins_deel_key
+          AND TO_CHAR (cyod.bes_bestelling_key) =
+                insbes.ins_kenmerkdeel_waarde(+)
+          AND ( (bes_srtgroep_key != 1623 AND d.ins_srtdeel_key = 9202)
+               OR (bes_srtgroep_key = 1623 AND d.ins_srtdeel_key = 9201));
 
+------ payload end   ------
 
-BEGIN adm.systrackscriptId('$Id$', 0); END;
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 0); END;
 /
 
-BEGIN fac.registercustversion('ALLI', 13); END;
-/
-
-commit;
-
-spool off
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile