MENZ#87505 -- Menzis inrichting Facilitor - Standaard Deviatie Workflow - view leveren

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

AA/MENZ/menz.sql

@@ -0,0 +1,467 @@
+--
+-- $Id$
+--
+-- Script containing customer specific sql statements for the FACILITOR database
+
+DEFINE thisfile = 'MENZ.SQL'
+DEFINE dbuser   = '^MENZ'
+
+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 PACKAGE MENZ
+AS
+   FUNCTION change_delimitor (p_string      VARCHAR2,
+                              p_delimitor   VARCHAR2)
+     RETURN VARCHAR2;
+
+END;
+/
+
+CREATE OR REPLACE PACKAGE BODY MENZ
+AS
+
+   FUNCTION change_delimitor (p_string      VARCHAR2,
+                              p_delimitor   VARCHAR2)
+     RETURN VARCHAR2
+   AS
+       v_field    VARCHAR2 (1000) := 'QueQuLeQue';
+       v_result   VARCHAR2 (2000);
+       v_line     VARCHAR2 (2000);
+   BEGIN
+       v_line := p_string;
+
+       WHILE v_line IS NOT NULL
+       LOOP
+           fac.imp_getfield (v_line, p_delimitor, v_field);
+           v_result := v_result || '"' || v_field || '";';
+       END LOOP;
+
+       RETURN v_result;
+   EXCEPTION
+       WHEN OTHERS
+       THEN
+           RETURN NULL;
+   END;
+
+
+END;
+/
+
+-----------------------------------
+-- PERSONEN/ORGANISATIE         ---
+-----------------------------------
+
+
+-------------------
+-- RAPPORTAGES  ---
+-------------------
+
+-- Deviatie workflow - bronview tbv MENZ#87505
+--- moet als gestyld rapport opgenomen worden in menz.xsl
+CREATE OR REPLACE VIEW menz_v_rap_deviatie_goedkeur
+(
+           mld_melding_key,
+           fclt_3d_user_key,             -- prs_perslid_key van de goedkeurder (via rechten MLDBOF /  MLDBO3 op desbetreffende vakgroep)
+           goedkeurder,
+           fclt_3d_discipline_key,       -- vakgroep_key
+           fclt_3d_locatie_key,
+           alg_locatie_omschrijving,
+           gebouw_key,
+           alg_gebouw_naam,
+           melding_nr,                   -- actie-meldingsnr met prefix
+           melding_start_key,            -- meldingsnummer aanvraag
+           vakgroep,                     -- vakgroep_naam
+           mld_stdmelding_omschrijving,
+           mld_stdmelding_key,
+           status,
+           datum,                        -- datum mld_goedkeuring
+           datum_m1,                     -- datum mld_start
+           aanvrager,
+           omschrijving,
+           opmerking,
+           opmerking_m1,                 -- opmerking mld_start
+           -- Alle kenmerkvelden op aanvraag
+           deviatiesoort,
+           titel,
+           impact_budget,            -- keuzelijst Ja/Nee
+           value_convention,         ----  Als geen impact dan deze tonen....
+           cust_dev_splits,          -- keuzelijst voor splitsing in deviatie-workflow naar juiste vakgroep-goedkeuring.
+           -- locatie_cluster ,      -- voor THDD niet van toepassing..
+           gebouw,                   -- deze gebruiken voor verdere tekstmatige specificatie gebouw
+           ingangsdatum,
+           kostensoort_oud,
+           kostensoort_nieuw,
+           oud_budget,
+           nieuw_budget_jaarbasis,
+           nieuw_budget_jaarlopend,
+           deviatiebedrag_jaarlopend,
+           entiteit,
+           investering_totaal,
+           omschrijving_investering,
+           leverancier,
+           risico_code,
+           po_nummer,
+           co_nummer
+)
+AS
+    SELECT m.mld_melding_key,
+           pf.prs_perslid_key
+            fclt_3d_user_key,
+           pf.prs_perslid_naam
+            goedkeurder,
+           md.ins_discipline_key
+            fclt_3d_discipline_key,
+           l.alg_locatie_key
+            fclt_3d_locatie_key,
+           l.alg_locatie_omschrijving,
+           og.alg_gebouw_key,
+           og.alg_gebouw_naam,
+           sd.ins_srtdiscipline_prefix || to_char(m.mld_melding_key)
+            melding_nr,
+           m.mld_melding_start_key
+            melding_start_key,
+           md.ins_discipline_omschrijving
+            vakgroep,
+           s.mld_stdmelding_omschrijving,
+           s.mld_stdmelding_key,
+           DECODE (m.mld_melding_status, 2, 'nieuw', 'in behandeling')
+            status,
+           TO_CHAR(m.mld_melding_datum,'dd-mm-yyyy')
+            datum,
+           TO_CHAR(m1.mld_melding_datum,'dd-mm-yyyy')
+            datum_m1,
+           p.prs_perslid_naam || ' (' || p.prs_perslid_voornaam || ')'
+            aanvrager,
+           m.mld_melding_omschrijving,
+           m.mld_melding_opmerking,
+           m1.mld_melding_opmerking,
+           -- Kenmerkvelden bij aanvraag
+           (SELECT fu.fac_usrdata_omschr
+              FROM mld_kenmerkmelding mkm,
+                   mld_kenmerk       k,
+                   mld_srtkenmerk    sk,
+                   fac_usrdata       fu
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND fac.safe_to_number(mkm.mld_kenmerkmelding_waarde) = fu.fac_usrdata_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'DEVIATIESOORT')
+            deviatiesoort,
+           (SELECT mkm.mld_kenmerkmelding_waarde
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'TITEL')
+            titel,
+           (SELECT fu.fac_usrdata_omschr
+              FROM mld_kenmerkmelding mkm,
+                   mld_kenmerk       k,
+                   mld_srtkenmerk    sk,
+                   fac_usrdata       fu
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND fac.safe_to_number(mkm.mld_kenmerkmelding_waarde) = fu.fac_usrdata_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'IMPACT OP BUDGET')
+            impact_budget,
+           (SELECT fu.fac_usrdata_omschr
+              FROM mld_kenmerkmelding mkm,
+                   mld_kenmerk       k,
+                   mld_srtkenmerk    sk,
+                   fac_usrdata       fu
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND fac.safe_to_number(mkm.mld_kenmerkmelding_waarde) = fu.fac_usrdata_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'VALUE CONVENTION')
+            value_convention,
+           (SELECT fu.fac_usrdata_omschr
+              FROM mld_kenmerkmelding mkm,
+                   mld_kenmerk       k,
+                   mld_srtkenmerk    sk,
+                   fac_usrdata       fu
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND fac.safe_to_number(mkm.mld_kenmerkmelding_waarde) = fu.fac_usrdata_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'CUST_DEV_SPLITS')
+            cust_dev_splits,
+           -- locaie_cluster -- eigen tabel - nvt voor menz
+           (SELECT mkm.mld_kenmerkmelding_waarde
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'GEBOUW')
+            gebouw,
+           (SELECT TO_CHAR(TO_DATE(mkm.mld_kenmerkmelding_waarde,'dd-mm-yyyy'),'dd-mm-yyyy')
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'INGANGSDATUM')
+            ingangsdatum,
+           (SELECT k.prs_kostensoort_omschrijving
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk, aaxx_v_kostensoort k
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND fac.safe_to_number(mkm.mld_kenmerkmelding_waarde) = k.prs_kostensoort_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'KOSTENSOORT OUD')
+            kostensoort_oud,
+           (SELECT k.prs_kostensoort_omschrijving
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk, aaxx_v_kostensoort k
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND fac.safe_to_number(mkm.mld_kenmerkmelding_waarde) = k.prs_kostensoort_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'KOSTENSOORT NIEUW')
+            kostensoort_nieuw,
+           (SELECT mkm.mld_kenmerkmelding_waarde
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'OUD BUDGET')
+            oud_budget,
+           (SELECT mkm.mld_kenmerkmelding_waarde
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'NIEUW BUDGET (OP JAARBASIS)')
+            nieuw_budget_jaarbasis,
+           (SELECT mkm.mld_kenmerkmelding_waarde
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'NIEUW BUDGET (LOPEND JAAR)')
+            nieuw_budget_jaarlopend,
+           (SELECT mkm.mld_kenmerkmelding_waarde
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'DEVIATIEBEDRAG (LOPENDE JAAR)')
+            deviatiebedrag_lopendjaar,
+           (SELECT mkm.mld_kenmerkmelding_waarde
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'ENTITEIT')
+            entiteit,
+           (SELECT mkm.mld_kenmerkmelding_waarde
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'INVESTERING TOTAAL')
+            investering_totaal,
+           (SELECT mkm.mld_kenmerkmelding_waarde
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'OMSCHRIJVING INVESTERING')
+            omschrijving_investering,
+           (SELECT b.prs_bedrijf_naam
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk, prs_bedrijf b
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND fac.safe_to_number(mkm.mld_kenmerkmelding_waarde) = b.prs_bedrijf_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'LEVERANCIER')
+           leverancier,
+           (SELECT fu.fac_usrdata_omschr
+              FROM mld_kenmerkmelding mkm,
+                   mld_kenmerk       k,
+                   mld_srtkenmerk    sk,
+                   fac_usrdata       fu
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND fac.safe_to_number(mkm.mld_kenmerkmelding_waarde) = fu.fac_usrdata_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'RISICOCODE')
+            risico_code,
+           (SELECT mkm.mld_kenmerkmelding_waarde
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'PO NUMMER OPDRACHTGEVER')
+            po_nummer,
+           (SELECT mkm.mld_kenmerkmelding_waarde
+              FROM mld_kenmerkmelding mkm, mld_kenmerk k, mld_srtkenmerk sk
+             WHERE mkm.mld_melding_key = m.mld_melding_key
+               AND mkm.mld_kenmerk_key = k.mld_kenmerk_key
+               AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
+               AND sk.mld_srtkenmerk_upper = 'CO NUMMER HEYDAY NAAR LEVERANCIER')
+           co_nummer
+      FROM mld_melding                m,
+           mld_melding                m1,
+           alg_v_allonrgoed_gegevens  og,
+           alg_locatie                l,
+           prs_perslid                p,           -- aanvrager
+           mld_stdmelding             s,
+           mld_discipline             md,
+           mld_disc_params            mdp,
+           ins_srtdiscipline          sd,
+           (
+            SELECT gr.ins_discipline_key, gg.prs_perslid_key, p.prs_perslid_naam
+              FROM fac_gebruikersgroep gg,
+                   fac_groep g,
+                   fac_groeprechten gr,
+                   mld_discipline   md,
+                   ins_srtdiscipline sd,
+                   fac_functie f,
+                   prs_perslid p
+             WHERE gg.fac_groep_key = g.fac_groep_key
+               AND g.fac_groep_key = gr.fac_groep_key
+               AND gg.prs_perslid_key = p.prs_perslid_key
+               AND gr.fac_functie_key = f.fac_functie_key
+               AND gr.ins_discipline_key = md.ins_discipline_key
+               AND sd.ins_srtdiscipline_key = md.ins_srtdiscipline_key
+               AND md.ins_srtdiscipline_key = 81
+               AND INSTR(lower(md.ins_discipline_omschrijving),'goedkeuring') > 0
+               AND gr.fac_functie_key = 29     -- MLDBOF
+               GROUP BY gr.ins_discipline_key, gg.prs_perslid_key, p.prs_perslid_naam
+               ) pf                                                       -- p-fiatteur
+     WHERE s.mld_stdmelding_key = m.mld_stdmelding_key
+       AND m.mld_melding_start_key = m1.mld_melding_key
+       AND m1.mld_melding_status = 4                                      -- Lopende aanvraag
+       AND m.mld_melding_status in (2, 4)                                 -- Moet in principe nieuw (2) zijn om nog te kunnen annuleren
+                                                                          -- Indien toch in behandeling (4) genomen dan wel opnemen maar in styling annuleren disablen
+       AND m.prs_perslid_key = p.prs_perslid_key
+       AND sd.ins_srtdiscipline_key = md.ins_srtdiscipline_key
+       AND md.ins_discipline_key = s.mld_ins_discipline_key
+       AND md.ins_discipline_key = mdp.mld_ins_discipline_key
+       AND md.ins_srtdiscipline_key = 81
+       AND INSTR(lower(md.ins_discipline_omschrijving),'goedkeuring') > 0   -- daarbinnen alle vakgroepen tbv goedkeuring
+       AND md.ins_discipline_key = pf.ins_discipline_key
+       AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
+       AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+) ;
+
+-- script om dagelijks terugkerende scripts aan te roepen.
+CREATE OR REPLACE PROCEDURE menz_select_daily_task (p_applname   IN   VARCHAR2, p_applrun    IN   VARCHAR2)
+AS
+BEGIN
+
+   aaxx_daily_task (p_applname, p_applrun);
+
+END;
+/
+
+-- exact verkoop
+CREATE OR REPLACE VIEW menz_v_export_exact_verkoop    (RESULT, result_order) AS SELECT RESULT, result_order FROM aaxx_v_export_exact_verkoop;
+
+CREATE OR REPLACE PROCEDURE menz_select_exact_verkoop (
+   p_applname   IN   VARCHAR2,
+   p_applrun    IN   VARCHAR2
+)
+AS
+BEGIN
+  aaxx_select_exact_verkoop(p_applname, p_applrun, to_char(sysdate, 'yyyy'), 'CORE');
+END;
+/
+CREATE OR REPLACE PROCEDURE menz_export_exact_verkoop (
+   p_applname   IN   VARCHAR2,
+   p_applrun    IN   VARCHAR2,
+   p_filedir    IN   VARCHAR2,
+   p_filename   IN   VARCHAR2
+)
+AS
+BEGIN
+  aaxx_export_exact_verkoop(p_applname, p_applrun, p_filedir, p_filename, to_char(sysdate, 'yyyy'), 'CORE');
+END;
+/
+
+-- exact verkoop over het vorige jaar
+CREATE OR REPLACE VIEW menz_v_export_exact_verkoop_vj    (RESULT, result_order) AS SELECT RESULT, result_order FROM aaxx_v_export_exact_verkoop;
+
+CREATE OR REPLACE PROCEDURE menz_select_exact_verkoop_vj (
+   p_applname   IN   VARCHAR2,
+   p_applrun    IN   VARCHAR2
+)
+AS
+BEGIN
+  aaxx_select_exact_verkoop(p_applname, p_applrun, to_char(to_number(to_char(sysdate, 'yyyy'))-1), 'CORE');
+END;
+/
+CREATE OR REPLACE PROCEDURE menz_export_exact_verkoop_vj (
+   p_applname   IN   VARCHAR2,
+   p_applrun    IN   VARCHAR2,
+   p_filedir    IN   VARCHAR2,
+   p_filename   IN   VARCHAR2
+)
+AS
+BEGIN
+  aaxx_export_exact_verkoop(p_applname, p_applrun, p_filedir, p_filename, to_char(to_number(to_char(sysdate, 'yyyy'))-1), 'CORE');
+END;
+/
+
+-- exact projecturen (XML)
+CREATE OR REPLACE VIEW menz_v_export_exact_uren (result, result_order)
+AS SELECT result, result_order FROM aaxx_v_export_exact_uren_xml;
+
+CREATE OR REPLACE PROCEDURE menz_select_exact_uren (
+   p_applname   IN   VARCHAR2,
+   p_applrun    IN   VARCHAR2
+)
+AS
+BEGIN
+  aaxx_select_exact_uren_xml(p_applname, p_applrun, '');
+END;
+/
+
+-- verwerk exact projecturen (XML)
+CREATE OR REPLACE PROCEDURE menz_export_verwerk_exact_uren (
+   p_applname   IN   VARCHAR2,
+   p_applrun    IN   VARCHAR2,
+   p_filedir    IN   VARCHAR2,
+   p_filename   IN   VARCHAR2
+)
+AS
+BEGIN
+  aaxx_export_verwerk_exact_uren(p_applname, p_applrun, p_filedir, p_filename, '');
+END;
+/
+
+-- bundel catering
+--- Voor MENZ - VAN TOEPASSING ?
+
+
+-- Rapportviews
+
+
+
+
+------ 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
+