FCLT#74162 Punt 5

svn path=/Database/trunk/; revision=57239
This commit is contained in:
2022-09-12 13:39:29 +00:00
parent 1e90e7d2a0
commit cb6147a30f
12 changed files with 1978 additions and 9 deletions

View File

@@ -658,23 +658,34 @@ CEIL
// De CHECK() geeft het wel, dus wordt deze gebruikt.
#define NOT_NULL(column, constraint_name) CONSTRAINT constraint_name CHECK(column IS NOT NULL)
#define DEF_IMPORT(aut, code, oms_nl, oms_en) \
#define DEF_IMPORT2(aut, code, oms_nl, oms_en, charset, folder, files) \
DECLARE ~\
imp_key NUMBER(10); ~\
BEGIN ~\
INSERT INTO fac_import_app ~\
( fac_import_app_code, fac_import_app_oms, fac_functie_key ) ~\
VALUES ( UPPER(code), oms_nl ~\
, (SELECT fac_functie_key FROM fac_functie ~\
WHERE fac_functie_code = aut ~\
) ~\
) ~\
INSERT INTO fac_import_app (fac_import_app_code, ~\
fac_import_app_oms, ~\
fac_functie_key, ~\
fac_import_app_charset, ~\
fac_import_app_folder, ~\
fac_import_app_files) ~\
VALUES (UPPER (code), ~\
oms_nl, ~\
(SELECT fac_functie_key ~\
FROM fac_functie ~\
WHERE fac_functie_code = aut), ~\
charset, ~\
folder, ~\
files) ~\
RETURNING fac_import_app_key INTO imp_key; ~\
INSERT INTO fac_locale (fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst) ~\
VALUES ('EN', imp_key, 'FAC_IMPORT_APP_OMS', oms_en); ~\
END; ~\
/ ~\
#define DEF_IMPORT(aut, code, oms_nl, oms_en) \
DEF_IMPORT2(aut, code, oms_nl, oms_en, NULL, NULL, NULL) ~\
/ ~\
#define DEF_RAPPORT(aut, func, view, oms_nl, info_nl, oms_en, info_en) \
DECLARE ~\
rap_key NUMBER(10); ~\

11
EXC/EXC_IND.SRC Normal file
View File

@@ -0,0 +1,11 @@
#ifdef EXC
/*
* $Revision$
* $Id$
*/
CREATE INDEX exc_i_exc_import1 ON exc_import(fac_import_key);
REGISTERONCE('$Id$')
#endif // EXC

13
EXC/EXC_INI.SRC Normal file
View File

@@ -0,0 +1,13 @@
#ifdef EXC
/* $Revision$
* $Id$
*/
_FAC_MODULE('EXC', 'lcl_module_EXC')
DEF_IMPORT2('WEB_PRSSYS', 'EXCHANGE', 'Import van reserveringen vanuit Exchange online', 'Import of reservations from Exchange online', 'UTF-8', ' .\csv', 'exch_*.csv')
DEF_IMPORT2('WEB_PRSSYS', 'EXCHFULL', 'Import van alle reserveringen vanuit Exchange online', 'Import of all reservations from Exchange online', 'UTF-8', ' .\csv', 'full_*.csv')
REGISTERONCE('$Id$')
#endif // EXC

1788
EXC/EXC_PAC.SRC Normal file

File diff suppressed because it is too large Load Diff

8
EXC/EXC_SEQ.SRC Normal file
View File

@@ -0,0 +1,8 @@
/*
* $Revision$
* $Id$
*/
CREATE SEQUENCE exc_s_import_key MINVALUE 1;
REGISTERONCE('$Id$')

40
EXC/EXC_TAB.SRC Normal file
View File

@@ -0,0 +1,40 @@
/* EXC_TAB.SRC
* $Revision$
* $Id$
*/
CREATE_TABLE(exc_import, 0)
(
exc_import_key
NUMBER(10)
CONSTRAINT exc_k_exc_import_key PRIMARY KEY,
room_id
VARCHAR2(256),
subject
VARCHAR2(200),
starttime
DATE,
endtime
DATE,
organizer
VARCHAR2(200),
att_mail
VARCHAR2(200),
att_name
VARCHAR2(200),
modifier
VARCHAR2(1),
appt_id
VARCHAR2(500),
recur_id
VARCHAR2(500),
seq_nr
NUMBER(16),
fac_import_key
NUMBER(10)
CONSTRAINT exc_r_fac_import_key1 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
gelukt
NUMBER(1)
);
REGISTERONCE('$Id$')

18
EXC/EXC_TRI.SRC Normal file
View File

@@ -0,0 +1,18 @@
#ifdef EXC
/*
* $Revision$
* $Id$
*/
CREATE_TRIGGER(exc_t_exc_import_B_IU)
BEFORE INSERT OR UPDATE ON exc_import
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(exc_import_key, exc_s_import_key);
END;
/
REGISTERRUN('$Id$')
#endif // EXC

View File

@@ -21451,4 +21451,32 @@ EXCEPTION
END;
/
CREATE OR REPLACE PROCEDURE fac_import_exchange (p_import_key IN NUMBER)
IS
BEGIN
exc.import_exchange (p_import_key);
END fac_import_exchange;
/
CREATE OR REPLACE PROCEDURE fac_update_exchange (p_import_key IN NUMBER)
IS
BEGIN
exc.update_exchange (p_import_key);
END fac_update_exchange;
/
CREATE OR REPLACE PROCEDURE fac_import_exchfull (p_import_key IN NUMBER)
IS
BEGIN
exc.import_exchfull (p_import_key);
END fac_import_exchfull;
/
CREATE OR REPLACE PROCEDURE fac_update_exchfull (p_import_key IN NUMBER)
IS
BEGIN
exc.update_exchfull (p_import_key);
END fac_update_exchfull;
/
REGISTERRUN('$Id$')

View File

@@ -176,6 +176,12 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL: \
$(MSRC)\ctr\ctr_tri.src \
$(MSRC)\ctr\ctr_vie.src \
$(MSRC)\ctr\ctr_lcl.src \
$(MSRC)\exc\exc_ind.src \
$(MSRC)\exc\exc_seq.src \
$(MSRC)\exc\exc_tri.src \
$(MSRC)\exc\exc_tab.src \
$(MSRC)\exc\exc_seq.src \
$(MSRC)\exc\exc_pac.src \
$(MSRC)\fac\fac_ind.src \
$(MSRC)\fac\fac_ini.src \
$(MSRC)\fac\fac_lcl.src \

View File

@@ -87,6 +87,7 @@ SET ECHO ON
#include "ctr\ctr_tab.src"
#include "aut\aut_tab.src"
#include "cnd\cnd_tab.src"
#include "exc\exc_tab.src"
/* SEQUENCES */
#include "fac\fac_seq.src"
@@ -108,6 +109,7 @@ SET ECHO ON
#include "kpi\kpi_seq.src"
#include "ctr\ctr_seq.src"
#include "aut\aut_seq.src"
#include "exc\exc_seq.src"
/* INDICES */
#include "fac\fac_ind.src"
@@ -129,6 +131,7 @@ SET ECHO ON
#include "kpi\kpi_ind.src"
#include "ctr\ctr_ind.src"
#include "aut\aut_ind.src"
#include "exc\exc_ind.src"
/* VIEWS, PACKAGES, TRIGGERS and LOCALES */
#include "_up/recreate.inc"
@@ -152,6 +155,7 @@ SET ECHO ON
#include "msg\msg_ini.src"
#include "kpi\kpi_ini.src"
#include "ctr\ctr_ini.src"
#include "exc\exc_ini.src"
COMMIT;

View File

@@ -394,6 +394,46 @@ UPDATE fac_setting
WHERE fac_setting_name = 'flexfilespath'
AND fac_setting_pvalue = NULL;
/////////////////////////////////////////////////////////////////////////////////////////// FCLT#74162
CREATE SEQUENCE exc_s_exc_import_key MINVALUE 1;
CREATE_TABLE(exc_import, 0)
(
exc_import_key
NUMBER(10)
CONSTRAINT exc_k_exc_import_key PRIMARY KEY,
room_id
VARCHAR2(256),
subject
VARCHAR2(200),
starttime
DATE,
endtime
DATE,
organizer
VARCHAR2(200),
att_mail
VARCHAR2(200),
att_name
VARCHAR2(200),
modifier
VARCHAR2(1),
appt_id
VARCHAR2(500),
recur_id
VARCHAR2(500),
seq_nr
NUMBER(16),
fac_import_key
NUMBER(10)
CONSTRAINT exc_r_fac_import_key1 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
gelukt
NUMBER(1)
);
CREATE INDEX exc_i_exc_import1 ON exc_import(fac_import_key);
DEF_IMPORT('WEB_PRSSYS', 'EXCHANGE_IMPORT', 'Import van reserveringen vanuit Exchange online', 'Import of reservations from Exchange online')
DEF_IMPORT('WEB_PRSSYS', 'EXCHANGE_UPDATE', 'Update reserveringen vanuit Exchange online', 'Update reservations from Exchange online')
/////////////////////////////////////////////////////////////////////////////////////////// FCLT#00000
REGISTERONCE('$Id$')

View File

@@ -46,6 +46,7 @@
#include "kpi\kpi_pac.src"
#include "ctr\ctr_pac.src"
#include "cnd\cnd_pac.src"
#include "exc\exc_pac.src"
// Recreation all triggers
// adm_tri staat ook al in FCLT.SRC maar hier herhalen voor upgrade-scripts
@@ -70,6 +71,7 @@
#include "kpi\kpi_tri.src"
#include "ctr\ctr_tri.src"
#include "cnd\cnd_tri.src"
#include "exc\exc_tri.src"
/* LOCALE's */
#include "fac\fac_lcl.src"