REME#79164 Opzetten nieuwe omgeving -- Opzetten omgeving

svn path=/Customer/trunk/; revision=61386
2023-08-07 13:45:04 +00:00
parent fda2b44f75
commit 73b518285d
1 changed files with 167 additions and 0 deletions
--- a/AA/REME/reme.sql
+++ b/AA/REME/reme.sql
@@ -0,0 +1,167 @@
+--
+-- $Id$
+--
+-- Script containing customer specific sql statements for the FACILITOR database
+
+DEFINE thisfile = 'REME.SQL'
+DEFINE dbuser   = '^REME'
+
+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 REME
+AS
+   FUNCTION change_delimitor (p_string      VARCHAR2,
+                              p_delimitor   VARCHAR2)
+     RETURN VARCHAR2;
+
+END;
+/
+
+CREATE OR REPLACE PACKAGE BODY REME
+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;
+/
+
+
+-- script om dagelijks terugkerende scripts aan te roepen.
+CREATE OR REPLACE PROCEDURE reme_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 reme_v_export_exact_verkoop    (RESULT, result_order) AS SELECT RESULT, result_order FROM reme_v_export_exact_verkoop;
+CREATE OR REPLACE PROCEDURE reme_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 reme_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 reme_v_export_exact_verkoop_vj    (RESULT, result_order) AS SELECT RESULT, result_order FROM aaxx_v_export_exact_verkoop;
+CREATE OR REPLACE PROCEDURE reme_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 reme_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 reme_v_export_exact_uren (result, result_order)
+AS SELECT result, result_order FROM aaxx_v_export_exact_uren_xml;
+CREATE OR REPLACE PROCEDURE reme_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 reme_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;
+/
+
+-- 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
+