admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: admin:DB32
Branches Tags
admin:main admin:DB52 admin:DB51 admin:DB50 admin:DB49 admin:DB48 admin:DB47 admin:DB46 admin:DB45 admin:DB44 admin:DB43 admin:DB42 admin:DB40 admin:DB39 admin:DB38 admin:DB35 admin:DB34 admin:DB33 admin:DB32 admin:DB31 admin:DB30 admin:DB28 admin:DB27 admin:DB26 admin:DB24 admin:DB23 admin:DB22 admin:DB21 admin:DB20 admin:DB19 admin:DB18 admin:DB16 admin:DB17 admin:DB15
..
compare: admin:DB28
Branches Tags
admin:main admin:DB52 admin:DB51 admin:DB50 admin:DB49 admin:DB48 admin:DB47 admin:DB46 admin:DB45 admin:DB44 admin:DB43 admin:DB42 admin:DB40 admin:DB39 admin:DB38 admin:DB35 admin:DB34 admin:DB33 admin:DB32 admin:DB31 admin:DB30 admin:DB28 admin:DB27 admin:DB26 admin:DB24 admin:DB23 admin:DB22 admin:DB21 admin:DB20 admin:DB19 admin:DB18 admin:DB16 admin:DB17 admin:DB15

6 Commits
DB32 ... DB28

Author SHA1 Message Date
Jos Groot Lipman
2276df94f2 UWVA#36449 Branch DB28b 
svn path=/Database/branches/DB28/; revision=29512
 2016-05-24 15:26:42 +00:00
Erik Groener
5fb93a5ec5 UWVA#36449 2016.1 RES/BEZ: notificatie bezoekersoproepsysteem. 
svn path=/Database/branches/DB28/; revision=29505
 2016-05-24 12:17:14 +00:00
Erik Groener
673bb1cff3 UWVA#36449 2016.1 RES/BEZ: notificatie bezoekersoproepsysteem. 
svn path=/Database/branches/DB28/; revision=29501
 2016-05-24 09:42:36 +00:00
Erik Groener
d7bc21a0c4 UWVA#36449 2016.1 RES/BEZ: notificatie bezoekersoproepsysteem. 
svn path=/Database/branches/DB28/; revision=29478
 2016-05-20 14:10:46 +00:00
Erik Groener
3ed06d9e01 UWVA#36449 2016.1 RES/BEZ: notificatie bezoekersoproepsysteem. 
svn path=/Database/branches/DB28/; revision=29459
 2016-05-19 12:31:42 +00:00
Jos Groot Lipman
b215265512 Branch DB28 
svn path=/Database/branches/DB28/; revision=29429
 2016-05-18 10:46:25 +00:00
145 changed files with 11072 additions and 40938 deletions
Expand all files Collapse all files

30
ADM/ADM_PAC.SRC
View File

@@ -7,7 +7,6 @@ AS
PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER DEFAULT 1);
PROCEDURE trydrop (n IN VARCHAR2);
PROCEDURE tryalter (n IN VARCHAR2);
FUNCTION scriptspoolfile (custpattern IN VARCHAR2, scriptname IN VARCHAR) RETURN VARCHAR;
END adm;
/
@@ -98,34 +97,7 @@ AS
END IF;
END;
FUNCTION scriptspoolfile (custpattern IN VARCHAR2, -- eg ^SGGR for 'start with SGGR', ATCH|BONS for two schema
scriptname IN VARCHAR)
RETURN VARCHAR
IS
lstname VARCHAR2 (255);
tekst VARCHAR2 (255);
BEGIN
IF NOT REGEXP_LIKE(USER, custpattern, 'i') THEN
tekst := CHR(10) || '============================================' || CHR(10)
|| 'Wrong user!!!!!!!!!' || CHR(10)
|| 'User should be match ' || custpattern || ' but is ' || USER || CHR(10)
|| '============================================' || CHR(10);
RAISE_APPLICATION_ERROR(-20000, tekst);
END IF;
lstname := UPPER (scriptname);
RETURN lstname || '_'
|| UPPER( USER
|| '_'
|| SYS_CONTEXT ('USERENV', 'SERVICE_NAME')
|| '_'
|| SYS_CONTEXT ('USERENV', 'SERVER_HOST'))
|| '_'
|| TO_CHAR (SYSDATE, 'YYYYMMDD_HH24MISS')
|| '.lst';
END;
END adm;
END adm;
/
REGISTERRUN('$Id$')

9
ADM/ADM_SEQ.SRC
View File

@@ -1,9 +0,0 @@
/*
* $Revision$
* $Id$
*/
CREATE SEQUENCE adm_s_adm_tracking_key MINVALUE 1;
// De package is er nog niet bij de CREA dus uitgeschakeld
// REGISTERONCE('$Id$')

6
ADM/ADM_TAB.SRC
View File

@@ -5,14 +5,8 @@
CREATE_TABLE(adm_tracking, 0)
(
adm_tracking_key
NUMBER(10)
CONSTRAINT adm_k_adm_tracking_key PRIMARY KEY,
adm_tracking_name VARCHAR2 (60),
adm_tracking_revision VARCHAR2 (60),
adm_tracking_date DATE DEFAULT SYSDATE,
adm_tracking_osuser VARCHAR2 (60) DEFAULT SYS_CONTEXT('USERENV','OS_USER')
);
// De package is er nog niet bij de CREA dus uitgeschakeld
// REGISTERONCE('$Id$')

16
ADM/ADM_TRI.SRC
View File

@@ -1,16 +0,0 @@
/*
* $Revision$
* $Id$
*
*/
CREATE_TRIGGER(adm_t_adm_tracking_B_I)
BEFORE INSERT ON adm_tracking
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(adm_tracking_key, adm_s_adm_tracking_key);
END;
/
// De package is er nog niet bij de CREA dus uitgeschakeld
// REGISTERRUN('$Id$')

2
ALG/ALG_INI.SRC
View File

@@ -3,7 +3,7 @@
* $Id$
*/
_FAC_MODULE('ALG','lcl_module_ALG')
_FAC_MODULE('ALG','Vastgoedbeheer')
DEF_FAC_MESSAGE ('ALG_OPENST_MELDING', 'heeft openstaande melding', '');
DEF_FAC_MESSAGE ('ALG_BEVAT_OBJECT', 'bevat object', '');

1
ALG/ALG_SEQ.SRC
View File

@@ -20,4 +20,3 @@ CREATE SEQUENCE alg_s_alg_srtverdieping_key MINVALUE 1;
CREATE SEQUENCE alg_s_alg_kenmerk_key MINVALUE 1000;
CREATE SEQUENCE alg_s_alg_onrgoedkenmerk_key MINVALUE 1;
CREATE SEQUENCE alg_s_alg_algfaq_key MINVALUE 1;

33
ALG/ALG_TAB.SRC
View File

@@ -104,7 +104,7 @@ CREATE_TABLE(alg_locatie,0)
-- mld_dienstniveau_key
-- NUMBER(10)
-- REFERENCES mld_dienstniveau(mld_dienstniveau_key) ON DELETE SET NULL,
CONSTRAINT alg_u_alg_locatie_code UNIQUE(alg_district_key, alg_locatie_code, alg_locatie_verwijder),
CONSTRAINT alg_u_alg_locatie_code UNIQUE(alg_locatie_code, alg_locatie_verwijder),
CONSTRAINT alg_u_alg_locatie_upper UNIQUE(alg_district_key, alg_locatie_upper, alg_locatie_verwijder)
);
@@ -231,7 +231,7 @@ CREATE_TABLE(alg_gebouw,0)
NUMBER(10)
CONSTRAINT alg_r_alg_srtgebouw_key REFERENCES alg_srtgebouw(alg_srtgebouw_key),
alg_gebouw_naam
VARCHAR2(60)
VARCHAR2(30)
NOT_NULL(alg_gebouw_naam, alg_c_alg_gebouw_naam),
alg_gebouw_code
VARCHAR2(12)
@@ -272,13 +272,10 @@ CREATE_TABLE(alg_gebouw,0)
-- CONSTRAINT alg_r_mld_adres_key1 REFERENCES mld_adres(mld_adres_key),
alg_gebouw_opmerking
VARCHAR2(50),
-- in PRS_TAB.SRC: de gebouwverantwoordelijke (1 en 2)
-- in PRS_TAB.SRC: de gebouwverantwoordelijke
-- prs_perslid_key_verantw
-- NUMBER(10)
-- CONSTRAINT alg_r_prs_perslid_key1 REFERENCES prs_perslid(prs_perslid_key),
-- prs_perslid_key_verantw2
-- NUMBER(10)
-- CONSTRAINT alg_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key),
alg_gebouw_dwgx
NUMBER(10,3),
alg_gebouw_dwgy
@@ -303,8 +300,6 @@ CREATE_TABLE(alg_gebouw,0)
OR alg_gebouw_bez = 1),
alg_gebouw_email
VARCHAR2(200),
alg_gebouw_vervaldatum
DATE,
CONSTRAINT alg_u_alg_gebouw_upper UNIQUE(alg_locatie_key, alg_gebouw_upper, alg_gebouw_verwijder)
);
@@ -560,7 +555,7 @@ CREATE_TABLE(alg_kenmerk,0)
VARCHAR2(10)
,alg_kenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT alg_c_alg_kenmerk_type1 CHECK(alg_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
CONSTRAINT alg_c_alg_kenmerk_type1 CHECK(alg_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
,alg_kenmerk_systeem
NUMBER(1)
,alg_kenmerk_toonbaar
@@ -594,22 +589,4 @@ CREATE_TABLE(alg_kenmerk,0)
DEFAULT NULLDATUM
);
-- Koppeltabel tussen de Kennisbank (FAQ) en plaats (alg_v_allonroerendgoed)
CREATE_TABLE(alg_algfaq, 0)
(
alg_algfaq_key
NUMBER(10)
CONSTRAINT alg_k_algfaq_key PRIMARY KEY,
alg_locatie_key
NUMBER(10)
NOT_NULL(alg_locatie_key, mld_c_alg_locatie_key)
CONSTRAINT mld_r_mld_locatie_key1 REFERENCES alg_locatie(alg_locatie_key) ON DELETE CASCADE,
alg_onroerendgoed_keys
NUMBER(10),
fac_faq_key
NUMBER(10)
NOT_NULL(fac_faq_key, alg_c_fac_faq_key)
CONSTRAINT alg_r_fac_faq_key1 REFERENCES fac_faq(fac_faq_key) ON DELETE CASCADE
);
REGISTERONCE('$Id$')
REGISTERONCE('$Id$')

57
ALG/ALG_TRI.SRC
View File

@@ -117,6 +117,20 @@ BEGIN
WHEN NO_DATA_FOUND THEN NULL;
WHEN TOO_MANY_ROWS THEN raise_application_error(-20000,'cnt_m027');
END;
/* CONN#465 */
DECLARE
dummy CHAR;
BEGIN
SELECT 'x'
INTO dummy
FROM cnt_contract_onrgoed co
WHERE co.ALG_ONRGOED_KEY = :old.alg_terreinsector_key
AND co.ALG_ONRGOED_NIVEAU = 'T';
APPLICATION_ERROR_GOTO(-20000,'alg_m999 Terrein heeft nog huurcontract');
EXCEPTION
WHEN NO_DATA_FOUND THEN NULL;
WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'alg_m999 Terrein heeft nog huurcontract');
END;
DECLARE
dummy CHAR;
BEGIN
@@ -319,6 +333,20 @@ BEGIN
WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'cnt_m024');
END;
DECLARE
dummy CHAR;
BEGIN
SELECT 'x'
INTO dummy
FROM cnt_contract_onrgoed co
WHERE co.alg_onrgoed_key = :old.alg_ruimte_key
AND co.alg_onrgoed_niveau = 'R';
APPLICATION_ERROR_GOTO(-20000,'alg_m999 Ruimte heeft nog huurcontract');
EXCEPTION
WHEN NO_DATA_FOUND THEN NULL;
WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'alg_m999 Ruimte heeft nog huurcontract');
END;
DECLARE
dummy CHAR;
BEGIN
@@ -420,16 +448,18 @@ BEGIN
THEN
APPLICATION_ERROR(-20003, 'ALG_M238');
END IF;
IF :new.alg_kenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.alg_kenmerk_lengte IS NULL
IF (:new.alg_kenmerk_kenmerktype IN ('C','N'))
AND :new.alg_kenmerk_lengte IS NULL
THEN
APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
END IF;
-- Numeriek mag niet te lang zijn (numeric overflow)
IF :new.alg_kenmerk_kenmerktype IN ('N', 'B') AND :new.alg_kenmerk_lengte > 20
IF :new.alg_kenmerk_kenmerktype = 'N'
AND :new.alg_kenmerk_lengte > 20
THEN
:new.alg_kenmerk_lengte := 20;
END IF;
IF :new.alg_kenmerk_kenmerktype IN ('N', 'B') AND :old.alg_kenmerk_key IS NOT NULL
IF :new.alg_kenmerk_kenmerktype = 'N' AND :old.alg_kenmerk_key IS NOT NULL
THEN
IF :old.alg_kenmerk_nmin <> :new.alg_kenmerk_nmin OR
:old.alg_kenmerk_nmin IS NULL AND :new.alg_kenmerk_nmin IS NOT NULL
@@ -584,7 +614,7 @@ BEGIN
APPLICATION_ERROR(-20004, 'ALG_M232,'|| KenmerkOmschr ||','
|| TO_CHAR(KenmerkLengte));
END IF;
ELSIF KenmerkType IN ('N', 'B')
ELSIF KenmerkType = 'N'
/*
** Number
*/
@@ -669,23 +699,4 @@ BEGIN
END;
/
CREATE_TRIGGER(alg_t_alg_algfaq_B_I)
BEFORE INSERT ON alg_algfaq
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(alg_algfaq_key, alg_s_alg_algfaq_key);
END;
/
CREATE_TRIGGER(alg_t_alg_algfaq_B_IU)
BEFORE INSERT OR UPDATE ON alg_algfaq
FOR EACH ROW
BEGIN
IF :new.alg_onroerendgoed_keys IS NOT NULL
THEN
CHECK_REFERENCE_ONROERENDGOED(alg_onroerendgoed_keys, 'alg_m239 alg_onroerendgoed_keys ('|| :new.alg_onroerendgoed_keys ||') bestaat niet');
END IF;
END;
/
REGISTERRUN('$Id$')

25
ALG/ALG_VIE.SRC
View File

@@ -289,7 +289,7 @@ CREATE_VIEW(alg_v_allonrgoed_gegevens,0)
)
AS
SELECT alg_r.alg_ruimte_key,
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', alg_g.alg_gebouw_code)
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code)
|| DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
'_', '',
'-' || alg_v.alg_verdieping_code)
@@ -328,7 +328,7 @@ AS
AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
UNION ALL
SELECT alg_v.alg_verdieping_key,
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', alg_g.alg_gebouw_code)
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code)
|| DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
'_', '',
'-' || alg_v.alg_verdieping_code),
@@ -359,7 +359,7 @@ AS
AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
UNION ALL
SELECT alg_g.alg_gebouw_key,
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', alg_g.alg_gebouw_code),
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code),
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1),
'_', alg_l.alg_locatie_omschrijving,
alg_g.alg_gebouw_naam),
@@ -385,7 +385,7 @@ AS
SELECT alg_t.alg_terreinsector_key,
DECODE (SUBSTR (alg_t.alg_terreinsector_code, 1, 1),
'_', '',
alg_t.alg_terreinsector_code),
'-' || alg_t.alg_terreinsector_code),
DECODE (SUBSTR (alg_t.alg_terreinsector_code, 1, 1),
'_', alg_l.alg_locatie_omschrijving,
alg_terreinsector_naam),
@@ -432,7 +432,7 @@ CREATE_VIEW(alg_v_onroerendgoed_gegevens,0)
)
AS
SELECT alg_r.alg_ruimte_key,
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', alg_g.alg_gebouw_code)
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code)
|| DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
'_', '',
'-' || alg_v.alg_verdieping_code)
@@ -471,7 +471,7 @@ AS
AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
UNION ALL
SELECT alg_v.alg_verdieping_key,
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', alg_g.alg_gebouw_code)
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code)
|| DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
'_', '',
'-' || alg_v.alg_verdieping_code),
@@ -502,7 +502,7 @@ AS
AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
UNION ALL
SELECT alg_g.alg_gebouw_key,
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', alg_g.alg_gebouw_code),
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code),
DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1),
'_', alg_l.alg_locatie_omschrijving,
alg_g.alg_gebouw_naam),
@@ -528,7 +528,7 @@ AS
SELECT alg_t.alg_terreinsector_key,
DECODE (SUBSTR (alg_t.alg_terreinsector_code, 1, 1),
'_', '',
alg_t.alg_terreinsector_code),
'-' || alg_t.alg_terreinsector_code),
DECODE (SUBSTR (alg_t.alg_terreinsector_code, 1, 1),
'_', alg_l.alg_locatie_omschrijving,
alg_terreinsector_naam),
@@ -551,6 +551,15 @@ AS
FROM alg_terreinsector alg_t, alg_locatie alg_l
WHERE alg_l.alg_locatie_key = alg_t.alg_locatie_key;
CREATE_VIEW(alg_v_alg_ruimte_verdieping,0)
AS SELECT ALG_R.alg_ruimte_key
, ALG_V.alg_verdieping_key
FROM alg_ruimte ALG_R,
alg_verdieping ALG_V
WHERE ALG_R.alg_verdieping_key = ALG_V.alg_verdieping_key
AND ALG_R.alg_ruimte_verwijder IS NULL;
CREATE_VIEW(alg_v_my_room, 0) AS
SELECT DISTINCT r.alg_ruimte_key, r.alg_verdieping_key, pl.prs_perslid_key
FROM alg_ruimte r,

13
AUT/AUT_IND.SRC
View File

@@ -1,13 +0,0 @@
/* $Revision$
* $Id$
*/
CREATE UNIQUE INDEX aut_i_idp_code ON aut_idp(aut_idp_code);
CREATE UNIQUE INDEX aut_i_idp2 ON aut_idp(aut_idp_issuer, aut_idp_audience, aut_idp_type);
CREATE UNIQUE INDEX aut_i_sp_code ON aut_sp(aut_sp_code);
CREATE UNIQUE INDEX aut_i_cp_refreshtkn ON aut_client_perslid(aut_client_perslid_refreshtkn);
CREATE UNIQUE INDEX aut_i_cp_accesstoken ON aut_client_perslid(aut_client_perslid_accesstoken);
REGISTERONCE('$Id$')

15
AUT/AUT_SEQ.SRC
View File

@@ -1,15 +0,0 @@
/*
* $Revision$
* $Id$
*/
CREATE SEQUENCE aut_s_aut_idp_key MINVALUE 1;
CREATE SEQUENCE aut_s_aut_idp_map_key MINVALUE 1;
CREATE SEQUENCE aut_s_aut_sp_key MINVALUE 1;
CREATE SEQUENCE aut_s_aut_sp_map_key MINVALUE 1;
CREATE SEQUENCE aut_s_aut_client_key MINVALUE 1;
CREATE SEQUENCE aut_s_aut_client_perslid_key MINVALUE 1;
REGISTERONCE('$Id$')

212
AUT/AUT_TAB.SRC
View File

@@ -1,212 +0,0 @@
/*
* $Revision$
* $Id$
*/
// Documentatie in de wiki onder Authenticeren
CREATE TABLE aut_idp
(
aut_idp_key
NUMBER(10)
CONSTRAINT aut_k_idp_key PRIMARY KEY,
aut_idp_code -- Voor &sso=<code>
VARCHAR2(30),
aut_idp_type -- 1=Internal (login.asp, future use), 2=UID_DEC (deprecated),
NUMBER(3), -- 3=GUID-encrypted (deprecated), 4=JWT, 5=SAML (future use)
aut_idp_algorithm -- HS256 is HMAC-SHA256
VARCHAR2(30),
aut_idp_omschrijving
VARCHAR2(30),
aut_idp_opmerking
VARCHAR2(320),
aut_idp_secret
VARCHAR2(128),
aut_idp_audience
VARCHAR2(128),
aut_idp_issuer
VARCHAR2(128),
aut_idp_remote_loginurl
VARCHAR2(128),
aut_idp_remote_logouturl
VARCHAR2(128),
aut_idp_saml_metaurl
VARCHAR2(128),
aut_idp_clockskew
NUMBER(10),
aut_idp_duration
NUMBER(10),
aut_idp_autocreate
NUMBER(1)
DEFAULT 0 -- +1: create; +2: update
NOT NULL,
prs_afdeling_key
NUMBER(10)
CONSTRAINT aut_r_idp_prs_afdeling REFERENCES prs_afdeling(prs_afdeling_key) ON DELETE CASCADE,
prs_bedrijf_key
NUMBER(10)
CONSTRAINT aut_r_idp_prs_bedrijf REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE,
fac_functie_key
NUMBER(10)
CONSTRAINT aut_r_idp_functie REFERENCES fac_functie(fac_functie_key),
aut_idp_internal -- can be used for FACFAC
NUMBER(1)
DEFAULT 0 NOT NULL,
aut_idp_ipfilter
VARCHAR2(320),
aut_idp_ipauto
NUMBER(1)
DEFAULT 0 NOT NULL,
aut_idp_loglevel
NUMBER(1) DEFAULT 0 NOT NULL,
aut_idp_aanmaak
DATE
DEFAULT SYSDATE
);
CREATE TABLE aut_idp_map
(
aut_idp_map_key
NUMBER(10)
CONSTRAINT aut_k_idp_map_key PRIMARY KEY,
aut_idp_key
NUMBER(10)
CONSTRAINT aut_r_idp_map_id REFERENCES aut_idp(aut_idp_key) ON DELETE CASCADE,
aut_idp_map_from -- as sent in JWT
VARCHAR(100)
NOT NULL,
aut_idp_map_to -- FACILITOR column of 1000+kenmerk_key
NUMBER(10)
NOT NULL,
aut_idp_map_identify
NUMBER(1)
DEFAULT 0
NOT NULL,
aut_idp_map_default
VARCHAR(256),
aut_idp_map_aanmaak
DATE
DEFAULT SYSDATE
);
CREATE TABLE aut_sp
(
aut_sp_key
NUMBER(10)
CONSTRAINT aut_k_sp_key PRIMARY KEY,
aut_sp_code -- Nodig?
VARCHAR2(30),
aut_sp_type -- 1=Internal (login.asp, future use), 2=UID_DEC (deprecated),
NUMBER(3), -- 3=GUID-encrypted (deprecated), 4=JWT, 5=SAML (future use)
aut_sp_algorithm -- HS256 is HMAC-SHA256
VARCHAR2(30),
aut_sp_omschrijving
VARCHAR2(30),
aut_sp_opmerking
VARCHAR2(320),
aut_sp_secret
VARCHAR2(128),
aut_sp_audience
VARCHAR2(128),
aut_idp_duration
NUMBER(10),
aut_sp_issuer
VARCHAR2(128),
aut_sp_redirect_uri
VARCHAR2(320),
fac_functie_key
NUMBER(10)
CONSTRAINT aut_r_sp_functie REFERENCES fac_functie(fac_functie_key),
aut_sp_internal
NUMBER(1)
DEFAULT 0 NOT NULL,
aut_sp_loglevel
NUMBER(1) DEFAULT 0 NOT NULL,
aut_sp_aanmaak
DATE
DEFAULT SYSDATE
);
-- Mapping attributen
CREATE TABLE aut_sp_map
(
aut_sp_map_key
NUMBER(10)
CONSTRAINT aut_k_sp_map_key PRIMARY KEY,
aut_sp_key
NUMBER(10)
CONSTRAINT aut_r_sp_map_id REFERENCES aut_sp(aut_sp_key),
aut_sp_map_from
NUMBER(3)
NOT NULL,
aut_sp_map_to -- as sent in JWT
VARCHAR(100)
NOT NULL,
aut_sp_map_aanmaak
DATE
DEFAULT SYSDATE
);
-- Clients (zoals al dan niet native App's)
CREATE TABLE aut_client
(
aut_client_key
NUMBER(10)
CONSTRAINT aut_k_aut_client_key PRIMARY KEY,
aut_client_id
VARCHAR2(64),
aut_client_type -- 1=Internal (login.asp, future use), 2=UID_DEC (deprecated),
NUMBER(3), -- 3=GUID-encrypted (deprecated), 4=JWT, 5=SAML (future use)
aut_client_omschrijving
VARCHAR2(30),
aut_client_opmerking
VARCHAR2(320),
aut_client_secret
VARCHAR2(128),
prs_bedrijf_key -- reference to find tech-adres (bedrijfadres of type N) for notifications
NUMBER(10)
CONSTRAINT aut_r_prs_bedrijf_key1 REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE,
aut_client_customuri -- future use
VARCHAR2(128),
aut_client_aanmaak
DATE
DEFAULT SYSDATE
);
-- Koppeling client en (toestemming gegeven door) perslid
CREATE TABLE aut_client_perslid
(
aut_client_perslid_key
NUMBER(10)
CONSTRAINT aut_k_client_perslid PRIMARY KEY,
aut_client_key
NUMBER(10)
CONSTRAINT aut_r_aut_client_id REFERENCES aut_client(aut_client_key) ON DELETE CASCADE,
aut_client_perslid_device_id
VARCHAR(320),
aut_client_perslid_device_name
VARCHAR(320),
aut_client_perslid_scope
VARCHAR(320)
DEFAULT NULL,
aut_client_perslid_pushtoken
VARCHAR(320),
aut_client_perslid_refreshtkn -- unused yet
VARCHAR(320),
aut_client_perslid_refreshdate
DATE,
aut_client_perslid_accesstoken
VARCHAR(320),
aut_client_perslid_accessdate
DATE,
aut_client_perslid_login -- wanneer voor het laatst de app gebruikt
DATE,
prs_perslid_key
NUMBER(10)
CONSTRAINT aut_r_aut_client_perslid REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
CONSTRAINT aut_c_aut_client_perslid CHECK(prs_perslid_key IS NOT NULL),
aut_client_perslid_aanmaak
DATE
DEFAULT SYSDATE
);
REGISTERONCE('$Id$')

57
AUT/AUT_TRI.SRC
View File

@@ -1,57 +0,0 @@
/*
* $Revision$
* $Id$
*
*/
CREATE_TRIGGER(aut_t_aut_idp_B_IU)
BEFORE INSERT OR UPDATE ON aut_idp
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(aut_idp_key, aut_s_aut_idp_key);
:new.aut_idp_code := UPPER(:new.aut_idp_code);
END;
/
CREATE_TRIGGER(aut_t_aut_idp_map_B_I)
BEFORE INSERT ON aut_idp_map
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(aut_idp_map_key, aut_s_aut_idp_map_key);
END;
/
CREATE_TRIGGER(aut_t_aut_sp_B_IU)
BEFORE INSERT ON aut_sp
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(aut_sp_key, aut_s_aut_sp_key);
:new.aut_sp_code := UPPER(:new.aut_sp_code);
END;
/
CREATE_TRIGGER(aut_t_aut_sp_map_B_I)
BEFORE INSERT ON aut_sp_map
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(aut_sp_map_key, aut_s_aut_sp_map_key);
END;
/
CREATE_TRIGGER(aut_t_aut_client_B_I)
BEFORE INSERT ON aut_client
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(aut_client_key, aut_s_aut_client_key);
END;
/
CREATE_TRIGGER(aut_t_aut_client_perslid_B_I)
BEFORE INSERT ON aut_client_perslid
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(aut_client_perslid_key, aut_s_aut_client_perslid_key);
END;
/
REGISTERRUN('$Id$')

2
BES/BES_INI.SRC
View File

@@ -4,7 +4,7 @@
* $Id$
*/
_FAC_MODULE('BES','lcl_module_BES')
_FAC_MODULE('BES','Bestellingenmodule')
DEF_STATUS('bestelling', 1, 'lcl_bes_afgewezen');
DEF_STATUS('bestelling', 2, 'lcl_bes_new');

21
BES/BES_PAC.SRC
View File

@@ -51,8 +51,7 @@ AS
p_bes_srtdeel_vervaldatum IN DATE,
p_bes_srtdeel_image IN VARCHAR2,
p_bes_srtdeel_veelvoud IN NUMBER,
p_bes_srtdeel_opmerking IN VARCHAR2,
p_bes_srtdeel_details_loc IN VARCHAR2 DEFAULT NULL
p_bes_srtdeel_opmerking IN VARCHAR2
);
PROCEDURE makeorders (i_userkey IN NUMBER, bes_key IN NUMBER);
@@ -607,8 +606,7 @@ AS
p_bes_srtdeel_vervaldatum IN DATE,
p_bes_srtdeel_image IN VARCHAR2, -- VARCHAR2 (255)
p_bes_srtdeel_veelvoud IN NUMBER, -- NUMBER (6)
p_bes_srtdeel_opmerking IN VARCHAR2, -- VARCHAR2 (2000)
p_bes_srtdeel_details_loc IN VARCHAR2 DEFAULT NULL -- VARCHAR2 (255)
p_bes_srtdeel_opmerking IN VARCHAR2 -- VARCHAR2 (2000)
)
AS
v_bes_srtgroep_key NUMBER (10);
@@ -690,8 +688,7 @@ AS
bes_srtdeel_image,
bes_srtdeel_veelvoud,
bes_srtdeel_verwijder,
bes_srtdeel_opmerking,
bes_srtdeel_details_loc
bes_srtdeel_opmerking
)
VALUES (
v_bes_srtdeel_key,
@@ -705,8 +702,7 @@ AS
p_bes_srtdeel_image,
p_bes_srtdeel_veelvoud,
SYSDATE,
p_bes_srtdeel_opmerking,
p_bes_srtdeel_details_loc
p_bes_srtdeel_opmerking
);
ELSE
-- Bestaand artikel, maar de verwijdatum moet wel ververst worden
@@ -847,7 +843,7 @@ AS
BEGIN
SELECT a.prs_afdeling_parentkey
INTO afd_key_temp
FROM prs_afdeling a
FROM prs_v_aanwezigafdeling a
WHERE a.prs_afdeling_key = afd_key;
IF niveau != 1
THEN
@@ -1448,7 +1444,6 @@ AS
WHERE aa.prs_afdeling_key = lafd_key
AND aa.niveau = g.fac_gebruiker_prs_level_write))))
-- in ASP: if (params.loc_key>0)
-- Bij bestelling wordt afleveradres ingevuld die is gekoppeld aan alg_locatie_key. Dus op locatie niveau checken is hier voldoende.
AND (g.fac_gebruiker_alg_level_write = -1
OR (g.fac_gebruiker_alg_level_write < 9
AND lloc_key IN
@@ -1862,8 +1857,7 @@ AS
bes_bestelling_plaats,
mld_adres_key_lev,
prs_kostenplaats_key,
bes_bestelling_leverdatum,
bes_bestelling_lev_opm
bes_bestelling_leverdatum
) =
(SELECT bes_bestelling_datum,
prs_perslid_key,
@@ -1872,8 +1866,7 @@ AS
bes_bestelling_plaats,
mld_adres_key_lev,
prs_kostenplaats_key,
bes_bestelling_leverdatum,
bes_bestelling_lev_opm
bes_bestelling_leverdatum
FROM bes_bestelling
WHERE bes_bestelling_key = beskey)
WHERE bes_bestelling_key = orgbeskey;

10
BES/BES_TAB.SRC
View File

@@ -258,9 +258,7 @@ CREATE_TABLE(bes_bestelling, 0)
bes_bestelling_satisfaction_op
VARCHAR2(2000),
bes_bestelling_approved
NUMBER(11,2),
bes_bestelling_lev_opm
VARCHAR2(320)
NUMBER(11,2)
);
CREATE_TABLE(bes_bestelopdr, 0)
@@ -405,10 +403,6 @@ CREATE_TABLE(bes_disc_params, 0)
NUMBER(10)
NOT_NULL(bes_ins_discipline_key, bes_c_ins_discipline_key)
CONSTRAINT bes_r_ins_discipine_key REFERENCES ins_tab_discipline(ins_discipline_key),
bes_disc_params_fiatflow /* Fiatterings flow 0=fiatteur->besbof 1=besbof->fiatteur */
NUMBER(1)
DEFAULT 0
CONSTRAINT bes_c_disc_params_fiatflow CHECK(bes_disc_params_fiatflow IN (0,1)),
bes_disc_params_bestellimiet
NUMBER(8,2)
DEFAULT 100000,
@@ -549,7 +543,7 @@ CREATE_TABLE(bes_srtkenmerk, 0)
, CONSTRAINT bes_c_bes_srtkenmerk_omschr CHECK(bes_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT bes_srtkenmerk_omschrijving CHECK(bes_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT bes_u_bes_srtkenmerk_upper UNIQUE(bes_srtkenmerk_upper, bes_srtkenmerk_verwijder)
, CONSTRAINT bes_c_bes_srtkenmerk_kenmtype CHECK(bes_srtkenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
, CONSTRAINT bes_c_bes_srtkenmerk_kenmtype CHECK(bes_srtkenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
, CONSTRAINT bes_c_bes_srtkenmerk_systeem CHECK(bes_srtkenmerk_systeem IS NULL
OR bes_srtkenmerk_systeem = 1)
, CONSTRAINT bes_c_bes_srtkenmerk_lengte CHECK(bes_srtkenmerk_lengte >= 1

53
BES/BES_TRI.SRC
View File

@@ -147,47 +147,6 @@ END;
/
AUDIT_BEGIN(bes_disc_params)
AUDIT_VALUE(bes_disc_params, bes_disc_params_bestellimiet)
AUDIT_VALUE(bes_disc_params, bes_disc_params_bestellimiet2)
AUDIT_VALUE(bes_disc_params, bes_disc_params_bestellimiet3)
AUDIT_VALUE(bes_disc_params, bes_disc_params_bestellimiet4)
AUDIT_VALUE(bes_disc_params, bes_disc_params_bestellimiet5)
AUDIT_VALUE(bes_disc_params, bes_disc_params_min_bedrag)
AUDIT_VALUE(bes_disc_params, bes_disc_params_auto_order)
AUDIT_VALUE(bes_disc_params, bes_disc_params_autoacceptrfo)
AUDIT_VALUE(bes_disc_params, bes_disc_params_herfiat)
AUDIT_VALUE(bes_disc_params, bes_disc_params_herfiatpct)
AUDIT_VALUE(bes_disc_params, bes_disc_params_herfiatmarge)
AUDIT_VALUE(bes_disc_params, bes_disc_params_factuurpct)
AUDIT_VALUE(bes_disc_params, bes_disc_params_factuurmarge)
AUDIT_VALUE(bes_disc_params, bes_disc_params_factmatchmode)
AUDIT_VALUE(bes_disc_params, bes_disc_params_factuurappr)
AUDIT_VALUE(bes_disc_params, bes_disc_params_factuurgrens)
AUDIT_VALUE(bes_disc_params, bes_disc_params_pgb)
AUDIT_VALUE(bes_disc_params, bes_disc_params_leverdagen)
AUDIT_VALUE(bes_disc_params, bes_disc_params_remoteconfirm)
AUDIT_VALUE(bes_disc_params, bes_disc_params_freeartikel)
AUDIT_VALUE(bes_disc_params, bes_disc_params_punchouturl)
AUDIT_VALUE(bes_disc_params, bes_disc_params_punch_bedr_key)
AUDIT_VALUE(bes_disc_params, bes_disc_params_logo_url)
AUDIT_VALUE(bes_disc_params, bes_disc_params_noti_dagen)
AUDIT_VALUE(bes_disc_params, bes_disc_params_noti_opdr)
AUDIT_VALUE(bes_disc_params, bes_disc_params_bonotify)
AUDIT_VALUE(bes_disc_params, bes_disc_params_retour)
AUDIT_VALUE(bes_disc_params, bes_disc_params_retour_url)
AUDIT_VALUE(bes_disc_params, bes_disc_params_levopm_url)
AUDIT_VALUE(bes_disc_params, bes_ins_discipline_key_inkoop)
AUDIT_VALUE(bes_disc_params, bes_disc_params_singlegroep)
AUDIT_VALUE(bes_disc_params, bes_disc_params_kpautorisatie)
AUDIT_VALUE(bes_disc_params, bes_disc_params_maxartikel)
AUDIT_VALUE(bes_disc_params, bes_disc_params_contract)
AUDIT_VALUE(bes_disc_params, bes_disc_params_cnt_disckey)
AUDIT_VALUE(bes_disc_params, bes_disc_params_cnt_termijn)
AUDIT_VALUE(bes_disc_params, bes_disc_params_cnt_opzegterm)
AUDIT_VALUE(bes_disc_params, bes_disc_params_for_others)
AUDIT_END()
CREATE_TRIGGER(BES_T_BES_DISC_PARAMS_B_IU)
BEFORE INSERT OR UPDATE ON bes_disc_params
FOR EACH ROW
@@ -210,17 +169,19 @@ BEGIN
raise_application_error(-20003, 'bes_C_bes_SRTKENMERK_SYSTEEM');
END IF;
IF :NEW.bes_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :NEW.bes_srtkenmerk_lengte IS NULL
IF (:NEW.bes_srtkenmerk_kenmerktype = 'C' OR :NEW.bes_srtkenmerk_kenmerktype = 'N')
AND :NEW.bes_srtkenmerk_lengte IS NULL
THEN
raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_LENGTE');
END IF;
-- Numeriek mag niet te lang zijn (numeric overflow)
IF :new.bes_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.bes_srtkenmerk_lengte > 20
IF :new.bes_srtkenmerk_kenmerktype = 'N'
AND :new.bes_srtkenmerk_lengte > 20
THEN
:new.bes_srtkenmerk_lengte := 20;
END IF;
IF :NEW.bes_srtkenmerk_kenmerktype IN ('N', 'B') AND :OLD.bes_srtkenmerk_key IS NOT NULL
IF :NEW.bes_srtkenmerk_kenmerktype = 'N' AND :OLD.bes_srtkenmerk_key IS NOT NULL
THEN
IF :OLD.bes_srtkenmerk_nmin <> :NEW.bes_srtkenmerk_nmin
OR (:OLD.bes_srtkenmerk_nmin IS NULL AND :NEW.bes_srtkenmerk_nmin IS NOT NULL)
@@ -357,7 +318,7 @@ BEGIN
THEN
raise_application_error (-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
END IF;
ELSIF srtkenmerktype IN ('N', 'B')
ELSIF srtkenmerktype = 'N'
THEN
-- NUMBER
-- Controleer of er een numerieke waarde ingevuld is.
@@ -472,7 +433,7 @@ BEGIN
THEN
raise_application_error (-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
END IF;
ELSIF srtkenmerktype IN ('N', 'B')
ELSIF srtkenmerktype = 'N'
THEN
-- NUMBER
-- Controleer of er een numerieke waarde ingevuld is.

22
BES/BES_VIE.SRC
View File

@@ -57,8 +57,6 @@ CREATE_VIEW(bes_v_qvw_algemeen, 0) (bes_bestelling_key,
afdeling_omschrijving,
alg_locatie_key,
locatie_code,
locatie_omschrijving,
locatie_plaats,
district_omschijving,
afleveradres,
mandaat,
@@ -86,7 +84,7 @@ CREATE_VIEW(bes_v_qvw_algemeen, 0) (bes_bestelling_key,
)
AS
SELECT bes_bestelling_key, bestelaanvraagnr, besteldatum, besteller, invoerder, kostensoortgroep,kostensoort, kpn, kpn_omschrijving, prs_bedrijf_key,
afdeling_code, afdeling_omschrijving, alg_locatie_key, locatie_code, locatie_omschrijving, locatie_plaats, district_omschijving, afleveradres, mandaat,
afdeling_code, afdeling_omschrijving, alg_locatie_key, locatie_code, district_omschijving, afleveradres, mandaat,
personeelsnr, werkplek, ins_discipline_key, catalogus, bes_srtgroep_key, groep, afleverdatum, doorlooptijd_werkdgn, sla_tijd,
productcode, prijs, inkoopprijs, status, gefiatteerddoor, bestelopdrachtnummer, aantal, itemprijs, iteminkoopprijs, bes_srtdeel_key, productomschrijving, itemposnr
FROM (SELECT b.bes_bestelling_key bes_bestelling_key, 'A-' || b.bes_bestelling_key bestelaanvraagnr,
@@ -122,9 +120,9 @@ AS
a.prs_afdeling_naam afdeling_code,
a.prs_afdeling_omschrijving afdeling_omschrijving,
ma.alg_locatie_key alg_locatie_key,
l.alg_locatie_code locatie_code,
l.alg_locatie_omschrijving locatie_omschrijving,
l.alg_locatie_plaats locatie_plaats,
(SELECT alg_locatie_code
FROM alg_locatie l
WHERE l.alg_locatie_key = ma.alg_locatie_key) locatie_code,
(SELECT alg_district_omschrijving
FROM alg_locatie l, alg_district d
WHERE l.alg_district_key = d.alg_district_key
@@ -172,14 +170,12 @@ AS
bes_bestelopdr bo,
bes_srtdeel sd,
bes_srtgroep sg,
ins_tab_discipline d,
alg_locatie l
ins_tab_discipline d
WHERE b.prs_perslid_key = p.prs_perslid_key
AND b.prs_kostenplaats_key = k.prs_kostenplaats_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND b.mld_adres_key_lev = ma.mld_adres_key
AND wp2.prs_perslid_key(+) = p.prs_perslid_key
AND l.alg_locatie_key(+) = ma.alg_locatie_key
AND b.bes_bestelling_key = bi.bes_bestelling_key
AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key(+)
AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
@@ -279,7 +275,6 @@ CREATE_VIEW(bes_v_udr_bestelling, 1)
afdeling_omschrijving,
fclt_3d_locatie_key,
locatie_code,
regio_omschrijving,
district_omschrijving,
afleveradres,
mandaat,
@@ -317,7 +312,6 @@ AS
afdeling_omschrijving,
alg_locatie_key,
locatie_code,
regio_omschrijving,
district_omschijving,
afleveradres,
mandaat,
@@ -383,12 +377,6 @@ AS
FROM alg_locatie l
WHERE l.alg_locatie_key = ma.alg_locatie_key)
locatie_code,
(SELECT alg_regio_omschrijving
FROM alg_locatie l, alg_district d, alg_regio r
WHERE r.alg_regio_key = d.alg_regio_key
AND l.alg_district_key = d.alg_district_key
AND l.alg_locatie_key = ma.alg_locatie_key)
regio_omschrijving,
(SELECT alg_district_omschrijving
FROM alg_locatie l, alg_district d
WHERE l.alg_district_key = d.alg_district_key

2
BEZ/BEZ_INI.SRC
View File

@@ -3,7 +3,7 @@
* $Id$
*/
_FAC_MODULE('BEZ','lcl_module_BEZ')
_FAC_MODULE('BEZ','Bezoekersregistratie')
INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Onbekend');
INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Ontvanger bellen');

22
BEZ/BEZ_PAC.SRC
View File

@@ -29,7 +29,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
SELECT bez_bezoekers_key,
bez_afspraak_naam,
bez_afspraak_bedrijf,
bez_bezoekers_opmerking,
bez_afspraak_opmerking,
prs_contactpersoon_key
FROM bez_bezoekers
WHERE bez_afspraak_key = pkey;
@@ -54,23 +54,13 @@ CREATE OR REPLACE PACKAGE BODY bez AS
SELECT bez_s_bez_afspraak_key.NEXTVAL INTO newafspraakkey FROM DUAL;
INSERT INTO bez_afspraak (bez_afspraak_key,
prs_perslid_key,
bez_afspraak_host_key,
bez_afspraak_contact_key,
bez_afspraak_gastheer,
bez_afspraak_telefoonnr,
bez_afspraak_datum, bez_actie_key,
alg_locatie_key, res_rsv_ruimte_key,
alg_onrgoed_keys, bez_afspraak_ruimte,
bez_afspraak_opmerking, bez_afspraak_eind
INSERT INTO bez_afspraak (bez_afspraak_key, prs_perslid_key, bez_afspraak_host_key, bez_afspraak_contact_key, bez_afspraak_gastheer, bez_afspraak_datum, bez_actie_key, alg_locatie_key, res_rsv_ruimte_key, alg_onrgoed_keys, bez_afspraak_ruimte, bez_afspraak_opmerking, bez_afspraak_eind
)
SELECT newafspraakkey,
puserkey,
a.bez_afspraak_host_key,
a.bez_afspraak_contact_key,
a.bez_afspraak_gastheer,
a.bez_afspraak_telefoonnr,
nieuwvan,
a.bez_actie_key,
a.alg_locatie_key,
@@ -92,7 +82,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
bez_afspraak_key,
bez_afspraak_naam,
bez_afspraak_bedrijf,
bez_bezoekers_opmerking,
bez_afspraak_opmerking,
prs_contactpersoon_key
)
VALUES (
@@ -100,7 +90,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
newafspraakkey,
b.bez_afspraak_naam,
b.bez_afspraak_bedrijf,
b.bez_bezoekers_opmerking,
b.bez_afspraak_opmerking,
b.prs_contactpersoon_key
);
@@ -295,8 +285,6 @@ CREATE OR REPLACE PACKAGE BODY bez AS
POWER(2,
(fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
AND ( d.res_deel_vervaldatum IS NULL
OR d.res_deel_vervaldatum > lbegin)
ORDER BY id.ins_deel_upper)
WHERE aantal IS NULL;
ELSE
@@ -329,8 +317,6 @@ CREATE OR REPLACE PACKAGE BODY bez AS
POWER(2,
(fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
AND ( d.res_deel_vervaldatum IS NULL
OR d.res_deel_vervaldatum > lbegin)
ORDER BY id.ins_deel_upper)
WHERE aantal IS NULL;
END IF;

11
BEZ/BEZ_TAB.SRC
View File

@@ -84,8 +84,6 @@ CREATE_TABLE(bez_bezoekers,0)
CONSTRAINT bez_r_prs_perslid REFERENCES prs_perslid(prs_perslid_key),
bez_bezoekers_pasnr
VARCHAR2(30),
bez_bezoekers_opmerking
VARCHAR2(50),
bez_afspraak_opmerking
VARCHAR2(50),
bez_bezoekers_done
@@ -96,9 +94,7 @@ CREATE_TABLE(bez_bezoekers,0)
DATE,
bez_bezoekers_flags -- documentatie in appl/bez/xxx.inc
NUMBER(10)
DEFAULT 0 NOT NULL,
bez_bezoekers_flag
NUMBER(1)
DEFAULT 0 NOT NULL
);
@@ -130,10 +126,9 @@ CREATE_TABLE(bez_kenmerk,0)
,bez_kenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT bez_c_bez_kenmerk_type2 CHECK
(bez_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
,bez_kenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list
(bez_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
,bez_kenmerk_systeem
NUMBER(1)
DEFAULT 0 NOT NULL
,bez_kenmerk_toonbaar
NUMBER(1)
,bez_kenmerk_uniek

170
BEZ/BEZ_VIE.SRC
View File

@@ -19,7 +19,7 @@ SELECT a.bez_afspraak_key,
b.bez_bezoekers_key,
b.bez_afspraak_naam bezoeker_naam,
b.bez_afspraak_bedrijf bezoeker_bedrijf,
b.bez_bezoekers_opmerking bezoeker_opmerking,
b.bez_afspraak_opmerking bezoeker_opmerking,
b.bez_bezoekers_done,
b.bez_bezoekers_out,
b.bez_bezoekers_pasnr
@@ -37,8 +37,6 @@ SELECT a.bez_afspraak_key,
CREATE_VIEW(bez_v_udr_bezoeker, 1)
(
key,
afspraak_key,
reservering_key,
host,
contact,
plaats_code,
@@ -47,7 +45,6 @@ CREATE_VIEW(bez_v_udr_bezoeker, 1)
district,
locatie_code,
locatie_naam,
locatie_plaats,
gebouw_code,
gebouw_naam,
verdieping_code,
@@ -71,8 +68,6 @@ CREATE_VIEW(bez_v_udr_bezoeker, 1)
)
AS
SELECT b.bez_bezoekers_key,
a.bez_afspraak_key,
a.res_rsv_ruimte_key,
COALESCE (p1.prs_perslid_naam_full, a.bez_afspraak_gastheer) bez_afspraak_host,
p2.prs_perslid_naam_full bez_afspraak_contact,
og.alg_onroerendgoed_code,
@@ -81,7 +76,6 @@ AS
d.alg_district_omschrijving,
l.alg_locatie_code,
l.alg_locatie_omschrijving,
l.alg_locatie_plaats,
og.alg_gebouw_code,
og.alg_gebouw_naam,
og.alg_verdieping_code,
@@ -95,12 +89,12 @@ AS
a.bez_afspraak_datum,
a.bez_afspraak_eind,
ba.bez_actie_omschrijving,
b.bez_bezoekers_opmerking bezoeker_opmerking,
b.bez_afspraak_opmerking bezoeker_opmerking,
b.bez_bezoekers_done,
b.bez_bezoekers_out,
b.bez_bezoekers_pasnr,
rd.res_deel_omschrijving,
a.alg_locatie_key,
og.alg_locatie_key,
pp1.prs_afdeling_key
FROM bez_afspraak a,
bez_bezoekers b,
@@ -121,162 +115,10 @@ AS
AND a.bez_actie_key = ba.bez_actie_key
AND l.alg_district_key = d.alg_district_key
AND d.alg_regio_key = r.alg_regio_key
AND l.alg_locatie_key = a.alg_locatie_key
AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys(+)
AND l.alg_locatie_key = og.alg_locatie_key
AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys
AND b.bez_bezoekers_key = rrd.bez_bezoekers_key(+)
AND rrd.res_deel_key = rd.res_deel_key(+)
AND a.bez_afspraak_datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY');
CREATE_VIEW(bez_v_udr_reserveringbezoeker, 1)
(
bezoeker_key,
afspraak_key,
reservering_key,
host,
plaats_code,
plaats_omschrijving,
regio,
district,
locatie_code,
locatie_naam,
gebouw_code,
gebouw_naam,
verdieping_code,
verdieping_naam,
ruimte_code,
ruimte_naam,
afspraak_ruimte,
afspraak_opmerking,
bezoeker_naam,
bezoeker_bedrijf,
bezoek_van,
bezoek_tot,
actie,
bezoeker_opmerking,
bezoeker_binnen,
bezoeker_buiten,
pasnr,
parkeerplaats,
nummer,
res_omschrijving,
invoerdatum,
datum,
gastheer,
invoerder,
kostensoortgroep,
kostensoort,
kpn,
kpn_omschrijving,
fclt_3d_afdeling_key,
afdeling_code,
afdeling_omschrijving,
regio_omschrijving,
district_omschijving,
fclt_3d_locatie_key,
locatie,
locatie_omschrijving,
locatie_plaats,
gebouw,
verdieping,
ruimte,
opstelling,
capaciteit,
no_show,
mandaat,
personeelsnr,
fclt_3d_discipline_key,
catalogus_key,
catalogus,
reserveerbare_ruimte,
bezoekers,
van,
tot,
duur,
status,
bostatus,
activiteit,
srtactiviteit_key,
activiteitsoort
)
AS
SELECT
b.key bezoeker_key,
b.afspraak_key,
b.reservering_key,
b.host,
--b.contact,
b.plaats_code,
b.plaats_omschrijving,
b.regio,
b.district,
b.locatie_code,
b.locatie_naam,
--b.locatie_plaats,
b.gebouw_code,
b.gebouw_naam,
b.verdieping_code,
b.verdieping_naam,
b.ruimte_code,
b.ruimte_naam,
b.afspraak_ruimte,
b.afspraak_opmerking,
b.bezoeker_naam,
b.bezoeker_bedrijf,
b.bezoek_van,
b.bezoek_tot,
b.actie,
b.bezoeker_opmerking,
b.bezoeker_binnen,
b.bezoeker_buiten,
b.pasnr,
b.parkeerplaats,
--b.fclt_3d_locatie_key,
--b.fclt_3d_afdeling_key,
--r.key,
r.nummer,
r.res_omschrijving,
r.invoerdatum,
r.datum,
r.gastheer,
--r.contact,
r.invoerder,
r.kostensoortgroep,
r.kostensoort,
r.kpn,
r.kpn_omschrijving,
r.fclt_3d_afdeling_key,
r.afdeling_code,
r.afdeling_omschrijving,
r.regio_omschrijving,
r.district_omschijving,
r.fclt_3d_locatie_key,
r.locatie,
r.locatie_omschrijving,
r.locatie_plaats,
r.gebouw,
r.verdieping,
r.ruimte,
r.opstelling,
r.capaciteit,
r.no_show,
r.mandaat,
r.personeelsnr,
r.fclt_3d_discipline_key,
r.catalogus_key,
r.catalogus,
r.reserveerbare_ruimte,
r.bezoekers,
r.van,
r.tot,
r.duur,
r.status,
r.bostatus,
r.activiteit,
r.srtactiviteit_key,
r.activiteitsoort
FROM res_v_udr_reservering r, bez_v_udr_bezoeker b
WHERE b.reservering_key = r.key;
AND rrd.res_deel_key = rd.res_deel_key(+);
REGISTERRUN('$Id$')

10
BGT/BGT_IND.SRC
View File

@@ -1,10 +0,0 @@
#ifdef BGT
/*
* $Revision$
* $Id$
*/
REGISTERONCE('$Id$')
#endif // BGT

16
BGT/BGT_INI.SRC
View File

@@ -1,16 +0,0 @@
#ifdef BGT
/*
* $Revision$
* $Id$
*/
_FAC_MODULE('BGT','lcl_module_BGT')
/*
** De MESSAGES van de BGT module.
*/
DEF_FAC_MESSAGE ('BGT_U_BUDGET' ,'Dit budget bestaat al.');
REGISTERONCE('$Id$')
#endif // BGT

146
BGT/BGT_PAC.SRC
View File

@@ -1,146 +0,0 @@
#ifdef BGT
/*
* $Revision$
* $Id$
*/
CREATE OR REPLACE PACKAGE bgt
AS
FUNCTION getBudgetMutaties ( p_budget_key IN NUMBER
, p_datum_van DATE DEFAULT NULL
, p_datum_tot DATE DEFAULT NULL
) RETURN NUMBER;
FUNCTION getBudgetOpDatum ( p_budget_key IN NUMBER
, p_datum DATE DEFAULT NULL
) RETURN NUMBER;
FUNCTION getGefactureerd ( p_mld_opdr_key IN NUMBER
, p_btw IN NUMBER
, p_datum_van DATE DEFAULT NULL
, p_datum_tot DATE DEFAULT NULL
) RETURN NUMBER;
FUNCTION getTefactureren ( p_mld_opdr_key IN NUMBER
, p_btw IN NUMBER
, p_datum_van DATE DEFAULT NULL
, p_datum_tot DATE DEFAULT NULL
) RETURN NUMBER;
END bgt;
/
CREATE OR REPLACE PACKAGE BODY bgt
AS
FUNCTION getBudgetMutaties ( p_budget_key IN NUMBER
, p_datum_van DATE DEFAULT NULL
, p_datum_tot DATE DEFAULT NULL
) RETURN NUMBER
IS
v_bedrag_mut NUMBER;
BEGIN
v_bedrag_mut := 0;
BEGIN
SELECT COALESCE(SUM(mut.bedrag_van), 0)
INTO v_bedrag_mut
FROM (SELECT SUM(bgt_budget_bedrag_van) bedrag_van
FROM bgt_budgetmutatie
WHERE bgt_budget_key_van = p_budget_key
AND ((p_datum_van IS NOT NULL AND bgt_budgetmutatie_datum >= p_datum_van) OR p_datum_van IS NULL)
AND ((p_datum_tot IS NOT NULL AND bgt_budgetmutatie_datum < p_datum_tot) OR p_datum_tot IS NULL)
UNION
SELECT SUM(bgt_budget_bedrag_naar) bedrag_van
FROM bgt_budgetmutatie
WHERE bgt_budget_key_naar = p_budget_key
AND ((p_datum_van IS NOT NULL AND bgt_budgetmutatie_datum >= p_datum_van) OR p_datum_van IS NULL)
AND ((p_datum_tot IS NOT NULL AND bgt_budgetmutatie_datum < p_datum_tot) OR p_datum_tot IS NULL)
) mut;
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_bedrag_mut := 0;
END;
RETURN v_bedrag_mut;
END getBudgetMutaties;
FUNCTION getBudgetOpDatum ( p_budget_key IN NUMBER
, p_datum DATE DEFAULT NULL
) RETURN NUMBER
IS
v_bedrag NUMBER;
v_mutatie NUMBER;
v_eindbedrag NUMBER;
BEGIN
v_bedrag := 0;
BEGIN
SELECT COALESCE(bgt_budget_bedrag, 0)
, BGT.getBudgetMutaties(bgt_budget_key, p_datum+1, NULL)
INTO v_eindbedrag
, v_mutatie
FROM bgt_budget
WHERE bgt_budget_key = p_budget_key;
v_bedrag := v_eindbedrag - v_mutatie;
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_bedrag := 0;
END;
RETURN v_bedrag;
END getBudgetOpDatum;
FUNCTION getGefactureerd ( p_mld_opdr_key IN NUMBER
, p_btw IN NUMBER
, p_datum_van DATE DEFAULT NULL
, p_datum_tot DATE DEFAULT NULL
) RETURN NUMBER
IS
v_bedrag NUMBER;
BEGIN
-- p_btw: 0=excl.btw, 1=btw, 2=incl.btw.
v_bedrag := 0;
BEGIN
SELECT CASE WHEN p_btw=0 THEN SUM(fin_factuur_totaal)
WHEN p_btw=1 THEN SUM(fin_factuur_totaal_btw)
WHEN p_btw=2 THEN SUM(fin_factuur_totaal) + SUM(fin_factuur_totaal_btw)
END facturen
INTO v_bedrag
FROM fin_factuur
WHERE ((p_datum_van IS NOT NULL AND fin_factuur_datum >= p_datum_van) OR p_datum_van IS NULL)
AND ((p_datum_tot IS NOT NULL AND fin_factuur_datum < p_datum_tot) OR p_datum_tot IS NULL)
AND mld_opdr_key = p_mld_opdr_key;
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_bedrag := 0;
END;
RETURN v_bedrag;
END getGefactureerd;
FUNCTION getTefactureren ( p_mld_opdr_key IN NUMBER
, p_btw IN NUMBER
, p_datum_van DATE DEFAULT NULL
, p_datum_tot DATE DEFAULT NULL
) RETURN NUMBER
IS
v_bedrag NUMBER;
BEGIN
-- p_btw: 0=excl.btw, 1=btw, 2=incl.btw.
v_bedrag := 0;
BEGIN
SELECT CASE WHEN p_btw=0 THEN COALESCE(MAX(o.mld_opdr_kosten), 0) - SUM(f.fin_factuur_totaal)
WHEN p_btw=1 THEN COALESCE(MAX(o.mld_opdr_kosten_btw), 0) - SUM(f.fin_factuur_totaal_btw)
WHEN p_btw=2 THEN COALESCE(MAX(o.mld_opdr_kosten), 0) + COALESCE(MAX(o.mld_opdr_kosten_btw), 0) - SUM(f.fin_factuur_totaal) - SUM(f.fin_factuur_totaal_btw)
END tefactureren
INTO v_bedrag
FROM fin_factuur f
, mld_opdr o
WHERE o.mld_opdr_key = f.mld_opdr_key(+)
AND ((p_datum_van IS NOT NULL AND fin_factuur_datum >= p_datum_van) OR p_datum_van IS NULL)
AND ((p_datum_tot IS NOT NULL AND fin_factuur_datum < p_datum_tot) OR p_datum_tot IS NULL)
AND o.mld_opdr_key = p_mld_opdr_key;
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_bedrag := 0;
END;
RETURN v_bedrag;
END getTefactureren;
END bgt;
/
REGISTERRUN('$Id$')
#endif // BGT

16
BGT/BGT_SEQ.SRC
View File

@@ -1,16 +0,0 @@
#ifdef BGT
/*
* $Revision$
* $Id$
*/
CREATE SEQUENCE bgt_s_bgt_disc_params_key MINVALUE 1;
CREATE SEQUENCE bgt_s_bgt_project_key MINVALUE 1;
CREATE SEQUENCE bgt_s_bgt_kostenrubriek_key MINVALUE 1;
CREATE SEQUENCE bgt_s_bgt_budget_key MINVALUE 1;
CREATE SEQUENCE bgt_s_bgt_budgetmutatie_key MINVALUE 1;
REGISTERONCE('$Id$')
#endif // BGT

157
BGT/BGT_TAB.SRC
View File

@@ -1,157 +0,0 @@
#ifdef BGT
/*
* $Revision$
* $Id$
*/
/* discipline=project */
CREATE_TABLE(bgt_disc_params,0)
(
bgt_disc_params_key
NUMBER (10) PRIMARY KEY NOT NULL,
bgt_ins_discipline_key
NUMBER (10)
CONSTRAINT bgt_r_ins_discipine_key REFERENCES ins_tab_discipline (ins_discipline_key),
bgt_disc_params_code -- projectcode
VARCHAR2 (20 BYTE),
bgt_disc_params_opdrachtgever
VARCHAR2 (200 BYTE),
bgt_disc_params_startdatum
DATE
);
/* deelproject */
CREATE_TABLE(bgt_project, 0)
(
bgt_project_key
NUMBER (10) PRIMARY KEY NOT NULL,
ins_discipline_key
NUMBER (10)
CONSTRAINT bgt_r_ins_discipline_key1 REFERENCES ins_tab_discipline (ins_discipline_key),
bgt_project_code
VARCHAR2 (20 BYTE)
CONSTRAINT bgt_c_bgt_project_code NOT NULL,
bgt_project_omschrijving
VARCHAR2 (60 BYTE),
bgt_project_volgnr
NUMBER (3),
bgt_project_prijspeildatum
DATE,
bgt_project_info
VARCHAR2 (4000 BYTE),
bgt_project_notes
VARCHAR2 (4000 BYTE),
bgt_project_aanmaak
DATE DEFAULT SYSDATE,
bgt_project_verwijder
DATE,
prs_kostenplaats_key
NUMBER (10)
CONSTRAINT bgt_r_prs_kostenplaats_key1 REFERENCES prs_kostenplaats (prs_kostenplaats_key),
CONSTRAINT bgt_u_bgt_project UNIQUE(ins_discipline_key, bgt_project_code, bgt_project_verwijder)
);
ALTER TABLE prs_kostenplaatsgrp ADD bgt_project_key NUMBER(10) CONSTRAINT prs_r_bgt_project_key2 REFERENCES bgt_project (bgt_project_key);
CREATE_TABLE(bgt_kostenrubriek,0)
(
bgt_kostenrubriek_key
NUMBER (10) PRIMARY KEY NOT NULL,
bgt_project_key
NUMBER (10)
CONSTRAINT bgt_c_bgt_kostenrubriek1 NOT NULL
CONSTRAINT bgt_r_bgt_project_key1 REFERENCES bgt_project (bgt_project_key),
bgt_kostenrubriek_code
VARCHAR2 (20 BYTE),
bgt_kostenrubriek_oms
VARCHAR2 (60 BYTE) NOT NULL
);
ALTER TABLE prs_kostensoortgrp ADD bgt_kostenrubriek_key NUMBER(10) CONSTRAINT prs_r_bgt_kostenrubriek_key1 REFERENCES bgt_kostenrubriek (bgt_kostenrubriek_key);
CREATE_TABLE(bgt_budget,1)
(
bgt_budget_key
NUMBER (10) PRIMARY KEY NOT NULL,
ins_discipline_key
NUMBER (10)
CONSTRAINT prs_r_ins_discipline_key1 REFERENCES ins_tab_discipline (ins_discipline_key), /* ik denk nog not null?*/
bgt_project_key
NUMBER (10)
CONSTRAINT prs_r_bgt_project_key1 REFERENCES bgt_project (bgt_project_key), /* ik denk nog not null?*/
bgt_kostenrubriek_key
NUMBER (10)
CONSTRAINT prs_r_bgt_kostenrubriek_key2 REFERENCES bgt_kostenrubriek (bgt_kostenrubriek_key),
prs_kostensoortgrp_key
NUMBER (10)
CONSTRAINT prs_r_kostensoortgrp_key2 REFERENCES prs_kostensoortgrp (prs_kostensoortgrp_key),
prs_kostensoort_key
NUMBER (10)
CONSTRAINT prs_r_kostensoort_key2 REFERENCES prs_kostensoort (prs_kostensoort_key),
prs_kostenplaatsgrp_key
NUMBER (10)
CONSTRAINT prs_r_kostenplaatsgrp_key3 REFERENCES prs_kostenplaatsgrp (prs_kostenplaatsgrp_key),
prs_kostenplaats_key
NUMBER (10)
CONSTRAINT prs_r_kostenplaats_key5 REFERENCES prs_kostenplaats (prs_kostenplaats_key),
bgt_budget_bedrag
NUMBER (12,2),
bgt_budget_btwbedrag
NUMBER (12,2),
bgt_budget_isreserve
NUMBER(1)
DEFAULT (0)
NOT NULL
CONSTRAINT bgt_c_bgt_budget_isreserve CHECK(bgt_budget_isreserve IN (0,1)),
bgt_budget_begin
DATE,
bgt_budget_eind
DATE,
bgt_budget_aanmaak
DATE DEFAULT SYSDATE,
bgt_budget_vervaldatum
DATE, -- of gewoon verwijderdatum?
CONSTRAINT bgt_c_bgt_budget1 CHECK ( (bgt_budget_isreserve = 0 AND ( bgt_kostenrubriek_key IS NOT NULL
OR (bgt_kostenrubriek_key IS NOT NULL AND prs_kostensoortgrp_key IS NOT NULL)
OR (bgt_kostenrubriek_key IS NOT NULL AND prs_kostensoortgrp_key IS NOT NULL AND prs_kostensoort_key IS NOT NULL)
OR prs_kostenplaatsgrp_key IS NOT NULL
OR (prs_kostenplaatsgrp_key IS NOT NULL AND prs_kostenplaats_key IS NOT NULL)
)
)
OR (bgt_budget_isreserve = 1 AND prs_kostensoortgrp_key IS NULL AND prs_kostenplaats_key IS NULL)
),
CONSTRAINT bgt_u_budget UNIQUE (bgt_kostenrubriek_key, prs_kostensoortgrp_key, prs_kostensoort_key)
);
-- under construction
CREATE_TABLE(bgt_budgetmutatie, 1)
(
bgt_budgetmutatie_key
NUMBER (10) PRIMARY KEY,
bgt_budgetmutatie_datum
DATE NOT NULL,
bgt_budgetmutatie_omschrijving
VARCHAR2 (100) NOT NULL,
prs_perslid_key
NUMBER (10)
NOT NULL
CONSTRAINT bgt_r_prs_perslid_key2 REFERENCES prs_perslid (prs_perslid_key),
bgt_budget_key_van
NUMBER (10)
CONSTRAINT bgt_r_bgt_budget1 REFERENCES bgt_budget (bgt_budget_key),
bgt_budget_bedrag_van
NUMBER (12, 2),
bgt_budget_btwbedrag_van
NUMBER (12, 2),
bgt_budget_key_naar
NUMBER (10)
CONSTRAINT bgt_r_bgt_budget2 REFERENCES bgt_budget (bgt_budget_key),
bgt_budget_bedrag_naar
NUMBER (12, 2),
bgt_budget_btwbedrag_naar
NUMBER (12, 2),
CONSTRAINT bgt_c_bgt_budget_key1 CHECK(bgt_budget_key_van IS NOT NULL OR bgt_budget_key_naar IS NOT NULL)
);
REGISTERONCE('$Id$')
#endif // BGT

78
BGT/BGT_TRI.SRC
View File

@@ -1,78 +0,0 @@
#ifdef BGT
/*
* $Revision$
* $Id$
*/
AUDIT_BEGIN(bgt_disc_params)
AUDIT_VALUE(bgt_disc_params, bgt_ins_discipline_key)
AUDIT_END()
CREATE_TRIGGER(bgt_t_bgt_disc_params_b_i)
BEFORE INSERT ON bgt_disc_params
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(bgt_disc_params_key, bgt_s_bgt_disc_params_key);
END;
/
CREATE_TRIGGER(bgt_t_bgt_project_B_I)
BEFORE INSERT ON bgt_project
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(bgt_project_key,bgt_s_bgt_project_key);
END;
/
CREATE_TRIGGER(bgt_t_bgt_kostenrubriek_B_I)
BEFORE INSERT ON bgt_kostenrubriek
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(bgt_kostenrubriek_key,bgt_s_bgt_kostenrubriek_key);
END;
/
CREATE_TRIGGER(bgt_t_bgt_budget_B_I)
BEFORE INSERT ON bgt_budget
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(bgt_budget_key,bgt_s_bgt_budget_key);
END;
/
CREATE_TRIGGER(bgt_t_bgt_budgetmutatie_B_I)
BEFORE INSERT ON bgt_budgetmutatie
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(bgt_budgetmutatie_key,bgt_s_bgt_budgetmutatie_key);
END;
/
CREATE_TRIGGER(bgt_t_bgt_budgetmutatie_B_IU)
BEFORE INSERT OR UPDATE ON bgt_budgetmutatie
FOR EACH ROW
BEGIN
IF (:new.bgt_budget_key_van IS NOT NULL) THEN
UPDATE bgt_budget SET bgt_budget_bedrag = NVL(bgt_budget_bedrag, 0) + NVL(:new.bgt_budget_bedrag_van, 0) WHERE bgt_budget_key = :new.bgt_budget_key_van;
UPDATE bgt_budget SET bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) + NVL(:new.bgt_budget_btwbedrag_van, 0) WHERE bgt_budget_key = :new.bgt_budget_key_van;
END IF;
IF (:new.bgt_budget_key_naar IS NOT NULL) THEN
UPDATE bgt_budget SET bgt_budget_bedrag = NVL(bgt_budget_bedrag, 0) + NVL(:new.bgt_budget_bedrag_naar, 0) WHERE bgt_budget_key = :new.bgt_budget_key_naar;
UPDATE bgt_budget SET bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) + NVL(:new.bgt_budget_btwbedrag_naar, 0) WHERE bgt_budget_key = :new.bgt_budget_key_naar;
END IF;
END;
/
CREATE_TRIGGER(bgt_t_bgt_budgetmutatie_B_D)
BEFORE DELETE ON bgt_budgetmutatie
FOR EACH ROW
BEGIN
UPDATE bgt_budget SET bgt_budget_bedrag = bgt_budget_bedrag - :old.bgt_budget_bedrag_van WHERE bgt_budget_key = :old.bgt_budget_key_van;
UPDATE bgt_budget SET bgt_budget_bedrag = bgt_budget_bedrag - :old.bgt_budget_bedrag_naar WHERE bgt_budget_key = :old.bgt_budget_key_naar;
END;
/
REGISTERRUN('$Id$')
#endif // BGT

16
BGT/BGT_VIE.SRC
View File

@@ -1,16 +0,0 @@
#ifdef BGT
/*
* $Revision$
* $Id$
*/
CREATE_VIEW(ctr_discipline, 0)
AS
SELECT * FROM ins_tab_discipline WHERE ins_discipline_module = 'BGT';
DEFINIEER_VIEW_AANWEZIG(ctr_discipline, ins_discipline_verwijder,
bgt_v_aanwezigdiscipline, 0);
REGISTERRUN('$Id$')
#endif // BGT

2
CAD/CAD_INI.SRC
View File

@@ -4,7 +4,7 @@
* $Id$
*/
_FAC_MODULE('CAD','lcl_module_CAD')
_FAC_MODULE('CAD','Facilitor Graphics')
INSERT INTO cad_legenda (cad_legenda_omschrijving, cad_legenda_discreet) VALUES ('Default legenda', 1);

123
CAD/CAD_VIE.SRC
View File

@@ -11,6 +11,51 @@ CREATE_VIEW(cad_v_cad_aanwezigtekening,0) AS
FROM ins_discipline)
OR C_T.ins_discipline_key IS NULL);
CREATE_VIEW(cad_v_cad_tekening_gegevens,0)
(cad_tekening_key,
alg_locatie_key,
alg_locatie_code,
alg_gebouw_key,
alg_gebouw_code,
alg_verdieping_key,
alg_verdieping_omschrijving,
ins_discipline_key,
ins_discipline_omschrijving) AS
SELECT C_T.cad_tekening_key,
C_T.alg_locatie_key,
ALG_L.alg_locatie_code,
ALG_G.alg_gebouw_key,
ALG_G.alg_gebouw_code,
C_T.alg_verdieping_key,
ALG_V.alg_verdieping_omschrijving,
C_T.ins_discipline_key,
INS_D.ins_discipline_omschrijving
FROM alg_locatie ALG_L,
alg_verdieping ALG_V,
alg_gebouw ALG_G,
ins_discipline INS_D,
cad_v_cad_aanwezigtekening C_T
WHERE C_T.alg_locatie_key = ALG_L.alg_locatie_key
AND C_T.alg_verdieping_key = ALG_V.alg_verdieping_key (+)
AND ALG_V.alg_gebouw_key = ALG_G.alg_gebouw_key (+)
AND C_T.ins_discipline_key = INS_D.ins_discipline_key (+);
CREATE_VIEW(cad_v_plattegrond,0) AS
SELECT * FROM cad_tekening
WHERE cad_tekening_verwijder IS NULL
AND UPPER(cad_tekening_type) = 'P';
CREATE_VIEW(cad_v_contour,0) AS
SELECT * FROM cad_tekening
WHERE cad_tekening_verwijder IS NULL
AND UPPER(cad_tekening_type) = 'C';
CREATE_VIEW(cad_v_discipline,0) AS
SELECT * FROM cad_tekening
WHERE cad_tekening_verwijder IS NULL
AND UPPER(cad_tekening_type) = 'D';
/* mapping van labels in tekening met ruimtenr in database
* let op: de applicatie kan van een specifieke variant gebruikmaken
* deze heet dan XXXX_V_SYNC..
@@ -36,6 +81,84 @@ SELECT
t.alg_terreinsector_code
FROM alg_v_aanwezigterreinsector t;
/* View met ALLE tekeningen, ongeacht de autorisatie; minimale kolommen, gebruikt in CAD_PAC.SRC */
CREATE_VIEW(cad_v_cad_tekening,0) AS
SELECT ins_discipline_key,
alg_locatie_key,
alg_verdieping_key,
cad_tekening_type,
cad_tekening_filenaam
FROM cad_tekening C_T
WHERE cad_tekening_verwijder IS NULL;
/* 29-06-1998 KTH LOG#1905
* View CAD_V_INS_DEEL wordt door de AutoCAD Map-user FCLTCAD geraadpleegd.
* Bij die user heet de SYNONYM ernaar toe anders (zie CAD_ROL).
*/
CREATE_VIEW(cad_v_ins_deel,0)
(ins_deel_key,
ins_deel_cadlabel,
ins_srtdeel_omschrijving,
ins_deel_oppervlak,
ins_deel_omtrek
) AS
SELECT D.ins_deel_key,
D.ins_deel_omschrijving,
SD.ins_srtdeel_omschrijving,
NVL(TO_CHAR(D.ins_deel_oppervlak),'-')||' m2',
NVL(TO_CHAR(D.ins_deel_omtrek),'-')||' m'
FROM all_v_aanwezigdeel D, ins_srtdeel SD
WHERE SD.ins_srtdeel_key=D.ins_srtdeel_key;
CREATE_VIEW(cad_v_lpn_ins_deel_2,0) AS
SELECT
D.ins_deel_key,
ins_srtkenmerk_omschrijving,
KD.ins_kenmerkdeel_waarde ||' '|| SK.ins_srtkenmerk_dimensie INS_KENMERKDEEL_WAARDE2
FROM
ins_srtkenmerk SK,
ins_kenmerk K,
ins_kenmerkdeel KD,
ins_deel D
WHERE SK.ins_srtkenmerk_key=K.ins_srtkenmerk_key
AND K.ins_kenmerk_key=KD.ins_kenmerk_key
AND KD.ins_deel_key=D.ins_deel_key
AND KD.ins_kenmerkdeel_verwijder IS NULL;
CREATE_VIEW(cad_v_lpn_ins_deel_1,0) AS
SELECT
D.ins_deel_key,
SD.ins_srtdeel_omschrijving,
D.ins_deel_omschrijving
FROM
ins_srtdeel SD,
ins_deel D
WHERE D.ins_srtdeel_key = SD.ins_srtdeel_key;
CREATE_VIEW(cad_v_prs_werkplek,0)
(prs_werkplek_key,
prs_werkplek_cadlabel,
prs_werkplek_volgnr,
prs_werkplek_omschrijving,
prs_werkplek_opp
) AS
SELECT W.prs_werkplek_key,
W.prs_werkplek_volgnr,
W.prs_werkplek_volgnr,
W.prs_werkplek_omschrijving,
W.prs_werkplek_opp /* Alleen een waarde indien prs_werkplek_vastopp 1 is, anders te traag? */
FROM prs_werkplek W;
CREATE_VIEW(cad_v_lpn_prs_werkplek_1,0) AS
SELECT W.prs_werkplek_key,
W.prs_werkplek_volgnr,
W.prs_werkplek_omschrijving
FROM prs_werkplek W;
/* Standard thema/label views */
// Zowel label-views als thema-views hebben de kolommen alg_ruimte_key en waarde
// Feature: Sommige thema views kunnen updatable zijn!

38
CARE/CARE_INI.SRC
View File

@@ -5,7 +5,7 @@
* $Id$
*/
_FAC_MODULE('CARE','lcl_module_CARE')
_FAC_MODULE('CARE','Care-Webb')
------------ De eenvoudige bedrijfsstructuur vormgeven via 3 nivo's: bedrijf, afdeling en subafdeling ------------
@@ -867,7 +867,7 @@ AND UPPER(FAC_LOCALEITEMS_LCL) = 'LCL_MLD_BEHANDELAAR';
-- BONS#31596: Iwmo factuurrapport via XSL
-- Rapport Iwmo) FACTUURrapport voor Iwmo:
-- Rapport Iwmo) FACTUURrapport voor Iwmo:
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving,
fac_usrrap_view_name,
@@ -1519,7 +1519,7 @@ INSERT INTO fac_usrrap
0
FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
-- Rapport R) FACTUURrapport met detailgegevens client per beschikking - variant R:
-- Rapport R) FACTUURrapport met detailgegevens client per beschikking - variant R:
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving,
fac_usrrap_view_name,
@@ -1566,8 +1566,8 @@ INSERT INTO fac_usrrap
fac_functie_key,
0
FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
-- BONS#36043: Totaallijst clienten in zorg (outerjoin uren):
-- BONS#36043: Totaallijst clienten in zorg (outerjoin uren):
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving,
fac_usrrap_view_name,
@@ -1586,28 +1586,8 @@ INSERT INTO fac_usrrap
'Totaal lijst cli<6C>nten in zorg (ook zonder uren)',
fac_functie_key,
0
FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
-- BONS#40385: Totaallijst clienten in zorg met medewerker (outerjoin uren):
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving,
fac_usrrap_view_name,
fac_usrrap_vraagbegindatum,
fac_usrrap_vraageinddatum,
fac_usrrap_functie,
fac_usrrap_info,
fac_functie_key,
fac_usrrap_autorefresh
)
SELECT 'Totaal lijst cli<6C>nten in zorg MDW',
'care_v_rap_tot_clientzorg_mdw',
0,
0,
1,
'Totaal lijst cli<6C>nten in zorg met gekoppelde medewerker',
fac_functie_key,
0
FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -2178,7 +2158,7 @@ FROM DUAL
CONNECT BY LEVEL <= 1*52+1;
INSERT INTO care_t_qvw_periodeweektabel
SELECT
SELECT
TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
DECODE(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 14, 13,FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1) periode,
TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
@@ -2186,7 +2166,7 @@ SELECT
FROM DUAL
CONNECT BY LEVEL <= 1*52+1
UNION
SELECT
SELECT
TO_CHAR (SYSDATE + 7*(LEVEL), 'IYYY') jaar,
DECODE(FLOOR((TO_CHAR (SYSDATE + 7*(LEVEL),'IW') - 1) /4) + 1, 14, 13,FLOOR((TO_CHAR (SYSDATE + 7*(LEVEL),'IW') - 1) /4) + 1) periode,
TO_CHAR (SYSDATE + 7*(LEVEL), 'IW') week,

462
CARE/CARE_VIE.SRC
View File

@@ -633,196 +633,183 @@ CREATE_VIEW( care_v_beschikking_all, 0)
ins_discipline_omschrijving
)
AS
SELECT m.mld_melding_key,
m.mld_melding_status,
gemeente.alg_locatie_key,
gemeente.alg_locatie_code,
gemeente.alg_locatie_omschrijving,
gemeente.alg_locatie_adres,
gemeente.alg_locatie_postcode,
gemeente.alg_locatie_plaats,
gemeente.alg_locatie_post_adres,
gemeente.alg_locatie_post_postcode,
gemeente.alg_locatie_post_plaats,
gemeente.alg_locatie_verantw,
(SELECT ok.alg_onrgoedkenmerk_waarde
FROM alg_onrgoedkenmerk ok
WHERE ok.alg_onrgoed_key = gemeente.alg_locatie_key
AND ok.alg_onrgoed_niveau = 'L'
AND ok.alg_kenmerk_key = 1004
AND ok.alg_onrgoedkenmerk_verwijder IS NULL),
(SELECT ok.alg_onrgoedkenmerk_waarde
FROM alg_onrgoedkenmerk ok
WHERE ok.alg_onrgoed_key = gemeente.alg_locatie_key
AND ok.alg_onrgoed_niveau = 'L'
AND ok.alg_kenmerk_key = 1005
AND ok.alg_onrgoedkenmerk_verwijder IS NULL),
gemeente.alg_locatie_x,
gemeente.alg_locatie_y,
gemeente.alg_locatie_veiling,
gemeente.gemeente_budget,
gemeente.gemeente_ob,
client.prs_perslid_key prs_client_key,
client.prs_perslid_naam prs_client_naam,
client.prs_perslid_tussenvoegsel prs_client_tussenvoegsel,
client.prs_perslid_voorletters prs_client_voorletters,
client.prs_perslid_voornaam prs_client_voornaam,
client.prs_perslid_nr prs_client_nr,
client.fac_profiel_key prs_client_cak_actie,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1020)
client_bsn,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1001)
client_meisjesnaam,
(SELECT DECODE (kl.prs_kenmerklink_waarde, 21, 'M', 22, 'V', NULL)
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1061)
client_mv,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1002)
client_geboortedatum,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1003)
client_adres,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1040)
client_huisnr,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1004)
client_postcode,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1005)
client_woonplaats,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1006)
client_telefoon_thuis,
client.prs_perslid_telefoonnr client_telefoon_werk,
client.prs_perslid_mobiel prs_client_mobiel,
client.prs_perslid_email prs_client_email,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1041)
client_bijzonderheden,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 2000)
client_contactpersonen,
m.mld_melding_datum beschikking_datum_van,
TO_NUMBER (TO_CHAR (m.mld_melding_datum, 'IW'))
beschikking_week_van,
TO_NUMBER (TO_CHAR (m.mld_melding_datum, 'IYYY'))
beschikking_jaar_van,
(TRUNC (mld_melding_datum)
- DECODE (TO_CHAR (mld_melding_datum, 'D'),
'1', 8,
TO_CHAR (mld_melding_datum, 'D'))
+ 2)
beschikking_maandag_van_std,
care.goodmonday_start (m.mld_melding_key) beschikking_maandag_van,
m.mld_melding_einddatum beschikking_datum_tot,
TO_NUMBER (TO_CHAR (m.mld_melding_einddatum, 'IW'))
beschikking_week_tot,
TO_NUMBER (TO_CHAR (m.mld_melding_einddatum, 'IYYY'))
beschikking_jaar_tot,
(TRUNC (mld_melding_einddatum) + 7
- DECODE (TO_CHAR (mld_melding_einddatum, 'D'),
'1', 8,
TO_CHAR (mld_melding_einddatum, 'D'))
+ 2)
beschikking_maandag_tot_std,
care.goodmonday_end (m.mld_melding_key) beschikking_maandag_tot,
fac.gettrackingdate ('MLDAFM', m.mld_melding_key),
m.prs_kostenplaats_key pgb,
(SELECT FAC.SAFE_TO_NUMBER (km.mld_kenmerkmelding_waarde)
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerkmelding_verwijder IS NULL
AND mld_kenmerk_key = 2)
product_code,
(SELECT ud.fac_usrdata_code
FROM mld_kenmerkmelding km, fac_usrdata ud
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerkmelding_verwijder IS NULL
AND mld_kenmerk_key = 2
AND ud.fac_usrdata_key =
FAC.SAFE_TO_NUMBER (km.mld_kenmerkmelding_waarde))
product,
COALESCE (
(SELECT FAC.SAFE_TO_NUMBER (km.mld_kenmerkmelding_waarde)
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerkmelding_verwijder IS NULL
AND mld_kenmerk_key = 4),
0)
tarief,
(SELECT FAC.SAFE_TO_NUMBER (km.mld_kenmerkmelding_waarde)
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerkmelding_verwijder IS NULL
AND mld_kenmerk_key = 3)
uren_beschikking,
(SELECT km.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerkmelding_verwijder IS NULL
AND mld_kenmerk_key = 1)
beschikking_nr,
mld_melding_omschrijving,
std.mld_ins_discipline_key,
ins_discipline_omschrijving
FROM care_v_gemeente gemeente,
prs_perslid client,
mld_melding m,
mld_stdmelding std,
ins_tab_discipline d
WHERE m.mld_alg_locatie_key = gemeente.alg_locatie_key
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND m.mld_melding_status <> 1
AND d.ins_discipline_key = std.mld_ins_discipline_key
AND d.ins_srtdiscipline_key = 1
AND m.prs_perslid_key = client.prs_perslid_key;
SELECT m.mld_melding_key,
m.mld_melding_status,
gemeente.alg_locatie_key,
gemeente.alg_locatie_code,
gemeente.alg_locatie_omschrijving,
gemeente.alg_locatie_adres,
gemeente.alg_locatie_postcode,
gemeente.alg_locatie_plaats,
gemeente.alg_locatie_post_adres,
gemeente.alg_locatie_post_postcode,
gemeente.alg_locatie_post_plaats,
gemeente.alg_locatie_verantw,
(SELECT ok.alg_onrgoedkenmerk_waarde
FROM alg_onrgoedkenmerk ok
WHERE ok.alg_onrgoed_key = gemeente.alg_locatie_key
AND ok.alg_onrgoed_niveau = 'L'
AND ok.alg_kenmerk_key = 1004
AND ok.alg_onrgoedkenmerk_verwijder IS NULL),
(SELECT ok.alg_onrgoedkenmerk_waarde
FROM alg_onrgoedkenmerk ok
WHERE ok.alg_onrgoed_key = gemeente.alg_locatie_key
AND ok.alg_onrgoed_niveau = 'L'
AND ok.alg_kenmerk_key = 1005
AND ok.alg_onrgoedkenmerk_verwijder IS NULL),
gemeente.alg_locatie_x,
gemeente.alg_locatie_y,
gemeente.alg_locatie_veiling,
gemeente.gemeente_budget,
gemeente.gemeente_ob,
client.prs_perslid_key prs_client_key,
client.prs_perslid_naam prs_client_naam,
client.prs_perslid_tussenvoegsel prs_client_tussenvoegsel,
client.prs_perslid_voorletters prs_client_voorletters,
client.prs_perslid_voornaam prs_client_voornaam,
client.prs_perslid_nr prs_client_nr,
client.fac_profiel_key prs_client_cak_actie,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1020)
client_bsn,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1001)
client_meisjesnaam,
(SELECT DECODE (kl.prs_kenmerklink_waarde, 21, 'M', 22, 'V', NULL)
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1061)
client_mv,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1002)
client_geboortedatum,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1003)
client_adres,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1040)
client_huisnr,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1004)
client_postcode,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1005)
client_woonplaats,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1006)
client_telefoon_thuis,
client.prs_perslid_telefoonnr client_telefoon_werk,
client.prs_perslid_mobiel prs_client_mobiel,
client.prs_perslid_email prs_client_email,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 1041)
client_bijzonderheden,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = client.prs_perslid_key
AND kl.prs_kenmerklink_niveau = 'P'
AND kl.prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = 2000)
client_contactpersonen,
m.mld_melding_datum beschikking_datum_van,
TO_NUMBER (TO_CHAR (m.mld_melding_datum, 'IW')) beschikking_week_van,
TO_NUMBER (TO_CHAR (m.mld_melding_datum, 'IYYY')) beschikking_jaar_van,
( TRUNC (mld_melding_datum)
- DECODE (TO_CHAR (mld_melding_datum, 'D'), '1', 8, TO_CHAR (mld_melding_datum, 'D'))
+ 2)
beschikking_maandag_van_std,
care.goodmonday_start(m.mld_melding_key) beschikking_maandag_van,
m.mld_melding_einddatum beschikking_datum_tot,
TO_NUMBER (TO_CHAR (m.mld_melding_einddatum, 'IW')) beschikking_week_tot,
TO_NUMBER (TO_CHAR (m.mld_melding_einddatum, 'IYYY')) beschikking_jaar_tot,
( TRUNC (mld_melding_einddatum)
+ 7
- DECODE (TO_CHAR (mld_melding_einddatum, 'D'), '1', 8, TO_CHAR (mld_melding_einddatum, 'D'))
+ 2)
beschikking_maandag_tot_std,
care.goodmonday_end(m.mld_melding_key) beschikking_maandag_tot,
fac.gettrackingdate ('MLDAFM', m.mld_melding_key),
m.prs_kostenplaats_key pgb,
(SELECT TO_NUMBER (km.mld_kenmerkmelding_waarde)
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerkmelding_verwijder IS NULL
AND mld_kenmerk_key = 2)
product_code,
(SELECT ud.fac_usrdata_code
FROM mld_kenmerkmelding km, fac_usrdata ud
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerkmelding_verwijder IS NULL
AND mld_kenmerk_key = 2
AND ud.fac_usrdata_key = TO_NUMBER (km.mld_kenmerkmelding_waarde))
product,
COALESCE(
(SELECT TO_NUMBER (km.mld_kenmerkmelding_waarde)
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerkmelding_verwijder IS NULL
AND mld_kenmerk_key = 4), 0) tarief,
(SELECT TO_NUMBER (km.mld_kenmerkmelding_waarde)
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerkmelding_verwijder IS NULL
AND mld_kenmerk_key = 3)
uren_beschikking,
(SELECT km.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding km
WHERE km.mld_melding_key = m.mld_melding_key
AND km.mld_kenmerkmelding_verwijder IS NULL
AND mld_kenmerk_key = 1)
beschikking_nr,
mld_melding_omschrijving,
std.mld_ins_discipline_key,
ins_discipline_omschrijving
FROM care_v_gemeente gemeente, prs_perslid client, mld_melding m, mld_stdmelding std, ins_tab_discipline d
WHERE m.mld_alg_locatie_key = gemeente.alg_locatie_key
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND m.mld_melding_status <> 1
AND d.ins_discipline_key = std.mld_ins_discipline_key
AND d.ins_srtdiscipline_key = 1
AND m.prs_perslid_key = client.prs_perslid_key;
-- Deze view is de totale view van alle productieve, bestede uren op beschikkingen, op welke opdracht, door wie op welk moment
@@ -4245,100 +4232,7 @@ AS
beschikking_datum_tot,
product,
uren_beschikking;
-- view die ook de gekoppelde medewerker per opdracht laat zien
CREATE_VIEW( care_v_rap_tot_clientzorg_mdw, 0)
(
fclt_f_periode,
fclt_f_gemeente,
fclt_f_status,
bsn,
voorletters,
tussenvoegsel,
naam,
meisjes_naam,
naam2,
geboortedatum,
geslacht,
straat,
huisnummer,
postcode,
woonplaats,
telefoonnummer,
mobielnummer,
contactpersoon,
email,
opmerking,
bijzonderheden,
beschikkingsnummer,
fclt_f_start_indicatie,
eind_indicatie,
soort_hv,
indicatie_uren,
uren_besteed,
fclt_f_medewerker
)
AS
SELECT COALESCE (periode, 'nvt'),
gemeente_omschrijving,
DECODE (mld_melding_status, 5, 'Afgemeld', 6, 'Afgemeld', 'Open')
status,
MIN (client_bsn),
prs_client_voorletters,
prs_client_tussenvoegsel,
prs_client_naam,
MIN (client_meisjesnaam),
b.prs_client_naam
|| ','
|| b.prs_client_voorletters
|| ' '
|| b.prs_client_tussenvoegsel,
MIN (client_geboortedatum),
MIN (client_mv),
MIN (client_adres),
MIN (client_huisnr),
MIN (client_postcode),
MIN (client_woonplaats),
MIN (client_telefoon_thuis),
MIN (prs_client_mobiel),
MIN (client_contactpersonen),
MIN (prs_client_email),
MIN (beschikking_omschr),
MIN (client_bijzonderheden),
beschikking_nr,
beschikking_datum_van,
beschikking_datum_tot,
product,
uren_beschikking,
SUM (uur.uren_besteed) besteed,
p.prs_perslid_naam_full
FROM care_v_beschikking_all b,
(SELECT mld_melding_key,
mld_opdr_key,
jaar || '-' || LPAD (periodenr, 2, '0') periode,
uren_besteed
FROM care_v_bestede_uren_all
WHERE uren_status = 3) uur,
mld_opdr o,
prs_v_perslid_fullnames_all p
WHERE mld_melding_status != 1
AND pgb IS NULL
AND uur.mld_melding_key(+) = b.mld_melding_key
AND o.mld_opdr_key(+) = uur.mld_opdr_key
AND o.mld_uitvoerende_keys = p.prs_perslid_key
GROUP BY periode,
gemeente_omschrijving,
mld_melding_status,
prs_client_naam,
prs_client_voorletters,
prs_client_tussenvoegsel,
beschikking_nr,
beschikking_datum_van,
beschikking_datum_tot,
product,
uren_beschikking,
p.prs_perslid_naam_full;
-- mbmb
-- Rapport Q) FACTUURrapport voor de gemaakte uren per datum - variant Q (Bernisse):
CREATE_VIEW( care_v_rap2_factuur_uren_q, 0)

4
CNT/CNT_IND.SRC
View File

@@ -21,8 +21,10 @@ create index cnt_i_cnt_contract_plaats2 on cnt_contract_plaats(cnt_contract_key)
create index cnt_i_cnt_contract_object1 on cnt_contract_object(cnt_contract_key);
CREATE INDEX cnt_i_cnt_contract_object2 ON cnt_contract_object(cnt_ins_deel_key);
CREATE INDEX cnt_i_cnt_contract_onrg1 ON cnt_contract_onrgoed(cnt_contract_key);
CREATE INDEX cnt_i_cnt_contract_onrg2 ON cnt_contract_onrgoed(alg_onrgoed_key);
CREATE INDEX cnt_i_cnt_contract_note1 ON cnt_contract_note(cnt_contract_key);
CREATE UNIQUE INDEX cnt_i_cnt_factuurschema1 ON cnt_factuurschema(cnt_contract_key, cnt_factuurschema_boekmaand);
REGISTERONCE('$Id$')

11
CNT/CNT_INI.SRC
View File

@@ -5,7 +5,7 @@
/*
** Bij installatie van modules moet de tabel FAC_MODULE gevuld of ge-update worden.
*/
_FAC_MODULE('CNT','lcl_module_CNT')
_FAC_MODULE('CNT','Contractbeheer')
/*
** De MESSAGES van de CNT module.
@@ -63,7 +63,16 @@ DEF_FAC_MESSAGE ('cnt_r_cnt_contract_stdmld' ,'De aangegeven dienst bestaat n
DEF_FAC_MESSAGE ('cnt_r_cnt_contract_bedrijf' ,'Het aangegeven bedrijf bestaat niet.' ,'That company does not exist.');
DEF_FAC_MESSAGE ('cnt_r_cnt_contractint' ,'De aangegeven interne contactpersoon bestaat niet.' ,'That internal contact person does not exist');
INSERT INTO cnt_mutatie_status VALUES (0, 'Vervallen');
INSERT INTO cnt_mutatie_status VALUES (1, 'Open');
INSERT INTO cnt_mutatie_status VALUES (2, 'Concept');
INSERT INTO cnt_mutatie_status VALUES (3, 'Ontvangen/Ok');
INSERT INTO cnt_mutatie_status VALUES (4, 'Ontvangen/NietOk');
INSERT INTO cnt_mutatie_status VALUES (5, 'Voltooid');
INSERT INTO cnt_mutatie_status VALUES (6, 'Geexporteerd');
INSERT INTO cnt_typecontract VALUES (1, 'Onderhoud/Maintenance');
INSERT INTO cnt_typecontract VALUES (2, 'Huur/Rental');
INSERT INTO cnt_typecontract VALUES (3, 'Ondersteuning/Support');
INSERT INTO cnt_typecontract VALUES (4, 'Algemeen/Generic');
INSERT INTO cnt_typecontract VALUES (5, 'Leverancier/Supplier');

163
CNT/CNT_PAC.SRC
View File

@@ -11,15 +11,16 @@ CREATE OR REPLACE PACKAGE cnt AS
FUNCTION cnt_getOpzegdatum (pcnt_contract_key IN NUMBER) RETURN DATE;
FUNCTION cnt_getRappeldatum (pcnt_contract_key IN NUMBER) RETURN DATE;
FUNCTION cnt_contract_status (van IN DATE, rappel IN DATE, opzeg IN DATE, tot IN DATE) RETURN NUMBER;
FUNCTION cnt_contract_items (cntKey IN NUMBER) RETURN VARCHAR2;
PROCEDURE cnt_complete_mutatie(p_mutaite_key IN NUMBER);
PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_amount NUMBER);
PROCEDURE generatefactuurschema (pcontractkey IN NUMBER,ptermijnbedrag IN NUMBER DEFAULT NULL);
FUNCTION getnieuwsteversiekey(p_key IN NUMBER) RETURN NUMBER;
FUNCTION sprintf (ps IN VARCHAR2 , p_contract_key IN NUMBER) RETURN VARCHAR2;
PRAGMA RESTRICT_REFERENCES (cnt_contract_items, WNDS, WNPS);
PRAGMA RESTRICT_REFERENCES (cnt_contract_status, WNDS, WNPS);
END cnt;
END Cnt;
/
CREATE OR REPLACE PACKAGE BODY cnt AS
@@ -232,6 +233,104 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
RETURN 4;
END;
FUNCTION cnt_contract_items (cntKey IN NUMBER)
RETURN VARCHAR2
AS
ret VARCHAR2(512);
var_ckey NUMBER;
CURSOR query(cntKey NUMBER) IS
SELECT 1 ckey, S.INS_SRTDEEL_CODE || ' ' ||S.INS_SRTDEEL_OMSCHRIJVING cntText
from CNT_CONTRACT_OBJECT O, INS_V_AANWEZIGSRTDEEL S
WHERE O.CNT_CONTRACT_KEY = cntKey
AND S.ins_srtdeel_key = O.cnt_ins_srtdeel_key
AND O.cnt_ins_DEEL_key IS NULL
UNION
SELECT 2 ckey, D.INS_DEEL_OMSCHRIJVING cntText
from CNT_CONTRACT_OBJECT O, INS_V_AANWEZIGDEEL D
WHERE O.CNT_CONTRACT_KEY = cntKey
AND D.ins_DEEL_key = O.cnt_ins_DEEL_key
UNION
SELECT 3 ckey, g.alg_locatie_omschrijving cntText
FROM alg_v_aanweziglocatie g, CNT_v_aanwezigCONTRACT_PLAATS P
WHERE p.CNT_CONTRACT_KEY = cntKey
AND p.cnt_alg_plaats_key = g.alg_locatie_key
AND p.CNT_ALG_PLAATS_CODE = 'L'
UNION
SELECT 4 ckey, l.alg_locatie_omschrijving || ' ' ||g.alg_gebouw_omschrijving cntText
FROM alg_v_aanweziggebouw g, CNT_v_aanwezigCONTRACT_PLAATS P, alg_locatie l
WHERE p.CNT_CONTRACT_KEY = cntKey
AND p.cnt_alg_plaats_key = g.alg_gebouw_key
AND p.CNT_ALG_PLAATS_CODE = 'G'
AND l.alg_locatie_key = g.alg_locatie_key
UNION
SELECT 5 ckey, l.alg_locatie_omschrijving || ' ' ||alg_terreinsector_naam cntText
FROM alg_v_aanwezigterreinsector T, CNT_v_aanwezigCONTRACT_PLAATS P, alg_locatie l
WHERE p.CNT_CONTRACT_KEY = cntKey
AND p.cnt_alg_plaats_key = T.alg_terreinsector_key
AND p.CNT_ALG_PLAATS_CODE = 'T'
AND l.alg_locatie_key = t.alg_locatie_key
ORDER BY 2;
BEGIN
ret := null;
var_ckey := -1;
FOR cntitem_rec IN query(cntKey) LOOP
IF var_ckey = -1 THEN
ret := cntitem_rec.cntText;
ELSE
IF LENGTH(ret)+LENGTH(cntitem_rec.cntText)<(512-5) THEN
ret := ret || CHR(10) || cntitem_rec.cntText;
ELSE
ret := ret || CHR(10) || '...';
RETURN ret;
END IF;
END IF;
var_ckey := cntitem_rec.ckey;
END LOOP;
RETURN ret;
END;
PROCEDURE cnt_complete_mutatie(p_mutaite_key IN NUMBER)
IS
-- The following actions should be executed when the state becomes 'Voltooid':
-- Find the matching records in the CNT_CONTRACT_ONRGOED table where one row without a mutation_key
-- filled in matches a row with a mutation_key filled in.
-- The match will be successful if both rows have the same ALG_ONRGOED_KEY,
-- the same ALG_ONRGOED_NIVEAU and the same CNT_CONTRACT_KEY.
-- From these matching records the one without CNT_MUTATION_KEY should be deleted
BEGIN
DELETE
cnt_contract_onrgoed
WHERE cnt_contract_onrgoed_key IN (
SELECT a.cnt_contract_onrgoed_key
FROM cnt_contract_onrgoed b, cnt_contract_onrgoed a
WHERE a.cnt_contract_key = b.cnt_contract_key
AND a.alg_onrgoed_key = b.alg_onrgoed_key
AND a.alg_onrgoed_niveau = b.alg_onrgoed_niveau
AND b.cnt_mutatie_key = p_mutaite_key
AND a.cnt_mutatie_key IS NULL);
-- Delete the entries in the CNT_CONTRACT_ONRGOED table with the mutation_key equal
-- to the CNT_MUTATION that will be accepted and where the area size (CNT_CONTRACT_ONRGOED_OPP) = 0.
DELETE
cnt_contract_onrgoed
WHERE cnt_mutatie_key = p_mutaite_key
AND CNT_CONTRACT_ONRGOED_OPP = 0;
-- Set the Mutation_key to NULL from the rows where the CNT_MUTATION_KEY will be equal to the CNT_MUTATION that was accepted.
UPDATE
cnt_contract_onrgoed
SET cnt_mutatie_key = NULL
WHERE cnt_mutatie_key = p_mutaite_key;
-- The state of the mutation should be set to 'Voltooid'
UPDATE cnt_mutatie
SET CNT_MUTATIE_DATUM_VOLTOOID = SYSDATE,
CNT_MUTATIE_STATUS = 5
WHERE cnt_mutatie_key = p_mutaite_key;
END cnt_complete_mutatie;
PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_amount NUMBER)
IS
begin1 DATE;
@@ -243,8 +342,8 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
srtcontract_type cnt_disc_params.cnt_srtcontract_type%TYPE;
new_status cnt_contract.cnt_contract_status%TYPE;
BEGIN
-- Splits het contract met p_key in twee delen: het oude dat eindigt op p_datum - 1,
-- en een nieuwe kopie die begint op die p_datum
-- Splits het contract met p_key in twee delen: het oude dat eindigt op p_datum,
-- en een nieuwe kopie die begint op die datum
-- p_amount is -optioneel- het bedrag dat bij het oude contract moeten blijven
-- de rest komt bij de nieuwe. Als p_amount NULL is, eindigen beide contracten
-- met het originele bedrag.
@@ -367,6 +466,18 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
FROM cnt_contract_object cob
WHERE cob.cnt_contract_key = p_key AND cob.cnt_contract_object_verwijder IS NULL;
--cnt_contract_onrgoed
INSERT INTO cnt_contract_onrgoed (cnt_contract_key, alg_onrgoed_key, alg_onrgoed_niveau, alg_srtonrgoed_key, cnt_contract_onrgoed_opp, cnt_srtruimte_prijs
)
SELECT newkey,
cog.alg_onrgoed_key,
cog.alg_onrgoed_niveau,
cog.alg_srtonrgoed_key,
cog.cnt_contract_onrgoed_opp,
cog.cnt_srtruimte_prijs
FROM cnt_contract_onrgoed cog
WHERE cog.cnt_contract_key = p_key AND cog.cnt_mutatie_key IS NULL;
--cnt_contract_plaats
INSERT INTO cnt_contract_plaats (cnt_contract_key, cnt_alg_plaats_code, cnt_alg_plaats_key, cnt_contract_plaats_gewicht
)
@@ -388,52 +499,12 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
--cnt_factuurschema: splitst op dezelfde grensdatum
UPDATE cnt_factuurschema
SET cnt_contract_key = newkey
WHERE cnt_contract_key = p_key
AND cnt_factuurschema_boekmaand >= TO_CHAR(p_datum, 'YYYY-MM');
WHERE cnt_contract_key = p_key AND cnt_factuurschema_datum > p_datum;
fac.trackaction ('CNTNEW', newkey, p_user, NULL, NULL);
END splitscontract;
-- Genereer een factuurschema met een gelijk bedrag per maand gedurende
-- de looptijd van het contract
-- Verondersteld dat er nog geen schema was.
PROCEDURE generatefactuurschema (
pcontractkey IN NUMBER,
ptermijnbedrag IN NUMBER DEFAULT NULL)
AS
maanden NUMBER (10);
maand NUMBER (10);
ltermijnbedrag cnt_factuurschema.cnt_factuurschema_bedrag%TYPE;
BEGIN
FOR cnt_rec
IN (SELECT cnt_contract_kosten,
cnt_contract_looptijd_tot,
cnt_contract_looptijd_van
FROM cnt_contract
WHERE cnt_contract_key = pcontractkey)
LOOP
maanden :=
1
+ TRUNC(MONTHS_BETWEEN (cnt_rec.cnt_contract_looptijd_tot,
cnt_rec.cnt_contract_looptijd_van));
ltermijnbedrag :=
COALESCE (ptermijnbedrag, cnt_rec.cnt_contract_kosten / maanden);
FOR maand IN 0 .. maanden - 1
LOOP
INSERT INTO cnt_factuurschema (cnt_contract_key,
cnt_factuurschema_boekmaand,
cnt_factuurschema_bedrag)
VALUES (pcontractkey,
TO_CHAR (
ADD_MONTHS (cnt_rec.cnt_contract_looptijd_van, maand),
'YYYY-MM'),
ltermijnbedrag);
END LOOP;
END LOOP;
END;
-- Zoek de key van de hoogste revisie van het meegegeven contract
-- Beseffende dat _versie een oplopende reeks is en hopende dat
-- nummer_intern hetzelfde blijft over versies en vrij uniek is

3
CNT/CNT_SEQ.SRC
View File

@@ -16,6 +16,9 @@ CREATE SEQUENCE cnt_s_cnt_srtkenmerk_key MINVALUE 1;
CREATE SEQUENCE cnt_s_cnt_kenmerk_key MINVALUE 1;
CREATE SEQUENCE cnt_s_cnt_kenmerkcontract_key MINVALUE 1;
CREATE SEQUENCE cnt_s_cnt_onrgoed_key MINVALUE 1;
CREATE SEQUENCE cnt_s_cnt_mutatie_key MINVALUE 1;
CREATE SEQUENCE cnt_s_cnt_contract_note_key MINVALUE 1;
CREATE SEQUENCE cnt_s_cnt_factuurschema_key MINVALUE 1;

79
CNT/CNT_TAB.SRC
View File

@@ -44,10 +44,6 @@ CREATE_TABLE(cnt_disc_params, 0)
CONSTRAINT cnt_r_cnt_typecontract_key REFERENCES cnt_typecontract(cnt_typecontract_key),
cnt_disc_params_opmerking
VARCHAR2(320),
cnt_disc_params_factuurschema
NUMBER(1)
DEFAULT 0
NOT NULL,
cnt_disc_params_factuurmarge
NUMBER(8,2)
DEFAULT 0,
@@ -258,9 +254,10 @@ ALTER TABLE mld_opdr ADD
);
ALTER TABLE mld_opdr DROP CONSTRAINT mld_r_mld_melding_key1;
ALTER TABLE mld_opdr ADD
(
CONSTRAINT mld_r_mld_melding_key3 CHECK(mld_melding_key IS NOT NULL OR cnt_contract_key IS NOT NULL OR prs_kostensoort_key IS NOT NULL)
CONSTRAINT MLD_R_MLD_MELDING_KEY3 CHECK(mld_melding_key IS NOT NULL OR cnt_contract_key IS NOT NULL)
);
CREATE_TABLE(cnt_srtkenmerk, 0)
@@ -297,7 +294,7 @@ CREATE_TABLE(cnt_srtkenmerk, 0)
, CONSTRAINT cnt_c_cnt_srtkenmerk_omschr CHECK(cnt_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT cnt_srtkenmerk_omschrijving CHECK(cnt_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT cnt_u_cnt_srtkenmerk_upper UNIQUE(cnt_srtkenmerk_upper, cnt_srtkenmerk_verwijder)
, CONSTRAINT cnt_c_cnt_srtkenmerk_kenmtype CHECK(cnt_srtkenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
, CONSTRAINT cnt_c_cnt_srtkenmerk_kenmtype CHECK(cnt_srtkenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
, CONSTRAINT cnt_c_cnt_srtkenmerk_systeem CHECK(cnt_srtkenmerk_systeem IS NULL
OR cnt_srtkenmerk_systeem = 1)
, CONSTRAINT cnt_c_cnt_srtkenmerk_lengte CHECK(cnt_srtkenmerk_lengte >= 1
@@ -379,6 +376,65 @@ CREATE_TABLE(cnt_kenmerkcontract, 0)
, CONSTRAINT cnt_r_kenmerk_contract FOREIGN KEY (cnt_contract_key) REFERENCES cnt_contract(cnt_contract_key) ON DELETE CASCADE
);
CREATE_TABLE(cnt_mutatie, 0)
( cnt_mutatie_key NUMBER(10)
CONSTRAINT cnt_k_cnt_mutatie_key PRIMARY KEY,
cnt_mutatie_omschrijving VARCHAR2(50),
cnt_mutatie_datum DATE,
cnt_mutatie_datum_concept DATE,
cnt_mutatie_datum_ontvangen DATE,
cnt_mutatie_datum_voltooid DATE,
cnt_mutatie_datum_ingang DATE,
prs_perslid_key NUMBER(10)
CONSTRAINT cnt_r_prs_perslid_key REFERENCES prs_perslid(prs_perslid_key),
cnt_mutatie_status NUMBER(1) -- Open = 1 Concept = 2 OntvangenOK = 3 OntvangenNOK = 4 Voltooid = 5
);
CREATE_TABLE(cnt_mutatie_status,0)
(
cnt_mutatie_status
NUMBER(10)
CONSTRAINT cnt_k_cnt_mutatie_status_key PRIMARY KEY,
cnt_mutatie_status_omschrijv
VARCHAR2(30)
);
CREATE_TABLE(cnt_contract_onrgoed, 0)
( cnt_contract_onrgoed_key
NUMBER(10)
CONSTRAINT cnt_k_cnt_contract_onrgoed_key PRIMARY KEY,
cnt_contract_key
NUMBER(10)
CONSTRAINT cnt_r_cnt_contract_key REFERENCES cnt_contract(cnt_contract_key),
alg_onrgoed_key
NUMBER(10),
alg_onrgoed_niveau
VARCHAR2(1)
CONSTRAINT cnt_c_cnt_onrgoed_niveau CHECK(alg_onrgoed_niveau IN ('R', 'T')),
cnt_mutatie_key
NUMBER(10)
CONSTRAINT cnt_r_cnt_mutatie_key REFERENCES cnt_mutatie(cnt_mutatie_key) on delete cascade,
cnt_contract_onrgoed_opp
NUMBER(8,2),
alg_srtonrgoed_key
NUMBER(10),
cnt_mld_melding_key
NUMBER(10)
CONSTRAINT cnt_r_mld_melding_key REFERENCES mld_melding(mld_melding_key),
cnt_mutatie_status_key
NUMBER(10)
DEFAULT 1
CONSTRAINT cnt_r_cnt_mutatie_status REFERENCES cnt_mutatie_status(cnt_mutatie_status),
cnt_srtruimte_prijs
NUMBER(8,2),
cnt_contract_onrgoed_key_org
NUMBER(10)
CONSTRAINT cnt_r_cnt_contract_onrgoed_key REFERENCES cnt_contract_onrgoed(cnt_contract_onrgoed_key)
);
CREATE_TABLE(cnt_contract_note, 0)
(
cnt_contract_note_key NUMBER (10) PRIMARY KEY,
@@ -396,15 +452,12 @@ CREATE_TABLE(cnt_factuurschema , 0)
NUMBER(10)
NOT NULL
CONSTRAINT cnt_r_cnt_factuurschema1 REFERENCES cnt_contract(cnt_contract_key),
cnt_factuurschema_boekmaand /* format YYYY-MM */
VARCHAR2(7),
cnt_factuurschema_datum
DATE,
cnt_factuurschema_bedrag
NUMBER(11,2),
cnt_factuurschema_opmerking
VARCHAR2(320),
cnt_factuurschema_aanmaak
DATE
DEFAULT SYSDATE
cnt_factuurschema_referentie
VARCHAR2(20)
);
REGISTERONCE('$Id$')

48
CNT/CNT_TRI.SRC
View File

@@ -3,16 +3,6 @@
* $Id$
*/
AUDIT_BEGIN(cnt_disc_params)
AUDIT_VALUE(cnt_disc_params, cnt_srtcontract_type)
AUDIT_VALUE(cnt_disc_params, cnt_disc_params_factuurschema)
AUDIT_VALUE(cnt_disc_params, cnt_disc_params_factuurpct)
AUDIT_VALUE(cnt_disc_params, cnt_disc_params_factuurmarge)
AUDIT_VALUE(cnt_disc_params, cnt_disc_params_factuurappr)
AUDIT_VALUE(cnt_disc_params, cnt_disc_params_factuurgrens)
AUDIT_VALUE(cnt_disc_params, cnt_disc_params_opmerking)
AUDIT_END()
CREATE_TRIGGER(cnt_t_cnt_disc_params_b_iu)
BEFORE INSERT OR UPDATE ON cnt_disc_params
FOR EACH ROW
@@ -85,6 +75,14 @@ BEGIN
SET_VERWIJDER_CHILDREN(cnt_contract_object,cnt_contract_key,cnt_contract_verwijder,cnt_contract_object_verwijder,cnt_contract);
SET_VERWIJDER_CHILDREN(cnt_contract_plaats,cnt_contract_key,cnt_contract_verwijder,cnt_contract_plaats_verwijder,cnt_contract);
BEGIN IF :new.cnt_contract_verwijder IS NOT NULL
OR ( :new.cnt_contract_verwijder IS NULL
AND :old.cnt_contract_verwijder IS NOT NULL)
THEN
DELETE cnt_contract_onrgoed
WHERE cnt_contract_onrgoed.cnt_contract_key = :new.cnt_contract_key;
END IF;
END;
END;
/
@@ -141,18 +139,20 @@ BEGIN
raise_application_error(-20003, 'CNT_C_CNT_SRTKENMERK_SYSTEEM');
END IF;
--
IF :new.cnt_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.cnt_srtkenmerk_lengte IS NULL
IF (:new.cnt_srtkenmerk_kenmerktype = 'C'
OR :new.cnt_srtkenmerk_kenmerktype = 'N')
AND :new.cnt_srtkenmerk_lengte IS NULL
THEN
raise_application_error(-20000, 'CNT_C_CNT_SRTKENMERK_LENGTE');
END IF;
-- Numeriek mag niet te lang zijn (numeric overflow)
IF :new.cnt_srtkenmerk_kenmerktype IN ('N', 'B')
IF :new.cnt_srtkenmerk_kenmerktype = 'N'
AND :new.cnt_srtkenmerk_lengte > 20
THEN
:new.cnt_srtkenmerk_lengte := 20;
END IF;
--
IF :new.cnt_srtkenmerk_kenmerktype IN ('N', 'B')
IF :new.cnt_srtkenmerk_kenmerktype = 'N'
AND :old.cnt_srtkenmerk_key IS NOT NULL
THEN
IF :old.cnt_srtkenmerk_nmin <> :new.cnt_srtkenmerk_nmin
@@ -277,7 +277,7 @@ BEGIN
THEN
APPLICATION_ERROR_GOTO(-20004, 'cnt_m241,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
END IF;
ELSIF SrtKenmerkType IN ('N', 'B')
ELSIF SrtKenmerkType = 'N'
THEN
-- NUMBER
-- Controleer of er een numerieke waarde ingevuld is.
@@ -331,6 +331,26 @@ BEGIN
END;
/
CREATE_TRIGGER(cnt_t_cnt_contract_onrg_B_IU)
BEFORE INSERT OR UPDATE ON cnt_contract_onrgoed
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(cnt_contract_onrgoed_key,cnt_s_cnt_onrgoed_key);
END;
/
CREATE_TRIGGER(cnt_t_cnt_mutatie_B_IU)
BEFORE INSERT OR UPDATE ON cnt_mutatie
FOR EACH ROW
BEGIN
:new.cnt_mutatie_datum := SYSDATE;
UPDATE_PRIMARY_KEY(cnt_mutatie_key,cnt_s_cnt_mutatie_key);
IF :new.cnt_mutatie_key IS NOT NULL AND :old.cnt_mutatie_key IS NULL THEN
:new.cnt_mutatie_datum_ingang := SYSDATE;
END IF;
END;
/
CREATE_TRIGGER(cnt_t_cnt_termijn_B_IU)
BEFORE INSERT OR UPDATE ON cnt_termijn
FOR EACH ROW

1213
CNT/CNT_VIE.SRC
View File

File diff suppressed because it is too large Load Diff

46
COMSQL.H
View File

@@ -21,10 +21,10 @@
* It is now defined by external macro _DBV
*/
/* The minimum required software version */
#define _VERSIONMAJ 2017
#define _VERSIONMIN 2
#define _VERSIONMAJ 2016
#define _VERSIONMIN 1
#define _VERSIONPATCH '0'
#define _VERSION '2017.2.0'
#define _VERSION '2016.1.0'
#define _DBV_STRING _MKSTRING(_DBV)
#define REGISTERONCE(svnid) \
@@ -632,7 +632,6 @@ CEIL
#define UPD_FAC_FUNCTIE(c, o, m, l) UPDATE fac_functie SET fac_functie_omschrijving=0,fac_functie_module=m,fac_functie_min_level=l) WHERE fac_functie_code=c
#define DEF_FAC_FUNCTIE2(c, o, m, l, d, g, i) INSERT INTO fac_functie (fac_functie_code, fac_functie_omschrijving,fac_functie_module,fac_functie_min_level, fac_functie_discipline, fac_functie_groep, fac_functie_info) VALUES(c, o, m, l, d, g, i)
#define UPD_FAC_FUNCTIE2(c, o, m, l, d, g, i) UPDATE fac_functie SET fac_functie_omschrijving=0,fac_functie_module=m,fac_functie_min_level=l, fac_functie_discipline=d, fac_functie_groep=g, fac_functie_info=i) WHERE fac_functie_code=c
#define DEF_FAC_FUNCTIE3(c, m, l, d, g) INSERT INTO fac_functie (fac_functie_code, fac_functie_omschrijving,fac_functie_module,fac_functie_min_level, fac_functie_discipline, fac_functie_groep, fac_functie_info) VALUES(c, 'lcl_' || c, m, l, d, g, 'lcl_' || c || '_info')
#define DEF_FAC_SRTNOT(c, m, o, u, g, x, d) INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode, fac_srtnotificatie_delay) VALUES (c, m, o, u, g, x, d)
#define DEF_MENUKOP(g, s) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_level) SELECT COALESCE(MAX(fac_menuitems_key),0)*100+50, s, g, 1 FROM fac_menuitems
@@ -701,43 +700,4 @@ END; ~\
/ ~ \
COMMIT;
#define AUDIT_BEGIN(table) ~\
CREATE OR REPLACE TRIGGER aud_t_##table## ~\
AFTER UPDATE OR DELETE ON table ~\
FOR EACH ROW ~\
DECLARE ~\
isdeleting NUMBER(1) := 0; ~\
BEGIN ~\
IF DELETING THEN ~\
isdeleting := 1; ~\
END IF;
#define AUDIT_VALUE_K(table, tablekey, column) ~\
aud.auditaction(STRINGIZE(table), ~\
:old.tablekey, ~\
:new.tablekey, ~\
STRINGIZE(column), ~\
:old.column, ~\
:new.column, ~\
isdeleting);
#define AUDIT_VALUE(table, column) ~\
AUDIT_VALUE_K(table, table##_key, column)
#define AUDIT_DELETE(table, column) ~\
IF DELETING THEN ~\
aud.auditaction(STRINGIZE(table), ~\
:old.table##_key, ~\
:new.table##_key, ~\
STRINGIZE(column), ~\
:old.column, ~\
:new.column, ~\
1); ~\
END IF;
#define AUDIT_END() ~\
END; ~\
/ ~ \
#endif // _COMSQL_H

9
CTR/CTR_IND.SRC
View File

@@ -1,9 +0,0 @@
/*
* $Revision$
* $Id$
*/
CREATE UNIQUE INDEX ctr_i_ctr_disc_params1 ON ctr_disc_params(ctr_ins_discipline_key);
REGISTERONCE('$Id$')

24
CTR/CTR_INI.SRC
View File

@@ -1,24 +0,0 @@
#ifdef CTR
/*
* $Revision$
* $Id$
*/
_FAC_MODULE('CTR','lcl_module_CTR')
INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('CTR', 'Controle');
INSERT INTO ctr_disc_params(ctr_ins_discipline_key, ctr_disc_params_controle_type)
SELECT MAX(ins_discipline_key), 1 FROM ins_tab_discipline;
INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('CTR', 'Vervanging');
INSERT INTO ctr_disc_params(ctr_ins_discipline_key, ctr_disc_params_controle_type)
SELECT MAX(ins_discipline_key), 2 FROM ins_tab_discipline;
INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('CTR', 'Certificering');
insert into ctr_disc_params(ctr_ins_discipline_key, ctr_disc_params_controle_type)
SELECT MAX(ins_discipline_key), 3 FROM ins_tab_discipline;
REGISTERONCE('$Id$')
#endif // MRK

10
CTR/CTR_PAC.SRC
View File

@@ -1,10 +0,0 @@
#ifdef CTR
/*
* $Revision$
* $Id$
*/
REGISTERRUN('$Id$')
#endif // CTR

11
CTR/CTR_SEQ.SRC
View File

@@ -1,11 +0,0 @@
#ifdef CTR
/*
* $Revision$
* $Id$
*/
CREATE SEQUENCE ctr_s_ctr_disc_params_key MINVALUE 1;
REGISTERONCE('$Id$')
#endif // CTR

33
CTR/CTR_TAB.SRC
View File

@@ -1,33 +0,0 @@
#ifdef CTR
/*
* $Revision$
* $Id$
*/
CREATE_TABLE (ctr_disc_params,0)
(
ctr_disc_params_key
NUMBER(10),
ctr_ins_discipline_key
NUMBER(10),
ctr_disc_params_controle_type // 1=controle, 2=vervanging, 3=certificering, rest ntb
NUMBER(1)
DEFAULT(1)
CONSTRAINT ctr_disc_params_controle_type NOT NULL,
ctr_disc_params_ismjob
NUMBER(1) -- valid are 0, 1
DEFAULT 0
NOT NULL,
mld_stdmelding_key
NUMBER(10)
CONSTRAINT mld_r_mld_stdmelding_key6 REFERENCES mld_stdmelding,
CONSTRAINT ctr_c_ins_discipline_key CHECK (ctr_ins_discipline_key IS NOT NULL),
CONSTRAINT ctr_k_ctr_disc_params_key PRIMARY KEY (ctr_disc_params_key),
CONSTRAINT ctr_r_ins_discipine_key FOREIGN KEY (ctr_ins_discipline_key)
REFERENCES ins_tab_discipline (ins_discipline_key)
);
REGISTERONCE('$Id$')
#endif // CTR

25
CTR/CTR_TRI.SRC
View File

@@ -1,25 +0,0 @@
#ifdef CTR
/*
* $Revision$
* $Id$
*/
AUDIT_BEGIN(ctr_disc_params)
AUDIT_VALUE(ctr_disc_params, ctr_ins_discipline_key)
AUDIT_VALUE(ctr_disc_params, ctr_disc_params_controle_type)
AUDIT_VALUE(ctr_disc_params, ctr_disc_params_ismjob)
AUDIT_VALUE(ctr_disc_params, mld_stdmelding_key)
AUDIT_END()
CREATE_TRIGGER(ctr_t_ctr_disc_params_b_iu)
BEFORE INSERT OR UPDATE ON ctr_disc_params
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(ctr_disc_params_key, ctr_s_ctr_disc_params_key);
END;
/
REGISTERRUN('$Id$')
#endif // CTR

17
CTR/CTR_VIE.SRC
View File

@@ -1,17 +0,0 @@
#ifdef CTR
/*
* $Revision$
* $Id$
*/
CREATE_VIEW(ctr_discipline, 0)
AS
SELECT * FROM ins_tab_discipline WHERE ins_discipline_module = 'CTR';
DEFINIEER_VIEW_AANWEZIG(ctr_discipline, ins_discipline_verwijder,
ctr_v_aanwezigdiscipline, 0);
REGISTERRUN('$Id$')
#endif // CTR

28
FAC/FAC_IND.SRC
View File

@@ -2,19 +2,10 @@
* $Id$
*/
CREATE INDEX fac_i_audit_perslidkey1 ON fac_audit(prs_perslid_key);
CREATE INDEX fac_i_audit_tabel1 ON fac_audit(fac_audit_tabelnaam, fac_audit_tabelkey);
CREATE UNIQUE INDEX fac_i_fac_bookmark1 ON fac_bookmark(fac_bookmark_id);
CREATE INDEX fac_i_fac_groep1 ON fac_groep(fac_groep_externid);
CREATE UNIQUE INDEX fac_i_fac_gebruikersgroep1 ON fac_gebruikersgroep(prs_perslid_key, fac_groep_key);
CREATE INDEX fac_i_fac_selectie1 ON fac_selectie(fac_selectie_node,fac_selectie_tabel);
create index fac_i_fac_result1 on fac_result(fac_result_sessionid);
CREATE UNIQUE INDEX fac_i_fac_profielwaarde1 ON fac_profielwaarde (fac_profiel_key, ins_discipline_key);
create index fac_i_fac_perfmon_sample1 on fac_perfmon_sample(fac_perfmon_sample_datum);
@@ -22,16 +13,12 @@ create index fac_i_fac_perfmon_sample2 on fac_perfmon_sample(fac_perfmon_sample_
create index fac_i_fac_perfmon_sample3 on fac_perfmon_sample(prs_perslid_key);
CREATE UNIQUE INDEX fac_i_srtnotificatie_code1 ON fac_srtnotificatie(fac_srtnotificatie_code);
CREATE UNIQUE INDEX fac_i_srtnotificatie_code2 on fac_srtnotificatie(fac_srtnotificatie_key, fac_srtnotificatie_xmlnode);
CREATE INDEX fac_i_notificatie1 ON fac_notificatie(prs_perslid_key_receiver, fac_notificatie_status);
CREATE INDEX fac_i_notificatie2 ON fac_notificatie(fac_srtnotificatie_key);
CREATE UNIQUE INDEX fac_i_fac_xml1 ON fac_xml(fac_session_id, fac_xml_volgnr);
CREATE INDEX fac_i_fac_session1 ON fac_session(prs_perslid_key);
CREATE UNIQUE INDEX fac_i_fac_session2 ON fac_session(fac_session_sessionid_hash);
CREATE UNIQUE INDEX fac_i_fac_sequence1 ON fac_sequence(fac_sequence_name);
CREATE UNIQUE INDEX fac_i_fac_import_app1
ON fac_import_app (fac_import_app_code,
@@ -41,28 +28,15 @@ CREATE UNIQUE INDEX fac_i_fac_import_app1
CREATE INDEX imp_i_log_importkey1 ON imp_log(fac_import_key);
CREATE INDEX imp_i_imp_log2 ON imp_log(imp_log_applicatie);
-- Maakt opruimen efficienter:
CREATE INDEX fac_i_import_appkey1 ON fac_import(fac_import_app_key, fac_import_key);
CREATE INDEX fac_i_import_appkey1 ON fac_import(fac_import_app_key);
CREATE INDEX fac_i_tracking_refkey1 ON fac_tracking(fac_tracking_refkey);
CREATE INDEX fac_i_tracking_perslidkey1 ON fac_tracking(prs_perslid_key);
CREATE INDEX fac_i_tracking_srtnotkey1 ON fac_tracking(fac_srtnotificatie_key);
CREATE INDEX fac_i_imp_factuur1 ON fac_imp_factuur (ordernr);
CREATE INDEX fac_i_imp_factuur2 ON fac_imp_factuur (fac_import_key);
CREATE UNIQUE INDEX fac_i_fac_locale_xref1 ON fac_locale_xref (fac_locale_xref_filepath, fac_locale_xsl_key);
CREATE UNIQUE INDEX fac_i_fac_code2label ON fac_code2label (fac_code2label_domein, fac_code2label_code);
CREATE UNIQUE INDEX fac_i_fac_menuitems1 ON fac_menuitems (fac_menuitems_label);
CREATE INDEX fac_i_fac_menu_perslid_key ON fac_menu (prs_perslid_key);
CREATE UNIQUE INDEX fac_i_idp_code ON fac_idp(fac_idp_code);
CREATE UNIQUE INDEX fac_i_imp_usrdata1 ON fac_imp_usrdata (fac_usrtab_naam, fac_usrdata_code);
CREATE UNIQUE INDEX fac_i_fac_api1 ON fac_api (fac_api_name);
REGISTERONCE('$Id$')

778
FAC/FAC_INI.SRC
View File

File diff suppressed because it is too large Load Diff

7399
FAC/FAC_LCL.SRC
View File

File diff suppressed because it is too large Load Diff

5114
FAC/FAC_LCLASP.SRC Normal file
View File

File diff suppressed because it is too large Load Diff

332
FAC/FAC_PAC.SRC
View File

@@ -29,11 +29,9 @@
*/
#include "comsql.h"
#include "fac_paca.src"
#include "fac_pacx.src"
#include "fac_pacf.src"
#include "fac_pacl.src"
#include "fac_pacflex.src"
CREATE OR REPLACE PACKAGE fac
AUTHID CURRENT_USER -- zodat CREATE TABLE lukt
@@ -110,7 +108,7 @@ CREATE OR REPLACE PACKAGE fac
poptmessage VARCHAR2, poptstatus NUMBER, poptemail VARCHAR2, poptmobile VARCHAR2, pxref NUMBER,
pprio NUMBER, psender VARCHAR2, pattach VARCHAR2 DEFAULT NULL);
PROCEDURE clrnotifications (pcode VARCHAR2, pref NUMBER, puitz VARCHAR2 DEFAULT NULL);
PROCEDURE clrnotifications (pcode VARCHAR2, pref NUMBER, psubject VARCHAR2, preceiver NUMBER, pextrakey NUMBER);
PROCEDURE clrnotifications (pcode VARCHAR2, pref NUMBER, psubject VARCHAR2, preceiver NUMBER);
PROCEDURE putnotificationjobs (pcust VARCHAR2);
PROCEDURE putjobnotifications (pviewname VARCHAR2, pmode NUMBER, pflags NUMBER);
FUNCTION getMobile ( pkey IN NUMBER ) RETURN VARCHAR2;
@@ -123,20 +121,20 @@ CREATE OR REPLACE PACKAGE fac
FUNCTION gettrackingdate (peventcode IN VARCHAR2, pkey IN number) RETURN date;
FUNCTION gettrackinguserkey (peventcode IN VARCHAR2, pkey IN number) RETURN number;
PROCEDURE initsession (flcode IN VARCHAR2);
PROCEDURE initsession (pkey NUMBER, flcode IN VARCHAR2, usertimezone IN VARCHAR2);
PROCEDURE registerversion (pmaj IN NUMBER, pmin IN NUMBER, ppatch IN VARCHAR2, pschema IN VARCHAR2, plang IN VARCHAR2);
PROCEDURE registercustversion (pcustid IN VARCHAR2, pcustnr IN NUMBER);
FUNCTION getdbversion RETURN VARCHAR2;
PROCEDURE processemail (pfrom IN VARCHAR2, pto IN VARCHAR2, psubject IN VARCHAR2, pbody IN VARCHAR2, psessionid IN VARCHAR2);
FUNCTION isdatefeestdag(p_date IN DATE) RETURN BOOLEAN;
FUNCTION calcnextcyclusdate (p_date IN DATE, p_mode IN NUMBER, p_eenheid IN NUMBER, p_periode IN NUMBER, p_bits IN NUMBER) RETURN DATE;
FUNCTION nextcyclusdate (p_date IN DATE, p_mode IN NUMBER, p_eenheid IN NUMBER, p_periode IN NUMBER, p_bits IN NUMBER, p_steps IN NUMBER DEFAULT 0, p_ismjob IN NUMBER DEFAULT 0) RETURN DATE;
FUNCTION nextcyclusdate (p_date IN DATE, p_mode IN NUMBER, p_eenheid IN NUMBER, p_periode IN NUMBER, p_bits IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
FUNCTION nextcyclusdatedeel (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
FUNCTION nextcyclusdatesteps (p_date IN DATE, p_mode IN NUMBER, p_eenheid IN NUMBER, p_periode IN NUMBER, p_bits IN NUMBER, p_steps IN NUMBER DEFAULT 1, p_enddate IN DATE DEFAULT SYSDATE) RETURN NUMBER;
FUNCTION makehash (p_in VARCHAR2, method IN VARCHAR2 DEFAULT 'MD5') RETURN VARCHAR2;
FUNCTION testhash (p_hash VARCHAR2, p_in VARCHAR2) RETURN NUMBER;
PROCEDURE createlikebookmark (pxmlnode VARCHAR2, prefkey NUMBER);
PROCEDURE sequence_nextval(p_seqname IN VARCHAR2, p_initval IN NUMBER DEFAULT 1, p_initexpire IN DATE DEFAULT NULL);
END fac;
/
@@ -278,7 +276,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- where the value might be an invalid number like '206E9547' ('Numeric overflow')
FUNCTION safe_To_Integer( str IN VARCHAR2 ) RETURN NUMBER IS
BEGIN
RETURN TO_NUMBER(REGEXP_SUBSTR(str, '^\d+') ); -- alleen leading cijfers
RETURN TO_NUMBER(REGEXP_SUBSTR(str, '^\d+') ); // alleen leading cijfers
EXCEPTION
WHEN OTHERS THEN RETURN NULL;
END;
@@ -308,13 +306,60 @@ CREATE OR REPLACE PACKAGE BODY fac AS
END;
/*
* Deprecated. Gebruik de flx versie.
* Levert de gerefereerde waarde van een flexkenmerk op, gegeven de fac_kenmerkdomein_key en de waarde
* Ten behoeve van de XML-generatie is parameter ignorewhenxmlnode; daarmee kan worden aangegeven (1)
* dat in geval van een referentiekenmerk met een xmlnode niet de waarde maar gewoon de oorspronkelijke
* key moet worden teruggeven waarmee later een complete subnode wordt gemaakt. Het teruggeven van de naam
* zou die key kwijtmaken.
*/
FUNCTION getdomeinwaarde (dkey IN NUMBER, waarde IN VARCHAR2, ignorewhenxmlnode IN NUMBER DEFAULT 0)
RETURN VARCHAR2
IS
sresult VARCHAR2 (255);
kolomnaam fac_kenmerkdomein.fac_kenmerkdomein_kolomnaam%TYPE;
kolomtxt fac_kenmerkdomein.fac_kenmerkdomein_kolomtxt%TYPE;
objectnaam fac_kenmerkdomein.fac_kenmerkdomein_objectnaam%TYPE;
xmlnode fac_kenmerkdomein.fac_kenmerkdomein_xmlnode%TYPE;
resultvalue VARCHAR2 (1000);
BEGIN
RETURN flx.getdomeinwaarde (dkey, waarde, ignorewhenxmlnode);
IF waarde IS NULL
THEN
resultvalue := NULL; -- gauw klaar mee
ELSE
SELECT rsk.fac_kenmerkdomein_kolomnaam,
rsk.fac_kenmerkdomein_kolomtxt,
rsk.fac_kenmerkdomein_objectnaam,
rsk.fac_kenmerkdomein_xmlnode
INTO kolomnaam,
kolomtxt,
objectnaam,
xmlnode
FROM fac_kenmerkdomein rsk
WHERE rsk.fac_kenmerkdomein_key = dkey;
IF (xmlnode IS NOT NULL AND ignorewhenxmlnode = 1)
THEN
RETURN waarde;
END IF;
-- Optimalisatie: meestal is het dezelfde query op de usrdata-tabel
-- Dan hoeven we niet te bouwen en steeds te parsen (FSN#25653)
IF kolomtxt = 'FAC_USRDATA_OMSCHR'
AND objectnaam = 'FAC_USRDATA'
AND kolomnaam = 'FAC_USRDATA_KEY'
THEN
SELECT fac_usrdata_omschr
INTO resultvalue
FROM fac_usrdata
WHERE fac_usrdata_key = fac.safe_to_number(waarde);
ELSE
sresult := 'SELECT MIN(' || kolomtxt || ') FROM ' || objectnaam || ' WHERE ' || kolomnaam || ' = :bd_waarde';
EXECUTE IMMEDIATE sresult INTO resultvalue USING waarde;
END IF;
END IF;
RETURN resultvalue;
END;
-- Sluit weekend en vrije dagen uit
@@ -465,12 +510,12 @@ CREATE OR REPLACE PACKAGE BODY fac AS
BEGIN
IF BeginWerkUur IS NULL OR EindWerkUur IS NULL
THEN
BeginWerkUur := fac.safe_to_number (fac.getsetting ('fac_t_startofworkday')); -- half 8 is 7.5 en niet 7.30
BeginWerkUur := fac.safe_to_number (fac.getsetting ('fac_t_startofworkday')); // half 8 is 7.5 en niet 7.30
EindWerkUur := fac.safe_to_number (fac.getsetting ('fac_t_endofworkday'));
DBMS_OUTPUT.put_line ('Recaching Werkuren ' || BeginWerkUur||'..'||EindWerkUur);
END IF;
RETURN datumtijdplusuitvoertijd (begindatum, uitvoertijd, uitvoertijdtype,
BeginWerkUur, EindWerkUur, 1); -- 1=alleen werkdagen excl. vrije dagen
BeginWerkUur, EindWerkUur, 1); // 1=alleen werkdagen excl. vrije dagen
END;
-- Bereken de einddatum gegeven de begindatum en uitvoertijd. De mode bepaalt
@@ -660,12 +705,12 @@ CREATE OR REPLACE PACKAGE BODY fac AS
BEGIN
IF BeginWerkUur IS NULL OR EindWerkUur IS NULL
THEN
BeginWerkUur := fac.safe_to_number (fac.getsetting ('fac_t_startofworkday')); -- half 8 is 7.5 en niet 7.30
BeginWerkUur := fac.safe_to_number (fac.getsetting ('fac_t_startofworkday')); // half 8 is 7.5 en niet 7.30
EindWerkUur := fac.safe_to_number (fac.getsetting ('fac_t_endofworkday'));
DBMS_OUTPUT.put_line ('Recaching Werkuren ' || BeginWerkUur||'..'||EindWerkUur);
END IF;
RETURN datumtijdnaaruitvoertijd (begindatum, einddatum, uitvoertijdtype,
BeginWerkUur, EindWerkUur, 1); -- 1=alleen werkdagen excl. vrije dagen
BeginWerkUur, EindWerkUur, 1); // 1=alleen werkdagen excl. vrije dagen
END datumtijdnaaruitvoertijd;
FUNCTION datumtijdnaaruitvoertijd (begindatum IN DATE,
@@ -988,9 +1033,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
SUBSTR (p_parseline, 1, v_next_quote)
|| SUBSTR (p_parseline, v_next_quote + 2);
ELSIF SUBSTR (p_parseline, v_next_quote + 1, 1) = p_fielddelimitor
OR v_next_quote = LENGTH(p_parseline)
THEN
-- quote + delimiter found OR quote found at end of p_parseline
-- quote + delimiter found
p_field := SUBSTR (p_parseline, 2, v_next_quote - 2);
p_parseline := SUBSTR (p_parseline, v_next_quote + 2);
v_found := TRUE;
@@ -1112,12 +1156,12 @@ CREATE OR REPLACE PACKAGE BODY fac AS
DELETE FROM cnt_contract_plaats;
DELETE FROM cnt_contract_onrgoed;
DELETE FROM mld_kenmerkmelding;
DELETE FROM mld_melding_object;
DELETE FROM mld_opdr_materiaal;
DELETE FROM mld_opdr;
DELETE FROM mld_melding;
@@ -1126,8 +1170,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
DELETE FROM prs_perslidwerkplek;
DELETE FROM prs_werkplek;
IF (p_mode < 2)
THEN
DELETE FROM prs_contactpersoon_locatie;
@@ -1725,9 +1767,10 @@ CREATE OR REPLACE PACKAGE BODY fac AS
AS
CURSOR c1
IS
SELECT wg.prs_perslid_key
FROM fac_functie f, fac_v_webgebruiker wg
WHERE f.fac_functie_key = wg.fac_functie_key
SELECT fgg.prs_perslid_key
FROM fac_functie f, fac_groeprechten fgr, fac_gebruikersgroep fgg
WHERE fgg.fac_groep_key = fgr.fac_groep_key
AND f.fac_functie_key = fgr.fac_functie_key
AND f.fac_functie_code = 'WEB_PRSSYS';
BEGIN
FOR rec1 IN c1
@@ -1770,12 +1813,10 @@ CREATE OR REPLACE PACKAGE BODY fac AS
lphone fac_notificatie.fac_notificatie_receiver_phone%TYPE;
llang prs_perslid.prs_perslid_lang%TYPE;
lsysteem prs_perslid.prs_perslid_systeemadres%TYPE;
immediate NUMBER(1);
BEGIN
IF pcode IS NOT NULL
THEN
BEGIN
immediate := 0;
IF poptstatus IS NULL
THEN
-- Geen status/mode meegegeven, bepaal em zelf
@@ -1810,12 +1851,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
END IF;
ELSE
-- Wel status meegegeven; die is dan vast
-- Als status=2 en pcode=xxxMAI, dan moet de mail altijd vertuurd worden.
smode := poptstatus;
IF SUBSTR(pcode, -3) = 'MAI' AND poptstatus = 2
THEN
immediate := 1;
END IF;
SELECT lcl.x('fac_srtnotificatie_oms', sn.fac_srtnotificatie_key, sn.fac_srtnotificatie_oms),
sn.fac_srtnotificatie_key
@@ -1892,12 +1928,12 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- Gooi bestaande identieke notificaties eerst maar eens uit de queue. Voor het gemak.
-- De nieuwe is minstens zo goed en gaat per definitie via dezelfde kanalen
fac.clrnotifications(pcode, pref, soms, pto, pxref); -- Dubbele notificaties verwijderen indien dezelfde omschrijving en voor dezelfde ontvanger.
fac.clrnotifications(pcode, pref, soms, pto); -- Dubbele notificaties verwijderen indien dezelfde omschrijving en voor dezelfde ontvanger.
-- Voorkom e-mail/sms van deze zwakkere *UPD als de *NEW nog niet eens de deur uit is door Putorders
-- of meer algemeen: elke e-mail/sms die nog niet de deur is.
-- Je wilt wel op alle gedefinieerde kanalen precies een bericht houden
IF ((BITAND (smode, 2 + 4) <> 0) AND (immediate = 0))
IF BITAND (smode, 2 + 4) <> 0
THEN
-- Zoek de lmode van een al/nog aanwezige fac_notificatie die over hetzelfde gaat
BEGIN
@@ -1945,15 +1981,15 @@ CREATE OR REPLACE PACKAGE BODY fac AS
CASE pcode
WHEN 'MLDAFM'
THEN
fac.clrnotifications('MLD%', pref, 'MLDMAI');
fac.clrnotifications('MLD%', pref);
WHEN 'MLD2BO'
THEN
fac.clrnotifications('MLD2B3', pref);
WHEN 'RESAFM'
THEN
fac.clrnotifications('RESUPD', pref, 'RESMAI');
fac.clrnotifications('RESOPT', pref, 'RESMAI');
fac.clrnotifications('RESBEV', pref, 'RESMAI');
fac.clrnotifications('RESUPD', pref);
fac.clrnotifications('RESOPT', pref);
fac.clrnotifications('RESBEV', pref);
WHEN 'RESOPT'
THEN
fac.clrnotifications('RESUPD', pref);
@@ -1965,7 +2001,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
fac.clrnotifications('RESUPD', pref);
WHEN 'BESAFM'
THEN
fac.clrnotifications('BESUPD', pref, 'BESMAI');
fac.clrnotifications('BESUPD', pref);
WHEN 'ORDAFM'
THEN
fac.clrnotifications('ORDUPD', pref);
@@ -2033,7 +2069,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
END;
-- Nu de functie met twee extra parameters, de omschrijving en de ontvanger van de notificatie.
PROCEDURE clrnotifications (pcode VARCHAR2, pref NUMBER, psubject VARCHAR2, preceiver NUMBER, pextrakey NUMBER)
PROCEDURE clrnotifications (pcode VARCHAR2, pref NUMBER, psubject VARCHAR2, preceiver NUMBER)
AS
skey fac_srtnotificatie.fac_srtnotificatie_key%TYPE;
BEGIN
@@ -2044,9 +2080,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
WHERE sn.fac_srtnotificatie_code LIKE pcode)
AND fac_notificatie_refkey = pref
AND fac_notificatie_oms = psubject
AND prs_perslid_key_receiver = preceiver
AND COALESCE (fac_notificatie_extrakey, -1) = COALESCE (pextrakey, -1);
AND prs_perslid_key_receiver = preceiver;
-- portalberichten: fac_notificatie verwijderd de dubbelen wel in zijn insert trigger (nieuwste notificatie wordt hierna geinsert).
END;
@@ -2830,7 +2864,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
lafs_key bez_afspraak.bez_afspraak_key%TYPE;
lins_deel_ley ins_deel.ins_deel_key%TYPE;
lpoolnotified NUMBER;
lspoed mld_melding.mld_melding_spoed%TYPE;
BEGIN
-- Het gaat om een notificatie bij een entiteit prefkey,
-- waarvan het type alleen nog moet worden bepaald via
@@ -2891,8 +2924,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
mp.mld_disc_params_benotify,
m.mld_melding_behandelaar_key,
m.mld_workflowstep_key,
m.mld_melding_start_key,
m.mld_melding_spoed
m.mld_melding_start_key
INTO lreceiver,
lmld_stdmelding_key,
lmld_adres_key,
@@ -2905,8 +2937,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
lbenotify,
lmldbehandelaar,
lworkflowstep_key,
lstart_key,
lspoed
lstart_key
FROM mld_melding m,
mld_stdmelding stdm,
ins_tab_discipline d,
@@ -2916,7 +2947,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
AND mp.mld_ins_discipline_key = d.ins_discipline_key
AND m.mld_melding_key = prefkey;
IF ((lspoed<=2 OR lbonotify > 0) AND (lcode = 'MLDNEW' OR lcode = 'MLDFWD' OR lcode = 'MLDACP')) -- Bij aanmaak, doorsturen of accepteren van de melding.
IF lbonotify > 0 AND (lcode = 'MLDNEW' OR lcode = 'MLDFWD' OR lcode = 'MLDACP') -- Bij aanmaak, doorsturen of accepteren van de melding.
THEN
-- merk op: bij doorsturen binnen dezelfde discipline of met dezelfde bo-ers ontvangt men
-- dan dus nogmaals een notificatie. Dat accepteren we vooralsnog gewoon maar.
@@ -3012,9 +3043,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- tot notificeren van tracking
-- Echter: wie houden we hiervan nou actief op de hoogte?
-- Dat wordt de interne contacpersoon van de opdracht
-- behalve:
-- 1) ORDMLE/ORDMLI en ORDONO/ORDOOK, die naar de uitvoerder
-- 2) ORDDAT, die naar de gebouwverantwoordelijke van het betreffende gebouw van de onderliggende melding
-- behalve ORDMLE/ORDMLI en ORDONO/ORDOOK, die naar de uitvoerder
IF lcode IN ('ORDMLI', 'ORDMLE', 'ORDONO', 'ORDOOK')
THEN
SELECT mld_uitvoerende_keys
@@ -3029,7 +3058,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
IF luitvtype = 'B'
THEN
-- Het gaat om een bedrijf receiver
-- Het gaat om een externe receiver
BEGIN
SELECT prs_bedrijf_email, prs_bedrijf_telefoon2
INTO lemail, lphone
@@ -3049,25 +3078,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
RETURN;
END;
END IF;
ELSIF lcode = 'ORDDAT'
THEN
BEGIN
SELECT COALESCE(g.prs_perslid_key_verantw, g.prs_perslid_key_verantw2) verantwoordelijke
INTO lreceiver
FROM mld_opdr o,
mld_melding m,
alg_v_onroerendgoed org,
alg_gebouw g
WHERE o.mld_melding_key = m.mld_melding_key
AND m.mld_alg_onroerendgoed_keys = org.alg_onroerendgoed_keys
AND org.alg_gebouw_key = g.alg_gebouw_key
AND COALESCE(g.prs_perslid_key_verantw, g.prs_perslid_key_verantw2) IS NOT NULL
AND o.mld_opdr_key = prefkey;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
RETURN;
END;
ELSE
-- ons intern contactpersoon krijgt in alle andere gevallen het bericht
SELECT prs_perslid_key
@@ -3156,8 +3166,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
lalg_ruimte_key,
lreskey
FROM res_rsv_ruimte
WHERE res_rsv_ruimte_key = prefkey
AND (res_rsv_ruimte_dirtlevel = 0 OR lcode = 'RESDIR');
WHERE res_rsv_ruimte_key = prefkey AND (res_rsv_ruimte_dirtlevel = 0 OR lcode = 'RESDIR');
EXCEPTION
WHEN NO_DATA_FOUND
THEN
@@ -3166,18 +3175,15 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- de afzender, en moeten we wel?
lnotify := NULL;
lbonotify := 0;
BEGIN
-- Bepaal afzender, afhankelijk van catalogus (als res_ruimte) of anders de locatie
-- en check of er voor deze ruimtecatalogus uberhaupt moet worden genotificeerd
IF lres_ruimte_opstel_key IS NOT NULL
THEN
SELECT COALESCE (MAX (d.ins_discipline_email), MAX (l.alg_locatie_email)),
MAX (res_disc_params_notify),
MAX (res_disc_params_bonotify)
INTO lsender,
lnotify,
lbonotify
MAX (res_disc_params_notify)
INTO lsender, lnotify
FROM res_ruimte_opstelling ro,
res_ruimte rr,
res_alg_ruimte rag,
@@ -3200,16 +3206,10 @@ CREATE OR REPLACE PACKAGE BODY fac AS
THEN
-- Een voorzieningenreservering kan uit meerdere catalogi items hebben,
-- maar bij maar 1 afzender. Zwaarst geldt een cateringcatalogusafzender
SELECT MAX (d.ins_discipline_email),
MAX (res_disc_params_bonotify)
INTO lsender,
lbonotify
FROM ins_tab_discipline d,
res_artikel a,
res_rsv_artikel ra,
res_disc_params rdp
SELECT MAX (d.ins_discipline_email)
INTO lsender
FROM ins_tab_discipline d, res_artikel a, res_rsv_artikel ra
WHERE d.ins_discipline_key = a.res_discipline_key
AND a.res_discipline_key = rdp.res_ins_discipline_key
AND a.res_artikel_key = ra.res_artikel_key
AND ra.res_rsv_artikel_verwijder IS NULL
AND ra.res_rsv_ruimte_key = prefkey;
@@ -3217,16 +3217,10 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- Als die er niet is, dan de voorzieningscatalogusafzender
IF lsender IS NULL
THEN
SELECT MAX (d.ins_discipline_email),
MAX (res_disc_params_bonotify)
INTO lsender,
lbonotify
FROM ins_tab_discipline d,
res_deel r,
res_rsv_deel rd,
res_disc_params rdp
SELECT MAX (d.ins_discipline_email)
INTO lsender
FROM ins_tab_discipline d, res_deel r, res_rsv_deel rd
WHERE d.ins_discipline_key = r.res_discipline_key
AND r.res_discipline_key = rdp.res_ins_discipline_key
AND r.res_deel_key = rd.res_deel_key
AND rd.res_rsv_deel_verwijder IS NULL
AND rd.res_rsv_ruimte_key = prefkey;
@@ -3255,11 +3249,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
lsender := NULL;
END;
IF (lbonotify > 0) AND (lcode = 'RESNEW') -- Bij aanmaken van de reservering, of bij wijzigen van een bestaande reservering door toevoegen van voorzieningen.
THEN
res.notifybackoffice (prefkey, lcode);
END IF;
-- Reserveringen worden eventueel niet genotificeerd als settings daartoe aanleiding geven.
-- We weten genoeg om te checken of dat zo is
IF (lnotify = 0)
@@ -3505,7 +3494,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
END IF;
-- Beheeracties notificeren we niet, zou niet weten naar wie.
IF lcode IN ('INSOUT', 'INSINN', 'INSIN2')
IF lcode IN ('INSOUT', 'INSINN')
THEN
-- Bij uitlenen sturen we een notificatie naar de tijdelijke nieuwe eigenaar (UWVA#21528)
-- Bij innemen sturen we een notificatie naar de oorspronkelijke eigenaar (indien persoon; zeldzaam)
@@ -3754,7 +3743,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
RETURN retkey;
END;
-- Keep initsession (flcode IN VARCHAR2) for branches (OLD)
PROCEDURE initsession (flcode IN VARCHAR2)
AS
setsql VARCHAR2(200);
@@ -3765,25 +3753,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
setsql := 'ALTER SESSION SET '
|| ' NLS_NUMERIC_CHARACTERS = ''.,'''
|| ' NLS_SORT = ''BINARY'''
|| ' NLS_TERRITORY = ''AMERICA'''
|| ' NLS_DATE_FORMAT = ''YYYY-MM-DD HH24:MI:SS''';
EXECUTE IMMEDIATE setsql;
END;
PROCEDURE initsession (pkey NUMBER, flcode IN VARCHAR2, usertimezone IN VARCHAR2)
AS
setsql VARCHAR2(200);
BEGIN
DBMS_SESSION.SET_IDENTIFIER(pkey);
-- Initialiseert deze Oracle session met de vereiste parameters
-- De flcode (FACILITOR Language code) mag null zijn, dan wordt de databasedefault gebruikt
lcl.setuserlanguage(flcode);
setsql := 'ALTER SESSION SET '
|| ' NLS_NUMERIC_CHARACTERS = ''.,'''
|| ' NLS_SORT = ''BINARY'''
|| ' NLS_TERRITORY = ''AMERICA'''
|| ' NLS_DATE_FORMAT = ''YYYY-MM-DD HH24:MI:SS'''
|| ' TIME_ZONE = ''' || COALESCE(REPLACE(usertimezone, '''', ''''''), 'Europe/Amsterdam') || '''';
|| ' NLS_TERRITORY=''AMERICA''';
EXECUTE IMMEDIATE setsql;
END;
@@ -3817,7 +3787,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
END IF;
END;
-- fac_version_custnr is deprecated sinds 2016.3
PROCEDURE registercustversion (pcustid IN VARCHAR2, pcustnr IN NUMBER)
AS
BEGIN
@@ -3833,15 +3802,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
FUNCTION getdbversion RETURN VARCHAR2
AS
verstring VARCHAR2(100);
maxdate DATE;
BEGIN
-- Hoogste klant-sql. Onderken ook uwva_prs.sql
SELECT MAX(adm_tracking_date)
INTO maxdate
FROM adm_tracking, fac_version
WHERE UPPER(adm_tracking_name) LIKE '%.SQL';
SELECT 'DB'||fac_version_schema||'/'||fac_version_cust||'@'||TO_CHAR(maxdate, 'DD-MM-YYYY')||'-'||COALESCE(fac_version_otap,'P*')
SELECT 'DB'||fac_version_schema||'/'||fac_version_cust||fac_version_custnr||'-'||COALESCE(fac_version_otap,'P*')
INTO verstring
FROM fac_version;
RETURN verstring;
@@ -4349,8 +4311,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
p_eenheid IN NUMBER,
p_periode IN NUMBER,
p_bits IN NUMBER,
p_steps IN NUMBER DEFAULT 0,
p_ismjob IN NUMBER DEFAULT 0)
p_steps IN NUMBER DEFAULT 0)
RETURN DATE
IS
inspdate DATE;
@@ -4377,7 +4338,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- Bij het meegegeven van de huidige datum en steps is 0 de huidige controledatum weer teruggeven.
IF NOT (p_steps = 0 AND toekomst) -- p_steps != 0 || !toekomst
THEN
-- Calculate next cyclus date m.b.v. volledige datum met tijd.
-- Calculate next cyclus date m.b.v. voledige datum met tijd.
inspdate := calcnextcyclusdate (inspdate, p_mode, p_eenheid, p_periode, p_bits);
END IF;
@@ -4389,21 +4350,14 @@ CREATE OR REPLACE PACKAGE BODY fac AS
inspdate_trunc := TRUNC(inspdate, 'DDD');
END IF;
-- Voor MJOB is nu het hele jaar.
IF p_ismjob = 1
THEN
nuoftoekomst := EXTRACT (YEAR FROM inspdate_trunc) >= EXTRACT (YEAR FROM vandaagdate);
ELSE
nuoftoekomst := inspdate_trunc >= vandaagdate;
END IF;
nuoftoekomst := inspdate_trunc >= vandaagdate;
IF p_steps = 0
THEN
IF nuoftoekomst
THEN
RETURN inspdate;
ELSE
RETURN nextcyclusdate (inspdate, p_mode, p_eenheid, p_periode, p_bits, 0); -- volledige datum met tijd gebruiken
RETURN nextcyclusdate (inspdate, p_mode, p_eenheid, p_periode, p_bits, 0); -- voledige datum met tijd gebruiken
END IF;
ELSIF p_steps > 1 AND nuoftoekomst
THEN
@@ -4412,7 +4366,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
THEN
RETURN inspdate;
ELSE
RETURN nextcyclusdate (inspdate, p_mode, p_eenheid, p_periode, p_bits, p_steps - 1); -- volledige datum met tijd gebruiken
RETURN nextcyclusdate (inspdate, p_mode, p_eenheid, p_periode, p_bits, p_steps - 1); -- voledige datum met tijd gebruiken
END IF;
END;
@@ -4420,47 +4374,68 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- Indien p_steps niet is meegegeven dan wordt de eerstvolgende controledatum na nu teruggegeven.
-- steps = 0, (NULL): 1-ste vandaag of in de toekomst (als meegegeven datum (p_date) de huidige datum is, dan deze weer teruggeven).
-- steps = n: n-volgende vanaf meegegeven datum (p_date).
-- Als deze berekende datum in de toekomst ligt en steps is nog niet null, dan wordt NULL teruggegeven).
-- De einddatum van het object (xcp.ins_srtcontroledl_xcp_eind) wordt niet meegenomen. De volgende inspectiedatum wordt gewoon teruggeven.
-- Als deze berekende datum in de toekomst ligt en steps is nog niet null, dan wordt NULL teruggegeven).
FUNCTION nextcyclusdatedeel (p_insdeel IN NUMBER,
p_srtcontrole IN NUMBER,
p_steps IN NUMBER DEFAULT 0) -- Pas op: diverse klant-sql gebruiken deze functie
p_srtcontrole IN NUMBER,
p_steps IN NUMBER DEFAULT 0)
RETURN DATE
IS
inspdate DATE;
scenario ins_scenario.ins_scenario_key%TYPE := 1; // Altijd actuele situatie
BEGIN
SELECT fac.nextcyclusdate (COALESCE ( (SELECT CASE xcp.ins_srtcontrole_mode
WHEN 0
THEN idsc.ins_deelsrtcontrole_datum_org
ELSE idsc.ins_deelsrtcontrole_datum
END ins_deelsrtcontrole_datum
FROM ins_deelsrtcontrole idsc
WHERE idsc.ins_srtcontrole_key = xcp.ins_srtcontrole_key
AND idsc.ins_deelsrtcontrole_status IN (5,6)
AND idsc.ins_scenario_key = 1
AND idsc.ins_deel_key = xcp.ins_deel_key
AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(idsc2.ins_deelsrtcontrole_key)
FROM ins_deelsrtcontrole idsc2
WHERE idsc2.ins_deel_key = xcp.ins_deel_key
AND idsc2.ins_srtcontrole_key = xcp.ins_srtcontrole_key
AND idsc2.ins_deelsrtcontrole_status IN (5,6)
AND idsc2.ins_scenario_key = 1)), -- originele start, scenario 1
xcp.ins_srtcontroledl_xcp_startdat,
xcp.ins_deel_aanmaak),
xcp.ins_srtcontrole_mode,
xcp.ins_srtcontrole_eenheid,
xcp.ins_srtcontrole_periode,
xcp.ins_srtcontrole_bits,
p_steps,
xcp.ctr_ismjob
) inspectie_next
INTO inspdate
FROM ins_v_defined_inspect_xcp xcp
WHERE xcp.ins_deel_key = p_insdeel
AND xcp.ins_srtcontrole_key = p_srtcontrole
AND xcp.ins_scenario_key = scenario;
SELECT inspectie_next
INTO inspdate
FROM (WITH defined_inspect AS (SELECT isc.ins_srtcontrole_key,
isc.ins_srtcontrole_mode,
isc.ins_srtcontrole_eenheid,
isc.ins_srtcontrole_bits,
isc.ins_srtcontrole_periode,
id.ins_deel_key,
id.ins_deel_aanmaak
FROM ins_deel id,
ins_srtdeel s,
ins_srtcontrole isc
WHERE s.ins_srtdeel_key = id.ins_srtdeel_key
AND (isc.ins_srtcontrole_niveau = 'S'
AND isc.ins_srtinstallatie_key = id.ins_srtdeel_key
OR isc.ins_srtcontrole_niveau = 'G'
AND isc.ins_srtinstallatie_key = s.ins_srtgroep_key
OR isc.ins_srtcontrole_niveau = 'D'
AND isc.ins_srtinstallatie_key = id.ins_discipline_key)
AND id.ins_deel_key = p_insdeel)
SELECT fac.nextcyclusdate (COALESCE ( (SELECT GREATEST (COALESCE (idsc.ins_deelsrtcontrole_plandatum,
CASE di.ins_srtcontrole_mode
WHEN 0
THEN idsc.ins_deelsrtcontrole_datum_org
ELSE idsc.ins_deelsrtcontrole_datum END),
CASE di.ins_srtcontrole_mode
WHEN 0
THEN idsc.ins_deelsrtcontrole_datum_org
ELSE idsc.ins_deelsrtcontrole_datum
END)
ins_deelsrtcontrole_datum
FROM ins_deelsrtcontrole idsc
WHERE idsc.ins_srtcontrole_key = di.ins_srtcontrole_key
AND idsc.ins_deelsrtcontrole_status IN (5,6)
AND idsc.ins_deel_key = di.ins_deel_key
AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(idsc2.ins_deelsrtcontrole_key)
FROM ins_deelsrtcontrole idsc2
WHERE idsc2.ins_deel_key = p_insdeel
AND idsc2.ins_srtcontrole_key = p_srtcontrole)),
di.ins_deel_aanmaak),
di.ins_srtcontrole_mode,
COALESCE(xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
COALESCE(xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
COALESCE(xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
p_steps
) inspectie_next
FROM defined_inspect di,
ins_srtcontroledl_xcp xcp
WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
AND di.ins_deel_key = xcp.ins_deel_key(+)
AND di.ins_deel_key = p_insdeel
AND di.ins_srtcontrole_key = p_srtcontrole
AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC(SYSDATE, 'DD')));
RETURN inspdate;
END;
@@ -4611,6 +4586,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
p_initval,
p_initexpire);
END;
END fac;
/

46
FAC/FAC_PACA.SRC
View File

@@ -1,46 +0,0 @@
/* $Revision$
* $Id$
*/
/* FAC_PACA, (A means Audit) to be included from fac_pac.src, isolated for convenience only
* The Audit-package source. Contains all functions for audit.
*
* Usage: aud.auditaction(...);
*
*/
CREATE OR REPLACE PACKAGE aud
AS
PROCEDURE auditaction (tabelnaam VARCHAR2, tabelkey_oud NUMBER, tabelkey_nieuw NUMBER, veldnaam VARCHAR2, waarde_oud VARCHAR2, waarde_nieuw VARCHAR2, isdeleting NUMBER, opmerk VARCHAR2 DEFAULT NULL);
END aud;
/
CREATE OR REPLACE PACKAGE BODY aud
AS
PROCEDURE auditaction (tabelnaam VARCHAR2, tabelkey_oud NUMBER, tabelkey_nieuw NUMBER, veldnaam VARCHAR2, waarde_oud VARCHAR2, waarde_nieuw VARCHAR2, isdeleting NUMBER, opmerk VARCHAR2 DEFAULT NULL)
IS
BEGIN
IF COALESCE(waarde_oud, 'bUSnDIaVjRS56D3z') <> COALESCE(waarde_nieuw, 'bUSnDIaVjRS56D3z')
THEN
INSERT INTO fac_audit (fac_audit_tabelnaam,
fac_audit_tabelkey,
fac_audit_veldnaam,
fac_audit_actie,
fac_audit_waarde_oud,
fac_audit_waarde_nieuw,
prs_perslid_key,
fac_audit_opmerking)
VALUES (tabelnaam,
COALESCE(tabelkey_nieuw, tabelkey_oud),
veldnaam,
CASE WHEN isdeleting = 1 OR SUBSTR(veldnaam, -9) = 'verwijder' THEN 'D' ELSE 'U' END,
waarde_oud,
waarde_nieuw,
sys_context('USERENV', 'CLIENT_IDENTIFIER'),
opmerk);
END IF;
END;
END aud;
/
REGISTERRUN('$Id$')

2504
FAC/FAC_PACF.SRC
View File

File diff suppressed because it is too large Load Diff

511
FAC/FAC_PACFLEX.SRC
View File

@@ -1,511 +0,0 @@
/* $Revision$
* $Id$
*/
/* FAC_PACFLEX
*
* Contains all functions for flex values.
*
*/
CREATE OR REPLACE PACKAGE flx
AS
PROCEDURE gettableinf (pmodule IN OUT VARCHAR2,
o_ktable OUT VARCHAR2, -- Naam kenmerk tabel
o_ktable_kdefault OUT VARCHAR2,
o_kvtable OUT VARCHAR2, -- Naam kenmerk waarden tabel
o_kvtable_refkey OUT VARCHAR2,
o_kvtable_kniveau OUT VARCHAR2,
o_kvtable_kwaarde OUT VARCHAR2,
o_kvtable_kkey OUT VARCHAR2,
o_kvtable_kdelete OUT VARCHAR2
);
FUNCTION getflex (pmodule IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_ref_key IN NUMBER,
p_niveau IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2;
PROCEDURE setflex (pmodule IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_ref_key IN NUMBER,
p_waarde IN VARCHAR2);
PROCEDURE setflex (pmodule IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_ref_key IN NUMBER,
p_niveau IN VARCHAR2,
p_waarde IN VARCHAR2);
PROCEDURE deleteflex (pmodule IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_ref_key IN NUMBER,
p_niveau IN VARCHAR2);
FUNCTION getflexexpression (pmodule IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_niveau IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2;
FUNCTION getdomeinwaarde (dkey IN NUMBER,
waarde IN VARCHAR2,
ignorewhenxmlnode IN NUMBER DEFAULT 0) RETURN VARCHAR2;
PROCEDURE evaluateflexexpressions (pmodule IN VARCHAR2, prefkey IN NUMBER, puserkey IN NUMBER, psavetodb IN NUMBER);
END flx;
/
CREATE OR REPLACE PACKAGE BODY flx
AS
PROCEDURE gettableinf (pmodule IN OUT VARCHAR2,
o_ktable OUT VARCHAR2, -- Naam kenmerk tabel
o_ktable_kdefault OUT VARCHAR2,
o_kvtable OUT VARCHAR2, -- Naam kenmerk waarden tabel
o_kvtable_refkey OUT VARCHAR2,
o_kvtable_kniveau OUT VARCHAR2,
o_kvtable_kwaarde OUT VARCHAR2,
o_kvtable_kkey OUT VARCHAR2,
o_kvtable_kdelete OUT VARCHAR2
)
AS
l_module VARCHAR2 (3);
BEGIN
l_module := pmodule;
o_kvtable_kniveau := NULL;
CASE
WHEN pmodule = 'ALG'
THEN o_kvtable := 'alg_onrgoedkenmerk';
o_kvtable_refkey := 'alg_onrgoed_key';
o_kvtable_kniveau := 'alg_onrgoed_niveau';
WHEN pmodule = 'BEZ'
THEN o_kvtable := 'bez_kenmerkwaarde';
o_kvtable_refkey := 'bez_bezoekers_key';
WHEN pmodule = 'BES'
THEN o_kvtable := 'bes_kenmerkbestell';
o_kvtable_refkey := 'bes_bestelling_key';
WHEN pmodule = 'CNT'
THEN o_kvtable := 'cnt_kenmerkcontract';
o_kvtable_refkey := 'cnt_contract_key';
WHEN pmodule = 'FAQ'
THEN o_kvtable := 'faq_kenmerkwaarde';
o_kvtable_refkey := 'fac_faq_key';
WHEN pmodule = 'FIN'
THEN o_kvtable := 'fin_kenmerkfactuur';
o_kvtable_refkey := 'fin_factuur_key';
WHEN pmodule = 'CIL' OR pmodule = 'SLE'
THEN o_kvtable := 'ins_kenmerkdeel';
o_kvtable_refkey := 'ins_deel_key';
WHEN pmodule = 'INS'
THEN o_kvtable := 'ins_kenmerkdeel';
o_kvtable_refkey := 'ins_deel_key';
WHEN pmodule = 'MLD'
THEN o_kvtable := 'mld_kenmerkmelding';
o_kvtable_refkey := 'mld_melding_key';
WHEN pmodule = 'OPD'
THEN o_kvtable := 'mld_kenmerkopdr';
o_kvtable_refkey := 'mld_opdr_key';
l_module := 'MLD';
WHEN pmodule = 'PRS'
THEN o_kvtable := 'prs_kenmerklink';
o_kvtable_refkey := 'prs_link_key';
o_kvtable_kniveau := 'prs_kenmerklink_niveau';
WHEN pmodule = 'RES'
THEN o_kvtable := 'res_kenmerkwaarde';
o_kvtable_refkey := 'res_rsv_ruimte_key';
END CASE;
IF l_module = 'RES'
THEN o_kvtable_kwaarde := 'res_kenmerkreservering_waarde'; -- RES is uitzondering
ELSE o_kvtable_kwaarde := o_kvtable || '_waarde';
END IF;
o_ktable := l_module || '_kenmerk';
o_ktable_kdefault := l_module || '_kenmerk_default';
o_kvtable_kkey := l_module || '_kenmerk_key';
o_kvtable_kdelete := o_kvtable || '_verwijder';
END;
FUNCTION getflex (pmodule IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_ref_key IN NUMBER,
p_niveau IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2
IS
BEGIN
RETURN NULL; -- TODO
END;
PROCEDURE setflex (pmodule IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_ref_key IN NUMBER,
p_waarde IN VARCHAR2)
AS
BEGIN
setflex(pmodule, p_kenmerk_key, p_ref_key, NULL, p_waarde);
END;
PROCEDURE setflex (pmodule IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_ref_key IN NUMBER,
p_niveau IN VARCHAR2,
p_waarde IN VARCHAR2)
AS
l_module VARCHAR2 (3);
l_sql_kenm VARCHAR2 (4500);
l_sql_insert VARCHAR2 (4500);
l_sql_update VARCHAR2 (4500);
l_sql VARCHAR2 (4500);
l_rowsprocessed NUMBER DEFAULT 0;
l_cursor_kenm INTEGER DEFAULT DBMS_SQL.open_cursor;
l_cursor_upsert INTEGER DEFAULT DBMS_SQL.open_cursor;
l_aantal_kenm NUMBER;
l_kenmerk_tablename VARCHAR2 (30);
l_kenmval_tablename VARCHAR2 (30);
l_kcolumnname_refkey VARCHAR2 (30);
l_kcolumnname_niveau VARCHAR2 (30);
l_kcolumnname_waarde VARCHAR2 (30);
l_kcolumnname_default VARCHAR2 (30);
l_kcolumnname_kkey VARCHAR2 (30);
l_kcolumnname_delete VARCHAR2 (30);
l_niveau_col VARCHAR2 (32) DEFAULT '';
l_niveau_val VARCHAR2 (7) DEFAULT '';
BEGIN
l_module := pmodule;
flx.gettableinf (l_module, l_kenmerk_tablename, l_kcolumnname_default, l_kenmval_tablename, l_kcolumnname_refkey, l_kcolumnname_niveau, l_kcolumnname_waarde, l_kcolumnname_kkey, l_kcolumnname_delete);
l_sql_kenm := 'SELECT COUNT(*)' ||
' FROM ' || l_kenmval_tablename ||
' WHERE ' || l_kcolumnname_refkey || ' = ' || p_ref_key ||
' AND ' || l_kcolumnname_kkey || ' = ' || p_kenmerk_key ||
' AND ' || l_kcolumnname_delete || ' IS NULL';
EXECUTE IMMEDIATE l_sql_kenm INTO l_aantal_kenm;
IF l_aantal_kenm = 0
THEN
IF p_niveau IS NOT NULL
THEN
l_niveau_col := ', ' || l_kcolumnname_niveau;
l_niveau_val := ', ''' || p_niveau || '''';
END IF;
l_sql_insert := 'INSERT INTO ' || l_kenmval_tablename ||
' (' || l_kcolumnname_refkey ||
' , ' || l_kcolumnname_kkey ||
' , ' || l_kcolumnname_waarde ||
l_niveau_col ||
' )' ||
' VALUES (' || p_ref_key ||
' , ' || p_kenmerk_key ||
' , :pwaarde'||
l_niveau_val ||
' )';
l_sql := l_sql_insert;
ELSE
l_sql_update := 'UPDATE ' || l_kenmval_tablename ||
' SET ' || l_kcolumnname_waarde || ' = :pwaarde' ||
' WHERE ' || l_kcolumnname_refkey || ' = ' || p_ref_key ||
' AND ' || l_kcolumnname_kkey || ' = ' || p_kenmerk_key ||
' AND ' || l_kcolumnname_delete || ' IS NULL';
l_sql := l_sql_update;
END IF;
DBMS_SQL.parse (l_cursor_upsert, l_sql, DBMS_SQL.native);
DBMS_SQL.BIND_VARIABLE(l_cursor_upsert,':pwaarde', p_waarde);
l_rowsprocessed := DBMS_SQL.execute (l_cursor_upsert);
DBMS_SQL.close_cursor(l_cursor_upsert);
END;
PROCEDURE deleteflex (pmodule IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_ref_key IN NUMBER,
p_niveau IN VARCHAR2)
AS
l_module VARCHAR2 (3);
l_sql_delete VARCHAR2 (4500);
l_rowsprocessed NUMBER DEFAULT 0;
l_cursor_delete INTEGER DEFAULT DBMS_SQL.open_cursor;
l_kenmerk_tablename VARCHAR2 (30);
l_kenmval_tablename VARCHAR2 (30);
l_kcolumnname_refkey VARCHAR2 (30);
l_kcolumnname_niveau VARCHAR2 (30);
l_kcolumnname_waarde VARCHAR2 (30);
l_kcolumnname_default VARCHAR2 (30);
l_kcolumnname_kkey VARCHAR2 (30);
l_kcolumnname_delete VARCHAR2 (30);
l_niveau VARCHAR2 (40);
BEGIN
l_module := pmodule;
flx.gettableinf (l_module, l_kenmerk_tablename, l_kcolumnname_default, l_kenmval_tablename, l_kcolumnname_refkey, l_kcolumnname_niveau, l_kcolumnname_waarde, l_kcolumnname_kkey, l_kcolumnname_delete);
IF l_kcolumnname_niveau IS NOT NULL
THEN
l_niveau := ' AND ' || l_kcolumnname_niveau || ' = ''' || p_niveau || '''';
ELSE
l_niveau := '';
END IF;
l_sql_delete := 'DELETE FROM ' || l_kenmval_tablename ||
' WHERE ' || l_kcolumnname_refkey || ' = ' || p_ref_key ||
' AND ' || l_kcolumnname_kkey || ' = ' || p_kenmerk_key ||
' AND ' || l_kcolumnname_delete || ' IS NULL' ||
l_niveau;
DBMS_SQL.parse (l_cursor_delete, l_sql_delete, DBMS_SQL.native);
l_rowsprocessed := DBMS_SQL.execute (l_cursor_delete);
DBMS_SQL.close_cursor(l_cursor_delete);
END;
FUNCTION getflexexpression (pmodule IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_niveau IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2
IS
l_module VARCHAR2 (3);
l_sql_expr VARCHAR2 (4500);
l_kenmerk_tablename VARCHAR2 (30);
l_kenmval_tablename VARCHAR2 (30);
l_kcolumnname_refkey VARCHAR2 (30);
l_kcolumnname_niveau VARCHAR2 (30);
l_kcolumnname_waarde VARCHAR2 (30);
l_kcolumnname_default VARCHAR2 (30);
l_kcolumnname_kkey VARCHAR2 (30);
l_kcolumnname_delete VARCHAR2 (30);
l_expr VARCHAR2 (4000);
BEGIN
l_module := pmodule;
flx.gettableinf (l_module, l_kenmerk_tablename, l_kcolumnname_default, l_kenmval_tablename, l_kcolumnname_refkey, l_kcolumnname_niveau, l_kcolumnname_waarde, l_kcolumnname_kkey, l_kcolumnname_delete);
-- Expressie opvragen uit de default waarde uit de kenmerk tabel.
l_sql_expr := 'SELECT (SUBSTR (' || l_kcolumnname_default || ', 9))' ||
' FROM ' || l_kenmerk_tablename ||
' WHERE ' || l_kcolumnname_kkey || ' = ' || p_kenmerk_key;
EXECUTE IMMEDIATE l_sql_expr INTO l_expr;
RETURN l_expr;
END;
FUNCTION getdomeinwaarde (dkey IN NUMBER, waarde IN VARCHAR2, ignorewhenxmlnode IN NUMBER DEFAULT 0)
RETURN VARCHAR2
IS
sresult VARCHAR2 (255);
kolomnaam fac_kenmerkdomein.fac_kenmerkdomein_kolomnaam%TYPE;
kolomtxt fac_kenmerkdomein.fac_kenmerkdomein_kolomtxt%TYPE;
objectnaam fac_kenmerkdomein.fac_kenmerkdomein_objectnaam%TYPE;
xmlnode fac_kenmerkdomein.fac_kenmerkdomein_xmlnode%TYPE;
resultvalue VARCHAR2 (1000);
BEGIN
IF waarde IS NULL
THEN
resultvalue := NULL; -- gauw klaar mee
ELSE
SELECT rsk.fac_kenmerkdomein_kolomnaam,
rsk.fac_kenmerkdomein_kolomtxt,
rsk.fac_kenmerkdomein_objectnaam,
rsk.fac_kenmerkdomein_xmlnode
INTO kolomnaam,
kolomtxt,
objectnaam,
xmlnode
FROM fac_kenmerkdomein rsk
WHERE rsk.fac_kenmerkdomein_key = dkey;
IF (xmlnode IS NOT NULL AND ignorewhenxmlnode = 1)
THEN
RETURN waarde;
END IF;
-- Optimalisatie: meestal is het dezelfde query op de usrdata-tabel
-- Dan hoeven we niet te bouwen en steeds te parsen (FSN#25653)
IF kolomtxt = 'FAC_USRDATA_OMSCHR'
AND objectnaam = 'FAC_USRDATA'
AND kolomnaam = 'FAC_USRDATA_KEY'
THEN
SELECT fac_usrdata_omschr
INTO resultvalue
FROM fac_usrdata
WHERE fac_usrdata_key = fac.safe_to_number(waarde);
ELSE
sresult := 'SELECT MIN(' || kolomtxt || ') FROM ' || objectnaam || ' WHERE ' || kolomnaam || ' = :bd_waarde';
EXECUTE IMMEDIATE sresult INTO resultvalue USING waarde;
END IF;
END IF;
RETURN resultvalue;
END;
PROCEDURE evaluateflexexpressions (pmodule IN VARCHAR2, prefkey IN NUMBER, puserkey IN NUMBER, psavetodb IN NUMBER)
AS
l_module VARCHAR2 (3);
l_sql_exprval VARCHAR2 (4500);
l_rowsprocessed NUMBER DEFAULT 0;
l_cursor_exprval NUMBER; -- INTEGER DEFAULT DBMS_SQL.open_cursor;
l_desctab DBMS_SQL.desc_tab;
l_colcnt NUMBER;
l_expr VARCHAR2 (4000);
l_exprval VARCHAR2 (4000);
l_exprval_num NUMBER;
l_exprval_date DATE;
l_cntbind NUMBER;
l_cnt NUMBER;
l_bvar VARCHAR2 (1000);
l_rflex VARCHAR2 (1000) DEFAULT '(\:flex[0-9_]+)'; -- supports ':flex111 = ''538'''
l_kenmerkwaarde fac_kenmwaarden.fac_kenmwaarden_waarde%TYPE;
l_kenmerkw_date DATE;
l_kenmerkw_num NUMBER;
l_kenmerktype fac_kenmwaarden.fac_kenmwaarden_kenmerktype%TYPE;
l_kenmerk_key fac_kenmwaarden.fac_kenmwaarden_kenmerk_key%TYPE;
l_kenmerk_tablename VARCHAR2 (30);
l_kenmval_tablename VARCHAR2 (30);
l_kcolumnname_refkey VARCHAR2 (30);
l_kcolumnname_niveau VARCHAR2 (30);
l_kcolumnname_waarde VARCHAR2 (30);
l_kcolumnname_default VARCHAR2 (30);
l_kcolumnname_kkey VARCHAR2 (30);
l_kcolumnname_delete VARCHAR2 (30);
l_niveau_val VARCHAR2 (1) DEFAULT '';
CURSOR c_expressions
IS
SELECT fac_kenmwaarden_kenmerk_key,
fac_kenmwaarden_kenmerktype,
fac_kenmwaarden_niveau
FROM fac_kenmwaarden
WHERE fac_kenmwaarden_module = pmodule
AND fac_kenmwaarden_refkey = prefkey
AND prs_perslid_key = puserkey
AND fac_kenmwaarden_isexpr = 1
ORDER BY fac_kenmwaarden_key;
BEGIN
l_module := pmodule;
flx.gettableinf (l_module, l_kenmerk_tablename, l_kcolumnname_default, l_kenmval_tablename, l_kcolumnname_refkey, l_kcolumnname_niveau, l_kcolumnname_waarde, l_kcolumnname_kkey, l_kcolumnname_delete);
FOR expr IN c_expressions
LOOP
l_cursor_exprval := DBMS_SQL.open_cursor;
-- Expressie opvragen.
l_expr := flx.getflexexpression(pmodule, expr.fac_kenmwaarden_kenmerk_key, expr.fac_kenmwaarden_niveau);
l_sql_exprval := 'SELECT ' || '(' || l_expr || ')' || ' FROM DUAL';
DBMS_SQL.parse (l_cursor_exprval, l_sql_exprval, DBMS_SQL.native);
--DBMS_SQL.describe_columns(l_cursor_exprval, l_colcnt, l_desctab);
IF expr.fac_kenmwaarden_kenmerktype = 'N'
THEN
DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval_num);
ELSIF expr.fac_kenmwaarden_kenmerktype = 'D'
THEN
DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval_date);
ELSE
DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval, 4000);
END IF;
l_cntbind := REGEXP_COUNT (l_sql_exprval,
l_rflex,
1,
'i');
FOR l_cnt IN 1 .. l_cntbind
LOOP
l_bvar := REGEXP_SUBSTR (l_sql_exprval,
l_rflex,
1,
l_cnt,
'i');
l_kenmerk_key := TO_NUMBER (SUBSTR (l_bvar, 6));
BEGIN
SELECT fac_kenmwaarden_waarde,
fac_kenmwaarden_kenmerktype
INTO l_kenmerkwaarde,
l_kenmerktype
FROM fac_kenmwaarden
WHERE fac_kenmwaarden_module = l_module
AND fac_kenmwaarden_refkey = prefkey
AND prs_perslid_key = puserkey
AND fac_kenmwaarden_kenmerk_key = l_kenmerk_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
l_kenmerkwaarde := NULL;
l_kenmerktype := NULL;
END;
-- Als <20><>n van de flexkenmerken NULL is, dan met die waarde verder rekenen. Waarde kan bewust NULL zijn
CASE l_kenmerktype
WHEN 'D'
THEN
l_kenmerkw_date := TO_DATE(l_kenmerkwaarde, 'DD-MM-YYYY');
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_date);
WHEN 'N'
THEN
l_kenmerkw_num := TO_NUMBER(l_kenmerkwaarde);
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_num);
ELSE
DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkwaarde);
END CASE;
END LOOP;
l_rowsprocessed := DBMS_SQL.execute_and_fetch (l_cursor_exprval);
IF expr.fac_kenmwaarden_kenmerktype = 'N'
THEN
DBMS_SQL.column_value (l_cursor_exprval, 1, l_exprval_num);
l_exprval := TO_CHAR(l_exprval_num);
ELSIF expr.fac_kenmwaarden_kenmerktype = 'D'
THEN
DBMS_SQL.column_value (l_cursor_exprval, 1, l_exprval_date);
l_exprval := TO_CHAR(l_exprval_date, 'DD-MM-YYYY');
ELSE
DBMS_SQL.column_value (l_cursor_exprval, 1, l_exprval);
END IF;
IF l_kcolumnname_niveau IS NOT NULL
THEN
IF psavetodb = 1
THEN
-- Waarde opslaan in de database
flx.setflex (l_module, expr.fac_kenmwaarden_kenmerk_key, prefkey, expr.fac_kenmwaarden_niveau, l_exprval);
END IF;
-- Waarde van de expressie flexkenmerk in de tijdelijke kenmerk waarden tabel (fac_kenmwaarden) vullen met de nieuwe waarde.
-- Expressie flexkenmerken die afhankelijke zijn van andere expressie flexkenmerken worden dan ook goed berekend.
UPDATE fac_kenmwaarden
SET fac_kenmwaarden_waarde = l_exprval
WHERE fac_kenmwaarden_module = pmodule
AND fac_kenmwaarden_refkey = prefkey
AND fac_kenmwaarden_kenmerk_key = expr.fac_kenmwaarden_kenmerk_key
AND fac_kenmwaarden_niveau = expr.fac_kenmwaarden_niveau
AND prs_perslid_key = puserkey
AND fac_kenmwaarden_isexpr = 1;
ELSE
IF psavetodb = 1
THEN
-- Waarde opslaan in de database
flx.setflex (l_module, expr.fac_kenmwaarden_kenmerk_key, prefkey, l_exprval);
END IF;
-- Waarde van de expressie flexkenmerk in de tijdelijke kenmerk waarden tabel (fac_kenmwaarden) vullen met de nieuwe waarde.
-- Expressie flexkenmerken die afhankelijke zijn van andere expressie flexkenmerken worden dan ook goed berekend.
UPDATE fac_kenmwaarden
SET fac_kenmwaarden_waarde = l_exprval
WHERE fac_kenmwaarden_module = pmodule
AND fac_kenmwaarden_refkey = prefkey
AND fac_kenmwaarden_kenmerk_key = expr.fac_kenmwaarden_kenmerk_key
AND prs_perslid_key = puserkey
AND fac_kenmwaarden_niveau IS NULL
AND fac_kenmwaarden_isexpr = 1;
END IF;
DBMS_SQL.close_cursor(l_cursor_exprval);
END LOOP;
END;
END flx;
/
REGISTERRUN('$Id$')

147
FAC/FAC_PACL.SRC
View File

@@ -27,13 +27,11 @@ AS
FUNCTION xl (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, plang IN VARCHAR2)
RETURN VARCHAR2;
FUNCTION x (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, pautolcl IN NUMBER DEFAULT 1)
FUNCTION x (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2)
RETURN VARCHAR2;
FUNCTION L (pnaam IN VARCHAR2, pautolcl IN NUMBER DEFAULT 0)
FUNCTION L (pnaam IN VARCHAR2)
RETURN VARCHAR2;
PROCEDURE fallback_languages;
END lcl;
/
@@ -45,26 +43,13 @@ AS
AS
userlang VARCHAR2 (10);
BEGIN
-- Cache de databasetaal in een package-global
IF fcltdblanguage IS NULL
THEN
SELECT fac_version_lang INTO fcltdblanguage FROM fac_version;
DBMS_OUTPUT.put_line ('Recaching language ' || fcltdblanguage);
END IF;
-- Bepaalt de applicatietaal van de user zoals vanuit ASP gezet
-- Links is wat Oracle teruggeeft, rechts wat ISO-639 vindt (onze keuze)
userlang := SYS_CONTEXT ('userenv', 'LANG');
RETURN CASE userlang
WHEN 'NL' THEN 'NL'
WHEN 'GB' THEN 'EN'
WHEN 'D' THEN 'DE'
WHEN 'F' THEN 'FR'
WHEN 'S' THEN 'SV'
WHEN 'N' THEN 'NO'
WHEN 'DK' THEN 'DA'
WHEN 'SF' THEN 'FI'
ELSE fcltdblanguage
WHEN 'D' THEN 'DE'
WHEN 'F' THEN 'FR'
ELSE userlang
END;
END;
@@ -72,7 +57,7 @@ AS
AS
nlslang VARCHAR2 (30);
setsql VARCHAR2 (60);
lflcode VARCHAR2 (10); -- locale kopie
lflcode VARCHAR2 (3); -- locale kopie
BEGIN
-- Zet de sessie in de juiste taal, gegeven de FACILITOR-tweeletterige taalcode
@@ -84,7 +69,7 @@ AS
INTO lflcode
FROM fac_version;
ELSE
lflcode := SUBSTR(flcode, 1, 10);
lflcode := flcode;
END IF;
@@ -103,18 +88,6 @@ AS
WHEN 'FR'
THEN
nlslang := 'FRENCH';
WHEN 'SV'
THEN
nlslang := 'SWEDISH';
WHEN 'NO'
THEN
nlslang := 'NORWEGIAN';
WHEN 'DA'
THEN
nlslang := 'DANISH';
WHEN 'FI'
THEN
nlslang := 'FINNISH';
ELSE
nlslang := 'DUTCH';
END CASE;
@@ -161,7 +134,7 @@ AS
FUNCTION x (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, pautolcl IN NUMBER DEFAULT 1)
FUNCTION x (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2)
RETURN VARCHAR2
AS
requiredlang fac_version.fac_version_lang%TYPE;
@@ -185,26 +158,15 @@ AS
retval := lcl.xl (pnaam, pkey, pdefault, requiredlang);
END IF;
-- Voor lcl_noti_* maar verder generiek
IF pautolcl = 1 THEN
retval := lcl.L(retval, pautolcl);
END IF;
RETURN retval;
END;
-- Oracle variant van de ASP-L functie
-- Geef pautolcl=1 mee als je niet zeker weet of het een lcl is
FUNCTION L (pnaam IN VARCHAR2, pautolcl IN NUMBER DEFAULT 0)
FUNCTION L (pnaam IN VARCHAR2)
RETURN VARCHAR2
AS
retval VARCHAR2(2000); --fac_locale.fac_locale_tekst%TYPE;
BEGIN
-- Voor lcl_noti_* maar verder generiek
IF pautolcl = 1 AND pnaam NOT LIKE 'lcl_%' THEN
RETURN pnaam;
END IF;
SELECT COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst)
INTO retval
FROM fac_locale_xsl
@@ -215,95 +177,6 @@ AS
RETURN retval;
END;
PROCEDURE fallback_languages
AS
BEGIN
-- Eerst: missende LCL's aanmaken vanuit NL (die ik compleet veronderstel)
-- Eerder ggeimporteerde talen zijn mogelijk niet compleet namelijk
FOR c_lang IN (SELECT DISTINCT (fac_locale_xsl_lang) lang
FROM fac_locale_xsl
WHERE fac_locale_xsl_lang <> 'NL')
LOOP
DBMS_OUTPUT.PUT_LINE ('Updating language ' || c_lang.lang);
INSERT INTO fac_locale_xsl (fac_locale_xsl_lang,
fac_locale_xsl_module,
fac_locale_xsl_label,
fac_locale_xsl_tekst,
fac_locale_xsl_isvalid)
SELECT c_lang.lang,
fac_locale_xsl_module,
fac_locale_xsl_label,
'@@',
0
FROM fac_locale_xsl x2
WHERE fac_locale_xsl_lang = 'NL'
AND NOT EXISTS
(SELECT 1
FROM fac_locale_xsl x3
WHERE x3.fac_locale_xsl_lang = c_lang.lang
AND x2.fac_locale_xsl_label =
x3.fac_locale_xsl_label
AND x2.fac_locale_xsl_module =
x3.fac_locale_xsl_module);
END LOOP;
-- Dan: Engelstalig terugvallen op de database taal (of NL)
UPDATE fac_locale_xsl flx1
SET fac_locale_xsl_isvalid = 0,
fac_locale_xsl_tekst =
(SELECT fac_locale_xsl_tekst
FROM fac_locale_xsl flx2
WHERE flx1.fac_locale_xsl_label = flx2.fac_locale_xsl_label
AND flx1.fac_locale_xsl_module =
flx2.fac_locale_xsl_module
AND fac_locale_xsl_lang =
COALESCE((SELECT fac_version_lang FROM fac_version), 'NL'))
WHERE ( fac_locale_xsl_isvalid = 0
OR fac_locale_xsl_tekst IS NULL
OR fac_locale_xsl_tekst = '@'
OR fac_locale_xsl_tekst = '@@')
AND fac_locale_xsl_lang = 'EN';
-- Dan: Nu nog steeds missende Engelstalig echt terugvallen op NL. Altijd beter dan '@@'
UPDATE fac_locale_xsl flx1
SET fac_locale_xsl_isvalid = 0,
fac_locale_xsl_tekst =
(SELECT fac_locale_xsl_tekst
FROM fac_locale_xsl flx2
WHERE flx1.fac_locale_xsl_label = flx2.fac_locale_xsl_label
AND flx1.fac_locale_xsl_module =
flx2.fac_locale_xsl_module
AND fac_locale_xsl_lang = 'NL')
WHERE ( fac_locale_xsl_isvalid = 0
OR fac_locale_xsl_tekst IS NULL
OR fac_locale_xsl_tekst = '@'
OR fac_locale_xsl_tekst = '@@')
AND fac_locale_xsl_lang = 'EN';
-- Daarna: Alle andere talen terugvallen op Engelstalig
UPDATE fac_locale_xsl flx1
SET fac_locale_xsl_isvalid = 0,
fac_locale_xsl_tekst =
(SELECT fac_locale_xsl_tekst
FROM fac_locale_xsl flx2
WHERE flx1.fac_locale_xsl_label = flx2.fac_locale_xsl_label
AND flx1.fac_locale_xsl_module =
flx2.fac_locale_xsl_module
AND fac_locale_xsl_lang = 'EN')
WHERE ( fac_locale_xsl_isvalid = 0
OR fac_locale_xsl_tekst IS NULL
OR fac_locale_xsl_tekst = '@'
OR fac_locale_xsl_tekst = '@@')
AND fac_locale_xsl_lang NOT IN
('EN', COALESCE((SELECT fac_version_lang FROM fac_version), 'NL'));
-- En allerlaatst: lege teksten zijn altijd valid
UPDATE fac_locale_xsl flx1
SET fac_locale_xsl_isvalid = 1
WHERE fac_locale_xsl_tekst IS NULL;
END;
END lcl;
END lcl;
/
REGISTERRUN('$Id$')

780
FAC/FAC_PACX.SRC
View File

File diff suppressed because it is too large Load Diff

9
FAC/FAC_SEQ.SRC
View File

@@ -32,24 +32,17 @@ CREATE SEQUENCE fac_s_fac_nieuws_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_faq_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_locale_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_localeitems_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_locale_mgt_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_locale_xsl_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_locale_xref_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_kenmerkdomein_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_kenmwaarden_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_widget_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_code2label_key MINVALUE 1;
CREATE SEQUENCE imp_s_imp_log_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_api_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_audit_key MINVALUE 1;
CREATE SEQUENCE faq_s_faq_kenmerk_key MINVALUE 1;
CREATE SEQUENCE faq_s_faq_kenmerkwaarde_key MINVALUE 1;
CREATE SEQUENCE faq_s_fac_gui_counter_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_email_setting_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_idp_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_bookmark_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_qvw_ticket_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_session_key MINVALUE 1;
CREATE SEQUENCE fac_s_fac_sequence_key MINVALUE 1;
-- Some free to use sequence to generate unique and sequential numbers
-- with custom procedures like exports or invoicing

467
FAC/FAC_SET.SRC
View File

@@ -43,15 +43,13 @@ COMMIT;
// WEB_FACFAC (vroegere _FACILITOR), door FACILITOR medewerker te wijzigen
// WEB_PRSSYS Functioneel Applicatie Beheer, mag klant zelf wijziging
// WEB_FACTAB Technisch applicatie beheer, server instellingen
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'licensed_fe_users' , 'number' , '0' , 'Licensed nr of fe-users')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'licensed_key_users' , 'number' , '0' , 'Licensed nr of key-users')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'logoff_return_url' , 'string' , '../../' , 'Return url to go to after log off')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'checkBrowser' , 'number' , '0' , 'Check for IE6 at login (1) or not.')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'ProxyServerIPAddress' , 'string' , NULL , 'For webserver to reach outside world')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'language_toggles' , 'array' , 'NL' , 'Allow language toggle for alternate languages')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'multi_language_option' , 'number' , '0' , 'Enable multi language')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'hiresTimer' , 'number' , '0' , 'internal use only')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'crypto_provider' , 'number' , '1' , '0=JavaScript, 1=Slnkdwf.dll')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'hiresTimer' , 'number' , '0' , 'internal use only')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'crypto_provider' , 'number' , '0' , '0=JavaScript, 1=Slnkdwf.dll (Future use)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'cache_changecounter' , 'number' , '0' , 'Increment by one to reset FCLT caching.')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'csstemplate' , 'json' , '{}' , 'Color scheme.')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'csscust' , 'string' , '' , 'cust.css replacement (Future use)')
@@ -62,37 +60,30 @@ DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'autoscrollmode'
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'image_path_local' , 'string' , '\\' , 'path used by LAN for flexproperties of type X (fclt.ini:Documentdir)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'image_path_local_regexp' , 'string' , NULL , 'Reguliere expressie, bijvoorbeed /^G:/i')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'image_path_virtual' , 'string' , NULL , 'path used by WEB for flexproperties of type X')
DEFINE_SETTING('FAC', 0000, 'WEB_FACTAB', 'flexFilesPath' , 'string' , NULL , 'Path for Flexbestanden type ''F'' en ''M'', zonder eindslash')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'flexAllowedExt' , 'string' , '.*\.(doc|docx|xls|xlsx|jpg|jpeg|png|gif|bmp|dwg|dwf|eml|pdf|msg|zip|vsd|txt|ppt|pptx|oft|rtf|tif|tiff|csv|dot|xml|mcw|rar|encrypted|gz|gzip)$', 'Allowed extensions')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'flex_min_size' , 'number' , '64' , 'E-mail attachments smaller (in bytes) than this are silently ignored')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'impAllowedExt' , 'string' , '.*\.(txt|csv|xml)$' , 'Allowed importfile extensions')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'flexFilesPath' , 'string' , NULL , 'Path for Flexbestanden type ''F'' en ''M'', zonder eindslash')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'flexAllowedExt' , 'string' , '.*\.(doc|docx|xls|xlsx|jpg|jpeg|png|gif|bmp|dwg|dwf|eml|pdf|msg|zip|vsd|txt|ppt|pptx|oft|rtf|tif|tiff|csv|dot|xml|mcw|rar|encrypted|gz|gzip)$', 'Allowed extensions')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'flex_min_size' , 'number' , '64' , 'E-mail attachments smaller (in bytes) than this are silently ignored')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'impAllowedExt' , 'string' , '.*\.(txt|csv|xml)$' , 'Allowed importfile extensions')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'flexExtensionFilter' , 'string' , NULL , 'All files can be uploaded. "PDF DOC TIFF XLS" would filter')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'flexFilesOrdering' , 'number' , '0' , 'Ordering for list of flexfilenames {0=ascending | 1=descending}')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'BijlagenStreamPath' , 'string' , '../shared/BijlagenStream.asp', 'ASP path to BijlagenStream.asp file') // FSN#30943, mag >= 2016.2 een keer weg
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'MaxDownloadSize' , 'number' , '-1' , 'Should match IIS Metabase AspBufferingLimit for download warning (Future use)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'flex_X_is_URL' , 'number' , '1' , '0=browse-knop 1=gewoon input field')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_tabframes' , 'number' , '0' , 'Turn all subframes into tabs')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_accept_terms' , 'number' , '0' , '0 (default) no accept, 1=must accept L("lcl_terms_filename")')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'menu_start_open' , 'boolean' , 'true' , 'Menu is open by default')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'portalmenu_combine_single' , 'boolean' , 'false' , 'If a portalmenukop consists of 1 item, should the image be moved in between the menukop and the menuitem?')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'menu_collapse_threshold' , 'number' , '5' , 'Max number menugroups in a tab before we will collapse')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'menu_tab_toggles_portalmenu' , 'number' , '1' , 'Also activate corresponding portal_menu in body (1) or not (0)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'menu_image_path' , 'string' , NULL , 'relative! path to folder storing menu pictures and files')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'menu_use_menuicons' , 'number' , '1' , 'Use the images of the portalmenu in the regular menu as well (1) or do not (0)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_gui_counter_menu_daily' , 'boolean' , 'true' , 'Compress menu usage count to anonymous daily or personal count')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'custfunctionspath' , 'string' , NULL , 'path to custfunctions.wsc')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'custfunctionspath' , 'string' , NULL , 'path to custfunctions.wsc')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'view_dwf_with_slnkdwf' , 'boolean' , 'false' , 'View DWF document files using SLNKDWF')
DEFINE_SETTING('INS', 0001, 'WEB_FACTAB', 'ins_history' , 'string' , '1' , 'historymode for flexproperties {0 | 1}')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'os_logon' , 'boolean' , 'false' , 'enable NT domain logon {true | false}')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'os_logon_exclude' , 'array' , '' , 'Disable NT domain logon, for example "HTTP_VIA,HTTP_REVERSE_VIA,HTTP_X_BLUECOAT_VIA"')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'aut_login_strip_domain' , 'number' , '1' , 'Strip AD domain from login name { 0=no, 1=yes (default) } (Future use)')
DEFINE_SETTING('INS', 0001, 'WEB_FACFAC', 'ins_history' , 'string' , '1' , 'historymode for flexproperties {0 | 1}')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'os_logon' , 'boolean' , 'false' , 'enable NT domain logon {true | false}')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'os_logon_exclude' , 'array' , '' , 'Disable NT domain logon, for example "HTTP_VIA,HTTP_REVERSE_VIA,HTTP_X_BLUECOAT_VIA"')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'helppage_url' , 'string' , 'https://help.facilitor.nl/fac_wrapper.php', 'Helppage')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'helppage_secret' , 'string' , 'yuszkRZXlGqjOgyE' , 'Helppage hmac secret')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'logcenter_url' , 'string' , 'https://logcentre.facilitor.nl/?SSO=CUSTOMER', 'Logcenter url')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'logcenter_secret' , 'string' , 'd1RLxRhQMvuU7MkdVeLlcBdYKZkUNh7N', 'Logcenter jwt secret')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'forum_url' , 'string' , 'http://wordpress.facilitor.nl', 'Forum url (future use)')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'forum_secret' , 'string' , 'rQf1yKO1VWP4xm3iGef1WgzFo5LPKBEz', 'Forum jwt secret (future use)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'timepickercolumns' , 'number' , '4' , 'Nr of columns for timepicker (increase for long days or short intervals)')
DEFINE_SETTING('PRS', 0001, 'WEB_FACTAB', 'prs_max_dep_level' , 'number' , '2' , 'number of levels between prs_bedijf and prs_perslid (max = 5)')
DEFINE_SETTING('PRS', 0001, 'WEB_FACFAC', 'prs_max_dep_level' , 'number' , '2' , 'number of levels between prs_bedijf and prs_perslid (max = 5)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'qp_maxrows' , 'number' , '100' , 'Maximum number of rows to show, displays ''lcl_qp_maxrows1/2'' if exceeded')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'qp_maxrows2' , 'number' , '1000' , 'Maximum number of rows to show, displays ''lcl_qp_maxrows3'' if exceeded')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'rs_maxchar' , 'number' , '150' , 'vanaf hier afgekapt en ''Meer...'' tonen.')
@@ -105,26 +96,18 @@ DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'kosten_klant_default'
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_password_validation' , 'string' , '.{8,}' , 'At least 8 characters')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_password_fail_limit' , 'number' , '999' , 'Lockout after many password failures (Future use)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_password_expiration' , 'number' , '-1' , 'Password expire days (Future use)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'prs_password_hash_factor' , 'number' , '16' , 'Password hash workfactor (2^x)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'prs_password_hash_factor' , 'number' , '16' , 'Password hash workfactor (2^x)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'prs_password_hash_length' , 'number' , '20' , 'Password hash length')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'prs_password_otp_window' , 'number' , '60' , 'OTP windows (x seconds early/late allowed)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'prs_password_otp_window2' , 'number' , '600' , 'OTP windows for resync (x seconds early/late allowed, future use)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'prs_password_otp_mode' , 'number' , '0' , 'OTP mode (0=off,1=prssys only, 2=everyone with password, 3=everyone)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'prs_login_lockout_delay' , 'float' , '0.2' , 'Lockout seconds after each failed attempt (exponential)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'prs_login_lockout_delayfactor' , 'float' , '2' , 'Exponent base for prs_login_lockout_delay')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'prs_login_attempts' , 'number' , '5' , 'Lockout username after this many failed attempts')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'prs_login_lockout_expire' , 'number' , '15' , 'Lockout minutes after prs_login_attempts failed attempts')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_einddatum_login_grace' , 'number' , '-1' , 'Disallow login after prs_einddatum. (-1=disabled, >=0 disallow after einddatum+nnn days')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'prs_allow_impersonate' , 'boolean' , 'false' , 'Allow impersonation by PRSSYS')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_personal_noti_options' , 'number' , '15' , 'Options that are provided for personal notification overrules (+8:popup,+4:sms,+2:mail,+1:portal)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'prs_password_otp_mode' , 'number' , '0' , 'OTP mode (0=off,1=prssys only, 2=everyone with password, 3=everyone)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'prs_allow_impersonate' , 'boolean' , 'false' , 'Allow impersonation for PRSSYS')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'iconcolumns' , 'number' , '6' , 'number of columns in an iconmenu page.')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'NotifyMessageInterval' , 'number' , '0' , 'time (seconds) between NotifyMessage.asp [=Check for popups] refreshes. 0=disable')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'NotifyMessageInterval' , 'number' , '0' , 'time (seconds) between NotifyMessage.asp [=Check for popups] refreshes. 0=disable')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'usrrap_refreshrate' , 'number' , '60' , 'time between auto refresh of selected usrraps (seconds)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'refresher_doubleauto' , 'number' , '3' , 'Double buffering delay (seconds)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'PerformInterval' , 'number' , '0' , 'time (seconds) between shared/performancetester.asp refreshes 0=disable')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'perfmon_threshold' , 'number' , '-1' , 'time threshold for statements to be monitored for performance {milliseconds | -1}')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'PerformInterval' , 'number' , '0' , 'time (seconds) between shared/performancetester.asp refreshes 0=disable')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'perfmon_threshold' , 'number' , '-1' , 'time threshold for statements to be monitored for performance {milliseconds | -1}')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'login_url' , 'string' , 'appl/shared/login.asp' , 'url providing login-services')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'login_pda_url' , 'string' , 'appl/shared/login.asp' , 'url providing login-services when pda detected. Future use')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'login_use_email' , 'number' , '0' , 'use email to check user authentication { 0 - use oslogin | 1 - use email }')
@@ -132,37 +115,40 @@ DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'login_remember_days'
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_firstlogin_url' , 'string' , 'appl/fac/welcome.asp' , 'Url to show upon first login of user')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_firstlogin_expire' , 'number' , '14' , 'Remove firstlogin_url automatically after nn days')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'email_password' , 'number' , '0' , 'Show ''wachtwoord vergeten'' optie (1=voor mensen met wachtwoord, 2=voor iedereen)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'self_register' , 'number' , '0' , 'Can user self-register? ( 0 disable )')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'self_register_expire' , 'number' , '60' , 'Minutes to respond to confirmation e-mail ( default 60 )')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'self_register_groep_keys' , 'array' , '' , 'Custom fac_groep options for the self_registerscreen, 1 option: auto pick that one, 2+ gives a dropdown menu')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'self_register_srtperslid_key' , 'number' , '-1' , 'Default srtperslid key')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'self_register_afdeling_key' , 'number' , '-1' , 'Default afdeling key')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'self_register_email_whitelist' , 'string' , '' , 'Regexp email-restriction eg. \@facilitor\.nl$')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'SmsUrl' , 'string' , '' , 'SMS service URL')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'SmsUid' , 'string' , '' , 'User id for SMS service')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'SmsPwd' , 'string' , '' , 'Password for SMS service')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'SmsReplyPhone' , 'string' , '' , 'Reply id for SMS service, this can be either a phonenumber or a string')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'self_register' , 'number' , '0' , 'Can user self-register? ( 0 disable )')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'self_register_expire' , 'number' , '60' , 'Minutes to respond to confirmation e-mail ( default 60 )')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'self_register_groep_key' , 'number' , '-1' , 'Default fac_groep for unconfirmed user. If >0 it overrules _DEFAULT groep')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'self_register_srtperslid_key' , 'number' , '-1' , 'Default srtperslid key')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'self_register_afdeling_key' , 'number' , '-1' , 'Default afdeling key')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'self_register_email_whitelist' , 'string' , '' , 'Regexp email-restriction eg. \@facilitor\.nl$')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'self_fromaddress' , 'string' , 'FACILITOR registratie <no_reply@facilitor.nl>', 'From-address for confirmation e-mail self-registration')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'self_replyaddress' , 'string' , 'no_reply@facilitor.nl' , 'Reply-address for confirmation e-mail self-registration')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'sys_ip_restrict' , 'string' , '' , 'Regexp ip-restriction')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'sys_ip_restrict' , 'string' , '' , 'Regexp ip-restriction')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'sys_ip_restrict_internal' , 'string' , '' , 'Regexp ip-restriction internal')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'sys_ip_jail' , 'string' , '' , 'Regexp ip-jail to prevent roaming (future use)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'sys_ip_lockmode' , 'number' , '1' , 'Automatic logoff on ip-change (0 disable)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'auto_https' , 'number' , '3' , '0=not https, 1=http redirects to https, (3=also all cookies ;Secure)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'hsts_maxage' , 'number' , '31536000' , 'HTTP Strict Transport Security max-age (0=off, eg. 31536000 for one year)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'qrc_enable' , 'number' , '1' , 'Enable QRC-authentication feature (1) or not (0)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'qr_auth_expire' , 'number' , '5' , 'Minutes QRC-code is valid (default 5)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'qr_color' , 'number' , '5452544' , 'QRC color')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'auto_https' , 'number' , '3' , '0=not https, 1=http redirects to https, (3=also all cookies ;Secure)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'hsts_maxage' , 'number' , '0' , 'HTTP Strict Transport Security max-age (0=off, eg. 31536000 for one year)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'qrc_enable' , 'number' , '1' , 'Enable QRC-authentication feature (1) or not (0)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'qr_auth_expire' , 'number' , '5' , 'Minutes QRC-code is valid (default 5)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'qr_color' , 'number' , '5452544' , 'QRC color')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_nieuws_forum_url' , 'string' , 'http://wordpress.facilitor.nl/api/get_category_posts/?category_id=40&count=15&date_format=d-m-Y', NULL)
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_nieuws_forum_max' , 'number' , '6' , 'Max number of news items to show (<0 to disable)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_emailtoken_auth_expire' , 'number' , '0' , 'Minutes e-mail login token is valid (default 0)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_apitoken_auth_expire' , 'number' , '0' , 'Minutes api auth token is valid (default 0)')
DEFINE_SETTING('PRS', 0001, 'WEB_FACTAB', 'prs_dep_all' , 'boolean' , 'false' , 'allow attaching persons on all department level { true | false }')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_emailtoken_auth_expire' , 'number' , '0' , 'Minutes e-mail login token is valid (default 0)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_apitoken_auth_expire' , 'number' , '0' , 'Minutes api auth token is valid (default 0)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_nieuws_forum_max' , 'number' , '6' , 'Max number of news items to show')
DEFINE_SETTING('PRS', 0001, 'WEB_FACFAC', 'prs_dep_all' , 'boolean' , 'false' , 'allow attaching persons on all department level { true | false }')
DEFINE_SETTING('PRS', 0001, 'WEB_FACFAC', 'prs_dep_string' , 'string' , 'd.prs_afdeling_naam' , NULL)
DEFINE_SETTING('PRS', 0001, 'WEB_FACFAC', 'prs_pers_string' , 'string' , ' p.prs_perslid_naam|| NVL2( p.prs_perslid_voorletters, '', '' || p.prs_perslid_voorletters, '''')|| NVL2( p.prs_perslid_tussenvoegsel, '' '' || p.prs_perslid_tussenvoegsel, '''')|| NVL2( p.prs_perslid_voornaam, '' ('' || p.prs_perslid_voornaam || '')'', '''')', NULL)
DEFINE_SETTING('PRS', 0001, 'WEB_FACFAC', 'prs_contactpers_string' , 'string' , 'cp.prs_contactpersoon_naam || NVL2(cp.prs_contactpersoon_voorletters, '', '' || cp.prs_contactpersoon_voorletters, '''')|| NVL2(cp.prs_contactpersoon_tussenv, '' '' || cp.prs_contactpersoon_tussenv, '''')|| NVL2(cp.prs_contactpersoon_voornaam, '' ('' || cp.prs_contactpersoon_voornaam || '')'', '''')', NULL)
DEFINE_SETTING('PRS', 0001, 'WEB_FACFAC', 'prs_kpn_string' , 'string' , ' NVL2(k.prs_kostenplaats_nr, prs_kostenplaats_nr || '' ''|| lcl.x(''prs_kostenplaats_omschrijving'', k.prs_kostenplaats_key, k.prs_kostenplaats_omschrijving), '''')', NULL)
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'alg_loc_string' , 'string' , ' l.alg_locatie_omschrijving || '' ('' || l.alg_locatie_code || '')'' ', NULL)
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'email_regexp' , 'string' , '^\s*[A-Z0-9&\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,4}\s*([,;]\s*[A-Z0-9&\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,4}\s*)*$', 'Meerdere gescheiden door , of ;')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'email_regexp_single' , 'string' , '^\s*[A-Z0-9&\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,4}\s*$', 'E<>n email adres')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'email_regexp' , 'string' , '^\s*[A-Z0-9\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,4}\s*([,;]\s*[A-Z0-9\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,4}\s*)*$', 'Meerdere gescheiden door , of ;')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'email_regexp_single' , 'string' , '^\s*[A-Z0-9\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,4}\s*$', 'E<>n email adres')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'ReplyAddress' , 'string' , '' , 'ReplyTo Address when e-mailing manually')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'widgetportal' , 'number' , '0' , 'Use a widgetpage as startpage (1) or the standard page (0)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'widgetportal' , 'number' , '0' , 'Use a widgetpage as startpage (1) or the standard page (0)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'portalnewslength' , 'number' , '96' , 'Max. length of a line in statusinfo frame for hyperlinked messages {0..512}')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'portalnewsmax' , 'number' , '25' , 'Max. number of messages in statusinfo frame {-1=unlimited | n=limit to n most recent messages}')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'portalmsgmax' , 'number' , '5' , 'Max. number of messages in messages frame {-1=unlimited | n=limit to n most recent messages | 0=no messages}')
@@ -176,14 +162,13 @@ DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'facilitiespast_mld'
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'facilitiesfuture_mld' , 'number' , '31' , 'Number of days in the future to show (my) facilities for calls')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'facilitiespast_res' , 'number' , '2' , 'Number of days in the past to show (my) facilities for reservations')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'facilitiesfuture_res' , 'number' , '31' , 'Number of days in the future to show (my) facilities for reservations')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'personal_satisfaction_period' , 'number' , '100' , 'Number of days for which the personal satisfaction rating is calculated')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'currency_icon' , 'string' , 'fa-eur' , 'Currency icon. Use fa-money for generic')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'personal_satisfaction_period' , 'number' , '100' , 'Number of days for which the personal satisfaction rating is calculated')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'currency_pref' , 'string' , 'EUR ' , 'Currency prefix')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'currency_suff' , 'string' , '' , 'Currency suffix')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'cal_showOn' , 'string' , 'button' , '''button'' or ''focus'' or ''both''')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'cal_showOn' , 'string' , 'button' , '''button'' or ''focus'' or ''both''')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'show_ordernr' , 'number' , '0' , '0=never,>0=always, 3=also bo-list')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'can_selfapprove' , 'number' , '999999' , 'I can approve myself below or equal this limit or someone else must approve always above this limit')
DEFINE_SETTING('PRS', 0001, 'WEB_FACFAC', 'prs_approvemethod' , 'number' , '1' , 'Approval tree: 1 = kp.budgethouder, kpngroep.verantwoordelijke, 2 = traverse up departments if kp.budgethouder undefined, 3=traverse up departments for budgethouder with adequate profile')
DEFINE_SETTING('PRS', 0001, 'WEB_FACFAC', 'prs_approvemethod' , 'number' , '1' , 'Approval tree: 1 = kp.budgethouder, kpngroep.verantwoordelijke, 2 = first traverse up the departments for a kp.budgethouder')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'use_simple_sso' , 'number' , '0' , 'Use user id decoding UID_DEC (Simple Single Signon uit of aan zetten) {0=no | 1=yes}')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fclt_web_url' , 'string' , '' , 'Url to the FACILITOR software (future use)')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'sso_advanced_secret' , 'string' , '' , 'Shared secret for advanced SSO=1')
@@ -193,36 +178,33 @@ DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'sso_advanced_url'
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'sso_advanced_url_alt' , 'string' , '' , 'Advanced SSO path to alternate customer sso=2 script')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'sso_advanced_autoip' , 'string' , '' , 'Advanced SSO ip-regexp for automatic sso (future use)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'sso_advanced_autoip_alt' , 'string' , '' , 'Advanced SSO ip-regexp for automatic alternate sso (future use)')
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'idp_internal_anyuser' , 'boolean' , 'false' , 'FAC_IDP_INTERNAL sso can be used to login for any user')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'note_collapsed' , 'number' , '1' , 'Notes overview collapsed/fold up (=1 default) or unfold (=0)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'workflow_collapsed' , 'number' , '1' , 'Workflow overview collapsed/fold up (=1 default) or unfold (=0)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'use_capacity_planning' , 'number' , '0' , 'De inzetbaarheid van personen en uitvoerbaarheid bij opdrachten kan worden aangegeven (0=nee {default}, 1=ja)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'allow_framed_facilitor' , 'boolean' , 'false' , 'Is it allowed to use FACILITOR in an (i)frame?')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'p3p_header' , 'string' , '' , 'P3P privacy policy')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'use_capacity_planning' , 'number' , '0' , 'De inzetbaarheid van personen en uitvoerbaarheid bij opdrachten kan worden aangegeven (0=nee {default}, 1=ja)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'allow_framed_facilitor' , 'boolean' , 'false' , 'Is it allowed to use FACILITOR in an (i)frame?')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'p3p_header' , 'string' , '' , 'P3P privacy policy')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'cors_header' , 'string' , '' , 'CORS header (future use)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'http_meta_head' , 'string' , '<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1">', 'Submitted in each html <head>')
DEFINE_SETTING('ALG', 0001, 'WEB_PRSSYS', 'alg_onrgoed_recent' , 'number' , '60' , 'Tijdsinterval voor de recente onroerendgoed wijzigingen in minuten')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'http_meta_head' , 'string' , '<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1">', 'Submitted in each html <head>')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_melding_recent' , 'number' , '60' , 'Tijdsinterval voor de recente wijzigingen in minuten')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdracht_recent' , 'number' , '60' , 'Tijdsinterval voor de recente opdracht wijzigingen in minuten')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdracht_flags' , 'number' , '0' , 'Number of flags fo/bo can define for orders. Max 10')
DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_contract_recent' , 'number' , '60' , 'Tijdsinterval voor de recente contract wijzigingen in minuten')
DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_contract_requestor_required' , 'boolean' , 'false' , 'Set the contract requestor field as required (true) or optional (false)')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_reservering_recent' , 'number' , '60' , 'Tijdsinterval voor de recente reserverings wijzigingen in minuten')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'mobile_enabled' , 'number' , '0' , 'Is FACILITOR Mobile available {0 | 1}')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'mobile_imageportal' , 'boolean' , 'true' , 'Use the fancy mobile icon portal (true) or text portal (false)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'mobile_imageportal' , 'boolean' , 'true' , 'Use the fancy mobile icon portal (true) or text portal (false)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'mobile_guest_user' , 'string' , NULL , 'QRCode only for now, set to "_GAST" and assign rights to _GAST.')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'qp_maxrows_mobile' , 'number' , '50' , 'Maximum number of rows to show mobile, displays ''lcl_qp_maxrows'' if exceeded')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'mobile_password' , 'number' , '0' , 'get the login password sent to your mobile')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'mobile_password_pda' , 'number' , '0' , 'get the login password sent your mobile when using a mobile')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'mobile_password_exp' , 'number' , '15' , 'time to enter the login code received on the mobile in minutes.')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'mobile_password_exp' , 'number' , '15' , 'time to enter the login code received on the mobile in minutes.')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_restrict_mobile_to_me' , 'number' , '0' , 'For mobile, show calls within scope (0) or only list calls assigned to me (1) with scope')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'mobile_alg_level' , 'string' , 'G' , 'Level to use for mobile scoping: L(ocatie), G(ebouw) of V(erdieping)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'mobile_position_required' , 'number' , '1' , 'A current position is required for geo-scoping (1) or not (0)')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_dwf_path' , 'string' , NULL , 'full filepath to FACILITOR Graphics DWF files')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_dwf_path_concept' , 'string' , NULL , NULL)
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_vlucht_path' , 'string' , NULL , 'full filepath to FACILITOR Graphics vlucht DWF files')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_symbols_path' , 'string' , NULL , 'full filepath to FACILITOR Graphics symbol files')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_dwf_path_prj' , 'string' , NULL , 'full filepath to FACILITOR Graphics DWF files for scenarios')
DEFINE_SETTING('CAD', 0000, 'WEB_FACFAC', 'fg_dwf_path' , 'string' , NULL , 'full filepath to FACILITOR Graphics DWF files')
DEFINE_SETTING('CAD', 0000, 'WEB_FACFAC', 'fg_dwf_path_concept' , 'string' , NULL , NULL)
DEFINE_SETTING('CAD', 0000, 'WEB_FACFAC', 'fg_vlucht_path' , 'string' , NULL , 'full filepath to FACILITOR Graphics vlucht DWF files')
DEFINE_SETTING('CAD', 0000, 'WEB_FACFAC', 'fg_symbols_path' , 'string' , NULL , 'full filepath to FACILITOR Graphics symbol files')
DEFINE_SETTING('CAD', 0000, 'WEB_FACFAC', 'fg_dwf_path_prj' , 'string' , NULL , 'full filepath to FACILITOR Graphics DWF files for scenarios')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_rap_alg' , 'string' , '../cad/rap_alg.asp' , NULL)
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_rap_algc' , 'string' , '../cad/rap_algc.asp' , 'concept')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_rap_cnt' , 'string' , '../cad/rap_cnt.asp' , NULL)
@@ -237,27 +219,27 @@ DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_rap_cnt2'
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_rap_ins2' , 'string' , '../cad/rap_ins2.asp' , NULL)
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_paperColor' , 'number' , '15395820' , 'paper background or -1 for ''as published''')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourColor' , 'number' , '65280' , 'Default roomcontour coloring')
DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_contourAlpha' , 'number' , '0' , 'Default roomcontour transparancy. 0==invisible!')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_contourAlpha' , 'number' , '0' , 'Default roomcontour transparancy. 0==invisible!')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourWeight' , 'number' , '100' , 'Default roomcontour width. 100mm;')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_areaThreshold' , 'number' , '7000100' , 'Bij kleiner oppervlakte dunnere contour en kleiner label')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_paperColorCpt' , 'number' , '13684944' , 'paper background concept')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourColorCpt' , 'number' , '16776960' , 'Default roomcontour coloring concept new rooms')
DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_ThemaAlpha' , 'number' , '224' , 'Default roomcontour transparancy. 255==solid!')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_ThemaAlpha' , 'number' , '224' , 'Default roomcontour transparancy. 255==solid!')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_inLabelSize' , 'number' , '800' , 'Binnen ruimtelabels grootte (mm)')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_inWPLabelSize' , 'number' , '400' , 'Binnen wekrpleklabels grootte')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_inINSLabelSize' , 'number' , '250' , 'Binnen objectlabels grootte')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_outLabelSize' , 'number' , '16000' , 'Buiten terreinsectorlabels grootte')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_outINSLabelSize' , 'number' , '8000' , 'Buiten objectlabels grootte')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_labelPosition' , 'number' , '1' , '1=default, 2=center, 3=topleft')
DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_startBuiten' , 'boolean' , 'false' , 'Bij binnenkomst van FGII buiten/terrein-situatie tonen')
DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_translateprintcolor' , 'json' , '[]' , 'Kleurvertalingen bij printen')
DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_antialias' , 'number' , '2' , 'Antialias, 1=off, 2=pleasant, 4=slower')
DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_dobbelScale' , 'float' , '0.5' , 'Schaal voor de dobbelsymbolen versus normale grootte')
DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_dobbelDist' , 'number' , '1400' , 'Afstand dobbel symbolen (mm)')
DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_WPScale' , 'float' , '1' , 'Schaal voor werkplek symbolen tov 1.0')
DEFINE_SETTING('CAD', 0000, 'WEB_FACFAC', 'fg_startBuiten' , 'boolean' , 'false' , 'Bij binnenkomst van FGII buiten/terrein-situatie tonen')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_translateprintcolor' , 'json' , '[]' , 'Kleurvertalingen bij printen')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_antialias' , 'number' , '2' , 'Antialias, 1=off, 2=pleasant, 4=slower')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_dobbelScale' , 'float' , '0.5' , 'Schaal voor de dobbelsymbolen versus normale grootte')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_dobbelDist' , 'number' , '1400' , 'Afstand dobbel symbolen (mm)')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_WPScale' , 'float' , '1' , 'Schaal voor werkplek symbolen tov 1.0')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_ins_symbols' , 'boolean' , 'false' , 'Objecten als symbolen in de tekening plaatsen.')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_bitmapsymbolsize' , 'number' , '1000' , 'Symbool hoogte bitmap symbolen.')
DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_maximize' , 'boolean' , 'true' , 'Maximaliseer plaatje naar wat echt zichtbaar is.')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_maximize' , 'boolean' , 'true' , 'Maximaliseer plaatje naar wat echt zichtbaar is.')
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_syncruimteview' , 'string' , 'cad_v_sync_alg_ruimte' , NULL)
DEFINE_SETTING('CAD', 0001, 'WEB_FACFAC', 'fg_syncterreinview' , 'string' , 'cad_v_sync_alg_terrein' , NULL)
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourlayers' , 'string' , '{CONT!.}|{CONT\|.*}' , NULL)
@@ -268,19 +250,19 @@ DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourlayers_alt2'
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_labellayers_alt2' , 'string' , '' , NULL)
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contour_minArea' , 'number' , '200010' , 'minimale mm2 om herkend te worden als ruimte (millimeter! dus)')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_dwgscale' , 'float' , '1000' , 'AutoCAD Drawing scale units/meter (future use)')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_mobile_thema' , 'number' , '-1' , 'Fixed theme to use on Mobile plans (key, -1 = let user select theme)')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_mobile_label' , 'number' , '-1' , 'Label theme to be used on Mobile plans (key)')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_werkpleksymbool' , 'string' , 'WERKPLEK' , 'Symbol for workplace in Graphics, file must exist in fg_symbols_path')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_mobile_thema' , 'number' , '12' , 'kleurthema om mobile te tonen')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_mobile_label' , 'number' , '-1' , 'labelthema om mobile te tonen')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_werkpleksymbool' , 'string' , 'WERKPLEK' , 'Moet in fg_symbols_path staan')
DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_publiclayers' , 'array' , '' , 'ins_disc_keys of layers visible without INSUSE')
DEFINE_SETTING('ALG', 0001, 'WEB_FACTAB', 'alg_ruimtenr_aut_use' , 'number' , '0' , 'WEB_ALGUSE may change alg_ruimte_nr/omschrijving {0=WEB_ALGMAN required | 1=WEB_ALGUSE allowed too}')
DEFINE_SETTING('ALG', 0001, 'WEB_FACFAC', 'alg_ruimtenr_aut_use' , 'number' , '0' , 'WEB_ALGUSE may change alg_ruimte_nr/omschrijving {0=WEB_ALGMAN required | 1=WEB_ALGUSE allowed too}')
DEFINE_SETTING('ALG', 0001, 'WEB_FACFAC', 'alg_ruimte_comm_opp_key' , 'number' , '-1' , 'Key to be used for commercial ruimte oppervlakte')
DEFINE_SETTING('ALG', 0001, 'WEB_FACFAC', 'alg_terrein_comm_opp_key' , 'number' , '-1' , 'Key to be used for commercial terrein oppervlakte')
DEFINE_SETTING('ALG', 0001, 'WEB_PRSSYS', 'alg_fg_remote_maps' , 'string' , '' , 'URL. if not empty use Google Maps for locations en buildings in FACILITOR Graphics')
DEFINE_SETTING('BES', 0001, 'WEB_FACFAC', 'bes_image_path' , 'string' , NULL , 'path to folder storing bes_srtdeel pictures')
DEFINE_SETTING('BES', 0000, 'WEB_FACFAC', 'bes_image_path' , 'string' , NULL , 'path to folder storing bes_srtdeel pictures')
DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_show_RFO_price' , 'number' , '2' , 'show prices {0=no support | 1=FO support | 2=FE&FO support}')
DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_datum_limiet' , 'number' , '90' , 'max days in the future')
DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_bestelling_prefix' , 'string' , '' , 'prefix voor het aanvraagnummer van de bestelling')
DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_bestelopdr_prefix' , 'string' , '' , 'prefix voor het opdrachtnummer van de bestelling')
DEFINE_SETTING('BES', 0000, 'WEB_FACFAC', 'bes_bestelling_prefix' , 'string' , '' , 'prefix voor het aanvraagnummer van de bestelling')
DEFINE_SETTING('BES', 0000, 'WEB_FACFAC', 'bes_bestelopdr_prefix' , 'string' , '' , 'prefix voor het opdrachtnummer van de bestelling')
DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_afleverruimte_verplicht' , 'number' , '0' , 'Afleverruimte required {0=no (default) | 1=yes}')
DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_retour_need_approval' , 'number' , '0' , 'retourbestelaanvraag wel(=1)/niet(=0) langs de BO laten gaan voor fiattering')
DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_show_inkprijs' , 'number' , '0' , 'show inkoopprijs column with BES management info {0=no | 1=yes}')
@@ -288,7 +270,7 @@ DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_pgb_fiattering'
DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_pgb_fe_fiat' , 'number' , '0' , 'Een bestelling van FE-er moet naast PGB/AGB fiattering ook altijd gefiatteerd worden, anders altijd afwijzen {0=no | 1=yes}')
DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_confirm_order_before_submit' , 'boolean' , 'false' , 'Bevestig bestelaanvraag voordat het uitgevoerd wordt')
DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_approval_all' , 'number' , '0' , 'Goedkeuring bestelling vereist t.o.v. eerstvolgende limiet (=0 default) of t.o.v. totale kosten (in <20><>n keer)(=1)')
DEFINE_SETTING('CNT', 0001, 'WEB_FACTAB', 'cnt_srttype_rental' , 'number' , '2' , 'cnt_srtcontract_type of room rental contract type')
DEFINE_SETTING('CNT', 0000, 'WEB_FACFAC', 'cnt_srttype_rental' , 'number' , '2' , 'cnt_srtcontract_type of room rental contract type')
DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_scopeverdeling' , 'number' , '0' , '0|1, cost distribution by scope weights 0=relative weight, 1=absolute amount')
DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_inactivate_mode' , 'number' , '0' , 'inactivate contract with WEB_CNTMAN/WEB_CNTUSE read rights and WEB_CNTMSU rights (0) or with extra WEB_CNTMAN write rights (1)')
DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_all_kostenplaats' , 'number' , '0' , 'show all (1) active kostenplaats values or only the one i have mandate for (0) in list')
@@ -303,11 +285,11 @@ DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_approval_all'
DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_factuur_totaalmarge' , 'number' , '0' , 'De toegestane marge op de totaal factuur (default 0)')
DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_internalnr_readonly' , 'number' , '0' , 'Het interne contractnummer wordt automatisch bepaalt en is niet wijzigbaar')
DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_enable_kostensoort' , 'number' , '1' , 'can contract kostensoort be changed?')
DEFINE_SETTING('FAQ', 0001, 'WEB_FACTAB', 'faq_enabled' , 'number' , '0' , 'Is kennisbank available {0 | 1} licensed separately')
DEFINE_SETTING('FAQ', 0001, 'WEB_PRSSYS', 'faq_max_results' , 'number' , '25' , 'Limit the FAQ results to this number')
DEFINE_SETTING('FAQ', 0001, 'WEB_FACFAC', 'faq_enabled' , 'number' , '0' , 'Is kennisbank available {0 | 1} licensed separately')
DEFINE_SETTING('FAQ', 0001, 'WEB_PRSSYS', 'faq_max_results' , 'number' , '10' , 'Limit the result to this number')
DEFINE_SETTING('FAQ', 0001, 'WEB_PRSSYS', 'faq_kennisbank_popup' , 'number' , '3' , 'Show kennisbank popup {0=no | 01=1=FE | 10=2=FO | 11=3=FE+FO}')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'iLearning_enabled' , 'number' , '0' , 'Is iLearning available {0 | 1} licensed separately')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'kto_srtdiscipline_key' , 'number' , '-1' , 'key van KTO (klanttevredenheidsonderzoek) vakgroeptype')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'kto_srtdiscipline_key' , 'number' , '-1' , 'key van KTO (klanttevredenheidsonderzoek) vakgroeptype')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'menu_photo_size' , 'string' , 'r512x512' , 'Resize uploads to this maximum MENU photo size. Ex: r200x150')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_like_bad' , 'number' , '2' , 'Rating for bad service')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_like_poor' , 'number' , '4' , 'Rating for poor service')
@@ -319,17 +301,16 @@ DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_mld_deeplike_expire'
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_res_deeplike_expire' , 'number' , '0' , 'Number of days reservation deeplike bookmark is valid (default 0 is disabled) future use')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_bes_deeplike_expire' , 'number' , '0' , 'Number of days bestelling deeplike bookmark is valid (default 0 is disabled) future use')
DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_btw_default' , 'number' , '3' , 'Standaard btw tarief (1=NL|Nul, 2=NL|Laag, 3=NL|Hoog, enz.)')
DEFINE_SETTING('FIN', 0001, 'WEB_FACTAB', 'fin_defaultboekmaand' , 'number' , '1' , 'How to determine default "boekmaand" for entered invoice: 1=sysdate, 2=orderdate')
DEFINE_SETTING('FIN', 0001, 'WEB_FACFAC', 'fin_defaultboekmaand' , 'number' , '1' , 'How to determine default "boekmaand" for entered invoice: 1=sysdate, 2=orderdate')
DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_new_after_save' , 'number' , '0' , 'Na het opslaan terugkomen met de factuur in de showmode of met nieuw leeg invulformulier (0=showmode || 1=nieuw formulier)')
DEFINE_SETTING('FIN', 0001, 'WEB_FACFAC', 'fin_import_app_key' , 'number' , '-1' , 'fac_import_app_key of customer ''FACTUUR'' import: -1=FACILITOR standard')
DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_enable_kostensoort' , 'number' , '1' , 'can factuur kostensoort be changed?')
DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_kostensoort_verplicht' , 'number' , '0' , 'Is kostensoort required? {0=not required | 1=required}')
DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_bof_mag_editen' , 'number' , '1' , 'Users/Approvers with FINBOF rights have edit possibilities {0=no edit (only approve) | 1=edit (default)}')
DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_enable_afwijzen' , 'number' , '1' , 'Is it possible to reject an invoice or not {0=Afwijzen unavailable | 1=Afwijzen available}')
DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_enable_goedkeuren' , 'number' , '0' , 'Is it possible to validate (''goedkeuren'') an invoice {0=validation unavailable | 1=validation optional | 2=validation required}')
DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_enable_goedkeuren' , 'number' , '0' , 'Is it possible to validate an invoice or not {0=Goedkeuren unavailable | 1=Goedkeuren available}')
DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_match_lowerlimit' , 'number' , '0' , 'Check lowerlimit also for matching {0=Only upperlimit (invoice<order+tolerance | 1=Upper and lowerlimit (order-tolerance<invoice<order+tolerance)}')
DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_use_verkoopfacturen' , 'number' , '0' , 'Provide direct access to generated salesinvoices (if any) from contract/order/reservation details {0=no | 1=yes}')
DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_factuur_verlegdmode' , 'number' , '0' , 'Use and validation of field fin_factuur_gbedrag: {0=field invisible | &1=visible and enterable | &2=required if invoicelines has a shifted VAT-value | &4=all invoicelines must have shifted VAT-value or must have standard VAT values (=not shifted)}')
DEFINE_SETTING('MLD', 0001, 'WEB_FACFAC', 'mld_meldbron_key' , 'number' , '5' , 'MLD_MELDBRON_KEY of meldbron ''intranet''')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_melding_autoprint' , 'number' , '0' , 'auto print melding form after insert by FO 2=unconditionally print complain | 1=print if ask_for_orders=0 | 0=no print')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_ask_for_orders' , 'boolean' , 'true' , 'ask for immediate order input after call entry { true | false }')
@@ -341,12 +322,11 @@ DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_ord_show_cost'
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_ord_show_ordernr' , 'number' , '0' , 'show ordernr field for orders {0=don''t show(&use mld_melding_ordernr) | 1=show}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_ord_show_kostenplaats' , 'number' , '1' , 'show kostenplaats field for orders {0=don''t show | 1=editable | 2=show}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_ord_change_type' , 'number' , '1' , 'Can change opdr_type (0=no, 1=yes, 2=undefined)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_show_requestor_in_list' , 'number' , '1' , 'Show requestor (melder) column in opdr search list {0=no | 1=print only | 2=view only | 3=both}')
DEFINE_SETTING('MLD', 0001, 'WEB_FACTAB', 'mld_contract_startdate_key' , 'number' , '-1' , 'key of flex prop in rental contract mutation call')
DEFINE_SETTING('MLD', 0001, 'WEB_FACFAC', 'mld_contract_startdate_key' , 'number' , '-1' , 'key of flex prop in rental contract mutation call')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_enable_workflow' , 'number' , '1' , 'enable workflow in call handling {0=workflow disabled | 1=workflow enabled }')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_notify_workflowsteps' , 'number' , '1' , 'Notify each workflowstep to caller {0=do not notify steps (blackbox) | 1=notify each step (whitebox)}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_copy_objects_in_workflow' , 'number' , '0' , 'Copy object-references to the next step in workflow (0=do not copy | 1=copy)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_close_opdr_default' , 'number' , '0' , 'De checkbox met de vraag of de open opdrachten ook afgemeld moeten worden is standaard niet(0=default) of wel(1) aangevinkt')
DEFINE_SETTING('MLD', 0001, 'WEB_FACFAC', 'mld_contract_no_renter_key' , 'number' , '-1' , 'Key of company to indicate that the contract - room relation (CNT_CONTRACT_ONRGOED) can be removed')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_bo_sort_descending' , 'number' , '0' , 'Sort ordering of mld_melding for BO (0 = most urgent first | 1 = last made first );')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_max_history' , 'number' , '0' , 'Show calls and orders not longer then mld_max_history days ago (FE/FO/BO) ((mld_max_history <= 0) : show all finished calls and orders (default))')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_melding_close' , 'number' , '0' , 'Can close complain with orders in complain overview window without seeing complain details? {0=yes default | 1=no}')
@@ -363,11 +343,7 @@ DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_ord_flexsummary'
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_print_loc_address' , 'number' , '0' , 'Print location address details in backoffice overview orders {0=no | 1=yes | 2=show address+building}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_plandate_in_list' , 'number' , '0' , 'Show Planned Date as a column in backoffice overview orders {0=no | 1=yes}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_order_details' , 'number' , '1' , 'Show remark in backoffice Orders Management {0=no | 1=yes}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_search_similar' , 'number' , '3' , 'In mld_show mode, show a search link to calls with the same: {0=no link | 1=stdm | 2=location | 3=stdm&location}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_edit_search_similar' , 'number' , '3' , 'In mld_edit mode, show a search link to calls with the same: {0=no link | 1=descr | 2=location | 3=descr&location}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_forward_all' , 'number' , '1' , 'Forward a complain 0= to a complain with the same srtdiscipline 1= (default) to a complain for all srtdisciplines')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_forward_can_assign' , 'number' , '0' , 'Allow assignment to a specific handler-person while forwarding a call {0=no | 1=yes}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_forward_auto_fill' , 'number' , '0' , 'Use current discipline and call (and "assigned to") as defaults while forwarding. {0=no | 1=yes}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_forward_if_closed' , 'number' , '0' , 'WEB_MLDMSU can forward a complaint even with status ''afgemeld''')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_fixdatums_marge' , 'number' , '7' , 'WEB_MLDMSU can fix invoer/afgemeld dates')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_fe_show_statusnames' , 'number' , '1' , 'Show name to FE of the users who changed the status of a melding {0=no | 1=yes}')
@@ -376,48 +352,36 @@ DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_uren_omschrijving'
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_uren_more' , 'boolean' , 'true' , 'Overige opdrachten mogen ook getoond worden {true=link tonen (care) | false=link niet tonen}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_enforce_orderdates' , 'number' , '0' , 'Enforce order start/ending dates to be within call start/ending dates')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_afhandeling_required_for_close' , 'number' , '0' , 'Het veld afhandeling verplicht bij het afmelden van een melding (0=no, 1=yes)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_afhandeling_restrict_edit' , 'number' , '0' , 'Het veld afhandeling alleen in te vullen bij afmelden/afwijzen (0=no, 1=yes)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_omschrijving_restrict_edit' , 'number' , '0' , 'Het veld omschrijving alleen in te vullen als nog te accepteren (0=no, 1=yes)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_suppress_directklaar_notification' , 'number' , '0' , 'Suppress de notificatie bij DirectKlaar {0=no (default) | 1=yes}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_forward_if_active' , 'number' , '0' , 'A melding can be forwarded until status accept (0) of until afgemeld (1).')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_allow_for_others' , 'number' , '0' , 'Can i make calls for others ? {0=no | 1=yes}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_allow_parentmelding' , 'number' , '0' , 'Allow attaching a call to another manually (0=not | 1=allow | 2=allow')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_allow_parentmelding' , 'number' , '0' , 'Allow attaching a call to another manually (0=not | 1=allow)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_ord_afmeld_future' , 'number' , '1' , 'Opdracht einddatum niet controleren bij afmelden {0=opdracht einddatum mag niet in de toekomst liggen, 1=default niets controleren)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_num_prefix_mode' , 'number' , '0' , 'Prefix to issue numbers {0=default none, 1=costcentre/department')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_endtime' , 'number' , '1' , 'Show endtime for complaints (0=only date, 1=with endtime)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_endate_ordbo2' , 'number' , '1' , 'Enddate can be editted by MLDORD/ORDBO2 {0=no | 1=yes (default}')
DEFINE_SETTING('MLD', 0001, 'WEB_FACTAB', 'mld_ordermaterial_fac_usrtab_key' , 'number' , '-1' , 'fac_usrtab_key of ordermaterials')
DEFINE_SETTING('MLD', 0001, 'WEB_FACTAB', 'mld_ordermaterial_editable' , 'boolean' , 'true' , 'ordermaterials can be edited (true) or are always readonly/remotely managed (false)')
DEFINE_SETTING('MLD', 0001, 'WEB_FACFAC', 'mld_ordermaterial_fac_usrtab_key' , 'number' , '-1' , 'fac_usrtab_key of ordermaterials')
DEFINE_SETTING('MLD', 0001, 'WEB_FACFAC', 'mld_ordermaterial_editable' , 'boolean' , 'true' , 'ordermaterials can be edited (true) or are always readonly/remotely managed (false)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_accept_confirm' , 'boolean' , 'false' , 'bij accepteren melding direct afhandelingsveld invullen')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_selector_mode' , 'number' , '0' , 'Selector mode vakgroep/melding voor de frontend. {0(=default)=vakgroep en melding (beide eerst te kiezen), 1=vakgroep readonly, 2=alleen melding}')
DEFINE_SETTING('MLD', 0001, 'WEB_FACTAB', 'mld_opdr_minuren' , 'boolean' , 'false' , 'registreren min uren toegestaan')
DEFINE_SETTING('MLD', 0001, 'WEB_FACFAC', 'mld_opdr_minuren' , 'boolean' , 'false' , 'registreren min uren toegestaan')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_melding_flags' , 'number' , '0' , 'Number of flags fo/bo can define on complaint. Max 10')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_flag_on_fenote' , 'number' , '0' , 'Set/Clear this mld_melding_flag when the FOBO/caller saves a note {0=no flag}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_flag_on_bonote' , 'number' , '0' , 'Value of flag when BO has to read note')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_note_default_notifyFE' , 'number' , '0' , 'Default value for checkbox "Actie bij melder zetten" for notes {0=Nee(default) | 1=Ja}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_forward_opm_flags' , 'number' , '0' , 'remark/reason is required when forwarded {to comment field: 0=No(default) | 1=Yes | to note field: 2=No | 3=Yes}.')
DEFINE_SETTING('MLD', 0001, 'WEB_FACFAC', 'mlds_image_path' , 'string' , NULL , 'path to folder storing stdmelding symbols pictures')
DEFINE_SETTING('MLD', 0000, 'WEB_FACFAC', 'mlds_image_path' , 'string' , NULL , 'path to folder storing stdmelding symbols pictures')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_add_mldopmerk_on_opdrclose' , 'number' , '0' , 'Automatically copy remark from order to call when supplier close last order {1=Yes | 0=No}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_reference_days' , 'number' , '100' , 'Het aantal dagen terug in de tijd van waaraf eigen referentie getoond dienen te worden')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_locked_expire' , 'number' , '30' , 'Minutes after which edit-lock automatically released')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_approval_all' , 'number' , '0' , 'Goedkeuring opdracht vereist t.o.v. eerstvolgende limiet (=0 default) of t.o.v. totale kosten (in <20><>n keer)(=1)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_kpg_fin_limit1' , 'number' , '15000' , 'De eerste kpg limiet van het opdracht fiattering mechanisme')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_kpg_fin_limit2' , 'number' , '100000' , 'De tweede kpg limiet van het opdracht fiattering mechanisme')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_object_filled_in_alert' , 'number' , '1' , '{0=geen, 1=wel} alert tonen als er automatisch een object wordt ingevuld bij een melding.')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_pgb_fiattering' , 'number' , '0' , 'Voor een opdracht is het algemene fiatteringsproces noodzakelijk naast PGB/AGB fiatering? {0=no | 1=yes}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_urgent_as_new' , 'boolean' , 'false' , 'Show urgent calls as new calls')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_refiat_preference' , 'number' , '0' , 'Bij herfiattering opnieuw fiatteren {0=(default) fiatteur moet opnieuw fiatteren, 1=goedkeurder kan aangeven of dat moet}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_merge_notes_and_tracking' , 'number' , '1' , 'Combine notes and tracking in one frame with order details (0=just notes | 1=both combined)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_hide_fe_tracking' , 'number' , '0' , '0=default, 1=hide all tracking for fe (might contain ''secrets'')')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_note_autocollapse' , 'string' , '' , 'Regexp note text that will allways start collepsed (for technical system notes))')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_merge_notes_and_tracking' , 'number' , '1' , 'Combine notes and tracking in one frame with call details (0=just notes | 1=both combined)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_autolink_regexp' , 'string' , '(?:(?:melding [A-Z]*)|(?:[A-Z \,\n]+\#[A-Z]*))(\d+)', 'Automatically turn MLD-references in texts into clickable links eg. (?:(?:melding [A-Z]*)|(?:[A-Z \,\n]+\#[A-Z]*))(\d+)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_edit_layout' , 'number' , '0' , 'Layout of mld edit screen {0=stdmelding first (default)| 1=place first}')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'cnt_autolink_regexp' , 'string' , '' , 'Automatically turn CNT-references in texts into clickable links eg. (?:(?:contract [A-Z]*)|(?:[A-Z \,\n]+\#[A-Z]*))(\d+)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_continue_edit_issuer' , 'boolean' , 'false' , 'Edit the issuer false= (default) of a continued complain')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_archive_by_gui' , 'boolean' , 'false' , 'Can a call be archived by a button (true) or just by export (false)')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'nightly_mld2bo_emailaddress' , 'string' , '' , 'Notification email address outside office hours')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_cards' , 'number' , '5' , 'Number of order cards shown under a contractor in order plan board {nn=number | -1=all}')
DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_h' , 'float' , '0.25' , 'Employability time stepsize')
DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_t1' , 'float' , '8' , 'Employability day start (hour)')
DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_t2' , 'float' , '18' , 'Employability day end (hour)')
@@ -429,16 +393,16 @@ DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_use_mld_wijzigkey'
DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_bedrijf_leveranciernr_unique' , 'number' , '0' , 'leveranciernr or prs_bedrijf unique (1) or not unique (0)')
DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_hide_fixed_fields' , 'number' , '0' , 'Do not (1) display phonenumber/tarif fields with person details')
DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_dep_default_kpn' , 'number' , '1' , 'A user can make costs for his own department by default {0=no | 1=yes}')
DEFINE_SETTING('PRS', 0001, 'WEB_FACTAB', 'prs_werkplek_implicit' , 'number' , '0' , 'Are workplaces treated as separate entitities (0) or implicitly/invisible used in person-room relations(1)')
DEFINE_SETTING('PRS', 0001, 'WEB_FACFAC', 'prs_werkplek_implicit' , 'number' , '0' , 'Are workplaces treated as separate entitities (0) or implicitly/invisible used in person-room relations(1)')
DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_wpprefix_objectid' , 'number' , '0' , 'Workplace description as prefix in front of object id (at calls and contractscope) {0=no | 1=yes}')
DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_collegas_used' , 'number' , '9' , 'Can FE users indicate collegues for replacement. Use value as autlevel scope: everything (-1) ... nothing (9=default)')
DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_collegas_groep' , 'number' , '0' , 'Maximum number of group collegues (0=default)')
DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_dep_default_kpn_voor' , 'number' , '0' , 'Gebruik de kostenplaatsen van de prs_perslid_voor indien gezet samen met mld_allow_for_others/bes_allow_for_others')
DEFINE_SETTING('PRS', 0001, 'WEB_FACTAB', 'prs_mgt_edit_login' , 'boolean' , 'false' , 'WEB_FACMGT may change login')
DEFINE_SETTING('PRS', 0001, 'WEB_FACFAC', 'prs_mgt_edit_login' , 'boolean' , 'false' , 'WEB_FACMGT may change login')
DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_restrict_kpedit' , 'number' , '0' , 'Wijzigen van de kostenplaats? {0=volgens autorisatie (default) | 1=alleen eigen kp/kpg wijzigen}')
DEFINE_SETTING('PHB', 0001, 'WEB_PRSSYS', 'prs_phonebook_info' , 'string' , '' , 'Message to be shown at the top of the phonebook')
DEFINE_SETTING('PHB', 0001, 'WEB_FACTAB', 'photo_kenmerk_key' , 'number' , '-1' , 'ALG_KENMERK_KEY of property Room picture')
DEFINE_SETTING('PHB', 0001, 'WEB_FACTAB', 'prs_photo_kenmerk_key' , 'number' , '-1' , 'PRS_KENMERK_KEY of property Person picture tonen Ja/Nee')
DEFINE_SETTING('PHB', 0001, 'WEB_FACFAC', 'photo_kenmerk_key' , 'number' , '-1' , 'ALG_KENMERK_KEY of property Room picture')
DEFINE_SETTING('PHB', 0001, 'WEB_FACFAC', 'prs_photo_kenmerk_key' , 'number' , '-1' , 'PRS_KENMERK_KEY of property Person picture tonen Ja/Nee')
DEFINE_SETTING('PHB', 0001, 'WEB_FACFAC', 'prs_photo_kenmerk_showval' , 'string' , '-1' , 'PRS_KENMERK_WAARDE indicating ''Yes''')
DEFINE_SETTING('PHB', 0001, 'WEB_PRSSYS', 'ph_export_advanced' , 'boolean' , 'false' , 'do not show advanced export button')
DEFINE_SETTING('PHB', 0001, 'WEB_FACFAC', 'locphone_kenmerk_key' , 'number' , '-1' , NULL)
@@ -446,38 +410,27 @@ DEFINE_SETTING('PHB', 0001, 'WEB_FACFAC', 'locfax_kenmerk_key'
DEFINE_SETTING('PHB', 0001, 'WEB_FACFAC', 'phone_usrrap_key' , 'number' , '-1' , 'userrap key for custom phonebook')
DEFINE_SETTING('PHB', 0001, 'WEB_PRSSYS', 'phone_show_functie' , 'boolean' , 'true' , 'Toon Functie filter veld')
DEFINE_SETTING('PHB', 0001, 'WEB_FACFAC', 'prs_plaats_key' , 'number' , '-1' , 'PRS_KENMERK_KEY of property location, if -1, the workplace is used for the location')
DEFINE_SETTING('PHB', 0001, 'WEB_FACFAC', 'prs_image_path' , 'string' , NULL , 'path to folder storing person pictures')
DEFINE_SETTING('PHB', 0000, 'WEB_FACFAC', 'prs_image_path' , 'string' , NULL , 'path to folder storing person pictures')
DEFINE_SETTING('PHB', 0001, 'WEB_PRSSYS', 'ph_loc_search' , 'boolean' , 'true' , 'provide search on locations in phonebook (true) or not (false)')
DEFINE_SETTING('PHB', 0001, 'WEB_PRSSYS', 'ph_bedr_search' , 'boolean' , 'true' , 'provide search on companies in phonebook (true) or not (false)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'ph_rowdetails' , 'number' , '1' , 'Show phonebook details when click-on-row')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'ph_placeFG' , 'number' , '0' , 'Show FG popup when click on place')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'ph_placeFG' , 'number' , '0' , 'Show FG popup when click on place')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'ph_showparentafdeling' , 'number' , '0' , 'Show parent afdeling')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'ph_showfunctie' , 'number' , '0' , 'Toon functie van de persoon {0=no (default)| 1=yes}')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_mandaterequiresprofiel' , 'number' , '0' , 'Alleen personen met een profiel kunnen worden (onder)gemandateerd (1) of iedereen (0)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'ph_persliddetails_page' , 'string' , 'appl/fac/fac_user_info_phone.asp', NULL)
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'prs_ph_bedrijf' , 'number' , '1' , 'Bedrijven selectbox aanwezig in informatiegids overzichtscherm {0=no | 1=yes (default)}')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'ph_cust_flexsearch_key' , 'number' , '-1' , 'custom flexsearchfield for phonebook. Must be ''Suggest'' type!')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'ph_persliddetails_page' , 'string' , 'appl/fac/fac_user_info_phone.asp', NULL)
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'prs_ph_bedrijf' , 'number' , '1' , 'Bedrijven selectbox aanwezig in informatiegids overzichtscherm {0=no | 1=yes (default)}')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'ph_cust_flexsearch_key' , 'number' , '-1' , 'custom flexsearchfield for phonebook. Must be ''Suggest'' type!')
DEFINE_SETTING('PRJ', 0001, 'WEB_PRSSYS', 'prj_fg_paperColor' , 'number' , '16777215' , 'paper background for projects {nn=color | -1=''as published''}')
DEFINE_SETTING('PRJ', 0001, 'WEB_FACFAC', 'fg_prj_syncruimteview' , 'string' , 'cad_v_sync_prj_ruimte' , NULL)
DEFINE_SETTING('PRJ', 0001, 'WEB_PRSSYS', 'prj_discipline_key' , 'number' , '-1' , 'mld_discipline_key of discipline for moves')
DEFINE_SETTING('INS', 0001, 'WEB_FACFAC', 'ins_image_path' , 'string' , NULL , 'path to folder storing ins_srtdeel pictures')
DEFINE_SETTING('INS', 0000, 'WEB_FACFAC', 'ins_image_path' , 'string' , NULL , 'path to folder storing ins_srtdeel pictures')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_fg_remote_maps' , 'string' , '' , 'URL. if not empty use Google Maps instead of FG if x,y coordinates of an object are available')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_inspect_soon_days' , 'number' , '30' , 'Days margin for needs inspection ''soon''')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_can_edit_own_objects' , 'number' , '0' , 'Owner can edit objects {0|1, default 0}')
DEFINE_SETTING('INS', 0001, 'WEB_FACTAB', 'inspect_enabled' , 'number' , '0' , 'Is FACILITOR Inspect available {0 | 1} (future use)')
DEFINE_SETTING('INS', 0001, 'WEB_FACFAC', 'inspect_enabled' , 'number' , '0' , 'Is FACILITOR Inspect available {0 | 1} (future use)')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_flex_uitgifte_empty' , 'number' , '0' , 'Flexvelden die geen meetwaarden zijn leeg maken bij uitgifte {0=no (default) | 1=yes}')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_occupationsensors_srtgroep_key' , 'number' , '-1' , 'INS_SRTGROEP_KEY of sensor objects to be used for occupation/availability')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_explode_objects' , 'number' , '1' , 'Explode the nummer of (new) object {0=no | 1=yes (default)}')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_xcp_active_cost' , 'number' , '15' , 'Active cost fields used/shown {+1=kosten, +2=kosten2, +4=kosten3, +8=materiaal}')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_auth_obj_lendout' , 'number' , '0' , 'Authorization scope for objects which are lent out for lending registration (INSFOF/fo) {0=owner(borrower) (default) | 1=basic place/owner}')
DEFINE_SETTING('INS', 0001, 'WEB_FACFAC', 'mjb_enabled' , 'number' , '0' , 'Is MJOB available {0 | 1}')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_inflation' , 'float' , '1' , 'Default inflation mjob')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_show_years' , 'number' , '5' , 'Default number of years which should be shown in the MJOB console')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_operation_external' , 'number' , '0' , 'Operational handling mjob {0=internal (default) | 1=external}')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_default_stdmelding' , 'number' , '-1' , 'Default backoffice (stdmelding key) for mjob calls')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_start_year' , 'number' , EXTRACT(YEAR FROM SYSDATE) , 'Start year of using MJOB')
DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_freeze_year' , 'number' , EXTRACT(YEAR FROM SYSDATE) , 'Freeze year of MJOB')
DEFINE_SETTING('PRS', 0001, 'WEB_FACTAB', 'badgenum_kenmerk_key' , 'number' , '-1' , 'PRS_KENMERK_KEY of property badge number')
DEFINE_SETTING('PRS', 0001, 'WEB_FACFAC', 'badgenum_kenmerk_key' , 'number' , '-1' , 'PRS_KENMERK_KEY of property badge number')
DEFINE_SETTING('QVW', 0001, 'WEB_FACFAC', 'qvw_enabled' , 'number' , '0' , 'Number of licensed Qlikview users {0 | n}')
DEFINE_SETTING('QVW', 0001, 'WEB_FACFAC', 'qvw_ajaxzfcpath' , 'string' , 'https://qv.facilitor.nl/QvAjaxZfc/', 'Root prefix to QlikView Analyzer Zero Footprint Client (must end with /)')
DEFINE_SETTING('QVW', 0001, 'WEB_FACFAC', 'qvw_docfolder' , 'string' , 'cust/' , 'path to the QVW-docs on the server (must end with /)')
@@ -497,10 +450,8 @@ DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_t1'
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_t2' , 'float' , '18' , 'reservation day end (hour)')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_cat_t1' , 'float' , '-1' , 'Catering day start (hour), -1 is take res_t1')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_cat_t2' , 'float' , '-1' , 'Catering day end (hour), -1 is take res_t2')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_rap_t1' , 'float' , '-1' , 'Occupation report day start (hour), -1 is take res_t1')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_rap_t2' , 'float' , '-1' , 'Occupation report day end (hour), -1 is take res_t2')
DEFINE_SETTING('RES', 0001, 'WEB_FACTAB', 'res_pda_room_times' , 'array' , '30,60,120' , 'Proposed reservation times pda rooms')
DEFINE_SETTING('RES', 0001, 'WEB_FACTAB', 'res_pda_deel_times' , 'array' , '15,30,60,120,240' , 'Proposed reservation times pda objects')
DEFINE_SETTING('RES', 0001, 'WEB_FACFAC', 'res_pda_room_times' , 'array' , '30,60,120' , 'Proposed reservation times pda rooms')
DEFINE_SETTING('RES', 0001, 'WEB_FACFAC', 'res_pda_deel_times' , 'array' , '15,30,60,120,240' , 'Proposed reservation times pda objects')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_t_middag' , 'float' , '-1' , 'Start time for afternoon tarif for rooms (hour), -1 is one price over the day')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_t_avond' , 'float' , '-1' , 'Start time for evening tarif for rooms (hour), -1 is one price over the day')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_roompricingmethod' , 'number' , '1' , 'Method for room price calculation {1|2|3|n}')
@@ -513,7 +464,6 @@ DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_bo_show_telnr'
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_bo_show_kpn' , 'number' , '1' , 'Show account number column in res bo list (0=no show | 1=show)')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_bo_show_host' , 'number' , '1' , 'Show host column in res bo list (0=no show | 1=show)')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fe_edit_option_only' , 'number' , '0' , 'FE can only edit ''Optional'' reservations (0=opties+definitieve (default) 1=alleen opties)')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fe_late_edit_vis' , 'number' , '0' , 'FE can edit visitors and (room-)configuration after the room expires {0=No (default) | 1=Yes}')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fo_list_days' , 'number' , '0' , 'Default number of days in FO overview (working days)')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fe_list_days' , 'number' , '5' , 'Default number of days in FE overview')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fe_init_host_empty' , 'boolean' , 'false' , 'Define how FE reservation host is set initially { false=same as user/caller | true=empty }')
@@ -527,10 +477,9 @@ DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_vcalendar_link'
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_room_order' , 'number' , '0' , 'Planbord sorted by capacity or description (0=capacity (default) | 1=description)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'res_plan_max_bezet' , 'number' , '0' , 'Maximum planbord ''occupied'' fields. AiAi timeout prevention (future use)')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_xml_max_rsv_ruimte' , 'number' , '60' , 'Maximum number of non-concise rsv_ruimte nodes in reserering node')
DEFINE_SETTING('RES', 0001, 'WEB_FACFAC', 'res_image_path' , 'string' , NULL , 'path to folder storing res_ruimte pictures')
DEFINE_SETTING('RES', 0000, 'WEB_FACFAC', 'res_image_path' , 'string' , NULL , 'path to folder storing res_ruimte pictures')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_with_mld' , 'number' , '0' , 'Reservering kan meldingen hebben {0=Nee (default) | 1=Ja}')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_delete_ask_kosten' , 'number' , '1' , 'Aks for recharge costs at delete (0=never ask, 1=ask after, 2=ask only final, 3=ask only final after)')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_delete_charge_perc' , 'array' , '' , 'Aks for charge costs percentage at delete (array of integer values)')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_pool_early' , 'number' , '30' , 'Minutes for early pool-visitors')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_pool_late' , 'number' , '30' , 'Minutes for late pool-visitors')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_bez_desk_refresh' , 'number' , '180' , 'Seconds for autorefresh res_bez_desk.asp')
@@ -539,12 +488,10 @@ DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_reservering_flags'
DEFINE_SETTING('RES', 0001, 'WEB_FACFAC', 'res_remoteurl_refuse' , 'string' , '' , 'Regexp, do not jump to these remote url (future use)')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_strict_locfilter' , 'boolean' , 'false' , 'Do not show locations without catering. Can be extremely slow!')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_cat_with_expired_room' , 'boolean' , 'false' , 'Can catering be edited when room is expired {false | true}')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_cat_reject_stdmld' , 'number' , -1 , 'Standard call key when rejecting catering')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_allow_multi_cat' , 'boolean' , 'false' , 'Can catering be done on multi day reservation {false | true}')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_allow_undelete' , 'boolean' , 'false' , 'Deleted reservations can be undeleted {false | true}')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_appointment_action' , 'boolean' , 'false' , 'Visitor action at reservation available')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_approval' , 'number' , '0' , 'Reserveringsgoedkeuring door aanvrager {0=Uit (default) | 1=Na afloop | 2=Na Afmelden}')
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_reminder_noti_blocked' , 'boolean' , 'true' , 'Notification when reservation blocked {true=yes (default) | false=no}')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_h' , 'float' , '0.25' , 'time stepsize')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_t1' , 'float' , '8' , 'visitors day start (hour)')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_t2' , 'float' , '18' , 'visitors day end (hour)')
@@ -561,13 +508,11 @@ DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_user_history'
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_expire' , 'number' , '0' , 'number of days in the future from which the FE can delete de visitors')
DEFINE_SETTING('BEZ', 0001, 'WEB_FACFAC', 'vis_afspraak_onrgoed_uses_keys' , 'number' , '0' , 'listboxes location until room instead of only a room text field; INITIEEL INRICHTEN (BEZ-tabellen leeg)!')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_mandatory_alg_level' , 'string' , 'L' , 'alg level ''L'' (location), ''G'' (building, ''V'' (floor) or ''R'' (room)')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_show_alg_level' , 'string' , 'L' , 'Show alg level ''L'' (location), ''G'' (building, ''V'' (floor) or ''R'' (room)')
DEFINE_SETTING('BEZ', 0001, 'WEB_FACFAC', 'vis_afspraak_host_uses_keys' , 'number' , '0' , 'the field "Bezoek voor" is a listbox (1 = true) otherwise a textfield (0 or 2 for required). INITIEEL INRICHTEN (BEZ-tabellen leeg)!')
DEFINE_SETTING('BEZ', 0001, 'WEB_FACTAB', 'vis_afspraak_tel_required' , 'number' , '0' , 'when vis_afspraak_host_uses_keys==0, is phone required?')
DEFINE_SETTING('BEZ', 0001, 'WEB_FACFAC', 'vis_afspraak_tel_required' , 'number' , '0' , 'when vis_afspraak_host_uses_keys==0, is phone required?')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_bo_end_interval' , 'float' , '12' , 'standard bo end time interval')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_bo_uses_badgenrs' , 'number' , '0' , 'the BO enters and uses badgenr registration { 0=no | 1=yes }')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_sel_contactpersoon' , 'number' , '1' , 'can I select contactpersonen { 0=no | 1=yes | 2=yes, but depending on location}')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_show_flex_in_list' , 'number' , '7' , 'Show flex properties in visitor-lists { 0=none | 1=FE | 2=FO | 3=FE&FO | 4=BO | 5=FE&BO | 6=FO&BO | 7=FE&FO&BO }')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_sel_internpersoon' , 'number' , '0' , 'can I select internal persons { 0=no | 1=yes }')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_closeafteradd' , 'number' , '0' , '0=not, 1=bo, 2=fo, 3=bo&fo')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_allow_check_all' , 'number' , '1' , 'multiple-checkin visitors { 0=no | 1=yes }')
@@ -585,16 +530,13 @@ DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_bo_orderby'
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_gastheer_telfnr' , 'number' , '1' , 'In bezoekersbalie telfoon nummer van gastheer ook tonen { 0=Nee | 1=Ja}')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_max_flex_on_line' , 'number' , '0' , 'Max aantal flexkenmerken op een bezoekersregel')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_use_buildinghours' , 'number' , '0' , 'Gebouwtijden als tijdgrenzen van afspraken gebruiken {0=Nee (default), 1=Ja}')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_remark' , 'number' , '0' , 'Show field remark for visitor {0=dont show | 1=show | 2=show at register visitor | 3=readonly}')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_show_resname' , 'boolean' , 'false' , 'Show room name instead of real estate name {false=show real estate name | true=show room name}')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_bezoekers_flags' , 'number' , '0' , 'Number of flags fo/bo can define for visitors. Max 10')
DEFINE_SETTING('SLE', 0001, 'WEB_PRSSYS', 'cil_ins_srt_groep_key' , 'number' , '-1' , 'INS_SRTDEEL_KEY of object type Cylinders')
DEFINE_SETTING('SLE', 0001, 'WEB_PRSSYS', 'sle_ins_srt_groep_key' , 'number' , '-1' , 'INS_SRTDEEL_KEY of object type Keys')
DEFINE_SETTING('SLE', 0001, 'WEB_PRSSYS', 'sle_cil_koppelen' , 'number' , '1' , 'Sleutels en cilinders zijn door bo handmatig te koppelen {0=nee, 1=ja(default)}')
DEFINE_SETTING('MRK', 0001, 'WEB_PRSSYS', 'mrk_message_expire_days' , 'number' , '30' , 'Message automatically expires after ')
DEFINE_SETTING('MRK', 0001, 'WEB_FACFAC', 'mrk_image_path' , 'string' , NULL , 'path to folder storing marketplace pictures')
DEFINE_SETTING('MRK', 0000, 'WEB_FACFAC', 'mrk_image_path' , 'string' , NULL , 'path to folder storing marketplace pictures')
DEFINE_SETTING('MSG', 0001, 'WEB_PRSSYS', 'msg_reply_enabled' , 'number' , '1' , 'Only show answer button if msg_reply_enabled=1 (default).')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'help_window' , 'boolean' , 'false' , 'New window for Help')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'help_window' , 'boolean' , 'false' , 'New window for Help')
DEFINE_SETTING('ALG', 0001, 'WEB_PRSSYS', 'alg_flexcolumns' , 'number' , '2' , 'number of flexcolumns for ALG [1|2]')
DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_flexcolumns' , 'number' , '1' , 'number of flexcolumns for BES [1|2]')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_flexcolumns' , 'number' , '1' , 'number of flexcolumns for BEZ [1|2]')
@@ -612,8 +554,6 @@ DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_photo_size'
DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_photo_size' , 'string' , 'r512x512' , 'Resize uploads to this maximum RES photo size. Ex: r200x150')
DEFINE_SETTING('MRK', 0001, 'WEB_PRSSYS', 'mrk_photo_size' , 'string' , 'r512x512' , 'Resize uploads to this maximum MRK photo size. Ex: r200x150')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_disable_continuation' , 'boolean' , 'false' , 'Disable creating continuation calls { false | true }')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_afrond_canflex' , 'boolean' , 'false' , 'Change flex of completed issue with MLDAFR ')
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_afrond_canremark' , 'boolean' , 'false' , 'Change remark of completed issue with MLDAFR ')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_api_key_in_url' , 'boolean' , 'false' , 'Is APIKEY= in url also allowed (unsafe)? Default is header X-FACILITOR-API-Key only')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_api_allow_impersonate' , 'boolean' , 'false' , 'Allow impersonation through X-FACILITOR-Switch-user (future use)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_api_limit' , 'number' , '100' , 'Default maximum number of records to return using the REST API')
@@ -631,26 +571,12 @@ DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_usrrap_safe_view_regexp'
DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'show_perslidselector_by_mail' , 'number' , '1' , 'Show person selector at sending mail {1=true | 0=false}')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'basic_auth_realm' , 'string' , '' , 'Realm for Basic Authentication (API only) (future use)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'auth_edit_advanced' , 'boolean' , 'false' , 'Start autorisation popup dialog in advanced mode')
DEFINE_SETTING('BGT', 0001, 'WEB_FACTAB', 'bgt_enabled' , 'number' , '0' , 'Is FACILITOR Budgetting module available {0 | 1}')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'udr_graph_default_json' , 'string' , '' , 'Default json options for report graphs (string!)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'udr_graph_gauge_colors' , 'string' , '[''red'',''orange'',''green'']' , 'Colors being used for gaugemeter charts (string!)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'udr_graph_pie_colors' , 'string' , '[''#003478'',''#6685ae'',''#e37b00'',''#0b94f9'',''#81ce58'',''#f3d736'',''#acaa65'',''#a222c4'',''#5b9bc3'',''#1c40eb'',''#037011'',''#d192e7'',''#f88625'',''#93b89f'',''#bf6b87'',''#a2b41a'',''#f76979'',''#f41181'',''#73eb59'',''#32d1d0'',''#a00bed'',''#66fe6b'',''#b94d5b'']' , 'Colors being used for pie charts (string!)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'udr_graph_colors1' , 'string' , '[''#003478'',''#6685ae'',''#e37b00'',''#0b94f9'',''#81ce58'',''#f3d736'',''#acaa65'',''#a222c4'',''#5b9bc3'',''#1c40eb'',''#037011'',''#d192e7'',''#f88625'',''#93b89f'',''#bf6b87'',''#a2b41a'',''#f76979'',''#f41181'',''#73eb59'',''#32d1d0'',''#a00bed'',''#66fe6b'',''#b94d5b'']' , 'Color used for single bar /line graphs (string!)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'udr_graph_colors2' , 'string' , '[''#003478'',''#6685ae'',''#e37b00'',''#0b94f9'',''#81ce58'',''#f3d736'',''#acaa65'',''#a222c4'',''#5b9bc3'',''#1c40eb'',''#037011'',''#d192e7'',''#f88625'',''#93b89f'',''#bf6b87'',''#a2b41a'',''#f76979'',''#f41181'',''#73eb59'',''#32d1d0'',''#a00bed'',''#66fe6b'',''#b94d5b'']' , 'Colors used for stacked bar /line graphs (string!)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'inline_actions_hamburger' , 'number' , '0' , 'Use a hamburger-icon to view the inline actions {0=No | 1=Yes, onClick | 2=Yes, onMouseOver}')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'buttons_in_hamburger' , 'array' , 'print.png,email.png,csv.png,fa-print,excel.png,fa-table,fa-refresh,page_refresh.png,legenda.png', 'Hide these frameheader buttons behind a hamburger.')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'show_header_productsearch' , 'boolean' , 'true' , 'Display the product search bar in the header')
DEFINE_SETTING('PDA', 0001, 'WEB_PRSSYS', 'pda_list_show_filter_from' , 'number' , '7' , 'PDA result sets will include a filter from this many results on')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_reserved_number1' , 'number' , '0' , 'reserved_number1 (reserved and unused)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_reserved_number2' , 'number' , '0' , 'reserved_number2 (reserved and unused)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_reserved_string1' , 'string' , '' , 'reserved_string1 (reserved and unused)')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_reserved_string2' , 'string' , '' , 'reserved_string2 (reserved and unused)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'udr_graph_pie_colors' , 'string' , '[''#FF0000'',''#00FFFF'',''#0000FF'',''#800090'',''#FFFF00'',''#00FF00'',''#FF00FF'',''#808080'',''#FFA500'',''#A52A2A'',''#008000'',''#808000'']' , 'Colors being used for pie charts (string!)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'udr_graph_colors1' , 'string' , '[''#FF0000'',''#00FFFF'',''#0000FF'',''#800090'',''#FFFF00'',''#00FF00'',''#FF00FF'',''#808080'',''#FFA500'',''#A52A2A'',''#008000'',''#808000'']' , 'Color used for single bar /line graphs (string!)')
DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'udr_graph_colors2' , 'string' , '[''#FF0000'',''#00FFFF'',''#0000FF'',''#800090'',''#FFFF00'',''#00FF00'',''#FF00FF'',''#808080'',''#FFA500'',''#A52A2A'',''#008000'',''#808000'']' , 'Colors used for stacked bar /line graphs (string!)')
/*
*
@@ -658,123 +584,114 @@ DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_reserved_string2'
*
*/
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'fac_logfilename', 'string', '', 'Logfile name') // default leeg, pvalue komt achteraan dit bestand
DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'fac_server_timezone', 'string', 'Europe/Amsterdam', 'The timezone of the database-server')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_t_startofworkday', 'float', '8', 'Start time (hour, decimal) of a working day')
DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_t_endofworkday' , 'float', '17', 'End time (hour, decimal) of a working day')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_t_startofworkday', 'float', '8', 'Start time (hour, decimal) of a working day')
DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_t_endofworkday' , 'float', '17', 'End time (hour, decimal) of a working day')
DEFINE_SETTING('MLD', 0001, 'WEB_FACTAB', 'defaultstdmelding', 'number', '-1', 'The stdmeldingkey for generic calls received by e-mail')
DEFINE_SETTING('MLD', 0001, 'WEB_FACTAB', 'mld_reply_subject_regexp', 'string', '[[:alpha:]]*[[:digit:]]{3,}', 'The regexp for recognizing reply melding numbers (future use)')
DEFINE_SETTING('MLD', 0001, 'WEB_FACFAC', 'defaultstdmelding', 'number', '-1', 'The stdmeldingkey for generic calls received by e-mail')
DEFINE_SETTING('MLD', 0001, 'WEB_FACFAC', 'mld_reply_subject_regexp', 'string', '[[:alpha:]]*[[:digit:]]{3,}', 'The regexp for recognizing reply melding numbers (future use)')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_vraag1','number', '-1','Kenmerk-key Vraag1 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_vraag2','number', '-1','Kenmerk-key Vraag2 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_vraag3','number', '-1','Kenmerk-key Vraag3 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_vraag4','number', '-1','Kenmerk-key Vraag4 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_vraag5','number', '-1','Kenmerk-key Vraag5 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_cijfer1','number', '-1','Kenmerk-key Cijfer1 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_cijfer2','number', '-1','Kenmerk-key Cijfer2 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_cijfer3','number', '-1','Kenmerk-key Cijfer3 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_cijfer4','number', '-1','Kenmerk-key Cijfer4 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_cijfer5','number', '-1','Kenmerk-key Cijfer5 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_toelicht1','number', '-1','Kenmerk-key Toelichting1 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_toelicht2','number', '-1','Kenmerk-key Toelichting2 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_toelicht3','number', '-1','Kenmerk-key Toelichting3 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_toelicht4','number', '-1','Kenmerk-key Toelichting4 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_mld_toelicht5','number', '-1','Kenmerk-key Toelichting5 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_vraag1','number', '-1','Kenmerk-key Vraag1 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_vraag2','number', '-1','Kenmerk-key Vraag2 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_vraag3','number', '-1','Kenmerk-key Vraag3 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_vraag4','number', '-1','Kenmerk-key Vraag4 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_vraag5','number', '-1','Kenmerk-key Vraag5 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_cijfer1','number', '-1','Kenmerk-key Cijfer1 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_cijfer2','number', '-1','Kenmerk-key Cijfer2 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_cijfer3','number', '-1','Kenmerk-key Cijfer3 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_cijfer4','number', '-1','Kenmerk-key Cijfer4 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_cijfer5','number', '-1','Kenmerk-key Cijfer5 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_toelicht1','number', '-1','Kenmerk-key Toelichting1 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_toelicht2','number', '-1','Kenmerk-key Toelichting2 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_toelicht3','number', '-1','Kenmerk-key Toelichting3 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_toelicht4','number', '-1','Kenmerk-key Toelichting4 bij KTO van een melding')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_mld_toelicht5','number', '-1','Kenmerk-key Toelichting5 bij KTO van een melding')
---- Fac_Settings voor KTO-RES -- For Future Use
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_vraag1','number', '-1','Kenmerk-key Vraag1 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_vraag2','number', '-1','Kenmerk-key Vraag2 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_vraag3','number', '-1','Kenmerk-key Vraag3 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_vraag4','number', '-1','Kenmerk-key Vraag4 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_vraag5','number', '-1','Kenmerk-key Vraag5 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_cijfer1','number', '-1','Kenmerk-key Cijfer1 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_cijfer2','number', '-1','Kenmerk-key Cijfer2 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_cijfer3','number', '-1','Kenmerk-key Cijfer3 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_cijfer4','number', '-1','Kenmerk-key Cijfer4 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_cijfer5','number', '-1','Kenmerk-key Cijfer5 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_toelicht1','number', '-1','Kenmerk-key Toelichting1 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_toelicht2','number', '-1','Kenmerk-key Toelichting2 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_toelicht3','number', '-1','Kenmerk-key Toelichting3 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_toelicht4','number', '-1','Kenmerk-key Toelichting4 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_res_toelicht5','number', '-1','Kenmerk-key Toelichting5 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_vraag1','number', '-1','Kenmerk-key Vraag1 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_vraag2','number', '-1','Kenmerk-key Vraag2 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_vraag3','number', '-1','Kenmerk-key Vraag3 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_vraag4','number', '-1','Kenmerk-key Vraag4 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_vraag5','number', '-1','Kenmerk-key Vraag5 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_cijfer1','number', '-1','Kenmerk-key Cijfer1 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_cijfer2','number', '-1','Kenmerk-key Cijfer2 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_cijfer3','number', '-1','Kenmerk-key Cijfer3 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_cijfer4','number', '-1','Kenmerk-key Cijfer4 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_cijfer5','number', '-1','Kenmerk-key Cijfer5 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_toelicht1','number', '-1','Kenmerk-key Toelichting1 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_toelicht2','number', '-1','Kenmerk-key Toelichting2 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_toelicht3','number', '-1','Kenmerk-key Toelichting3 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_toelicht4','number', '-1','Kenmerk-key Toelichting4 bij KTO van een reservering')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_res_toelicht5','number', '-1','Kenmerk-key Toelichting5 bij KTO van een reservering')
---- Fac_Settings voor KTO-BES -- For Future Use
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_vraag1','number', '-1','Kenmerk-key Vraag1 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_vraag2','number', '-1','Kenmerk-key Vraag2 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_vraag3','number', '-1','Kenmerk-key Vraag3 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_vraag4','number', '-1','Kenmerk-key Vraag4 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_vraag5','number', '-1','Kenmerk-key Vraag5 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_cijfer1','number', '-1','Kenmerk-key Cijfer1 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_cijfer2','number', '-1','Kenmerk-key Cijfer2 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_cijfer3','number', '-1','Kenmerk-key Cijfer3 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_cijfer4','number', '-1','Kenmerk-key Cijfer4 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_cijfer5','number', '-1','Kenmerk-key Cijfer5 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_toelicht1','number', '-1','Kenmerk-key Toelichting1 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_toelicht2','number', '-1','Kenmerk-key Toelichting2 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_toelicht3','number', '-1','Kenmerk-key Toelichting3 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_toelicht4','number', '-1','Kenmerk-key Toelichting4 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACTAB', 'kto_bes_toelicht5','number', '-1','Kenmerk-key Toelichting5 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_vraag1','number', '-1','Kenmerk-key Vraag1 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_vraag2','number', '-1','Kenmerk-key Vraag2 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_vraag3','number', '-1','Kenmerk-key Vraag3 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_vraag4','number', '-1','Kenmerk-key Vraag4 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_vraag5','number', '-1','Kenmerk-key Vraag5 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_cijfer1','number', '-1','Kenmerk-key Cijfer1 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_cijfer2','number', '-1','Kenmerk-key Cijfer2 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_cijfer3','number', '-1','Kenmerk-key Cijfer3 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_cijfer4','number', '-1','Kenmerk-key Cijfer4 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_cijfer5','number', '-1','Kenmerk-key Cijfer5 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_toelicht1','number', '-1','Kenmerk-key Toelichting1 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_toelicht2','number', '-1','Kenmerk-key Toelichting2 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_toelicht3','number', '-1','Kenmerk-key Toelichting3 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_toelicht4','number', '-1','Kenmerk-key Toelichting4 bij KTO van een bestelling')
DEFINE_SETTING('KTO', 0001, 'WEB_FACFAC', 'kto_bes_toelicht5','number', '-1','Kenmerk-key Toelichting5 bij KTO van een bestelling')
DEFINE_SETTING('BEZ', 0001, 'WEB_FACTAB', 'vis_parking_key' , 'number', '-1', 'Catalog key (res_discipline_key) for Parking places')
DEFINE_SETTING('BEZ', 0001, 'WEB_FACFAC', 'vis_parking_key' , 'number', '-1', 'Catalog key (res_discipline_key) for Parking places')
DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_set_remote_flags' , 'number', '0', 'Flags to set with remote-checkbox')
---- Fac_Settings voor PutOrders --
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_notificationinmailbody' , 'boolean' , 'false' , 'false = as attachments, true = in body')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_mailbodycharset' , 'string' , 'unicode-1-1-utf-8' , 'Putorders e-mail charset')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_notificationxsl' , 'string' , 'xsl/cust.xsl' , 'stylesheet to be applied for notifications')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_system2systemxsl' , 'string' , 'xsl/system2system.xsl' , 'Stylesheet to be applied for system 2 system notifications')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_notificationinmailbody' , 'boolean' , 'false' , 'false = as attachments, true = in body')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_mailbodycharset' , 'string' , 'unicode-1-1-utf-8' , 'Putorders e-mail charset')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_notificationxsl' , 'string' , 'xsl/cust.xsl' , 'stylesheet to be applied for notifications')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_system2systemxsl' , 'string' , 'xsl/system2system.xsl' , 'Stylesheet to be applied for system 2 system notifications')
DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_subjectprefix' , 'string' , 'Facilitor bestelling: Bestelopdracht nr.' , 'Mail subject prefix for BES orders (to be followed by ordernr)')
DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_subjectprefixmld' , 'string' , 'Facilitor opdracht: Opdracht nr.' , 'Mail subject prefix for MLD orders')
DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_subjectprefixcnt' , 'string' , 'Facilitor contract nr.' , 'Mail subject prefix for CNT')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_fromaddress' , 'string' , '' , 'The fixed From address for Facilitor orders')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_replyaddress' , 'string' , '' , 'Optional reply address if that is different from FromAddress')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_usesenderasreplyto' , 'boolean' , 'false' , 'If false the sender will be the sender, if true the sender will be FromAddress and ReplyAddress will be the sender')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_receiptto' , 'string' , '' , 'Address to send the receipt confirmation to for ORDERS only')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_cc' , 'string' , '' , 'Copy email address for ORDERS only')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_bcc' , 'string' , '' , 'Blind copy email address for ORDERS only')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_loglevel' , 'number' , '1' , 'Level of logging (0-3) for troubleshooting purposes')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_connectionflag' , 'number' , '0' , 'INTERNET_FLAG_PASSIVE = 0x8000000, else = 0')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_useproxy' , 'boolean' , 'false' , 'true = Use Proxy Server (recognizes TIS FTP gateway only), false = don''t use Proxy')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_proxyserveripaddress' , 'string' , '127.0.0.1:8888' , 'Proxy Server IP Address, only used when UseProxy = true')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_logdestination' , 'number' , '1' , 'Where to log: 1=file, 2 = database, 3=both')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_emergencymailaddress' , 'string' , '' , 'Fallback e-mail address if database cannot be reached')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_custorders' , 'boolean' , 'false' , 'true = use customer orderqueue')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_forcemailaddress' , 'string' , '' , 'Force this email address for test purposes eg john@example.com')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_forceorderaddress' , 'string' , '' , 'Force this order address for test purposes eg mailto://john@example.com')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_forcenotiaddress' , 'string' , '' , 'Force the notification adress for test purposes eg. "http://facilitordev.azurewebsites.net')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_forcefromaddress' , 'string' , '' , 'Force the from and reply address for test purposes eg john@example.com')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_forcemobile' , 'string' , '' , 'Force this mobile number for test purposes eg 31612345678')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_smsprovider' , 'number' , '0' , '0=wireless-services.nl, 1=Aareon.nl')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_smsprotocol' , 'string' , 'HTTP' , 'HTTP or SMTP(*)')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_smsaccount' , 'string' , '' , 'SMS email address for protocol SMTP')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_uid' , 'string' , '' , 'SMS provider user id')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_pwd' , 'string' , '' , 'SMS provider user password')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_replyphone' , 'string' , 'FACILITOR' , 'Include country code')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_sendusing' , 'number' , '1' , '1=cdoSendUsingPickup (IIS SMTP Service must be installed), 2=cdoSendUsingPort')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_smtpserver' , 'string' , '' , 'Server when sendusing cdoSendUsingPort')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_smtpserverport' , 'number' , '25' , 'Serverport when sendusing cdoSendUsingPort')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_smtpconnectiontimeout' , 'number' , '30' , 'SMTP timeout in seconds (future use)')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_smtpusessl' , 'boolean' , 'false' , 'Use SSL when sending to port (future use)')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_smtpauthenticate' , 'number' , '0' , 'Authentication when sendusing cdoSendUsingPort 0=cdoAnonymous, 1=cdoBasic, 2=cdoNTLM')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_sendusername' , 'string' , '' , 'Username when puo_smtpauthenticate=cdoBasic')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_fromaddress' , 'string' , '' , 'The fixed From address for Facilitor orders')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_replyaddress' , 'string' , '' , 'Optional reply address if that is different from FromAddress')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_usesenderasreplyto' , 'boolean' , 'false' , 'If false the sender will be the sender, if true the sender will be FromAddress and ReplyAddress will be the sender')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_receiptto' , 'string' , '' , 'Address to send the receipt confirmation to for ORDERS only')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_cc' , 'string' , '' , 'Copy email address for ORDERS only')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_bcc' , 'string' , '' , 'Blind copy email address for ORDERS only')
DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'puo_loglevel' , 'number' , '1' , 'Level of logging (0-3) for troubleshooting purposes')
DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'puo_connectionflag' , 'number' , '0' , 'INTERNET_FLAG_PASSIVE = 0x8000000, else = 0')
DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'puo_useproxy' , 'boolean' , 'false' , 'true = Use Proxy Server (recognizes TIS FTP gateway only), false = don''t use Proxy')
DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'puo_proxyserveripaddress' , 'string' , '127.0.0.1:8888' , 'Proxy Server IP Address, only used when UseProxy = true')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_logdestination' , 'number' , '1' , 'Where to log: 1=file, 2 = database, 3=both')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_emergencymailaddress' , 'string' , '' , 'Fallback e-mail address if database cannot be reached')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_custorders' , 'boolean' , 'false' , 'true = use customer orderqueue')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_forcemailaddress' , 'string' , '' , 'Force this email address for test purposes eg john@example.com')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_forceorderaddress' , 'string' , '' , 'Force this order address for test purposes eg mailto://john@example.com')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_forcefromaddress' , 'string' , '' , 'Force the from and reply address for test purposes eg john@example.com')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_forcemobile' , 'string' , '' , 'Force this mobile number for test purposes eg 31612345678')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_smsprotocol' , 'string' , 'HTTP' , 'HTTP or SMTP(*)')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_smsaccount' , 'string' , '' , 'SMS email address for protocol SMTP')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_uid' , 'string' , '' , 'SMS provider user id')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_pwd' , 'string' , '' , 'SMS provider user password')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_replyphone' , 'string' , 'FACILITOR' , 'Include country code')
DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'puo_sendusing' , 'number' , '1' , '1=cdoSendUsingPickup (IIS SMTP Service must be installed), 2=cdoSendUsingPort')
DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'puo_smtpserver' , 'string' , '' , 'Server when sendusing cdoSendUsingPort')
DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'puo_smtpserverport' , 'number' , '25' , 'Serverport when sendusing cdoSendUsingPort')
DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'puo_smtpauthenticate' , 'number' , '0' , 'Authentication when sendusing cdoSendUsingPort 0=cdoAnonymous, 1=cdoBasic, 2=cdoNTLM')
DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'puo_sendusername' , 'string' , '' , 'Username when puo_smtpauthenticate=cdoBasic')
DEFINE_SETTING('PUO', 0000, 'WEB_FACTAB', 'puo_sendpassword' , 'string' , '' , 'Password when puo_smtpauthenticate=cdoBasic')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_flags' , 'number' , '255' , '+1=send notifications, +2=send orders, +4=all orders Immediate')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_order_flexfiles' , 'number' , '0' , 'Include flexfiles with sent orders')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_apppushurl' , 'string' , '' , 'URL for pushing APP notifications')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_failalert_threshold' , 'number' , '240' , 'Minimum minutes after first failed send-attempts before an alert is sent to the (PRSSYS) application manager(s)')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'bdradrfiles_path' , 'string' , NULL , 'Technische adressen bijlagen folder')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_lcl_friendly_mailto' , 'string' , 'Opdracht per e-mail gestuurd naar {0}' , 'Friendly text for mail tracking')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_flags' , 'number' , '255' , '+1=send notifications, +2=send orders, +4=all orders Immediate')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_order_flexfiles' , 'number' , '0' , 'Include flexfiles with sent orders')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'bdradrfiles_path' , 'string' , NULL , 'Technische adressen bijlagen folder')
DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_lcl_friendly_mailto' , 'string' , 'Opdracht per e-mail gestuurd naar {0}' , 'Friendly text for mail tracking')
DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_lcl_friendly_http' , 'string' , 'Opdracht per SOAP gestuurd naar {0}' , 'Friendly text for http tracking')
DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_lcl_friendly_ftp' , 'string' , 'Opdracht per ftp gestuurd naar {0}' , 'Friendly text for ftp tracking, also port {1} folder {2}')
DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_lcl_friendly_file' , 'string' , 'Opdracht naar bestand in {0} gestuurd' , 'Friendly text for file tracking')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_fclt_web_url' , 'string' , '' , 'Url to the FACILITOR software (webserver internal address)')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_fclt_web_apikey' , 'string' , '' , 'Putorders APIKEY to the FACILITOR software')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_sendtimeout' , 'number' , '30' , 'Default send timeout for http-communication. Increase for large attachments')
DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_receivetimeout' , 'number' , '30' , 'Default receive timeout for http-communication. Increase for slow servers')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_fclt_web_url' , 'string' , '' , 'Url to the FACILITOR software (webserver internal address)')
DEFINE_SETTING('PUO', 0001, 'WEB_FACFAC', 'puo_fclt_web_apikey' , 'string' , '' , 'Putorders APIKEY to the FACILITOR software')
// Vervallen settings opruimen
DELETE FROM fac_setting

293
FAC/FAC_TAB.SRC
View File

@@ -66,6 +66,21 @@ CREATE_TABLE (fac_rapport,0)
CONSTRAINT fac_u_fac_rapport UNIQUE(fac_rapport_node, fac_rapport_volgnr, fac_rapport_soort)
);
CREATE_TABLE (fac_error,0)
(
fac_error_code
NUMBER
);
/* Used for reporting system procedure errorlogging (for conversions, imports etc)*/
CREATE_TABLE(fac_errorlog,0)
(
recno NUMBER (10),
rec_table VARCHAR2 (32),
descript VARCHAR2 (1024)
);
/* Tabel waarin de keys voor de multi_selectie worden bewaard. */
CREATE_TABLE(fac_selectie, 0)
(
@@ -88,8 +103,6 @@ CREATE_TABLE(fac_functie, 0)
fac_functie_code
VARCHAR2(10)
NOT_NULL(fac_functie_code, fac_c_fac_functie_code),
fac_functie_volgnr
NUMBER(10),
fac_functie_omschrijving
VARCHAR2(30)
NOT_NULL(fac_functie_omschrijving, fac_c_fac_functie_omschrijving),
@@ -123,8 +136,6 @@ CREATE_TABLE(fac_groep, 0)
fac_groep_collega
NUMBER(1)
DEFAULT 0 NOT NULL,
fac_groep_externid /* voor koppelingen met externe systemen, bijvoorbeeld een externe GUID */
VARCHAR2(128),
fac_groep_aanmaak
DATE
DEFAULT SYSDATE
@@ -142,41 +153,35 @@ CREATE_TABLE(fac_gebruikersgroep, 0)
fac_groep_key
NUMBER(10)
CONSTRAINT fac_r_fac_groep_key REFERENCES fac_groep(fac_groep_key) ON DELETE CASCADE
CONSTRAINT fac_c_fac_groep_key CHECK(fac_groep_key IS NOT NULL),
CONSTRAINT fac_c_fac_groep_key CHECK(fac_groep_key IS NOT NULL)
// Note: this column is defined in PRS_TAB.SRC
// prs_perslid_key
// ,prs_perslid_key
// NUMBER(10)
// CONSTRAINT fac_r_prs_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
// CONSTRAINT fac_c_prs_perslid_key CHECK(prs_perslid_key IS NOT NULL),
fac_gebruikersgroep_aanmaak
DATE
DEFAULT SYSDATE
// CONSTRAINT fac_c_prs_perslid_key CHECK(prs_perslid_key IS NOT NULL)
);
CREATE_TABLE(fac_groeprechten, 0)
(
fac_groeprechten_key
NUMBER(10)
CONSTRAINT fac_k_groeprechten_key PRIMARY KEY,
fac_groep_key
NUMBER(10)
NOT_NULL(fac_groep_key, fac_c_fac_groep_key2)
CONSTRAINT fac_r_groeprechten_groep REFERENCES fac_groep(fac_groep_key) ON DELETE CASCADE,
fac_functie_key
NUMBER(10)
NOT_NULL(fac_functie_key, fac_c_fac_functie_key1)
CONSTRAINT fac_r_groeprechten_functie REFERENCES fac_functie(fac_functie_key) ON DELETE CASCADE,
ins_discipline_key
NUMBER(10)
/* defined in ins_tab.src: CONSTRAINT fac_r_groeprechten_disc REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE */,
fac_gebruiker_prs_level_read NUMBER(1),
fac_gebruiker_alg_level_read NUMBER(1),
fac_gebruiker_prs_level_write NUMBER(1),
fac_gebruiker_alg_level_write NUMBER(1),
fac_groeprechten_aanmaak
DATE
DEFAULT SYSDATE,
CONSTRAINT fac_u_fac_groeprechten UNIQUE(FAC_GROEP_KEY, FAC_FUNCTIE_KEY, INS_DISCIPLINE_KEY)
fac_groeprechten_key
NUMBER(10)
CONSTRAINT fac_k_groeprechten_key PRIMARY KEY,
fac_groep_key
NUMBER(10)
NOT_NULL(fac_groep_key, fac_c_fac_groep_key2)
CONSTRAINT fac_r_groeprechten_groep REFERENCES fac_groep(fac_groep_key) ON DELETE CASCADE,
fac_functie_key
NUMBER(10)
NOT_NULL(fac_functie_key, fac_c_fac_functie_key1)
CONSTRAINT fac_r_groeprechten_functie REFERENCES fac_functie(fac_functie_key) ON DELETE CASCADE,
ins_discipline_key
NUMBER(10)
/* defined in ins_tab.src: CONSTRAINT fac_r_groeprechten_disc REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE */,
fac_gebruiker_prs_level_read NUMBER(1),
fac_gebruiker_alg_level_read NUMBER(1),
fac_gebruiker_prs_level_write NUMBER(1),
fac_gebruiker_alg_level_write NUMBER(1),
CONSTRAINT fac_u_fac_groeprechten UNIQUE(FAC_GROEP_KEY, FAC_FUNCTIE_KEY, INS_DISCIPLINE_KEY)
);
@@ -240,7 +245,7 @@ CREATE_TABLE(fac_usrdata, 0)
NOT_NULL(fac_usrdata_aanmaak, fac_c_fac_usrdata_aanmaak),
fac_usrdata_verwijder
DATE,
CONSTRAINT fac_u_fac_usrdata_upper UNIQUE(fac_usrtab_key, fac_usrdata_upper, fac_usrdata_verwijder, fac_usrdata_vervaldatum)
CONSTRAINT fac_u_fac_usrdata_upper UNIQUE(fac_usrtab_key, fac_usrdata_upper, fac_usrdata_verwijder)
);
/*
@@ -293,11 +298,6 @@ CREATE_TABLE(fac_usrrap, 0)
DEFAULT 1
NOT NULL
CONSTRAINT fac_c_fac_usrrap_count CHECK (fac_usrrap_count IN (0,1,2,3)), // +2 default on, +1 changeable
fac_usrrap_ratio
NUMBER(1)
DEFAULT 1
NOT NULL
CONSTRAINT fac_c_fac_usrrap_ratio CHECK (fac_usrrap_ratio IN (0,1,2,3)), // +2 default on, +1 changeable
fac_usrrap_pivot
NUMBER(1)
DEFAULT 0
@@ -432,10 +432,7 @@ CREATE_TABLE(fac_profiel, 0) (
fac_profiel_omschrijving
VARCHAR2(30) NOT NULL,
fac_profiel_limiet
NUMBER(8),
fac_profiel_aanmaak
DATE
DEFAULT SYSDATE
NUMBER(8)
);
CREATE_TABLE(fac_profielwaarde, 0) (
@@ -449,10 +446,7 @@ CREATE_TABLE(fac_profielwaarde, 0) (
-- REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE,
fac_profielwaarde_limiet
NUMBER(8)
NOT NULL,
fac_profielwaarde_aanmaak
DATE
DEFAULT SYSDATE
NOT NULL
);
CREATE_TABLE(fac_perfmon, 0)
@@ -567,9 +561,7 @@ CREATE_TABLE(fac_srtnotificatie, 0)
fac_srtnotificatie_gebouw
NUMBER(1)
DEFAULT 0
NOT_NULL(fac_srtnotificatie_gebouw, fac_c_fac_srtnotificatie_geb),
fac_srtnotificatie_srtkm_key
NUMBER(10)
NOT_NULL(fac_srtnotificatie_gebouw, fac_c_fac_srtnotificatie_geb)
);
/*
@@ -676,8 +668,6 @@ CREATE_TABLE(fac_import_app, 0)
VARCHAR(320),
fac_import_app_files
VARCHAR(32),
fac_import_app_loglevel
NUMBER(1) DEFAULT 0 NOT NULL,
fac_import_app_action
VARCHAR(320) DEFAULT 'ORACLE' NOT NULL
);
@@ -699,9 +689,7 @@ CREATE_TABLE(fac_import, 0)
fac_import_versie
VARCHAR2(30),
fac_import_refkey
NUMBER(10),
fac_import_backupdir
VARCHAR(320)
NUMBER(10)
// Note: this column is defined in PRS_TAB.SRC
// prs_perslid_key
// NUMBER(10)
@@ -836,7 +824,7 @@ CREATE_TABLE(fac_imp_onrgoed1, 0)
, alg_locatie_code VARCHAR2(10)
, alg_locatie_omschrijving VARCHAR2(60)
, alg_gebouw_code VARCHAR2(12)
, alg_gebouw_naam VARCHAR2(60)
, alg_gebouw_naam VARCHAR2(30)
, alg_srtgebouw_omschrijving VARCHAR2(30)
, alg_locatie_verantw VARCHAR2(30)
, alg_locatie_verantw_tel VARCHAR2(15)
@@ -881,11 +869,6 @@ CREATE_TABLE(fac_imp_mld, 0)
, mld_stdmelding_notfrontend VARCHAR2(1)
, alg_onrgoed_niveau VARCHAR2(1)
, mld_typeopdr_omschrijving VARCHAR2(30)
, mld_stdmelding_hint VARCHAR2(1000)
, mld_stdmelding_kopieerbaar NUMBER(1)
, mld_stdmelding_afmeldtext NUMBER(1)
, mld_stdmelding_doublecheck NUMBER(4)
, mld_stdmelding_slabewaken NUMBER(1)
);
CREATE_TABLE(fac_imp_mldafmtxt, 0)
@@ -894,7 +877,6 @@ CREATE_TABLE(fac_imp_mldafmtxt, 0)
, mld_afmeldtekst_omschrijving VARCHAR2(1000)
, ins_discipline_key NUMBER(10)
, mld_stdmelding_key NUMBER(10)
, mld_afmeldtekst_usefor NUMBER(1)
);
CREATE_TABLE(fac_imp_onrgoed2, 0)
@@ -908,7 +890,6 @@ CREATE_TABLE(fac_imp_onrgoed2, 0)
, alg_ruimte_bruto_vloeropp NUMBER(8,2)
, reserveerbaar VARCHAR2(1)
, res_discipline_omschrijving VARCHAR2(30)
, res_discipline_expire_dagen NUMBER(3)
, res_ruimte_prijs NUMBER(7,2)
, res_opstelling_omschrijving VARCHAR2(30)
, res_ruimte_opstel_bezoekers NUMBER (5)
@@ -932,21 +913,6 @@ CREATE_TABLE(fac_imp_organisatie, 0)
,PRS_KOSTENPLAATS_NR VARCHAR2 (30)
);
CREATE_TABLE(fac_imp_kpn, 0)
(
prs_kostenplaats_nr VARCHAR2 (30),
prs_kostenplaats_omschrijving VARCHAR2 (60),
prs_kostenplaats_module VARCHAR2 (3),
prs_kostenplaats_begin DATE,
prs_kostenplaats_eind DATE,
prs_kostenplaatsgrp_key NUMBER (10),
prs_perslid_key NUMBER (10),
prs_kostenplaats_limiet NUMBER (8),
prs_kostenplaats_limietperiode NUMBER (1),
prs_kostenplaats_extern NUMBER (1),
prs_kostenplaats_fiat NUMBER (1)
);
CREATE_TABLE(fac_imp_perslid, 0)
(
alg_locatie_code VARCHAR2(10)
@@ -1158,8 +1124,7 @@ CREATE_TABLE(fac_imp_ext_bedrijf, 0)
prs_bedrijf_overig2 VARCHAR2 (256),
prs_bedrijf_overig3 VARCHAR2 (256),
prs_bedrijf_xsl VARCHAR2(256),
prs_bedrijf_order_adres VARCHAR2(256),
prs_relatietype VARCHAR2(256)
prs_bedrijf_order_adres VARCHAR2(256)
);
CREATE_TABLE(fac_imp_bedrijfadres, 0)
@@ -1313,7 +1278,7 @@ CREATE_TABLE(fac_tracking, 0)
CREATE_TABLE( fac_menuitems, 0)
(
fac_menuitems_key NUMBER(10) PRIMARY KEY,
fac_menuitems_groep NUMBER(1), /* 0=personal, 1=professional, 2=appmanagement, 3=mobile*/
fac_menuitems_groep NUMBER(1), /* 0=personal, 1=professional, 2=appmanagement*/
fac_menuitems_label VARCHAR2 (30 CHAR) NOT NULL,
fac_menuitems_oms VARCHAR2 (60 CHAR),
fac_menuitems_module VARCHAR2 (3 BYTE),
@@ -1342,10 +1307,6 @@ CREATE_TABLE(fac_menu, 0)
// ins_srtdiscipline_key NUMBER(10) CONSTRAINT fac_r_menu4 REFERENCES ins_srtdiscipline (ins_srtdiscipline_key),
fac_menu_level NUMBER(1), /* 1=head, null=item, other=future use */
fac_menu_portal NUMBER(1), /* 1=include in picture/portalmenu, null=donot include, other=future use */
// Note: this column is defined in PRS_TAB.SRC
// prs_perslid NUMBER(10) CONSTRAINT fac_r_prs_perslid_key7 REFERENCES prs_perslid (prs_perslid_key) ON DELETE CASCADE,
fac_menu_filter VARCHAR2(4000),
fac_menu_aanmaak DATE DEFAULT SYSDATE,
CONSTRAINT fac_c_menu1 CHECK (fac_menuitems_key IS NULL OR fac_menu_alturl IS NULL)
);
@@ -1408,6 +1369,16 @@ CREATE_TABLE(fac_locale, 0) /* Alle feitelijk vertaalde teksten */
CONSTRAINT fac_c_fac_locale1 CHECK((fac_localeitems_key IS NOT NULL AND fac_locale_dialect_key IS NOT NULL AND fac_locale_kolomnaam IS NULL AND fac_locale_kolomkeyval IS NULL)
OR (fac_localeitems_key IS NULL AND fac_locale_dialect_key IS NULL AND fac_locale_kolomnaam IS NOT NULL AND fac_locale_kolomkeyval IS NOT NULL))
);
CREATE_TABLE(fac_locale_mgt, 0) /* labelvertalingen van facmgt */
(
fac_locale_mgt_key NUMBER (10) PRIMARY KEY,
fac_locale_mgt_label VARCHAR2(300 CHAR),
fac_locale_mgt_module VARCHAR2(3 CHAR),
fac_locale_mgt_filenaam VARCHAR2(60 CHAR),
fac_locale_mgt_lang VARCHAR2(3) NOT NULL,
fac_locale_mgt_tekst VARCHAR2(300 CHAR),
CONSTRAINT fac_u_fac_locale_mgt UNIQUE(fac_locale_mgt_label, fac_locale_mgt_lang, fac_locale_mgt_module, fac_locale_mgt_filenaam)
);
CREATE_TABLE(fac_locale_xsl, 0) /* labelvertalingen voor stylesheets */
(
fac_locale_xsl_key NUMBER (10) PRIMARY KEY,
@@ -1416,7 +1387,6 @@ CREATE_TABLE(fac_locale_xsl, 0) /* labelvertalingen voor stylesheets */
fac_locale_xsl_lang VARCHAR2(3) NOT NULL,
fac_locale_xsl_tekst VARCHAR2(2000 CHAR),
fac_locale_xsl_cust VARCHAR2(2000),
fac_locale_xsl_isvalid NUMBER(1) DEFAULT 1 NOT NULL,
CONSTRAINT fac_u_fac_locale_xsl UNIQUE(fac_locale_xsl_label, fac_locale_xsl_lang, fac_locale_xsl_module)
);
@@ -1454,7 +1424,7 @@ CREATE_TABLE(fac_imp_factuur, 0) /* Standaard tabel voor de factuur-import */
afleverdatum VARCHAR2 (10), -- info
btw_bedrag VARCHAR2 (15), -- regeltotaal btw
docid VARCHAR2 (255), -- bestandsnaam
omschrijving VARCHAR2 (250), -- regelomschrijving
omschrijving VARCHAR2 (60), -- regelomschrijving
opmerking VARCHAR2(250),
btw_verlegd VARCHAR2(3),
kenmerk1 VARCHAR2(250),
@@ -1469,7 +1439,7 @@ CREATE_TABLE(fac_imp_factuur, 0) /* Standaard tabel voor de factuur-import */
kenmerk10 VARCHAR2(250),
kenmerk11 VARCHAR2(250),
kenmerk12 VARCHAR2(250),
fac_import_key NUMBER(10) CONSTRAINT fac_r_fac_imp_factuur1 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
fac_import_key NUMBER(10),
fac_imp_file_index NUMBER(10),
fin_factuur_key NUMBER(10), -- geen importkolom, temp
fin_factuurregel_key NUMBER(10), -- geen importkolom, temp
@@ -1537,46 +1507,9 @@ CREATE_TABLE(fac_imp_flex, 0)
ins_srtdeel VARCHAR2(255)
);
CREATE_TABLE (fac_kenmwaarden, 0)
(
fac_kenmwaarden_key
NUMBER(10)
CONSTRAINT fac_k_fac_kenmwaarden_key PRIMARY KEY,
fac_kenmwaarden_module
VARCHAR2(3)
NOT_NULL(fac_kenmwaarden_module, fac_c_kenmwaarden_module),
fac_kenmwaarden_refkey
NUMBER(10),
fac_kenmwaarden_niveau
VARCHAR2(1)
CONSTRAINT fac_c_fac_kenmwaarden_niveau CHECK(fac_kenmwaarden_niveau IS NOT NULL
AND fac_kenmwaarden_niveau IN ('R','V','G','T','L','D','A','B','C','P')
OR fac_kenmwaarden_niveau IS NULL),
fac_kenmwaarden_kenmerk_key
NUMBER(10),
fac_kenmwaarden_waarde
VARCHAR2(4000),
fac_kenmwaarden_kenmerktype
VARCHAR2(1)
CONSTRAINT fac_c_fac_kenmwaarden_kenmtype CHECK(fac_kenmwaarden_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B')),
fac_kenmwaarden_isexpr
VARCHAR2(1)
DEFAULT 0
CONSTRAINT fac_c_fac_kenmwaarden_isexpr CHECK(fac_kenmwaarden_isexpr IS NOT NULL
AND fac_kenmwaarden_isexpr IN (0, 1))
// Note: this column is defined in PRS_TAB.SRC
// prs_perslid_key
// NUMBER(10)
// CONSTRAINT fac_r_prs_perslid_key8 REFERENCES prs_perslid(prs_perslid_key),
// CONSTRAINT fac_c_prs_perslid_key1 CHECK(prs_perslid_key IS NOT NULL),
// CONSTRAINT fac_u_fac_kenmwaarden UNIQUE(fac_kenmwaarden_module, fac_kenmwaarden_refkey, fac_kenmwaarden_kenmerk_key, prs_perslid_key)
);
CREATE_TABLE(fac_session, 0)
(
fac_session_key
NUMBER(10)
CONSTRAINT fac_k_fac_session_key PRIMARY KEY,
fac_session_sessionid_hash VARCHAR(128),
fac_session_data VARCHAR(256), -- Diverse data
fac_session_expire DATE DEFAULT SYSDATE+(1/24),
@@ -1658,11 +1591,8 @@ CREATE_TABLE(fac_widget, 0)
/* deze tabel heeft geen numerieke, automatische key maar een GUID-APIKEY achtige key van 32 posities */
CREATE_TABLE(fac_bookmark, 0)
(
fac_bookmark_key
NUMBER(10)
CONSTRAINT fac_k_fac_bookmark_key PRIMARY KEY,
fac_bookmark_id
VARCHAR2(32),
VARCHAR2(32) CONSTRAINT fac_bookmark_id PRIMARY KEY,
fac_bookmark_naam
VARCHAR(60)
NOT_NULL(fac_bookmark_naam, fac_c_fac_bookmark_naam),
@@ -1693,12 +1623,8 @@ CREATE_TABLE(fac_bookmark, 0)
--FSN#21091
CREATE_TABLE(fac_email_setting, 0)
(
fac_email_setting_key
NUMBER(10)
CONSTRAINT fac_k_fac_email_setting_key PRIMARY KEY,
fac_email_setting_user VARCHAR2 (255) NOT NULL,
fac_email_setting_user VARCHAR2 (255) PRIMARY KEY,
fac_email_setting_from VARCHAR2 (255),
fac_email_setting_frommode NUMBER(3) DEFAULT 0 NOT NULL, -- 0=MAIL FROM SMTP-command, 1=e-mail MIME header
fac_email_setting_action VARCHAR2 (255),
fac_email_setting_aanmaak DATE DEFAULT SYSDATE,
fac_email_setting_expire DATE,
@@ -1809,13 +1735,7 @@ CREATE_TABLE(fac_imp_cnt, 0)
flex25 VARCHAR2 (255)
);
CREATE_TABLE(fac_imp_translation, 0)
(
locale_label VARCHAR2(60 CHAR),
locale_module VARCHAR2(3),
locale_lang VARCHAR2(3) NOT NULL,
locale_tekst VARCHAR2(2000 CHAR)
);
--FSN#23201
CREATE_TABLE(fac_api, 0)
@@ -1832,37 +1752,6 @@ CREATE_TABLE(fac_api, 0)
fac_api_options_json VARCHAR2 (4000)
);
CREATE_TABLE(fac_audit, 0)
(
fac_audit_key
NUMBER(10)
CONSTRAINT fac_k_fac_audit_key PRIMARY KEY,
fac_audit_tabelnaam
VARCHAR2(30)
CONSTRAINT fac_k_fac_audit_tabelnaam CHECK(fac_audit_tabelnaam IS NOT NULL),
fac_audit_tabelkey
NUMBER(10),
fac_audit_veldnaam
VARCHAR2(30),
fac_audit_actie
VARCHAR2(1)
CONSTRAINT fac_k_fac_audit_actie CHECK(fac_audit_actie IN ('C', 'D', 'U')),
fac_audit_waarde_oud
VARCHAR2(4000),
fac_audit_waarde_nieuw
VARCHAR2(4000),
// Note: this column is defined in PRS_TAB.SRC
// prs_perslid_key
// NUMBER(10)
// CONSTRAINT fac_r_prs_perslid_key9 REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL,
fac_audit_opmerking
VARCHAR2(320),
fac_audit_datum
DATE
DEFAULT SYSDATE
CONSTRAINT fac_c_fac_audit_datum CHECK(fac_audit_datum IS NOT NULL)
);
-- AAIT#25547
CREATE_TABLE(faq_kenmerk,0)
(
@@ -1875,7 +1764,7 @@ CREATE_TABLE(faq_kenmerk,0)
faq_kenmerk_dimensie VARCHAR2(10),
faq_kenmerk_kenmerktype VARCHAR2(1)
CONSTRAINT faq_c_faq_kenmerk_type1
CHECK(faq_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B')),
CHECK(faq_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l')),
faq_kenmerk_systeem NUMBER(1),
faq_kenmerk_toonbaar NUMBER(1),
faq_kenmerk_uniek NUMBER(1),
@@ -1913,9 +1802,6 @@ CREATE_TABLE(faq_kenmerkwaarde, 0)
CREATE_TABLE(fac_qvw_ticket, 0)
(
fac_qvw_ticket_key
NUMBER(10)
CONSTRAINT fac_k_fac_qvw_ticket_key PRIMARY KEY,
fac_qvw_ticket_userid VARCHAR(32), -- XXXX01 t/m XXXX02 of AAXX_martin.leneman
fac_qvw_ticket_flags NUMBER(3) DEFAULT 0 NOT NULL, -- 0=shared, 1=reserved
fac_qvw_ticket_aanmaak DATE DEFAULT SYSDATE,
@@ -1941,65 +1827,10 @@ CREATE_TABLE(fac_gui_counter, 0)
CREATE_TABLE(fac_sequence, 0)
(
fac_sequence_key NUMBER(10)
CONSTRAINT fac_k_fac_sequence_key PRIMARY KEY,
fac_sequence_name VARCHAR2(50)
NOT NULL,
CONSTRAINT fac_k_fac_sequence_name PRIMARY KEY,
fac_sequence_lastval NUMBER(10),
fac_sequence_expire DATE
);
// Documentatie in de wiki onder Authenticeren
// LET OP: deprecated sinds 2017.1, gebruik aut_idp
// Te verwijderen met 2017.2
CREATE TABLE fac_idp
(
fac_idp_key
NUMBER(10)
CONSTRAINT fac_k_idp_key PRIMARY KEY,
fac_idp_code -- Voor &sso=<code>
VARCHAR2(30),
fac_idp_type -- 1=Internal (login.asp, future use), 2=UID_DEC (deprecated),
NUMBER(3), -- 3=GUID-encrypted (deprecated), 4=JWT, 5=SAML (future use)
fac_idp_algorithm -- HS256 is HMAC-SHA256
VARCHAR2(30),
fac_idp_omschrijving
VARCHAR2(30),
fac_idp_opmerking
VARCHAR2(320),
fac_idp_secret
VARCHAR2(128),
fac_idp_audience
VARCHAR2(128),
fac_idp_issuer
VARCHAR2(128),
fac_idp_remote_loginurl
VARCHAR2(128),
fac_idp_remote_logouturl
VARCHAR2(128),
fac_idp_usermapping
VARCHAR2(30),
fac_idp_clockskew
NUMBER(10),
fac_idp_duration
NUMBER(10),
-- Note: these column are defined in PRS_TAB.SRC
-- prs_afdeling_key NUMBER(10)
-- prs_bedrijf_key NUMBER(10)
fac_functie_key
NUMBER(10)
CONSTRAINT fac_r_idp_functie REFERENCES fac_functie(fac_functie_key),
fac_idp_internal -- can be used for FACFAC
NUMBER(1)
DEFAULT 0 NOT NULL,
fac_idp_ipfilter
VARCHAR2(320),
fac_idp_ipauto
NUMBER(1)
DEFAULT 0 NOT NULL,
fac_idp_aanmaak
DATE
DEFAULT SYSDATE
);
REGISTERONCE('$Id$')

159
FAC/FAC_TRI.SRC
View File

@@ -4,21 +4,21 @@
*
*/
CREATE_TRIGGER(fac_t_fac_functie_B_I)
BEFORE INSERT ON fac_functie
#define FAC_ERROR_CODE -20999
CREATE_TRIGGER(fac_t_fac_error_B_IU)
BEFORE INSERT OR UPDATE ON fac_error
FOR EACH ROW
BEGIN
APPLICATION_ERROR(FAC_ERROR_CODE, '');
END;
/
CREATE_TRIGGER(fac_t_fac_functie_B_IU)
BEFORE INSERT OR UPDATE ON fac_functie
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_functie_key, fac_s_fac_functie_key);
:new.fac_functie_volgnr :=
CASE
WHEN SUBSTR (:new.fac_functie_code, 8, 3) IN ('USE', 'FOF', 'BOF')
AND SUBSTR (:new.fac_functie_code, 5, 3) <> 'UUR'
THEN 250
WHEN SUBSTR (:new.fac_functie_code, 8, 3) IN ('BAC', 'MAN')
THEN 500
WHEN SUBSTR (:new.fac_functie_code, 8, 3) IN ('BO2', 'BO3', 'AFR', 'NOS', 'OAP')
THEN 750
END;
END;
/
@@ -40,29 +40,6 @@ BEGIN
END;
/
AUDIT_BEGIN(fac_gebruikersgroep)
AUDIT_VALUE(fac_gebruikersgroep, fac_groep_key)
AUDIT_VALUE(fac_gebruikersgroep, prs_perslid_key)
AUDIT_END()
CREATE_TRIGGER(fac_t_fac_email_setting_B_IU)
BEFORE INSERT OR UPDATE ON fac_email_setting
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_email_setting_key, fac_s_fac_email_setting_key);
END;
/
AUDIT_BEGIN(fac_groeprechten)
AUDIT_VALUE(fac_groeprechten, fac_groep_key)
AUDIT_VALUE(fac_groeprechten, fac_functie_key)
AUDIT_VALUE(fac_groeprechten, ins_discipline_key)
AUDIT_VALUE(fac_groeprechten, fac_gebruiker_alg_level_read)
AUDIT_VALUE(fac_groeprechten, fac_gebruiker_prs_level_read)
AUDIT_VALUE(fac_groeprechten, fac_gebruiker_alg_level_write)
AUDIT_VALUE(fac_groeprechten, fac_gebruiker_prs_level_write)
AUDIT_END()
CREATE_TRIGGER(fac_t_fac_groeprechten_B_IU)
BEFORE INSERT OR UPDATE ON fac_groeprechten
FOR EACH ROW
@@ -199,29 +176,13 @@ BEGIN
END;
/
CREATE_TRIGGER(fac_t_fac_usrtab_B_I)
BEFORE INSERT ON fac_usrtab
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_usrtab_key, fac_s_fac_usrtab_key);
UPDATE_AANMAAKDATUM(fac_usrtab, fac_usrtab_aanmaak);
END;
/
CREATE_TRIGGER(fac_t_fac_usrtab_B_IU)
BEFORE INSERT OR UPDATE ON fac_usrtab
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_usrtab_key, fac_s_fac_usrtab_key);
:new.fac_usrtab_object := 'USR_'||UPPER(:new.fac_usrtab_naam);
END;
/
CREATE_TRIGGER(fac_t_fac_usrdata_B_I)
BEFORE INSERT ON fac_usrdata
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_usrdata_key, fac_s_fac_usrdata_key);
UPDATE_AANMAAKDATUM(fac_usrdata, fac_usrdata_aanmaak);
UPDATE_AANMAAKDATUM(fac_usrtab, fac_usrtab_aanmaak);
END;
/
@@ -229,7 +190,9 @@ CREATE_TRIGGER(fac_t_fac_usrdata_B_IU)
BEFORE INSERT OR UPDATE ON fac_usrdata
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_usrdata_key, fac_s_fac_usrdata_key);
:new.fac_usrdata_upper := UPPER(:new.fac_usrdata_code);
UPDATE_AANMAAKDATUM(fac_usrdata, fac_usrdata_aanmaak);
END;
/
@@ -284,10 +247,6 @@ BEGIN
END;
/
AUDIT_BEGIN(fac_profiel)
AUDIT_VALUE(fac_profiel, fac_profiel_omschrijving)
AUDIT_VALUE(fac_profiel, fac_profiel_limiet)
AUDIT_END()
CREATE_TRIGGER(fac_t_fac_profiel_B_IU)
BEFORE INSERT OR UPDATE ON fac_profiel
@@ -297,12 +256,6 @@ BEGIN
END;
/
AUDIT_BEGIN(fac_profielwaarde)
AUDIT_VALUE(fac_profielwaarde, fac_profiel_key)
AUDIT_VALUE(fac_profielwaarde, fac_profielwaarde_limiet)
AUDIT_VALUE(fac_profielwaarde, ins_discipline_key)
AUDIT_END()
CREATE_TRIGGER(fac_t_fac_profielwaarde_B_IU)
BEFORE INSERT OR UPDATE ON fac_profielwaarde
FOR EACH ROW
@@ -485,10 +438,6 @@ BEGIN
END;
/
AUDIT_BEGIN(fac_setting)
AUDIT_VALUE(fac_setting, fac_setting_pvalue)
AUDIT_END()
CREATE_TRIGGER(fac_t_fac_setting_B_IU)
BEFORE INSERT or UPDATE ON fac_setting
FOR EACH ROW
@@ -526,15 +475,6 @@ BEGIN
END;
/
CREATE_TRIGGER(fac_t_fac_qvw_ticket_B_I)
BEFORE INSERT ON fac_qvw_ticket
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_qvw_ticket_key, fac_s_fac_qvw_ticket_key);
END;
/
CREATE_TRIGGER(fac_t_fac_tracking_b_i)
BEFORE INSERT ON fac_tracking
FOR EACH ROW
@@ -600,6 +540,14 @@ BEGIN
:new.fac_localeitems_dialect_id := UPPER (:new.fac_localeitems_dialect_id);
END;
/
CREATE_TRIGGER(fac_t_fac_locale_mgt_b_iu)
BEFORE INSERT OR UPDATE ON fac_locale_mgt
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_locale_mgt_key, fac_s_fac_locale_mgt_key);
:new.fac_locale_mgt_lang := UPPER (:new.fac_locale_mgt_lang);
END;
/
CREATE_TRIGGER(fac_t_fac_locale_xsl_b_iu)
BEFORE INSERT OR UPDATE ON fac_locale_xsl
FOR EACH ROW
@@ -681,14 +629,6 @@ BEGIN
END;
/
CREATE_TRIGGER(fac_t_fac_kenmwaarden_B_IU)
BEFORE INSERT OR UPDATE ON fac_kenmwaarden
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_kenmwaarden_key, fac_s_fac_kenmwaarden_key);
END;
/
CREATE_TRIGGER(fac_t_fac_widget_B_IU)
BEFORE INSERT OR UPDATE ON fac_widget
FOR EACH ROW
@@ -714,14 +654,6 @@ BEGIN
END;
/
CREATE_TRIGGER(fac_t_fac_audit_b_i)
BEFORE INSERT ON fac_audit
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_audit_key, fac_s_fac_audit_key);
END;
/
CREATE_TRIGGER(faq_t_faq_kenmerkwaarde_b_iu)
BEFORE INSERT OR UPDATE ON faq_kenmerkwaarde
FOR EACH ROW
@@ -785,7 +717,7 @@ BEGIN
APPLICATION_ERROR(-20004, 'faq_m232,'|| KenmerkOmschr ||','
|| TO_CHAR(KenmerkLengte));
END IF;
ELSIF KenmerkType IN ('N', 'B')
ELSIF KenmerkType = 'N'
/*
** Number
*/
@@ -869,15 +801,17 @@ BEGIN
THEN
APPLICATION_ERROR(-20003, 'faq_m238');
END IF;
IF :new.faq_kenmerk_kenmerktype IN ('C','N', 'B') AND :new.faq_kenmerk_lengte IS NULL
IF (:new.faq_kenmerk_kenmerktype IN ('C','N'))
AND :new.faq_kenmerk_lengte IS NULL
THEN
APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_LENGTE');
END IF;
IF :new.faq_kenmerk_kenmerktype IN ('N', 'B') AND :new.faq_kenmerk_lengte > 20
IF :new.faq_kenmerk_kenmerktype = 'N'
AND :new.faq_kenmerk_lengte > 20
THEN
:new.faq_kenmerk_lengte := 20;
END IF;
IF :new.faq_kenmerk_kenmerktype IN ('N', 'B') AND :old.faq_kenmerk_key IS NOT NULL
IF :new.faq_kenmerk_kenmerktype = 'N' AND :old.faq_kenmerk_key IS NOT NULL
THEN
IF :old.faq_kenmerk_nmin <> :new.faq_kenmerk_nmin OR
:old.faq_kenmerk_nmin IS NULL AND :new.faq_kenmerk_nmin IS NOT NULL
@@ -940,37 +874,4 @@ BEGIN
END;
/
CREATE_TRIGGER(fac_t_fac_idp_B_IU)
BEFORE INSERT OR UPDATE ON fac_idp
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_idp_key, fac_s_fac_idp_key);
:new.fac_idp_code := UPPER(:new.fac_idp_code);
END;
/
CREATE_TRIGGER(fac_t_fac_bookmark_B_I)
BEFORE INSERT ON fac_bookmark
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_bookmark_key, fac_s_fac_bookmark_key);
END;
/
CREATE_TRIGGER(fac_t_fac_session_B_I)
BEFORE INSERT ON fac_session
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_session_key, fac_s_fac_session_key);
END;
/
CREATE_TRIGGER(fac_t_fac_sequence_B_I)
BEFORE INSERT ON fac_sequence
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(fac_sequence_key, fac_s_fac_sequence_key);
END;
/
REGISTERRUN('$Id$')

719
FAC/FAC_VIE.SRC
View File

@@ -3,9 +3,43 @@
* $Id$
*/
CREATE_VIEW(fac_v_functie_discipline, 0)
(fac_functie_discipline_key,
fac_functie_discipline_type,
fac_functie_discipline_module,
fac_functie_discipline_omschr,
fac_functie_discipline_min_lev) AS
SELECT fac_functie_key,
'F',
fac_functie_module,
fac_functie_omschrijving,
fac_functie_min_level
FROM fac_functie
UNION
SELECT ins_discipline_key,
decode(ins_discipline_module,'INS','D','MLD','V','BES','C'),
ins_discipline_module,
ins_discipline_omschrijving,
ins_discipline_min_level
FROM ins_tab_discipline
WHERE ins_discipline_verwijder is NULL;
DEFINIEER_VIEW_AANWEZIG(fac_usrdata, fac_usrdata_verwijder,
fac_v_aanwezigusrdata,0);
CREATE_VIEW (fac_v_webfunctie, 0) AS
SELECT * FROM fac_functie F
WHERE f.fac_functie_code LIKE 'WEB%';
CREATE_VIEW (fac_v_webuser, 0) AS
SELECT prs_perslid_key,
prs_perslid_naam,
prs_perslid_oslogin prs_perslid_initialen,
prs_afdeling_key
FROM prs_v_aanwezigperslid p
WHERE p.prs_perslid_oslogin IS NOT NULL;
CREATE_VIEW (fac_v_webgebruiker, 0) AS
SELECT gg.prs_perslid_key, g.fac_functie_key,
g.ins_discipline_key,
@@ -17,6 +51,55 @@ CREATE_VIEW (fac_v_webgebruiker, 0) AS
WHERE g.fac_groep_key = gg.fac_groep_key
GROUP BY gg.prs_perslid_key, g.fac_functie_key, g.ins_discipline_key;
/* Deze view bevat alle webfuncties van de FCLTWEB gebruiker
* en de aan FCLTWEB geautoriseerde disciplines van de diverse andere modules
* (INS, MLD e.d) en biedt het arsenaal aan potentiele autorisaties van de
* individuele WEB gebruiker.
* Merk op: de LAN-functies komen hier niet in voor (deze worden op een ander
* niveau (LAN) aan de gehele FCLTWEB user toegekend.
* Hier zijn functionele afhankelijkheden mogelijk, waarbij de LAN-autorisatie
* het diepst ligt en dus vaak het laatste woord heeft!
*/
CREATE_VIEW (FAC_V_WEBFUNCTIE_DISCIPLINE, 0) AS
SELECT * FROM FAC_V_FUNCTIE_DISCIPLINE FD
WHERE (FD.fac_functie_discipline_type <>'F'
AND FD.fac_functie_discipline_key IN (SELECT ins_discipline_key
FROM all_v_aanwezigdiscipline))
OR (FD.fac_functie_discipline_type IN ('A', 'B', 'C'))
OR (FD.fac_functie_discipline_type ='F' AND FD.fac_functie_discipline_module='WEB');
CREATE_VIEW(fac_v_gebruikersgroepgegevens, 0)
( fac_gebruikersgroep_key
, fac_groep_key
, prs_perslid_key
, prs_perslid_oslogin
, prs_afdeling_key
, prs_afdeling_naam
, prs_perslid_naam
, fac_groep_omschrijving
)
AS
select
gg.fac_gebruikersgroep_key
, gg.fac_groep_key
, gg.prs_perslid_key
, p.prs_perslid_oslogin
, a.prs_afdeling_key
, a.prs_afdeling_naam
, p.prs_perslid_naam
, g.fac_groep_omschrijving
from
fac_gebruikersgroep gg
, fac_groep g
, prs_perslid p
, prs_afdeling a
where gg.fac_groep_key=g.fac_groep_key
and gg.prs_perslid_key=p.prs_perslid_key
and p.prs_afdeling_key(+)=a.prs_afdeling_key
/
-- Rapportages
CREATE_VIEW(fac_v_rap_groeprechten, 0)
(naam,
@@ -31,7 +114,7 @@ AS
SELECT -- GROEPEN MET DISCIPLINES
p.prs_perslid_naam, p.prs_perslid_oslogin,
f.fac_functie_code,
COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst, f.fac_functie_omschrijving),
f.fac_functie_omschrijving,
(CASE WHEN ins_srtdiscipline_prefix IS NULL THEN '' ELSE ins_srtdiscipline_prefix||'-' END) ||
decode(a.ins_discipline_module, 'BES', 'Categorie ',
'INS', 'Discipline ',
@@ -51,8 +134,7 @@ AS
fac_functie f,
ins_srtdiscipline isd,
ins_tab_discipline a,
fac_groep gr,
fac_locale_xsl flx
fac_groep gr
WHERE g.ins_discipline_key = a.ins_discipline_key
AND g.fac_groep_key = gr.fac_groep_key
AND p.prs_perslid_key = gg.prs_perslid_key
@@ -61,14 +143,10 @@ AS
AND f.fac_functie_key = g.fac_functie_key
AND f.fac_functie_discipline = 1
AND ins_discipline_verwijder IS NULL
AND flx.fac_locale_xsl_label (+)= f.fac_functie_omschrijving
AND flx.fac_locale_xsl_lang (+)= 'NL'
AND flx.fac_locale_xsl_module (+)= 'ASP'
UNION ALL -- GROEPEN ZONDER DISCIPLINES
SELECT p.prs_perslid_naam, p.prs_perslid_oslogin,
f.fac_functie_code,
COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst, f.fac_functie_omschrijving),
NULL omschrijving,
f.fac_functie_omschrijving, NULL omschrijving,
gr.fac_groep_omschrijving,
'(' || TO_CHAR(g.fac_gebruiker_prs_level_read) || ', '
|| TO_CHAR(g.fac_gebruiker_prs_level_write) || ', '
@@ -78,17 +156,13 @@ AS
fac_functie f,
fac_gebruikersgroep gg,
prs_v_aanwezigperslid p,
fac_groep gr,
fac_locale_xsl flx -- lcl.l gebruik was extreem traag dus maar hardcoded
fac_groep gr
WHERE fac_functie_module <> 'LAN'
AND fac_functie_discipline = 0
AND g.fac_functie_key = f.fac_functie_key
AND g.fac_groep_key = gg.fac_groep_key
AND gg.fac_groep_key = gr.fac_groep_key
AND p.prs_perslid_key = gg.prs_perslid_key
AND flx.fac_locale_xsl_label (+)= f.fac_functie_omschrijving
AND flx.fac_locale_xsl_lang (+)= 'NL'
AND flx.fac_locale_xsl_module (+)= 'ASP';
AND p.prs_perslid_key = gg.prs_perslid_key;
CREATE_VIEW(fac_v_rap_groeprechten2, 0)
(fclt_f_groep,
@@ -101,7 +175,7 @@ AS
SELECT -- GROEPEN MET DISCIPLINES
gr.fac_groep_omschrijving,
f.fac_functie_code,
COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst, f.fac_functie_omschrijving),
f.fac_functie_omschrijving,
(CASE WHEN ins_srtdiscipline_prefix IS NULL THEN '' ELSE ins_srtdiscipline_prefix||'-' END) ||
DECODE( a.ins_discipline_module , 'BES' , 'Categorie ' ,
'INS' , 'Discipline ' ,
@@ -118,37 +192,29 @@ SELECT -- GROEPEN MET DISCIPLINES
FAC_FUNCTIE f,
INS_TAB_DISCIPLINE a,
ins_srtdiscipline isd,
FAC_GROEP gr,
fac_locale_xsl flx
FAC_GROEP gr
WHERE g.ins_discipline_key = a.ins_discipline_key
AND g.fac_groep_key = gr.fac_groep_key
AND isd.ins_srtdiscipline_key(+) = a.ins_srtdiscipline_key
AND f.fac_functie_key = g.fac_functie_key
AND f.fac_functie_discipline = 1
AND ins_discipline_verwijder IS NULL
AND flx.fac_locale_xsl_label (+)= f.fac_functie_omschrijving
AND flx.fac_locale_xsl_lang (+)= 'NL'
AND flx.fac_locale_xsl_module (+)= 'ASP'
UNION ALL -- GROEPEN ZONDER DISCIPLINES
SELECT gr.fac_groep_omschrijving,
f.fac_functie_code,
COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst, f.fac_functie_omschrijving),
NULL omschrijving,
f.fac_functie_omschrijving, NULL omschrijving,
'(' || TO_CHAR(g.fac_gebruiker_prs_level_read) || ', '
|| TO_CHAR(g.fac_gebruiker_prs_level_write) || ', '
|| TO_CHAR(g.fac_gebruiker_alg_level_read) || ', '
|| TO_CHAR(g.fac_gebruiker_alg_level_write) || ')' or_ow_ar_aw
FROM FAC_GROEPRECHTEN g,
FAC_FUNCTIE f,
FAC_GROEP gr,
fac_locale_xsl flx
FAC_GROEP gr
WHERE fac_functie_module <> 'LAN'
AND g.fac_groep_key = gr.fac_groep_key
AND fac_functie_discipline = 0
AND g.fac_functie_key = f.fac_functie_key
AND flx.fac_locale_xsl_label (+)= f.fac_functie_omschrijving
AND flx.fac_locale_xsl_lang (+)= 'NL'
AND flx.fac_locale_xsl_module (+)= 'ASP';
/
CREATE_VIEW(fac_v_rap_groepleden, 0)
(naam,
@@ -254,6 +320,382 @@ AS
FROM fac_perfmon_sample s, prs_v_perslid_fullnames_all pf
WHERE s.prs_perslid_key = pf.prs_perslid_key;
-- per uur, ongeacht plaats
CREATE_VIEW (fac_v_perfmon_sample_overall60, 0) (fclt_f_datum,
tijd,
aantal,
gemiddelde1,
laagste1, hoogste1, stddeviatie1,
gemiddelde2,
laagste2, hoogste2, stddeviatie2,
gemiddelde3,
laagste3, hoogste3, stddeviatie3,
gemiddelde4,
laagste4, hoogste4, stddeviatie4,
gemiddelde5,
laagste5, hoogste5, stddeviatie5,
gemiddelde6,
laagste6, hoogste6, stddeviatie6,
gemiddelde7,
laagste7, hoogste7, stddeviatie7,
gemiddelde8,
laagste8, hoogste8, stddeviatie8,
gemiddelde9,
laagste9, hoogste9, stddeviatie9
)
AS
SELECT DATE_TO_CHAR (fac_perfmon_sample_datum, 'YYYY-MM-DD'),
DATE_TO_CHAR (fac_perfmon_sample_datum, 'HH24') || ':00',
COUNT (fac_perfmon_sample_waarde1),
ROUND (AVG (fac_perfmon_sample_waarde1)),
MIN (fac_perfmon_sample_waarde1), MAX (fac_perfmon_sample_waarde1), ROUND (STDDEV (fac_perfmon_sample_waarde1)),
ROUND (AVG (fac_perfmon_sample_waarde2)),
MIN (fac_perfmon_sample_waarde2), MAX (fac_perfmon_sample_waarde2), ROUND (STDDEV (fac_perfmon_sample_waarde2)),
ROUND (AVG (fac_perfmon_sample_waarde3)),
MIN (fac_perfmon_sample_waarde3), MAX (fac_perfmon_sample_waarde3), ROUND (STDDEV (fac_perfmon_sample_waarde3)),
ROUND (AVG (fac_perfmon_sample_waarde4)),
MIN (fac_perfmon_sample_waarde4), MAX (fac_perfmon_sample_waarde4), ROUND (STDDEV (fac_perfmon_sample_waarde4)),
ROUND (AVG (fac_perfmon_sample_waarde5)),
MIN (fac_perfmon_sample_waarde5), MAX (fac_perfmon_sample_waarde5), ROUND (STDDEV (fac_perfmon_sample_waarde5)),
ROUND (AVG (fac_perfmon_sample_waarde6)),
MIN (fac_perfmon_sample_waarde6), MAX (fac_perfmon_sample_waarde6), ROUND (STDDEV (fac_perfmon_sample_waarde6)),
ROUND (AVG (fac_perfmon_sample_waarde7)),
MIN (fac_perfmon_sample_waarde7), MAX (fac_perfmon_sample_waarde7), ROUND (STDDEV (fac_perfmon_sample_waarde7)),
ROUND (AVG (fac_perfmon_sample_waarde8)),
MIN (fac_perfmon_sample_waarde8), MAX (fac_perfmon_sample_waarde8), ROUND (STDDEV (fac_perfmon_sample_waarde8)),
ROUND (AVG (fac_perfmon_sample_waarde9)),
MIN (fac_perfmon_sample_waarde9), MAX (fac_perfmon_sample_waarde9), ROUND (STDDEV (fac_perfmon_sample_waarde9))
FROM fac_perfmon_sample
GROUP BY DATE_TO_CHAR (fac_perfmon_sample_datum, 'YYYY-MM-DD'),
DATE_TO_CHAR (fac_perfmon_sample_datum, 'HH24') || ':00';
-- idem per 10 minuten
CREATE_VIEW (fac_v_perfmon_sample_overall10, 0) (fclt_f_datum,
tijd,
aantal,
gemiddelde1,
laagste1, hoogste1, stddeviatie1,
gemiddelde2,
laagste2, hoogste2, stddeviatie2,
gemiddelde3,
laagste3, hoogste3, stddeviatie3,
gemiddelde4,
laagste4, hoogste4, stddeviatie4,
gemiddelde5,
laagste5, hoogste5, stddeviatie5,
gemiddelde6,
laagste6, hoogste6, stddeviatie6,
gemiddelde7,
laagste7, hoogste7, stddeviatie7,
gemiddelde8,
laagste8, hoogste8, stddeviatie8,
gemiddelde9,
laagste9, hoogste9, stddeviatie9
)
AS
SELECT DATE_TO_CHAR (fac_perfmon_sample_datum, 'YYYY-MM-DD'),
SUBSTR (DATE_TO_CHAR (fac_perfmon_sample_datum, 'HH24:MI'), 1, 4) || '0',
COUNT (fac_perfmon_sample_waarde1),
ROUND (AVG (fac_perfmon_sample_waarde1)),
MIN (fac_perfmon_sample_waarde1), MAX (fac_perfmon_sample_waarde1), ROUND (STDDEV (fac_perfmon_sample_waarde1)),
ROUND (AVG (fac_perfmon_sample_waarde2)),
MIN (fac_perfmon_sample_waarde2), MAX (fac_perfmon_sample_waarde2), ROUND (STDDEV (fac_perfmon_sample_waarde2)),
ROUND (AVG (fac_perfmon_sample_waarde3)),
MIN (fac_perfmon_sample_waarde3), MAX (fac_perfmon_sample_waarde3), ROUND (STDDEV (fac_perfmon_sample_waarde3)),
ROUND (AVG (fac_perfmon_sample_waarde4)),
MIN (fac_perfmon_sample_waarde4), MAX (fac_perfmon_sample_waarde4), ROUND (STDDEV (fac_perfmon_sample_waarde4)),
ROUND (AVG (fac_perfmon_sample_waarde5)),
MIN (fac_perfmon_sample_waarde5), MAX (fac_perfmon_sample_waarde5), ROUND (STDDEV (fac_perfmon_sample_waarde5)),
ROUND (AVG (fac_perfmon_sample_waarde6)),
MIN (fac_perfmon_sample_waarde6), MAX (fac_perfmon_sample_waarde6), ROUND (STDDEV (fac_perfmon_sample_waarde6)),
ROUND (AVG (fac_perfmon_sample_waarde7)),
MIN (fac_perfmon_sample_waarde7), MAX (fac_perfmon_sample_waarde7), ROUND (STDDEV (fac_perfmon_sample_waarde7)),
ROUND (AVG (fac_perfmon_sample_waarde8)),
MIN (fac_perfmon_sample_waarde8), MAX (fac_perfmon_sample_waarde8), ROUND (STDDEV (fac_perfmon_sample_waarde8)),
ROUND (AVG (fac_perfmon_sample_waarde9)),
MIN (fac_perfmon_sample_waarde9), MAX (fac_perfmon_sample_waarde9), ROUND (STDDEV (fac_perfmon_sample_waarde9))
FROM fac_perfmon_sample
GROUP BY DATE_TO_CHAR (fac_perfmon_sample_datum, 'YYYY-MM-DD'),
SUBSTR (DATE_TO_CHAR (fac_perfmon_sample_datum, 'HH24:MI'), 1, 4)
|| '0';
-- per uur, met plaats/user
CREATE_VIEW (fac_v_perfmon_sample60, 0) (fclt_f_datum,
tijd,
prs_perslid_key,
fclt_f_ipadres,
aantal,
gemiddelde1,
laagste1, hoogste1, stddeviatie1,
gemiddelde2,
laagste2, hoogste2, stddeviatie2,
gemiddelde3,
laagste3, hoogste3, stddeviatie3,
gemiddelde4,
laagste4, hoogste4, stddeviatie4,
gemiddelde5,
laagste5, hoogste5, stddeviatie5,
gemiddelde6,
laagste6, hoogste6, stddeviatie6,
gemiddelde7,
laagste7, hoogste7, stddeviatie7,
gemiddelde8,
laagste8, hoogste8, stddeviatie8,
gemiddelde9,
laagste9, hoogste9, stddeviatie9
)
AS
SELECT DATE_TO_CHAR (fac_perfmon_sample_datum, 'YYYY-MM-DD'),
DATE_TO_CHAR (fac_perfmon_sample_datum, 'HH24') || ':00',
prs_perslid_key,
fac_perfmon_sample_ip,
COUNT (fac_perfmon_sample_waarde1),
ROUND (AVG (fac_perfmon_sample_waarde1)),
MIN (fac_perfmon_sample_waarde1), MAX (fac_perfmon_sample_waarde1), ROUND (STDDEV (fac_perfmon_sample_waarde1)),
ROUND (AVG (fac_perfmon_sample_waarde2)),
MIN (fac_perfmon_sample_waarde2), MAX (fac_perfmon_sample_waarde2), ROUND (STDDEV (fac_perfmon_sample_waarde2)),
ROUND (AVG (fac_perfmon_sample_waarde3)),
MIN (fac_perfmon_sample_waarde3), MAX (fac_perfmon_sample_waarde3), ROUND (STDDEV (fac_perfmon_sample_waarde3)),
ROUND (AVG (fac_perfmon_sample_waarde4)),
MIN (fac_perfmon_sample_waarde4), MAX (fac_perfmon_sample_waarde4), ROUND (STDDEV (fac_perfmon_sample_waarde4)),
ROUND (AVG (fac_perfmon_sample_waarde5)),
MIN (fac_perfmon_sample_waarde5), MAX (fac_perfmon_sample_waarde5), ROUND (STDDEV (fac_perfmon_sample_waarde5)),
ROUND (AVG (fac_perfmon_sample_waarde6)),
MIN (fac_perfmon_sample_waarde6), MAX (fac_perfmon_sample_waarde6), ROUND (STDDEV (fac_perfmon_sample_waarde6)),
ROUND (AVG (fac_perfmon_sample_waarde7)),
MIN (fac_perfmon_sample_waarde7), MAX (fac_perfmon_sample_waarde7), ROUND (STDDEV (fac_perfmon_sample_waarde7)),
ROUND (AVG (fac_perfmon_sample_waarde8)),
MIN (fac_perfmon_sample_waarde8), MAX (fac_perfmon_sample_waarde8), ROUND (STDDEV (fac_perfmon_sample_waarde8)),
ROUND (AVG (fac_perfmon_sample_waarde9)),
MIN (fac_perfmon_sample_waarde9), MAX (fac_perfmon_sample_waarde9), ROUND (STDDEV (fac_perfmon_sample_waarde9))
FROM fac_perfmon_sample
GROUP BY DATE_TO_CHAR (fac_perfmon_sample_datum, 'YYYY-MM-DD'),
DATE_TO_CHAR (fac_perfmon_sample_datum, 'HH24') || ':00', prs_perslid_key,
fac_perfmon_sample_ip;
--idem per 10 minuten
CREATE_VIEW (fac_v_perfmon_sample10, 0) (fclt_f_datum,
tijd,
prs_perslid_key,
fclt_f_ipadres,
aantal,
gemiddelde1,
laagste1, hoogste1, stddeviatie1,
gemiddelde2,
laagste2, hoogste2, stddeviatie2,
gemiddelde3,
laagste3, hoogste3, stddeviatie3,
gemiddelde4,
laagste4, hoogste4, stddeviatie4,
gemiddelde5,
laagste5, hoogste5, stddeviatie5,
gemiddelde6,
laagste6, hoogste6, stddeviatie6,
gemiddelde7,
laagste7, hoogste7, stddeviatie7,
gemiddelde8,
laagste8, hoogste8, stddeviatie8,
gemiddelde9,
laagste9, hoogste9, stddeviatie9
)
AS
SELECT DATE_TO_CHAR (fac_perfmon_sample_datum, 'YYYY-MM-DD'),
SUBSTR (DATE_TO_CHAR (fac_perfmon_sample_datum, 'HH24:MI'), 1, 4)
|| '0',
prs_perslid_key,
fac_perfmon_sample_ip,
COUNT (fac_perfmon_sample_waarde1),
ROUND (AVG (fac_perfmon_sample_waarde1)),
MIN (fac_perfmon_sample_waarde1), MAX (fac_perfmon_sample_waarde1), ROUND (STDDEV (fac_perfmon_sample_waarde1)),
ROUND (AVG (fac_perfmon_sample_waarde2)),
MIN (fac_perfmon_sample_waarde2), MAX (fac_perfmon_sample_waarde2), ROUND (STDDEV (fac_perfmon_sample_waarde2)),
ROUND (AVG (fac_perfmon_sample_waarde3)),
MIN (fac_perfmon_sample_waarde3), MAX (fac_perfmon_sample_waarde3), ROUND (STDDEV (fac_perfmon_sample_waarde3)),
ROUND (AVG (fac_perfmon_sample_waarde4)),
MIN (fac_perfmon_sample_waarde4), MAX (fac_perfmon_sample_waarde4), ROUND (STDDEV (fac_perfmon_sample_waarde4)),
ROUND (AVG (fac_perfmon_sample_waarde5)),
MIN (fac_perfmon_sample_waarde5), MAX (fac_perfmon_sample_waarde5), ROUND (STDDEV (fac_perfmon_sample_waarde5)),
ROUND (AVG (fac_perfmon_sample_waarde6)),
MIN (fac_perfmon_sample_waarde6), MAX (fac_perfmon_sample_waarde6), ROUND (STDDEV (fac_perfmon_sample_waarde6)),
ROUND (AVG (fac_perfmon_sample_waarde7)),
MIN (fac_perfmon_sample_waarde7), MAX (fac_perfmon_sample_waarde7), ROUND (STDDEV (fac_perfmon_sample_waarde7)),
ROUND (AVG (fac_perfmon_sample_waarde8)),
MIN (fac_perfmon_sample_waarde8), MAX (fac_perfmon_sample_waarde8), ROUND (STDDEV (fac_perfmon_sample_waarde8)),
ROUND (AVG (fac_perfmon_sample_waarde9)),
MIN (fac_perfmon_sample_waarde9), MAX (fac_perfmon_sample_waarde9), ROUND (STDDEV (fac_perfmon_sample_waarde9))
FROM fac_perfmon_sample
GROUP BY DATE_TO_CHAR (fac_perfmon_sample_datum, 'YYYY-MM-DD'),
SUBSTR (DATE_TO_CHAR (fac_perfmon_sample_datum, 'HH24:MI'), 1, 4)
|| '0',
prs_perslid_key,
fac_perfmon_sample_ip;
-- levenslange gemiddelden per IPadres
CREATE_VIEW (fac_v_perfmon_sample_ip, 0) (fclt_f_ipadres,
aantal,
gemiddelde1,
laagste1,
hoogste1,
stddeviatie1,
gemiddelde2,
laagste2,
hoogste2,
stddeviatie2,
gemiddelde3,
laagste3,
hoogste3,
stddeviatie3,
gemiddelde4,
laagste4,
hoogste4,
stddeviatie4,
gemiddelde5,
laagste5,
hoogste5,
stddeviatie5,
gemiddelde6,
laagste6,
hoogste6,
stddeviatie6,
gemiddelde7,
laagste7,
hoogste7,
stddeviatie7,
gemiddelde8,
laagste8,
hoogste8,
stddeviatie8,
gemiddelde9,
laagste9,
hoogste9,
stddeviatie9
)
AS
SELECT fac_perfmon_sample_ip,
COUNT (fac_perfmon_sample_waarde1),
ROUND (AVG (fac_perfmon_sample_waarde1)),
MIN (fac_perfmon_sample_waarde1),
MAX (fac_perfmon_sample_waarde1),
ROUND (STDDEV (fac_perfmon_sample_waarde1)),
ROUND (AVG (fac_perfmon_sample_waarde2)),
MIN (fac_perfmon_sample_waarde2),
MAX (fac_perfmon_sample_waarde2),
ROUND (STDDEV (fac_perfmon_sample_waarde2)),
ROUND (AVG (fac_perfmon_sample_waarde3)),
MIN (fac_perfmon_sample_waarde3),
MAX (fac_perfmon_sample_waarde3),
ROUND (STDDEV (fac_perfmon_sample_waarde3)),
ROUND (AVG (fac_perfmon_sample_waarde4)),
MIN (fac_perfmon_sample_waarde4),
MAX (fac_perfmon_sample_waarde4),
ROUND (STDDEV (fac_perfmon_sample_waarde4)),
ROUND (AVG (fac_perfmon_sample_waarde5)),
MIN (fac_perfmon_sample_waarde5),
MAX (fac_perfmon_sample_waarde5),
ROUND (STDDEV (fac_perfmon_sample_waarde5)),
ROUND (AVG (fac_perfmon_sample_waarde6)),
MIN (fac_perfmon_sample_waarde6),
MAX (fac_perfmon_sample_waarde6),
ROUND (STDDEV (fac_perfmon_sample_waarde6)),
ROUND (AVG (fac_perfmon_sample_waarde7)),
MIN (fac_perfmon_sample_waarde7),
MAX (fac_perfmon_sample_waarde7),
ROUND (STDDEV (fac_perfmon_sample_waarde7)),
ROUND (AVG (fac_perfmon_sample_waarde8)),
MIN (fac_perfmon_sample_waarde8),
MAX (fac_perfmon_sample_waarde8),
ROUND (STDDEV (fac_perfmon_sample_waarde8)),
ROUND (AVG (fac_perfmon_sample_waarde9)),
MIN (fac_perfmon_sample_waarde9),
MAX (fac_perfmon_sample_waarde9),
ROUND (STDDEV (fac_perfmon_sample_waarde9))
FROM fac_perfmon_sample
GROUP BY fac_perfmon_sample_ip;
-- levenslange gemiddelden per user
CREATE_VIEW(fac_v_perfmon_sample_user,0) (fclt_f_naam,
aantal,
gemiddelde1,
laagste1,
hoogste1,
stddeviatie1,
gemiddelde2,
laagste2,
hoogste2,
stddeviatie2,
gemiddelde3,
laagste3,
hoogste3,
stddeviatie3,
gemiddelde4,
laagste4,
hoogste4,
stddeviatie4,
gemiddelde5,
laagste5,
hoogste5,
stddeviatie5,
gemiddelde6,
laagste6,
hoogste6,
stddeviatie6,
gemiddelde7,
laagste7,
hoogste7,
stddeviatie7,
gemiddelde8,
laagste8,
hoogste8,
stddeviatie8,
gemiddelde9,
laagste9,
hoogste9,
stddeviatie9
)
AS
SELECT prs_perslid_naam_full,
COUNT (fac_perfmon_sample_waarde1),
ROUND (AVG (fac_perfmon_sample_waarde1)),
MIN (fac_perfmon_sample_waarde1),
MAX (fac_perfmon_sample_waarde1),
ROUND (STDDEV (fac_perfmon_sample_waarde1)),
ROUND (AVG (fac_perfmon_sample_waarde2)),
MIN (fac_perfmon_sample_waarde2),
MAX (fac_perfmon_sample_waarde2),
ROUND (STDDEV (fac_perfmon_sample_waarde2)),
ROUND (AVG (fac_perfmon_sample_waarde3)),
MIN (fac_perfmon_sample_waarde3),
MAX (fac_perfmon_sample_waarde3),
ROUND (STDDEV (fac_perfmon_sample_waarde3)),
ROUND (AVG (fac_perfmon_sample_waarde4)),
MIN (fac_perfmon_sample_waarde4),
MAX (fac_perfmon_sample_waarde4),
ROUND (STDDEV (fac_perfmon_sample_waarde4)),
ROUND (AVG (fac_perfmon_sample_waarde5)),
MIN (fac_perfmon_sample_waarde5),
MAX (fac_perfmon_sample_waarde5),
ROUND (STDDEV (fac_perfmon_sample_waarde5)),
ROUND (AVG (fac_perfmon_sample_waarde6)),
MIN (fac_perfmon_sample_waarde6),
MAX (fac_perfmon_sample_waarde6),
ROUND (STDDEV (fac_perfmon_sample_waarde6)),
ROUND (AVG (fac_perfmon_sample_waarde7)),
MIN (fac_perfmon_sample_waarde7),
MAX (fac_perfmon_sample_waarde7),
ROUND (STDDEV (fac_perfmon_sample_waarde7)),
ROUND (AVG (fac_perfmon_sample_waarde8)),
MIN (fac_perfmon_sample_waarde8),
MAX (fac_perfmon_sample_waarde8),
ROUND (STDDEV (fac_perfmon_sample_waarde8)),
ROUND (AVG (fac_perfmon_sample_waarde9)),
MIN (fac_perfmon_sample_waarde9),
MAX (fac_perfmon_sample_waarde9),
ROUND (STDDEV (fac_perfmon_sample_waarde9))
FROM fac_perfmon_sample s, prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key(+) = s.prs_perslid_key
GROUP BY prs_perslid_naam_full;
/*
*
*
@@ -453,114 +895,50 @@ AS
res_rsv_ruimte_contact_key
ORDER BY res_rsv_ruimte_van, res_rsv_ruimte_key;
-- Notificatie voor opdrachten in de queue die al meer dan S(puo_failalert_threshold) minuten gefaald zijn
CREATE_VIEW(fac_v_noti_facorderqueuefails, 0)
(
sender,
receiver,
text,
par1,
code,
key,
xkey
)
AS
SELECT '',
wg.prs_perslid_key,
LTRIM(lcl.L('lcl_facilitor_appl')) || ' alert: transmission of '
|| DECODE (
fac_srtnotificatie_code,
'ORDSNX',
'Order '
|| (SELECT mld_melding_key
|| '/'
|| mld_opdr_bedrijfopdr_volgnr
|| ' to '
|| COALESCE (prs_bedrijf_naam, '??')
FROM mld_opdr o, prs_bedrijf b
WHERE o.mld_uitvoerende_keys = b.prs_bedrijf_key(+) AND mld_opdr_key = key),
'BES2SX',
'Procurement order '
|| (SELECT bes_bestelopdr_id || ' to ' || prs_bedrijf_naam
FROM bes_bestelopdr o, prs_bedrijf b
WHERE o.prs_bedrijf_key = b.prs_bedrijf_key AND bes_bestelopdr_key = key),
key)
|| ' has failed '
|| COUNT ( * )
|| ' times since '
|| TO_CHAR (MIN (ft.fac_tracking_datum), 'DD-MM-YYYY HH24:MI')
|| ' (' || MIN(fac_version_cust) || ')',
NULL,
NULL,
NULL,
NULL
FROM fac_v_orderqueue q,
fac_tracking ft,
fac_srtnotificatie fs,
fac_functie f,
fac_v_webgebruiker wg,
fac_version
WHERE f.fac_functie_key = wg.fac_functie_key
AND f.fac_functie_code = 'WEB_PRSSYS'
AND ft.fac_srtnotificatie_key = fs.fac_srtnotificatie_key
AND ft.fac_tracking_refkey = q.key
AND fac_srtnotificatie_code IN ('ORDSNX', 'BES2SX')
GROUP BY xmlnode,
key,
fac_srtnotificatie_code,
wg.prs_perslid_key
HAVING (SYSDATE - MIN (ft.fac_tracking_datum)) * 24 * 60 > fac.getSetting('puo_failalert_threshold');
CREATE_VIEW(fac_v_notifyqueue, 0)
AS
SELECT fac_notificatie_receiver_email, fac_notificatie_receiver_phone, fac_notificatie_oms, fac_notificatie_status,
fac_notificatie_key, fac_notificatie_refkey, fac_notificatie_datum, fac_srtnotificatie_code, fac_srtnotificatie_xmlnode,
fac_notificatie_extrakey, fac_notificatie_sender_email, fac_notificatie_lang, fac_notificatie_systeemadres,
fac_notificatie_attachments, fac_srtnotificatie_delay, fac_srtnotificatie_srtkm_key, prs_perslid_key_receiver
fac_notificatie_attachments, fac_srtnotificatie_delay
FROM fac_notificatie n
LEFT OUTER JOIN fac_srtnotificatie sn ON n.fac_srtnotificatie_key = sn.fac_srtnotificatie_key;
-- Queue met naar leveranciers te verzenden opdrachten tbv PutOrders: wat-moet-naar-wie-en-hoe
-- status=2: mail, status=4: sms (yet unused)
CREATE_VIEW(fac_v_orderqueue, 0)
(prs_bedrijf_key, alg_locatie_key, xmlnode, key, status, reference, sender)
(prs_bedrijf_key, xmlnode, key, status, reference, sender)
AS
SELECT b.prs_bedrijf_key, l.alg_locatie_key, 'bestelopdr', o.bes_bestelopdr_key, 2, o.bes_bestelopdr_id, alg_locatie_email
SELECT b.prs_bedrijf_key, 'bestelopdr', o.bes_bestelopdr_key, 2, o.bes_bestelopdr_id, alg_locatie_email
FROM prs_bedrijf b, bes_bestelopdr o, mld_adres ma, alg_locatie l
WHERE b.prs_bedrijf_key = o.prs_bedrijf_key
AND o.mld_adres_key_lev = ma.mld_adres_key
AND ma.alg_locatie_key = l.alg_locatie_key(+)
AND EXISTS (SELECT '' FROM prs_bedrijfadres ba WHERE ba.prs_bedrijf_key = b.prs_bedrijf_key AND ba.prs_bedrijfadres_type = 'B')
AND EXISTS (SELECT '' FROM prs_bedrijfadres ba where ba.prs_bedrijf_key= b.prs_bedrijf_key AND ba.prs_bedrijfadres_type='B')
AND o.bes_bestelopdr_status = 3
UNION ALL
SELECT b.prs_bedrijf_key, COALESCE (l1.alg_locatie_key, l2.alg_locatie_key), 'opdracht', o.mld_opdr_key, 2,
o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr, COALESCE (l1.alg_locatie_email, l2.alg_locatie_email)
SELECT b.prs_bedrijf_key, 'opdracht', o.mld_opdr_key, 2, o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr,
COALESCE (l1.alg_locatie_email, l2.alg_locatie_email)
FROM prs_bedrijf b, mld_opdr o, mld_melding m, mld_adres ma, alg_locatie l1, alg_locatie l2
WHERE b.prs_bedrijf_key = o.mld_uitvoerende_keys
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_adres_key = ma.mld_adres_key(+)
AND ma.alg_locatie_key = l1.alg_locatie_key(+)
AND m.mld_alg_locatie_key = l2.alg_locatie_key(+)
AND EXISTS (SELECT '' FROM prs_bedrijfadres ba WHERE ba.prs_bedrijf_key = b.prs_bedrijf_key AND ba.prs_bedrijfadres_type = 'O')
AND EXISTS (SELECT '' FROM prs_bedrijfadres ba where ba.prs_bedrijf_key= b.prs_bedrijf_key AND ba.prs_bedrijfadres_type='O')
AND (o.mld_statusopdr_key = 5 OR o.mld_statusopdr_key = 4)
AND o.mld_opdr_teverzenden = 1
AND o.mld_opdr_verzonden IS NULL
UNION ALL
SELECT b.prs_bedrijf_key, l.alg_locatie_key, 'contract', c.cnt_contract_key, 2, cnt_contract_nummer_intern, COALESCE (l.alg_locatie_email, ins_discipline_email)
FROM prs_bedrijf b, cnt_contract c, ins_tab_discipline d, alg_locatie l,
( SELECT cnt_contract_key, MIN (cnt_alg_plaats_key) cnt_alg_plaats_key
FROM cnt_contract_plaats cp1
WHERE cp1.cnt_alg_plaats_code = 'L' AND (cp1.cnt_contract_plaats_verwijder IS NULL OR cp1.cnt_contract_plaats_verwijder > SYSDATE)
GROUP BY cnt_contract_key HAVING COUNT (1) = 1) cp
SELECT b.prs_bedrijf_key, 'contract', c.cnt_contract_key, 2, cnt_contract_nummer_intern, ins_discipline_email
FROM prs_bedrijf b, cnt_contract c, ins_tab_discipline d
WHERE b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
AND d.ins_discipline_key = c.ins_discipline_key
AND c.cnt_contract_key = cp.cnt_contract_key(+)
AND cp.cnt_alg_plaats_key = l.alg_locatie_key(+)
AND EXISTS (SELECT '' FROM prs_bedrijfadres ba WHERE ba.prs_bedrijf_key = b.prs_bedrijf_key AND ba.prs_bedrijfadres_type = 'C')
AND c.cnt_contract_verwijder IS NULL
AND c.cnt_contract_looptijd_tot > SYSDATE
AND EXISTS (SELECT '' FROM prs_bedrijfadres ba where ba.prs_bedrijf_key= b.prs_bedrijf_key AND ba.prs_bedrijfadres_type='C' )
AND c.cnt_contract_teverzenden = 1;
// PLANMATIG ONDERHOUDS views (OPROGNOSE)
-- Basisview voor intern gebruik
CREATE_VIEW(fac_v_oprognosegegevens, 0) AS
@@ -909,14 +1287,10 @@ AS
FROM prs_v_aanwezigperslid p
WHERE EXISTS -- op basis van login + groep + rechten
(SELECT 1
FROM fac_v_webgebruiker gg
WHERE gg.prs_perslid_key = p.prs_perslid_key)
AND NOT EXISTS -- FSN#36597: WEB_FACFAC-users niet meetellen!
(SELECT 1
FROM fac_v_webgebruiker gg, fac_functie f
WHERE gg.prs_perslid_key = p.prs_perslid_key
AND gg.fac_functie_key = f.fac_functie_key
AND fac_functie_code = 'WEB_FACFAC')
FROM fac_v_rap_groeprechten
WHERE fclt_f_login =
COALESCE (p.prs_perslid_oslogin,
p.prs_perslid_oslogin2))
UNION ALL -- FSN#24029: Soms ook personen zonder login meetellen!
SELECT p.prs_perslid_key,
NULL oslogin,
@@ -926,10 +1300,8 @@ AS
WHERE COALESCE (p.prs_perslid_oslogin, p.prs_perslid_oslogin2) IS NULL
AND (fac.getSetting ('mld_allow_for_others') = 1
OR EXISTS (SELECT 1
FROM bes_disc_params dp, bes_discipline bd
WHERE dp.bes_disc_params_for_others = 1
AND bd.ins_discipline_key = dp.bes_ins_discipline_key
AND bd.ins_discipline_verwijder IS NULL))
FROM bes_disc_params dp
WHERE dp.bes_disc_params_for_others = 1))
UNION ALL -- FSN#27315: En ook eventuele "sensorusers" meetellen!
SELECT NULL prs_perslid_key,
NULL oslogin,
@@ -1025,8 +1397,7 @@ AS
AND fac_functie_groep IN (1, 2)) pfc
GROUP BY pfc.prs_perslid_key) pfcs
ON x.prs_perslid_key = pfcs.prs_perslid_key
WHERE (COALESCE (y.lev_write_cnt, 0) > 0 OR COALESCE (z.lev_read_cnt, 0) > 0)
AND INSTR (pfcs.funcodes, 'FACFAC') = 0;
WHERE COALESCE (y.lev_write_cnt, 0) > 0 OR COALESCE (z.lev_read_cnt, 0) > 0;
CREATE_VIEW (fac_v_lcrap_grp_stats, 0)
(
@@ -1097,57 +1468,9 @@ AS
FROM fac_gebruikersgroep
WHERE prs_perslid_key = p.prs_perslid_key);
CREATE_VIEW(fac_v_lcrap_saldo, 1)
(
tijdstip,
fe_saldo,
key_saldo,
fe_diff_pct,
key_diff_pct
)
AS
SELECT TO_CHAR (SYSDATE, 'dd-mm-yyyy hh24:mi:ss') tijdstip,
fac.getsetting ('licensed_fe_users') - fe_users fe_saldo,
fac.getsetting ('licensed_key_users') - key_users key_saldo,
DECODE(fac.getsetting ('licensed_fe_users'),0,100,100*(fac.getsetting ('licensed_fe_users') - fe_users)/fac.getsetting ('licensed_fe_users')),
DECODE(fac.getsetting ('licensed_key_users'),0,100,100*(fac.getsetting ('licensed_key_users') - fe_users)/fac.getsetting ('licensed_key_users'))
FROM fac_v_lcrap_fe_vs_key;
CREATE_VIEW (FAC_V_NOTI_LICENTIE, 0)
(
sender,
receiver,
text,
code,
key,
xkey,
xemail,
xmobile
)
AS
SELECT DISTINCT
NULL sender,
NULL receiver,
TO_CHAR (fvl.key_users - fac.getsetting ('licensed_key_users'),
'fm99999')
|| ' Key users verschil en '
|| TO_CHAR (fvl.fe_users - fac.getsetting ('licensed_fe_users'),
'fm99999')
|| ' Frontend users verschil',
'ADMLIC' code,
NULL key,
NULL xkey,
'info@facilitor.nl' xemail,
NULL xmobile
FROM fac_v_lcrap_fe_vs_key fvl
WHERE (fvl.key_users > fac.getsetting ('licensed_key_users')
OR fvl.fe_users > fac.getsetting ('licensed_fe_users'))
AND (fac.getsetting ('licensed_key_users') > 0
OR fac.getsetting ('licensed_key_users') > 0);
/* KTO-views naar mld gemoved */
/*****************************************************************************/
/*****************************************************************************/
/* Grafiek views voor dashboards e.d. REAL TIME MONITORING */
@@ -1889,50 +2212,42 @@ AS
|| ' - ' ||
(SELECT loc.fac_locale_xsl_tekst FROM fac_version v, fac_locale_xsl loc
WHERE COALESCE(v.fac_version_lang, 'NL') = LOC.FAC_LOCALE_XSL_LANG
AND LOC.FAC_LOCALE_XSL_LABEL = DECODE(ctr_disc_params_controle_type, 1, 'lcl_ins_srtcontrole_insp', 2, 'lcl_ins_srtcontrole_repl', 3, 'lcl_ins_srtcontrole_cert' , '?')
AND LOC.FAC_LOCALE_XSL_LABEL = DECODE(ins_srtcontrole_type, 1, 'lcl_ins_srtcontrole_insp', 2, 'lcl_ins_srtcontrole_repl', 3, 'lcl_ins_srtcontrole_cert' , '?')
) ins_discipline_omschrijving,
sc.ins_srtcontrole_omschrijving ins_srtgroep_omschrijving,
TO_CHAR(cdp.ctr_disc_params_controle_type) ins_srtdeel_omschrijving
TO_CHAR(sc.ins_srtcontrole_type) ins_srtdeel_omschrijving
FROM ins_kenmerk km,
ins_srtkenmerk kms,
fac_kenmerkdomein kmd,
fac_usrtab fut,
ins_srtcontrole sc,
ctr_disc_params cdp
ins_srtcontrole sc
WHERE ins_kenmerk_niveau = 'C'
AND km.ins_srtinstallatie_key = sc.ins_srtcontrole_key
AND kms.ins_srtkenmerk_key = km.ins_srtkenmerk_key
AND kmd.fac_kenmerkdomein_key(+) = kms.fac_kenmerkdomein_key
AND fut.fac_usrtab_key(+) = kmd.fac_usrtab_key
AND sc.ctr_discipline_key = cdp.ctr_ins_discipline_key);
AND fut.fac_usrtab_key(+) = kmd.fac_usrtab_key);
-- Rapporten worden niet standaard aangemaakt bij gebruikerrs
CREATE_VIEW(fac_v_rap_lcl_lang, 0) AS
SELECT nl.fac_locale_xsl_label fclt_f_label,
nl.fac_locale_xsl_module module,
nl.fac_locale_xsl_lang fclt_f_language1,
nl.fac_locale_xsl_tekst translation1,
en.fac_locale_xsl_lang fclt_f_language2,
en.fac_locale_xsl_tekst translation2,
de.fac_locale_xsl_lang fclt_f_language3,
de.fac_locale_xsl_tekst translation3,
fr.fac_locale_xsl_lang fclt_f_language4,
fr.fac_locale_xsl_tekst translation4
FROM fac_locale_xsl nl,
fac_locale_xsl en,
fac_locale_xsl de,
fac_locale_xsl fr
WHERE nl.fac_locale_xsl_lang = 'NL'
AND en.fac_locale_xsl_lang = 'EN'
AND de.fac_locale_xsl_lang = 'DE'
AND fr.fac_locale_xsl_lang = 'FR'
AND en.fac_locale_xsl_label = nl.fac_locale_xsl_label
AND de.fac_locale_xsl_label = nl.fac_locale_xsl_label
AND fr.fac_locale_xsl_label = nl.fac_locale_xsl_label
AND en.fac_locale_xsl_module = nl.fac_locale_xsl_module
AND de.fac_locale_xsl_module = nl.fac_locale_xsl_module
AND fr.fac_locale_xsl_module = nl.fac_locale_xsl_module;
SELECT nl.fac_locale_xsl_label FCLT_F_LABEL,
nl.fac_locale_xsl_tekst FCLT_F_NL,
en.fac_locale_xsl_tekst FCLT_F_EN,
de.fac_locale_xsl_tekst FCLT_F_DE,
fr.fac_locale_xsl_tekst FCLT_F_FR
FROM fac_locale_xsl nl,
fac_locale_xsl en,
fac_locale_xsl de,
fac_locale_xsl fr
WHERE nl.fac_locale_xsl_lang = 'NL'
AND en.fac_locale_xsl_lang = 'EN'
AND de.fac_locale_xsl_lang = 'DE'
AND fr.fac_locale_xsl_lang = 'FR'
AND en.fac_locale_xsl_label = nl.fac_locale_xsl_label
AND de.fac_locale_xsl_label = nl.fac_locale_xsl_label
AND fr.fac_locale_xsl_label = nl.fac_locale_xsl_label
AND nl.fac_locale_xsl_module = 'ASP'
ORDER BY nl.fac_locale_xsl_label;
CREATE_VIEW(fac_v_rap_lcl_xref, 0) AS
SELECT fac_locale_xref_filepath FCLT_F_BESTAND,
@@ -1998,16 +2313,4 @@ AS
m.fac_menu_altgroep,
mi.fac_menuitems_groep;
CREATE_VIEW(fac_v_rap_language, 0)
(
label, module, fclt_f_language, translation, fclt_f_undefined
)
AS
SELECT fac_locale_xsl_label,
fac_locale_xsl_module,
fac_locale_xsl_lang,
fac_locale_xsl_tekst,
CASE WHEN fac_locale_xsl_isvalid <> 1 THEN 'X' ELSE '' END
FROM fac_locale_xsl;
REGISTERRUN('$Id$')

5180
FAC/Languages/FACILITOR_DE.csv
View File

File diff suppressed because it is too large Load Diff

5154
FAC/Languages/FACILITOR_FR.csv
View File

File diff suppressed because it is too large Load Diff

4875
FAC/Languages/FACILITOR_NO.csv
View File

File diff suppressed because it is too large Load Diff

4875
FAC/Languages/FACILITOR_SV.csv
View File

File diff suppressed because it is too large Load Diff

30
FCLT.NMK
View File

@@ -3,7 +3,7 @@
##
## Project: FACILITOR
##
## (c) 1995-2017 Facilitor B.V.
## (c) 1995-2015 Facilitor B.V.
##
## Auteur: Ir. P.G. Feij
## $Revision$
@@ -60,9 +60,9 @@ PROJEXE=z:\Project\FACILITOR\BUILD
##
## New style using schemanumbers
##
CURRENTVERSION=31
NEXTVERSION=32
FILEVERSION=c
CURRENTVERSION=27
NEXTVERSION=28
FILEVERSION=b
NEXTCAREVERSION=32
NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)
@@ -124,10 +124,6 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL: \
$(MSRC)\alg\alg_tab.src \
$(MSRC)\alg\alg_tri.src \
$(MSRC)\alg\alg_vie.src \
$(MSRC)\aut\aut_ind.src \
$(MSRC)\aut\aut_seq.src \
$(MSRC)\aut\aut_tab.src \
$(MSRC)\aut\aut_tri.src \
$(MSRC)\bes\bes_ind.src \
$(MSRC)\bes\bes_ini.src \
$(MSRC)\bes\bes_pac.src \
@@ -142,13 +138,6 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL: \
$(MSRC)\bez\bez_tab.src \
$(MSRC)\bez\bez_tri.src \
$(MSRC)\bez\bez_vie.src \
$(MSRC)\bgt\bgt_ind.src \
$(MSRC)\bgt\bgt_ini.src \
$(MSRC)\bgt\bgt_pac.src \
$(MSRC)\bgt\bgt_seq.src \
$(MSRC)\bgt\bgt_tab.src \
$(MSRC)\bgt\bgt_tri.src \
$(MSRC)\bgt\bgt_vie.src \
$(MSRC)\cad\cad_ind.src \
$(MSRC)\cad\cad_ini.src \
$(MSRC)\cad\cad_pac.src \
@@ -163,31 +152,22 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL: \
$(MSRC)\cnt\cnt_tab.src \
$(MSRC)\cnt\cnt_tri.src \
$(MSRC)\cnt\cnt_vie.src \
$(MSRC)\ctr\ctr_ind.src \
$(MSRC)\ctr\ctr_ini.src \
$(MSRC)\ctr\ctr_pac.src \
$(MSRC)\ctr\ctr_seq.src \
$(MSRC)\ctr\ctr_tab.src \
$(MSRC)\ctr\ctr_tri.src \
$(MSRC)\ctr\ctr_vie.src \
$(MSRC)\fac\fac_ind.src \
$(MSRC)\fac\fac_ini.src \
$(MSRC)\fac\fac_lcl.src \
$(MSRC)\fac\fac_lclasp.src \
## $(MSRC)\fac\_fac_lclmdl.src \
$(MSRC)\fac\fac_set.src \
$(MSRC)\fac\fac_pac.src \
$(MSRC)\fac\fac_paca.src \
$(MSRC)\fac\fac_pacx.src \
$(MSRC)\fac\fac_pacf.src \
$(MSRC)\fac\fac_pacl.src \
$(MSRC)\fac\fac_pacflex.src \
$(MSRC)\fac\fac_seq.src \
$(MSRC)\fac\fac_tab.src \
$(MSRC)\fac\fac_tri.src \
$(MSRC)\fac\fac_vie.src \
$(MSRC)\ins\ins_ind.src \
$(MSRC)\ins\ins_ini.src \
$(MSRC)\ins\ins_lcl.src \
$(MSRC)\ins\ins_pac.src \
$(MSRC)\ins\ins_seq.src \
$(MSRC)\ins\ins_tab.src \

20
FCLT.SRC
View File

@@ -1,7 +1,7 @@
-- [FCLT*.SQL]
--
-- Script to initialise a FACILITOR database schema in Oracle
-- Copyright 1996-2017 Facilitor bv, the Netherlands.
-- Copyright 1996-2016 Facilitor bv, the Netherlands.
-- All rights reserved!
/*
* $Revision$
@@ -16,7 +16,6 @@ SET TIME ON
SET HEADING OFF
SET FEEDBACK OFF
SET ECHO OFF
SET SERVEROUTPUT ON SIZE UNLIMITED;
column fcltlogfile new_value fcltlogfile NOPRINT;
select 'FACILITOR'|| _DBV_STRING || '_' || UPPER(USER || '_' || sys_context('USERENV', 'SERVICE_NAME') || '_' || sys_context('USERENV', 'SERVER_HOST')) || '_' || to_char(sysdate,'YYYYMMDD_HH24MISS') || '.lst' as fcltlogfile from dual;
@@ -47,7 +46,7 @@ WHENEVER SQLERROR CONTINUE;
PROMPT [&fcltlogfile]
PROMPT
PROMPT Copyright 1996-2017 Facilitor bv, the Netherlands. ALL RIGHTS RESERVED.
PROMPT Copyright 1996-2016 Facilitor bv, the Netherlands. ALL RIGHTS RESERVED.
PROMPT
PROMPT This is the generated list-file of EVALCONCAT(FCLT,_DBV).sql which was used
PROMPT to create the FACILITOR(r) EVALCONCAT(DB,_DBV) schema in Oracle
@@ -57,8 +56,6 @@ SET LINESIZE 1000
SET DEFINE OFF
SET ECHO ON
#include "adm\adm_tab.src"
#include "adm\adm_seq.src"
#include "adm\adm_tri.src"
#include "adm\adm_pac.src"
/* TYPES */
@@ -78,12 +75,9 @@ SET ECHO ON
#include "cnt\cnt_tab.src"
#include "bes\bes_tab.src"
#include "fin\fin_tab.src"
#include "bgt\bgt_tab.src"
#include "prj\prj_tab.src"
#include "msg\msg_tab.src"
#include "kpi\kpi_tab.src"
#include "ctr\ctr_tab.src"
#include "aut\aut_tab.src"
/* SEQUENCES */
#include "fac\fac_seq.src"
@@ -99,12 +93,9 @@ SET ECHO ON
#include "cnt\cnt_seq.src"
#include "bes\bes_seq.src"
#include "fin\fin_seq.src"
#include "bgt\bgt_seq.src"
#include "prj\prj_seq.src"
#include "msg\msg_seq.src"
#include "kpi\kpi_seq.src"
#include "ctr\ctr_seq.src"
#include "aut\aut_seq.src"
/* INDICES */
#include "fac\fac_ind.src"
@@ -120,12 +111,9 @@ SET ECHO ON
#include "cnt\cnt_ind.src"
#include "bes\bes_ind.src"
#include "fin\fin_ind.src"
#include "bgt\bgt_ind.src"
#include "prj\prj_ind.src"
#include "msg\msg_ind.src"
#include "kpi\kpi_ind.src"
#include "ctr\ctr_ind.src"
#include "aut\aut_ind.src"
/* VIEWS, PACKAGES, TRIGGERS and LOCALES */
#include "_up/recreate.inc"
@@ -144,11 +132,9 @@ SET ECHO ON
#include "cnt\cnt_ini.src"
#include "bes\bes_ini.src"
#include "fin\fin_ini.src"
#include "bgt\bgt_ini.src"
#include "prj\prj_ini.src"
#include "msg\msg_ini.src"
#include "kpi\kpi_ini.src"
#include "ctr\ctr_ini.src"
COMMIT;
@@ -175,5 +161,5 @@ SELECT 'Schema FACILITOR@' || USER || ' is now ' || fac.getdbversion() FROM DUAL
PROMPT
PROMPT Your schema initialisation is ready. Please check the logfile for errors.
PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 700
PROMPT Copyright (c) 1992-2017 Facilitor bv, the Netherlands. All rights reserved.
PROMPT Copyright (c) 1992-2016 Facilitor bv, the Netherlands. All rights reserved.
SPOOL OFF

2
FIN/FIN_INI.SRC
View File

@@ -3,7 +3,7 @@
* $Id$
*/
_FAC_MODULE('FIN','lcl_module_FIN')
_FAC_MODULE('FIN','Facturen')
DEF_STATUS('factuur', 1, 'lcl_fin_afgewezen');
DEF_STATUS('factuur', 2, 'lcl_fin_ingevoerd');

397
FIN/FIN_PAC.SRC
View File

@@ -40,10 +40,6 @@ AS
FUNCTION getfactuurkostenplaats (pfactuur_key IN NUMBER)
RETURN NUMBER;
FUNCTION getfiatteur (pfactuur_key IN NUMBER,
pexcludekey IN NUMBER DEFAULT NULL)
RETURN NUMBER;
FUNCTION sprintf (ps IN VARCHAR2 , p_factuur_key IN NUMBER) RETURN VARCHAR2;
END fin;
/
@@ -293,31 +289,27 @@ AS
-- -1 factuur niet (automatisch) goed
-- 0 niks van te zeggen of reeds goed-/afgekeurd/verwerkt
-- 1 factuur okay
ftype VARCHAR2 (1);
c_key fin_factuur.cnt_contract_key%TYPE;
b_key fin_factuur.bes_bestelopdr_key%TYPE;
o_key fin_factuur.mld_opdr_key%TYPE;
factuurstatus fin_factuur.fin_factuur_statuses_key%TYPE;
factuurdatum fin_factuur.fin_factuur_datum%TYPE;
factuurboekmaand fin_factuur.fin_factuur_boekmaand%TYPE;
discipline ins_tab_discipline.ins_discipline_key%TYPE;
factmatchmode mld_disc_params.mld_disc_params_factmatchmode%TYPE;
korting bes_bestelopdr.bes_bestelopdr_korting%TYPE;
levkosten bes_bestelopdr.bes_bestelopdr_levkosten%TYPE;
contracttermijnkosten cnt_contract.cnt_contract_termijnkosten%TYPE;
factuurschemabedrag cnt_factuurschema.cnt_factuurschema_bedrag%TYPE;
contractkosten cnt_contract.cnt_contract_kosten%TYPE;
opdrachtkosten mld_opdr.mld_opdr_kosten%TYPE;
matchtype mld_typeopdr.mld_typeopdr_matchtype%TYPE;
factuurbedrag NUMBER (12, 2);
bestelbedrag NUMBER (12, 2); -- van de opdracht waar deze factuur over gaat
totaalgefactureerd NUMBER (12, 2); -- met deze factuur erbij eerder gefactureerd van dezelfde B(R)OC
totaaltermijngefactureerd NUMBER (12, 2); -- met deze factuur erbij eerder gefactureerd van dezelfde C igv factuurschema-gebruik
totaaltermijngefactureerdbtw NUMBER (12, 2); -- met deze factuur erbij eerder gefactureerd van dezelfde C igv factuurschema-gebruik
totaalgefactureerdbtw NUMBER (12, 2);
opdrstatus mld_opdr.mld_statusopdr_key%TYPE;
retval NUMBER := 0;
inclbtw NUMBER := 0;
ftype VARCHAR2 (1);
c_key fin_factuur.cnt_contract_key%TYPE;
b_key fin_factuur.bes_bestelopdr_key%TYPE;
o_key fin_factuur.mld_opdr_key%TYPE;
factuurstatus fin_factuur.fin_factuur_statuses_key%TYPE;
factuurdatum fin_factuur.fin_factuur_datum%TYPE;
discipline ins_tab_discipline.ins_discipline_key%TYPE;
factmatchmode mld_disc_params.mld_disc_params_factmatchmode%TYPE;
korting bes_bestelopdr.bes_bestelopdr_korting%TYPE;
levkosten bes_bestelopdr.bes_bestelopdr_levkosten%TYPE;
contracttermijnkosten cnt_contract.cnt_contract_termijnkosten%TYPE;
contractkosten cnt_contract.cnt_contract_kosten%TYPE;
opdrachtkosten mld_opdr.mld_opdr_kosten%TYPE;
matchtype mld_typeopdr.mld_typeopdr_matchtype%TYPE;
factuurbedrag NUMBER (12, 2);
bestelbedrag NUMBER (12, 2); -- van de opdracht waar deze factuur over gaat
totaalgefactureerd NUMBER (12, 2); -- met deze factuur erbij eerder gefactureerd van dezelfde B(R)OC
totaalgefactureerdbtw NUMBER (12, 2);
opdrstatus mld_opdr.mld_statusopdr_key%TYPE;
retval NUMBER := 0;
inclbtw NUMBER := 0;
-- Bepaal te tolerantie van de vakgroep
-- waarschijnlijk in procenten of zo?
-- of geven we de factuurwaarde mee en leveren we true/false op?
@@ -336,24 +328,22 @@ AS
DBMS_OUTPUT.put_line ('\nfactuurkey: ' || pfactuur_key);
SELECT mld_opdr_key,
cnt_contract_key,
bes_bestelopdr_key,
fin_factuur_totaal,
fin_factuur_statuses_key,
fin_factuur_datum,
fin_factuur_boekmaand
INTO o_key,
c_key,
b_key,
factuurbedrag,
factuurstatus,
factuurdatum,
factuurboekmaand
FROM fin_factuur
WHERE fin_factuur_key = pfactuur_key;
SELECT mld_opdr_key,
cnt_contract_key,
bes_bestelopdr_key,
fin_factuur_totaal,
fin_factuur_statuses_key,
fin_factuur_datum
INTO o_key,
c_key,
b_key,
factuurbedrag,
factuurstatus,
factuurdatum
FROM fin_factuur
WHERE fin_factuur_key = pfactuur_key;
IF factuurstatus <> 2 -- is al verwerkt, matching zinloos
IF factuurstatus <> 2 -- is al verwerkt, matching zinloos
THEN
DBMS_OUTPUT.put_line ('STOP, factuurstatus: ' || factuurstatus);
RETURN 0;
@@ -375,28 +365,25 @@ AS
-- en het totaal met de eerder bestellingfacturen ook,
-- waarbij afhankelijk van 2-weg/3-weg wordt geteld.
-- Dat moeten we dus eerst bepalen
SELECT MAX (isg.ins_discipline_key)
INTO discipline
FROM bes_bestelopdr_item boi,
bes_bestelling_item bbi,
bes_srtdeel isd,
bes_srtgroep isg
WHERE isd.bes_srtgroep_key = isg.bes_srtgroep_key
AND bbi.bes_srtdeel_key = isd.bes_srtdeel_key
AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND boi.bes_bestelopdr_key = b_key;
SELECT MAX (isg.ins_discipline_key)
INTO discipline
FROM bes_bestelopdr_item boi, bes_bestelling_item bbi, bes_srtdeel isd, bes_srtgroep isg
WHERE isd.bes_srtgroep_key = isg.bes_srtgroep_key
AND bbi.bes_srtdeel_key = isd.bes_srtdeel_key
AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND boi.bes_bestelopdr_key = b_key;
factmatchmode := fin.getfactmatchmode (discipline, 'B');
-- Zijn de bestelbedragen incl. of excl. BTW.
SELECT MAX( (SELECT ks.prs_kostensoort_btw
FROM prs_kostensoort ks
WHERE ks.prs_kostensoort_key =
COALESCE (bsg.prs_kostensoort_key, bd.prs_kostensoort_key)))
SELECT MAX((SELECT ks.prs_kostensoort_btw
FROM prs_kostensoort ks
WHERE ks.prs_kostensoort_key = COALESCE(bsg.prs_kostensoort_key, bd.prs_kostensoort_key)))
INTO inclbtw
FROM bes_discipline bd, bes_srtgroep bsg
FROM bes_discipline bd,
bes_srtgroep bsg
WHERE bd.ins_discipline_key = bsg.ins_discipline_key
AND bd.ins_discipline_key = discipline;
AND bd.ins_discipline_key = discipline;
-- Bereken dan nu de voor de matching relevante bedragen
-- Voor bestellingen nemen we de INKOOPPRIJS (het is immers een factuur die wij ontvangen)
@@ -405,52 +392,44 @@ AS
CASE
WHEN factmatchmode = 2
THEN
SELECT SUM(boi.bes_bestelopdr_item_aantal
* COALESCE (boi.bes_bestelopdr_item_inkprijs,
boi.bes_bestelopdr_item_prijs)),
MAX (COALESCE (bo.bes_bestelopdr_korting, 0)),
MAX (COALESCE (bo.bes_bestelopdr_levkosten, 0))
SELECT SUM(boi.bes_bestelopdr_item_aantal * COALESCE (boi.bes_bestelopdr_item_inkprijs, boi.bes_bestelopdr_item_prijs)),
MAX(COALESCE (bo.bes_bestelopdr_korting, 0)),
MAX(COALESCE (bo.bes_bestelopdr_levkosten, 0))
INTO bestelbedrag, korting, levkosten
FROM bes_bestelopdr_item boi, bes_bestelling_item bbi, bes_bestelopdr bo
WHERE boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
WHERE boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
AND bo.bes_bestelopdr_status NOT IN (1, 3, 8) -- als die maar niet afgewezen/geannuleerd is
AND boi.bes_bestelopdr_key = b_key;
WHEN factmatchmode = 3
THEN
SELECT SUM(boi.bes_bestelopdr_item_aantal
* COALESCE (boi.bes_bestelopdr_item_inkprijs,
boi.bes_bestelopdr_item_prijs)),
MAX (COALESCE (bo.bes_bestelopdr_korting, 0)),
MAX (COALESCE (bo.bes_bestelopdr_levkosten, 0))
SELECT SUM(boi.bes_bestelopdr_item_aantal * COALESCE (boi.bes_bestelopdr_item_inkprijs, boi.bes_bestelopdr_item_prijs)),
MAX(COALESCE (bo.bes_bestelopdr_korting, 0)),
MAX(COALESCE (bo.bes_bestelopdr_levkosten, 0))
INTO bestelbedrag, korting, levkosten
FROM bes_bestelopdr_item boi, bes_bestelling_item bbi, bes_bestelopdr bo
WHERE boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
WHERE boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
AND boi.bes_bestelopdr_item_status IN (6, 7) -- alleen de geleverde regels meetellen
AND boi.bes_bestelopdr_key = b_key;
END CASE;
bestelbedrag := bestelbedrag - korting + levkosten; -- Bedragen zijn excl. BTW?
bestelbedrag := bestelbedrag - korting + levkosten; -- Bedragen zijn excl. BTW?
SELECT SUM (fin_factuur_totaal), SUM (fin_factuur_totaal_btw)
INTO totaalgefactureerd, totaalgefactureerdbtw
FROM fin_factuur
WHERE bes_bestelopdr_key = b_key
AND fin_factuur_statuses_key <> 1
AND fin_factuur_verwijder IS NULL
AND fin_factuur_datum <= factuurdatum;
SELECT SUM (fin_factuur_totaal), SUM(fin_factuur_totaal_btw)
INTO totaalgefactureerd, totaalgefactureerdbtw
FROM fin_factuur
WHERE bes_bestelopdr_key = b_key
AND fin_factuur_statuses_key <> 1
AND fin_factuur_verwijder IS NULL
AND fin_factuur_datum <= factuurdatum;
IF inclbtw = 1 -- Artikelen zijn al inclusief, dan ook maar factuur inclusief matchen
IF inclbtw = 1 -- Artikelen zijn al inclusief, dan ook maar factuur inclusief matchen
THEN
DBMS_OUTPUT.put_line ('Inclusief BTW');
totaalgefactureerd := totaalgefactureerd + totaalgefactureerdbtw;
totaalgefactureerd := totaalgefactureerd + totaalgefactureerdbtw;
END IF;
IF fin.tolerantiematch (discipline,
ftype,
totaalgefactureerd,
bestelbedrag) = 1
IF fin.tolerantiematch (discipline, ftype, totaalgefactureerd, bestelbedrag) = 1
THEN
retval := 1;
ELSE
@@ -461,25 +440,13 @@ AS
--
WHEN ftype = 'C'
THEN
-- om te beginnen zit deze factuur per definitie in deze termijn (welke dan ook)
totaaltermijngefactureerd := factuurbedrag;
-- Zijn deze contractbedragen incl. of excl. BTW.
SELECT MAX( (SELECT ks.prs_kostensoort_btw
FROM prs_kostensoort ks
WHERE ks.prs_kostensoort_key =
COALESCE (c.prs_kostensoort_key, cd.prs_kostensoort_key)))
INTO inclbtw
FROM cnt_discipline cd, cnt_contract c
WHERE cd.ins_discipline_key = c.ins_discipline_key AND c.cnt_contract_key = c_key;
-- Controle op termijn bedrag en totaal, je kunt discussieren of _verwijder moet worden gecontroleerd.
BEGIN
SELECT c.cnt_contract_termijnkosten, c.cnt_contract_kosten, c.ins_discipline_key
INTO contracttermijnkosten, contractkosten, discipline
FROM cnt_contract c
WHERE cnt_contract_status = 0 -- actief
AND cnt_contract_key = c_key;
SELECT c.cnt_contract_termijnkosten, c.cnt_contract_kosten, c.ins_discipline_key
INTO contracttermijnkosten, contractkosten, discipline
FROM cnt_contract c
WHERE cnt_contract_status = 0 -- actief
AND cnt_contract_key = c_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
@@ -487,66 +454,19 @@ AS
RETURN -1;
END;
-- Er kan ook gebruik gemaakt worden van een factuurschema, dan moet het termijnbedrag anders bepaald worden
BEGIN
SELECT s.cnt_factuurschema_bedrag
INTO factuurschemabedrag
FROM cnt_factuurschema s
WHERE s.cnt_factuurschema_boekmaand = factuurboekmaand
AND s.cnt_contract_key = c_key;
-- Ok, er is dus een factuurschema-bedrag voor deze periode: dan controleren:
EXCEPTION
WHEN NO_DATA_FOUND
THEN
DBMS_OUTPUT.put_line( 'Geen factuurschema van toepassing voor contract '
|| c_key
|| ' in periode '
|| factuurboekmaand);
-- factuurschemabedrag is nu null
END;
-- LET OP: contractbedragen worden altijd excl. BTW. verondersteld
-- waren er niet al facturen voor dezelfde periode en komt het totaal er met deze dan niet overheen?
SELECT SUM (fin_factuur_totaal), SUM (fin_factuur_totaal_btw)
INTO totaaltermijngefactureerd, totaaltermijngefactureerdbtw
FROM fin_factuur
WHERE cnt_contract_key = c_key
AND fin_factuur_statuses_key <> 1
AND fin_factuur_verwijder IS NULL
AND fin_factuur_datum <= factuurdatum
AND fin_factuur_boekmaand = factuurboekmaand;
-- Zou hier horen, maar we doen er toch niks mee: factmatchmode := fin.getfactmatchmode (discipline, 'C');
SELECT SUM (fin_factuur_totaal) -- Excl. BTW
INTO totaalgefactureerd
FROM fin_factuur
WHERE cnt_contract_key = c_key
AND fin_factuur_statuses_key <> 1
AND fin_factuur_verwijder IS NULL
AND fin_factuur_datum <= factuurdatum;
-- totaaltermijngefactureerd(btw) is dus voor deze periode inclusief deze nieuwe, dus
-- dus mogelijk hoger dan deze ene factuur
-- We doen er toch niks mee: factmatchmode := fin.getfactmatchmode (discipline, 'C');
-- hoeveel is er met deze factuur erbij totaal voor dit contract gefactureerd
SELECT SUM (fin_factuur_totaal), SUM (fin_factuur_totaal_btw)
INTO totaalgefactureerd, totaalgefactureerdbtw
FROM fin_factuur
WHERE cnt_contract_key = c_key
AND fin_factuur_statuses_key <> 1
AND fin_factuur_verwijder IS NULL
AND fin_factuur_datum <= factuurdatum;
DBMS_OUTPUT.put_line ('Totaal gefactureerd: ' || totaalgefactureerd);
DBMS_OUTPUT.put_line ('Totaal gefactureerd periode: ' || totaaltermijngefactureerd);
IF inclbtw = 1 -- Contractbedragen zijn al inclusief, dan ook factuur inclusief matchen
THEN
DBMS_OUTPUT.put_line ('Inclusief BTW');
totaalgefactureerd := totaalgefactureerd + totaalgefactureerdbtw; -- inclusief BTW
totaaltermijngefactureerd := totaaltermijngefactureerd + totaaltermijngefactureerdbtw; -- deze periode(maand) incl. BTW
DBMS_OUTPUT.put_line ('Totaal gefactureerd: ' || totaalgefactureerd);
DBMS_OUTPUT.put_line ('Totaal gefactureerd periode: ' || totaaltermijngefactureerd);
END IF;
IF totaalgefactureerd <=
contractkosten + fac.safe_to_number (fac.getsetting ('cnt_factuur_totaalmarge'))
AND fin.tolerantiematch (discipline,
ftype,
totaaltermijngefactureerd,
COALESCE (factuurschemabedrag, contracttermijnkosten)) = 1
IF totaalgefactureerd <= contractkosten + fac.safe_to_number (fac.getsetting ('cnt_factuur_totaalmarge'))
AND fin.tolerantiematch (discipline, ftype, factuurbedrag, contracttermijnkosten) = 1
THEN
retval := 1;
ELSE
@@ -559,52 +479,25 @@ AS
THEN
-- controleer op basis van typeopdr.matchtype
BEGIN
SELECT o.mld_opdr_kosten,
sm.mld_ins_discipline_key,
top.mld_typeopdr_matchtype,
o.mld_statusopdr_key
INTO opdrachtkosten,
discipline,
matchtype,
opdrstatus
FROM mld_opdr o,
mld_melding m,
mld_typeopdr top,
mld_stdmelding sm
WHERE o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND o.mld_typeopdr_key = top.mld_typeopdr_key
AND top.mld_typeopdr_kosten = 1 -- daar mag een factuur bij
AND mld_statusopdr_key NOT IN (1, 2, 3, 10) -- dat zijn (nog) ongeldige opdrachten
AND mld_opdr_key = o_key;
SELECT o.mld_opdr_kosten, sm.mld_ins_discipline_key, top.mld_typeopdr_matchtype, o.mld_statusopdr_key
INTO opdrachtkosten, discipline, matchtype, opdrstatus
FROM mld_opdr o, mld_melding m, mld_typeopdr top, mld_stdmelding sm
WHERE o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND o.mld_typeopdr_key = top.mld_typeopdr_key
AND top.mld_typeopdr_kosten = 1 -- daar mag een factuur bij
AND mld_statusopdr_key NOT IN (1, 2, 3, 10) -- dat zijn (nog) ongeldige opdrachten
AND mld_opdr_key = o_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
DBMS_OUTPUT.put_line (
'Bijbehorende opdracht(status/kosten?) is ongeldig: ' || o_key);
DBMS_OUTPUT.put_line ('Bijbehorende opdracht(status/kosten?) is ongeldig: ' || o_key);
RETURN -1;
END;
DBMS_OUTPUT.put_line ('opdrachtkosten: ' || opdrachtkosten);
DBMS_OUTPUT.put_line ('matchtype: ' || matchtype);
DBMS_OUTPUT.put_line ('opdrstatus: ' || opdrstatus);
SELECT MAX( (SELECT ks.prs_kostensoort_btw
FROM prs_kostensoort ks
WHERE ks.prs_kostensoort_key =
COALESCE (o.prs_kostensoort_key,
stdm.prs_kostensoort_key,
md.prs_kostensoort_key)))
INTO inclbtw
FROM mld_discipline md,
mld_opdr o,
mld_stdmelding stdm,
mld_melding m
WHERE md.ins_discipline_key = stdm.mld_ins_discipline_key
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = stdm.mld_stdmelding_key
AND mld_opdr_key = o_key;
factmatchmode := fin.getfactmatchmode (discipline, 'O');
-- Een opdracht is maar 1 ding, dus die status bepaalt al veel bij 3-weg
@@ -620,24 +513,17 @@ AS
RETURN 0;
END IF;
SELECT SUM (fin_factuur_totaal), SUM (fin_factuur_totaal_btw)
INTO totaalgefactureerd, totaalgefactureerdbtw
FROM fin_factuur
WHERE mld_opdr_key = o_key
AND fin_factuur_statuses_key <> 1
AND fin_factuur_verwijder IS NULL
AND fin_factuur_datum <= factuurdatum;
-- LET OP: opdrachtbedragen worden altijd excl. BTW. verondersteld
IF inclbtw = 1 -- Opdrachtbedragen zijn dus inclusief, dan ook factuur inclusief matchen
THEN
DBMS_OUTPUT.put_line ('Inclusief BTW');
totaalgefactureerd := totaalgefactureerd + totaalgefactureerdbtw;
END IF;
SELECT SUM (fin_factuur_totaal) -- Excl. BTW
INTO totaalgefactureerd
FROM fin_factuur
WHERE mld_opdr_key = o_key
AND fin_factuur_statuses_key <> 1
AND fin_factuur_verwijder IS NULL
AND fin_factuur_datum <= factuurdatum;
IF fin.tolerantiematch (discipline,
ftype,
totaalgefactureerd,
opdrachtkosten) = 1
IF fin.tolerantiematch (discipline, ftype, totaalgefactureerd, opdrachtkosten) = 1
THEN
retval := 1;
ELSE
@@ -653,29 +539,15 @@ AS
-- Keurt een ingevoerde factuur (onvoorwaardelijk) goed of (als rejecttoo) af op basis van de matchingscriteria
PROCEDURE matchandsetfactuur (pfactuur_key IN NUMBER, prejecttoo IN BOOLEAN)
IS
lgoedkeurder fin_factuur.prs_perslid_key_goedkeur%TYPE;
BEGIN
CASE fin.matchfactuur (pfactuur_key)
WHEN 1
THEN
IF fac.getsetting('fin_enable_goedkeuren') = 0 -- validation unavailable
THEN
fin.setfactuurstatus (pfactuur_key, 6, NULL);
ELSIF fac.getsetting('fin_enable_goedkeuren') = 2 -- validation required
IF fac.getsetting('fin_enable_goedkeuren') = 1
THEN
fin.setfactuurstatus (pfactuur_key, 5, NULL);
ELSE -- validation optional (fin_enable_goedkeuren = 1)
SELECT f.prs_perslid_key_goedkeur
INTO lgoedkeurder
FROM fin_factuur f
WHERE fin_factuur_key = pfactuur_key;
IF lgoedkeurder IS NULL
THEN
fin.setfactuurstatus (pfactuur_key, 6, NULL);
ELSE
fin.setfactuurstatus (pfactuur_key, 5, NULL);
END IF;
ELSE
fin.setfactuurstatus (pfactuur_key, 6, NULL);
END IF;
WHEN -1
THEN
@@ -922,7 +794,6 @@ AS
END;
-- zoek de kostenplaats van een (gekoppelde) factuur op
-- Bij voorkeur niet meer gebruiken sinds v2017.2
FUNCTION getfactuurkostenplaats (pfactuur_key IN NUMBER)
RETURN NUMBER
IS
@@ -967,62 +838,6 @@ AS
RETURN kpkey;
END;
-- zoek de fiatteur van een (gekoppelde) factuur op
-- -1 als niet gevonden
FUNCTION getfiatteur (pfactuur_key IN NUMBER,
pexcludekey IN NUMBER DEFAULT NULL)
RETURN NUMBER
IS
c_key fin_factuur.cnt_contract_key%TYPE;
b_key fin_factuur.bes_bestelopdr_key%TYPE;
o_key fin_factuur.mld_opdr_key%TYPE;
ftot fin_factuur.fin_factuur_totaal%TYPE;
ftotb fin_factuur.fin_factuur_totaal_btw%TYPE;
kpkey prs_kostenplaats.prs_kostenplaats_key%TYPE;
ldisckey ins_tab_discipline.ins_discipline_key%TYPE;
kskey prs_kostensoort.prs_kostensoort_key%TYPE;
linclbtw prs_kostensoort.prs_kostensoort_btw%TYPE;
lbedrag fin_factuur.fin_factuur_totaal%TYPE;
BEGIN
SELECT mld_opdr_key, cnt_contract_key, bes_bestelopdr_key, fin_factuur_totaal, fin_factuur_totaal_btw
INTO o_key, c_key, b_key, ftot, ftotb
FROM fin_factuur
WHERE fin_factuur_key = pfactuur_key;
CASE
WHEN b_key IS NOT NULL
THEN
SELECT MAX (b.prs_kostenplaats_key)
INTO kpkey
FROM bes_bestelopdr_item boi, bes_bestelling_item bbi, bes_bestelopdr bo, bes_bestelling b
WHERE bbi.bes_bestelling_key = b.bes_bestelling_key
AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
AND boi.bes_bestelopdr_key = b_key;
WHEN c_key IS NOT NULL
THEN
SELECT c.prs_kostenplaats_key
INTO kpkey
FROM cnt_contract c
WHERE cnt_contract_key = c_key;
WHEN o_key IS NOT NULL
THEN
SELECT COALESCE (o.prs_kostenplaats_key, m.prs_kostenplaats_key)
INTO kpkey
FROM mld_opdr o, mld_melding m
WHERE o.mld_melding_key = m.mld_melding_key AND mld_opdr_key = o_key;
ELSE
RETURN -1;
END CASE;
IF linclbtw = 1 THEN
lbedrag := ftot + ftotb;
ELSE
lbedrag := ftot;
END IF;
RETURN prs.getfiatteur(kpkey, pexcludekey, lbedrag, ldisckey);
END;
FUNCTION sprintf (ps IN VARCHAR2 , p_factuur_key IN NUMBER)
RETURN VARCHAR2

28
FIN/FIN_TAB.SRC
View File

@@ -53,8 +53,6 @@ CREATE_TABLE(fin_btwtabelwaarde, 0)
CONSTRAINT fin_u_fin_btwtabelwaarde UNIQUE(fin_btwtabel_key, fin_btwtabelwaarde_code, fin_btwtabelwaarde_verwijder)
);
ALTER TABLE prs_kostensoort ADD fin_btwtabelwaarde_key NUMBER(10) CONSTRAINT prs_r_fin_btwtabelwaarde_key REFERENCES fin_btwtabelwaarde (fin_btwtabelwaarde_key);
ALTER TABLE prs_bedrijf
ADD fin_btwtabel_key NUMBER(10)
CONSTRAINT prs_r_fin_btwtabel_key1 REFERENCES fin_btwtabel(fin_btwtabel_key);
@@ -63,12 +61,6 @@ ALTER TABLE mld_opdr_materiaal
ADD fin_btwtabelwaarde_key NUMBER(10)
CONSTRAINT mld_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key);
// FSN#37318
ALTER TABLE ins_srtcontrole
ADD fin_btwtabelwaarde_key NUMBER(10)
CONSTRAINT ins_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key);
CREATE_TABLE(fin_factuur,0)
(
fin_factuur_key
@@ -78,12 +70,10 @@ CREATE_TABLE(fin_factuur,0)
VARCHAR2(30)
NOT_NULL(fin_factuur_nr, fin_c_fin_factuur0)
, fin_factuur_totaal
NUMBER(12,2)
NUMBER(8,2)
, fin_factuur_totaal_btw
NUMBER (14,4)
NUMBER (10,4)
NOT_NULL(fin_factuur_totaal_btw, fin_c_fin_factuur1)
, fin_factuur_gbedrag
NUMBER(14,2)
, mld_opdr_key
NUMBER(10)
CONSTRAINT fin_r_fin_factuur1 REFERENCES mld_opdr(mld_opdr_key)
@@ -102,8 +92,6 @@ CREATE_TABLE(fin_factuur,0)
, fin_factuur_datum
DATE
NOT_NULL(fin_factuur_datum, fin_c_fin_factuur3)
, fin_factuur_advies
DATE
, fin_factuur_boekmaand
VARCHAR2(7)
, fin_factuur_debiteur_nr
@@ -117,10 +105,6 @@ CREATE_TABLE(fin_factuur,0)
NUMBER(10)
CONSTRAINT fin_c_fin_status1 CHECK(fin_factuur_statuses_key IN (1,2,3,5,6,7))
NOT_NULL(fin_factuur_statuses_key, fin_c_fin_factuur5)
, fin_factuur_bron
NUMBER(3)
DEFAULT 0
NOT NULL
, fin_factuur_verwijder
DATE
);
@@ -137,13 +121,13 @@ CREATE_TABLE(fin_factuurregel,0)
, fin_factuurregel_nr
NUMBER
, fin_factuurregel_totaal
NUMBER(12,2)
NUMBER(8,2)
NOT_NULL(fin_factuurregel_totaal, fin_c_fin_factuurregel2)
, fin_factuurregel_btw
NUMBER(14,4)
NUMBER(10,4)
NOT_NULL(fin_factuurregel_btw, fin_c_fin_factuurregel3)
, fin_factuurregel_omschrijving
VARCHAR2(250)
VARCHAR2(60)
, fin_factuurregel_referentie
VARCHAR2(30)
, fin_btwtabelwaarde_key
@@ -180,7 +164,7 @@ CREATE_TABLE(fin_kenmerk,0)
VARCHAR2(10)
,fin_kenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT fin_c_fin_kenmerk_type1 CHECK(fin_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
CONSTRAINT fin_c_fin_kenmerk_type1 CHECK(fin_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
,fin_kenmerk_systeem
NUMBER(1)
,fin_kenmerk_toonbaar

8
FIN/FIN_TRI.SRC
View File

@@ -84,7 +84,7 @@ BEGIN
APPLICATION_ERROR(-20004, 'fin_M232,'|| KenmerkOmschr ||','
|| TO_CHAR(KenmerkLengte));
END IF;
ELSIF KenmerkType IN ('N', 'B')
ELSIF KenmerkType = 'N'
/*
** Number
*/
@@ -302,12 +302,14 @@ BEGIN
THEN
APPLICATION_ERROR(-20003, 'fin_M238');
END IF;
IF :new.fin_kenmerk_kenmerktype IN ('C','N', 'B') AND :new.fin_kenmerk_lengte IS NULL
IF (:new.fin_kenmerk_kenmerktype IN ('C','N'))
AND :new.fin_kenmerk_lengte IS NULL
THEN
APPLICATION_ERROR(-20000, 'fin_C_fin_KENMERK_LENGTE');
END IF;
-- Numeriek mag niet te lang zijn (numeric overflow)
IF :new.fin_kenmerk_kenmerktype IN ('N', 'B') AND :new.fin_kenmerk_lengte > 20
IF :new.fin_kenmerk_kenmerktype = 'N'
AND :new.fin_kenmerk_lengte > 20
THEN
:new.fin_kenmerk_lengte := 20;
END IF;

21
FIN/FIN_VIE.SRC
View File

@@ -36,7 +36,7 @@ CREATE_VIEW(fac_v_noti_finreminder,0)
AS
SELECT 'FININF',
'',
fin.getfiatteur(f.fin_factuur_key) budgethouder,
prs.getkpverantwoordelijke (fin.getfactuurkostenplaats (f.fin_factuur_key), fac.getSetting('prs_approvemethod'), -1) budgethouder,
'Fiatteringsverzoek voor '
|| COUNT (f.fin_factuur_key)
|| DECODE (COUNT (f.fin_factuur_key), 1, ' factuur.', ' facturen.'),
@@ -45,10 +45,10 @@ AS
NULL,
NULL
FROM fin_factuur f
WHERE fin.getfiatteur(f.fin_factuur_key) <> -1 -- die kan ik geen bericht sturen
WHERE prs.getkpverantwoordelijke (fin.getfactuurkostenplaats (f.fin_factuur_key), fac.getSetting('prs_approvemethod'), -1) <> -1 -- die kan ik geen bericht sturen
AND f.fin_factuur_statuses_key = 2
AND f.fin_factuur_verwijder IS NULL
GROUP BY fin.getfiatteur(f.fin_factuur_key);
GROUP BY prs.getkpverantwoordelijke (fin.getfactuurkostenplaats (f.fin_factuur_key), fac.getSetting('prs_approvemethod'), -1);
-- Vooralsnog placeholders, moeten aangepast worden
CREATE_VIEW(fin_v_api_facturen, 1) AS SELECT * from fin_factuur;
@@ -156,9 +156,11 @@ AS
f.fin_factuur_opmerking,
(SELECT p.prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all p
WHERE prs_perslid_key = fin.getfiatteur(f.fin_factuur_key))
WHERE prs_perslid_key = budgethouder)
budgethouder
FROM fin_factuur f,
FROM (SELECT prs.getkpverantwoordelijke (prs_kostenplaats_key, 2, -1) budgethouder, f.*
FROM (SELECT fin.getfactuurkostenplaats (f.fin_factuur_key) prs_kostenplaats_key, f.*
FROM fin_factuur f) f) f,
prs_kostenplaats k,
mld_opdr o,
mld_melding m,
@@ -170,7 +172,7 @@ AS
bes_bestelopdr bo,
prs_kostensoort ks,
fin_factuur_statuses fs
WHERE fin.getfactuurkostenplaats(f.fin_factuur_key) = k.prs_kostenplaats_key(+)
WHERE f.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND f.prs_kostensoort_key = ks.prs_kostensoort_key(+)
AND f.mld_opdr_key = o.mld_opdr_key(+)
AND o.mld_melding_key = m.mld_melding_key(+)
@@ -203,7 +205,6 @@ CREATE_VIEW(fin_v_udr_kostenoverzicht, 0)
ordernr,
locatie,
district,
regio,
fclt_3d_locatie_key,
fclt_3d_afdeling_key
)
@@ -230,7 +231,6 @@ AS
ordernr,
alg_locatie_code,
alg_district_omschrijving,
alg_regio_omschrijving,
alg_locatie_key,
d.prs_afdeling_key
FROM (SELECT rr.prs_kostenplaats_key,
@@ -428,8 +428,7 @@ AS
prs_perslid p,
prs_v_afdeling d,
alg_locatie l,
alg_district d,
alg_regio r
alg_district d
WHERE tab.prs_kostenplaats_key(+) = k.prs_kostenplaats_key
AND tab.prs_kostensoort_key = ks.prs_kostensoort_key(+)
AND k.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
@@ -438,7 +437,6 @@ AS
AND p.prs_afdeling_key = d.prs_afdeling_key(+)
AND tab.locatie_key = l.alg_locatie_key(+)
AND l.alg_district_key = d.alg_district_key(+)
AND d.alg_regio_key = r.alg_regio_key(+)
AND datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')
GROUP BY k.prs_kostenplaats_nr,
lcl.x ('prs_kostenplaats_omschrijving',
@@ -462,7 +460,6 @@ AS
ksg.prs_kostensoortgrp_oms,
alg_locatie_key,
alg_district_omschrijving,
alg_regio_omschrijving,
alg_locatie_code;
REGISTERRUN('$Id$')

7
INS/INS_INI.SRC
View File

@@ -4,11 +4,8 @@
* $Id$
*/
_FAC_MODULE('INS','lcl_module_INS')
_FAC_MODULE('SLE','lcl_module_SLE')
INSERT INTO ins_scenario(ins_scenario_key, ins_scenario_omschrijving)
VALUES (1, 'Actual scenario');
_FAC_MODULE('INS','Objectbeheer')
_FAC_MODULE('SLE','Sleutelbeheer')
INSERT INTO fac_usrrap
(fac_usrrap_omschrijving, fac_usrrap_view_name,

122
INS/INS_LCL.SRC
View File

@@ -1,122 +0,0 @@
#ifdef INS
/*
* $Id$
* $Revision$
*/
START_LOCALEITEMS('INS_TAB_DISCIPLINE_KEY')
DEFINE_LOCALEITEM(ins_controlemode_success)
DEFINE_LOCALEITEM(ins_srtcontrole_groep)
DEFINE_LOCALEITEM(ins_srtcontrole_kosten)
DEFINE_LOCALEITEM(ins_srtcontrole_kosten2)
DEFINE_LOCALEITEM(ins_srtcontrole_kosten3)
DEFINE_LOCALEITEM(ins_srtcontrole_materiaal)
DEFINE_LOCALEITEM(ins_srtcontrole_opmerking)
DEFINE_LOCALEITEM(ins_srtcontrole_percentage)
DEFINE_LOCALEITEM(ins_srtcontrole_uren)
DEFINE_LOCALEITEM(lcl_bld_terra)
DEFINE_LOCALEITEM(lcl_building)
DEFINE_LOCALEITEM(lcl_cancel)
DEFINE_LOCALEITEM(lcl_change)
DEFINE_LOCALEITEM(lcl_count)
DEFINE_LOCALEITEM(lcl_date)
DEFINE_LOCALEITEM(lcl_delete)
DEFINE_LOCALEITEM(lcl_discipline)
DEFINE_LOCALEITEM(lcl_district)
DEFINE_LOCALEITEM(lcl_estate_gebouw_title)
DEFINE_LOCALEITEM(lcl_ins_additional_details)
DEFINE_LOCALEITEM(lcl_ins_change_xcp)
DEFINE_LOCALEITEM(lcl_ins_close)
DEFINE_LOCALEITEM(lcl_ins_controle)
DEFINE_LOCALEITEM(lcl_ins_controle_act_req)
DEFINE_LOCALEITEM(lcl_ins_controle_afgemeld)
DEFINE_LOCALEITEM(lcl_ins_controle_afgerond)
DEFINE_LOCALEITEM(lcl_ins_controle_dagelijks)
DEFINE_LOCALEITEM(lcl_ins_controle_datum)
DEFINE_LOCALEITEM(lcl_ins_controle_derde)
DEFINE_LOCALEITEM(lcl_ins_controle_eenheid)
DEFINE_LOCALEITEM(lcl_ins_controle_eennalaatste)
DEFINE_LOCALEITEM(lcl_ins_controle_eerste)
DEFINE_LOCALEITEM(lcl_ins_controle_first)
DEFINE_LOCALEITEM(lcl_ins_controle_gestart)
DEFINE_LOCALEITEM(lcl_ins_controle_groep)
DEFINE_LOCALEITEM(lcl_ins_controle_identical_values)
DEFINE_LOCALEITEM(lcl_ins_controle_is_upd)
DEFINE_LOCALEITEM(lcl_ins_controle_jaarlijks)
DEFINE_LOCALEITEM(lcl_ins_controle_laatste)
DEFINE_LOCALEITEM(lcl_ins_controle_legenda)
DEFINE_LOCALEITEM(lcl_ins_controle_maandelijks)
DEFINE_LOCALEITEM(lcl_ins_controle_mode)
DEFINE_LOCALEITEM(lcl_ins_controle_notholiday)
DEFINE_LOCALEITEM(lcl_ins_controle_opm)
DEFINE_LOCALEITEM(lcl_ins_controle_pending)
DEFINE_LOCALEITEM(lcl_ins_controle_period)
DEFINE_LOCALEITEM(lcl_ins_controle_period_fronttext)
DEFINE_LOCALEITEM(lcl_ins_controle_period_ofthemonth)
DEFINE_LOCALEITEM(lcl_ins_controle_period_rearday)
DEFINE_LOCALEITEM(lcl_ins_controle_period_rearhour)
DEFINE_LOCALEITEM(lcl_ins_controle_period_rearmonth)
DEFINE_LOCALEITEM(lcl_ins_controle_period_rearmonthon)
DEFINE_LOCALEITEM(lcl_ins_controle_period_rearweek)
DEFINE_LOCALEITEM(lcl_ins_controle_period_rearweekon)
DEFINE_LOCALEITEM(lcl_ins_controle_period_rearyear)
DEFINE_LOCALEITEM(lcl_ins_controle_period_rearyearin)
DEFINE_LOCALEITEM(lcl_ins_controle_plan)
DEFINE_LOCALEITEM(lcl_ins_controle_plandate)
DEFINE_LOCALEITEM(lcl_ins_controle_soon)
DEFINE_LOCALEITEM(lcl_ins_controle_srt)
DEFINE_LOCALEITEM(lcl_ins_controle_srt_verplicht)
DEFINE_LOCALEITEM(lcl_ins_controle_tweede)
DEFINE_LOCALEITEM(lcl_ins_controle_uurlijks)
DEFINE_LOCALEITEM(lcl_ins_controle_vierde)
DEFINE_LOCALEITEM(lcl_ins_controle_vijfde)
DEFINE_LOCALEITEM(lcl_ins_controle_wekelijks)
DEFINE_LOCALEITEM(lcl_ins_finish)
DEFINE_LOCALEITEM(lcl_ins_finishing)
DEFINE_LOCALEITEM(lcl_ins_info)
DEFINE_LOCALEITEM(lcl_ins_inspecteur)
DEFINE_LOCALEITEM(lcl_ins_interval_kenmerken)
DEFINE_LOCALEITEM(lcl_ins_kosten)
DEFINE_LOCALEITEM(lcl_ins_object)
DEFINE_LOCALEITEM(lcl_ins_planned_activities)
DEFINE_LOCALEITEM(lcl_ins_respijt)
DEFINE_LOCALEITEM(lcl_ins_schedule)
DEFINE_LOCALEITEM(lcl_ins_srtcontrole_insp)
DEFINE_LOCALEITEM(lcl_ins_srtcontrole_repl)
DEFINE_LOCALEITEM(lcl_ins_srtcontrole_type)
DEFINE_LOCALEITEM(lcl_ins_start)
DEFINE_LOCALEITEM(lcl_ins_starting)
DEFINE_LOCALEITEM(lcl_ins_status)
DEFINE_LOCALEITEM(lcl_ins_vervaldatum)
DEFINE_LOCALEITEM(lcl_location)
DEFINE_LOCALEITEM(lcl_mjb_becancelled)
DEFINE_LOCALEITEM(lcl_mjb_dragdrop)
DEFINE_LOCALEITEM(lcl_mjb_frequency)
DEFINE_LOCALEITEM(lcl_mjb_group)
DEFINE_LOCALEITEM(lcl_mjb_inclbtw)
DEFINE_LOCALEITEM(lcl_mjb_inflation)
DEFINE_LOCALEITEM(lcl_mjb_overruled_xcp)
DEFINE_LOCALEITEM(lcl_mjb_phasingout)
DEFINE_LOCALEITEM(lcl_mjb_uptoyear)
DEFINE_LOCALEITEM(lcl_name)
DEFINE_LOCALEITEM(lcl_obj_group)
DEFINE_LOCALEITEM(lcl_obj_identification)
DEFINE_LOCALEITEM(lcl_obj_sort)
DEFINE_LOCALEITEM(lcl_opdr_plandate)
DEFINE_LOCALEITEM(lcl_park)
DEFINE_LOCALEITEM(lcl_remark)
DEFINE_LOCALEITEM(lcl_search)
DEFINE_LOCALEITEM(lcl_search_generic)
DEFINE_LOCALEITEM(lcl_select_controlemode)
DEFINE_LOCALEITEM(lcl_select_discipline)
DEFINE_LOCALEITEM(lcl_select_srtcontrole)
DEFINE_LOCALEITEM(lcl_shared_doaction)
DEFINE_LOCALEITEM(lcl_show)
DEFINE_LOCALEITEM(lcl_status_details)
DEFINE_LOCALEITEM(lcl_submit)
DEFINE_LOCALEITEM(lcl_Total)
DEFINE_LOCALEITEM(lcl_valutasign)
END_LOCALEITEMS()
REGISTERONCE('$Id$')
#endif // INS

162
INS/INS_PAC.SRC
View File

@@ -8,8 +8,8 @@ CREATE OR REPLACE PACKAGE ins AS
FUNCTION delete_deelkoppeling( DeelKey IN NUMBER ) RETURN BOOLEAN;
FUNCTION get_description(LPNName IN VARCHAR2, CondKey IN NUMBER, Prefix IN VARCHAR2) RETURN VARCHAR2;
FUNCTION sprintf (ps IN varchar2, pins_deel_key IN number) RETURN varchar2;
FUNCTION contrsprintf (ps IN varchar2, pins_deelsrtcontr_key IN NUMBER) RETURN varchar2;
FUNCTION nextcyclusdate (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_scenario IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
FUNCTION contrsprintf (ps IN varchar2, pins_deelsrtcontr_key IN number) RETURN varchar2;
FUNCTION nextcyclusdate (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
FUNCTION nextcyclusdatesteps (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 1) RETURN NUMBER;
PROCEDURE setinspectstatus (pdlsrtcontrkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
END ins;
@@ -202,53 +202,74 @@ CREATE OR REPLACE PACKAGE BODY ins AS
-- Berekent de n-de (p_steps) controledatum na p_date.
-- Indien p_steps niet is meegegeven dan wordt de eerstvolgende controledatum na nu teruggegeven.
-- steps = 0, (NULL): 1-ste vandaag of in de toekomst (als meegegeven datum (p_date) de huidige datum is, dan deze weer teruggeven).
-- steps = 0, (NULL): 1-ste vandaag of in de toekomst (als meegegeven datum (p_date) de huidite datum is, dan deze weer teruggeven).
-- steps = n: n-volgende vanaf meegegeven datum (p_date). Als deze berekende datum in de toekomst ligt en steps is nog niet null, dan wordt NULL teruggegeven).
-- De einddatum van het object (xcp.ins_srtcontroledl_xcp_eind) wordt niet meegenomen. De volgende inspectiedatum wordt gewoon teruggeven.
FUNCTION nextcyclusdate (p_insdeel IN NUMBER,
p_srtcontrole IN NUMBER,
p_scenario IN NUMBER,
p_steps IN NUMBER DEFAULT 0)
RETURN DATE
IS
inspdate DATE;
BEGIN
SELECT fac.nextcyclusdate (COALESCE ( (SELECT CASE xcp.ins_srtcontrole_mode
WHEN 0
THEN idsc.ins_deelsrtcontrole_datum_org
ELSE idsc.ins_deelsrtcontrole_datum
END ins_deelsrtcontrole_datum
FROM ins_deelsrtcontrole idsc
WHERE idsc.ins_srtcontrole_key = xcp.ins_srtcontrole_key
AND idsc.ins_deelsrtcontrole_status IN (5,6)
AND idsc.ins_scenario_key = 1
AND idsc.ins_deel_key = xcp.ins_deel_key
AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(idsc2.ins_deelsrtcontrole_key)
FROM ins_deelsrtcontrole idsc2
WHERE idsc2.ins_deel_key = xcp.ins_deel_key
AND idsc2.ins_srtcontrole_key = xcp.ins_srtcontrole_key
AND idsc2.ins_deelsrtcontrole_status IN (5,6)
AND idsc2.ins_scenario_key = 1)),
xcp.ins_srtcontroledl_xcp_startdat,
xcp.ins_deel_aanmaak),
xcp.ins_srtcontrole_mode,
xcp.ins_srtcontrole_eenheid,
xcp.ins_srtcontrole_periode,
xcp.ins_srtcontrole_bits,
p_steps,
xcp.ctr_ismjob
) inspectie_next
INTO inspdate
FROM ins_v_defined_inspect_xcp xcp
WHERE xcp.ins_deel_key = p_insdeel
AND xcp.ins_srtcontrole_key = p_srtcontrole
AND xcp.ins_scenario_key = p_scenario;
SELECT inspectie_next
INTO inspdate
FROM (WITH defined_inspect AS (SELECT isc.ins_srtcontrole_key,
isc.ins_srtcontrole_mode,
isc.ins_srtcontrole_eenheid,
isc.ins_srtcontrole_bits,
isc.ins_srtcontrole_periode,
id.ins_deel_key,
id.ins_deel_aanmaak
FROM ins_deel id,
ins_srtdeel s,
ins_srtcontrole isc
WHERE s.ins_srtdeel_key = id.ins_srtdeel_key
AND (isc.ins_srtcontrole_niveau = 'S'
AND isc.ins_srtinstallatie_key = id.ins_srtdeel_key
OR isc.ins_srtcontrole_niveau = 'G'
AND isc.ins_srtinstallatie_key = s.ins_srtgroep_key
OR isc.ins_srtcontrole_niveau = 'D'
AND isc.ins_srtinstallatie_key = id.ins_discipline_key)
AND id.ins_deel_key = p_insdeel)
SELECT fac.nextcyclusdate (COALESCE ( (SELECT GREATEST (COALESCE (idsc.ins_deelsrtcontrole_plandatum,
CASE di.ins_srtcontrole_mode
WHEN 0
THEN idsc.ins_deelsrtcontrole_datum_org
ELSE idsc.ins_deelsrtcontrole_datum END),
CASE di.ins_srtcontrole_mode
WHEN 0
THEN idsc.ins_deelsrtcontrole_datum_org
ELSE idsc.ins_deelsrtcontrole_datum
END)
ins_deelsrtcontrole_datum
FROM ins_deelsrtcontrole idsc
WHERE idsc.ins_srtcontrole_key = di.ins_srtcontrole_key
AND idsc.ins_deelsrtcontrole_status IN (5,6)
AND idsc.ins_deel_key = di.ins_deel_key
AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(idsc2.ins_deelsrtcontrole_key)
FROM ins_deelsrtcontrole idsc2
WHERE idsc2.ins_deel_key = di.ins_deel_key
AND idsc2.ins_srtcontrole_key = di.ins_srtcontrole_key
AND idsc2.ins_deelsrtcontrole_status IN (5,6))),
di.ins_deel_aanmaak),
di.ins_srtcontrole_mode,
COALESCE(xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
COALESCE(xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
COALESCE(xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
p_steps
) inspectie_next
FROM defined_inspect di,
ins_srtcontroledl_xcp xcp
WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
AND di.ins_deel_key = xcp.ins_deel_key(+)
AND di.ins_deel_key = p_insdeel
AND di.ins_srtcontrole_key = p_srtcontrole
AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC(SYSDATE, 'DD')));
RETURN inspdate;
END;
-- De einddatum van het object (xcp.ins_srtcontroledl_xcp_eind) wordt niet meegenomen. De volgende inspectiedatum wordt gewoon teruggeven.
-- Wordt alleen gebruikt voor Active Situatie (AS) soort controle's. Scenario wordt NULL verondersteld.
FUNCTION nextcyclusdatesteps (p_insdeel IN NUMBER,
p_srtcontrole IN NUMBER,
p_steps IN NUMBER DEFAULT 1) -- Standaard beginnen te tellen bij 1.
@@ -256,31 +277,50 @@ CREATE OR REPLACE PACKAGE BODY ins AS
IS
lsteps NUMBER;
BEGIN
SELECT fac.nextcyclusdatesteps (COALESCE ( (SELECT COALESCE(idsc.ins_deelsrtcontrole_plandatum, idsc.ins_deelsrtcontrole_datum_org) ins_deelsrtcontrole_datum
FROM ins_deelsrtcontrole idsc
WHERE xcp.ins_srtcontrole_key = idsc.ins_srtcontrole_key
AND idsc.ins_deelsrtcontrole_status IN (5,6)
AND idsc.ins_scenario_key = 1
AND idsc.ins_deel_key = xcp.ins_deel_key
AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(idsc2.ins_deelsrtcontrole_key)
FROM ins_deelsrtcontrole idsc2
WHERE idsc2.ins_deel_key = xcp.ins_deel_key
AND idsc2.ins_srtcontrole_key = xcp.ins_srtcontrole_key
AND idsc2.ins_deelsrtcontrole_status IN (5,6)
AND idsc2.ins_scenario_key = 1)),
xcp.ins_srtcontroledl_xcp_startdat,
ins_deel_aanmaak),
xcp.ins_srtcontrole_mode,
xcp.ins_srtcontrole_eenheid,
xcp.ins_srtcontrole_periode,
xcp.ins_srtcontrole_bits,
p_steps
) inspectie_steps
SELECT inspectie_steps
INTO lsteps
FROM ins_v_defined_inspect_xcp xcp
WHERE xcp.ins_deel_key = p_insdeel
AND xcp.ins_srtcontrole_key = p_srtcontrole
AND xcp.ins_scenario_key = 1;
FROM (WITH defined_inspect AS (SELECT isc.ins_srtcontrole_key,
isc.ins_srtcontrole_mode,
isc.ins_srtcontrole_eenheid,
isc.ins_srtcontrole_bits,
isc.ins_srtcontrole_periode,
id.ins_deel_key,
id.ins_deel_aanmaak
FROM ins_deel id,
ins_srtdeel s,
ins_srtcontrole isc
WHERE s.ins_srtdeel_key = id.ins_srtdeel_key
AND (isc.ins_srtcontrole_niveau = 'S'
AND isc.ins_srtinstallatie_key = id.ins_srtdeel_key
OR isc.ins_srtcontrole_niveau = 'G'
AND isc.ins_srtinstallatie_key = s.ins_srtgroep_key
OR isc.ins_srtcontrole_niveau = 'D'
AND isc.ins_srtinstallatie_key = id.ins_discipline_key)
AND id.ins_deel_key = p_insdeel)
SELECT fac.nextcyclusdatesteps (COALESCE ( (SELECT COALESCE(idsc.ins_deelsrtcontrole_plandatum, idsc.ins_deelsrtcontrole_datum_org) ins_deelsrtcontrole_datum
FROM ins_deelsrtcontrole idsc
WHERE di.ins_srtcontrole_key = idsc.ins_srtcontrole_key
AND idsc.ins_deelsrtcontrole_status IN (5,6)
AND idsc.ins_deel_key = di.ins_deel_key
AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(idsc2.ins_deelsrtcontrole_key)
FROM ins_deelsrtcontrole idsc2
WHERE idsc2.ins_deel_key = p_insdeel
AND idsc2.ins_srtcontrole_key = p_srtcontrole
AND idsc2.ins_deelsrtcontrole_status IN (5,6))),
ins_deel_aanmaak),
di.ins_srtcontrole_mode,
COALESCE(xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
COALESCE(xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
COALESCE(xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
p_steps
) inspectie_steps
FROM defined_inspect di,
ins_srtcontroledl_xcp xcp
WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
AND di.ins_deel_key = xcp.ins_deel_key(+)
AND di.ins_deel_key = p_insdeel
AND di.ins_srtcontrole_key = p_srtcontrole
AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC(SYSDATE, 'DD')));
RETURN lsteps;
END;

2
INS/INS_SEQ.SRC
View File

@@ -23,7 +23,7 @@ CREATE SEQUENCE ins_s_ins_compositie_key MINVALUE 1;
CREATE SEQUENCE ins_s_ins_srtdeel_comp_key MINVALUE 1;
CREATE SEQUENCE ins_s_ins_deel_state_hist_key MINVALUE 1;
CREATE SEQUENCE ins_s_ins_scenario_key MINVALUE 10;
CREATE SEQUENCE ins_s_ins_scenario_key MINVALUE 1;
CREATE SEQUENCE ins_s_ins_srtcontrole_key MINVALUE 10;
CREATE SEQUENCE ins_s_ins_controlemode_key MINVALUE 10;
CREATE SEQUENCE ins_s_ins_deelsrtcontrole_key MINVALUE 1;

95
INS/INS_TAB.SRC
View File

@@ -77,7 +77,7 @@ CREATE_TABLE(ins_tab_discipline,0)
ins_discipline_verwijder
DATE
DEFAULT NULLDATUM,
ins_discipline_min_level /* 1; Reserveerbaar object; 2; Verbruiksartikel; 3; Ruimte */
ins_discipline_min_level
NUMBER(1),
ins_discipline_kpnverplicht
NUMBER(1) DEFAULT(0)
@@ -296,7 +296,7 @@ CREATE_TABLE(ins_deel,0)
* Dit wordt in de B_IU-trigger gecontroleerd.
*/
ins_deel_aantal
NUMBER(8,2)
NUMBER(6)
DEFAULT 1
CONSTRAINT ins_c_ins_deel_aantal2 CHECK
(ins_deel_aantal is not null and ins_deel_aantal > 0),
@@ -357,9 +357,6 @@ CREATE_TABLE(ins_deel,0)
ins_deel_t_uitvoertijd
MLD_T_UITVOERTIJD
CONSTRAINT ins_c_ins_deel_uitvoertijd1 CHECK(ins_deel_t_uitvoertijd.tijdsduur >= 0),
ins_deel_actief -- Object 0=Inactief, 1=Actief.
NUMBER(1)
DEFAULT 1 NOT NULL,
-- In: PRS_TAB.SRC
-- prs_perslid_key_beh
-- NUMBER(10)
@@ -424,9 +421,9 @@ CREATE_TABLE(ins_srtcontrole, 0)
ins_srtcontrole_omschrijving
VARCHAR2(60)
NOT_NULL(ins_srtcontrole_omschrijving, ins_c_srtcontrole_omschrijving),
ctr_discipline_key NUMBER(10)
CONSTRAINT ctr_c_ins_srtcontrole_dis_key CHECK(ctr_discipline_key IS NOT NULL)
CONSTRAINT ctr_c_ins_srtctr_discipline REFERENCES ins_tab_discipline(ins_discipline_key),
ins_srtcontrole_type // 1=controle, 2=vervanging, 3=certificering, rest ntb
NUMBER(1)
DEFAULT(1),
ins_srtcontrole_groep // vrijblijvende categorisering voor groepering in rapportages
VARCHAR2(60),
ins_srtcontrole_info
@@ -465,31 +462,9 @@ CREATE_TABLE(ins_srtcontrole, 0)
VARCHAR2(320),
ins_srtcontrole_eind // hier eindigt deze
DATE,
ins_srtcontrole_options /* bitwise: 1=(kan)inplannen, 2=(kan)starten, 4=(kan)afmelden, 8=(kan)voltooien */
NUMBER(3)
DEFAULT 15
NOT_NULL(ins_srtcontrole_options, ins_c_ins_srtcontr_options),
ins_scenario_key
NUMBER(10)
DEFAULT 1 NOT NULL
CONSTRAINT ins_r_ins_scenario_key1 REFERENCES ins_scenario(ins_scenario_key) ON DELETE CASCADE,
/* in fin_tab.src:
fin_btwtabelwaarde_key
NUMBER(10)
CONSTRAINT ins_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key),
*/
ins_srtcontrole_afbouwtijd
NUMBER(6,2)
/* in mld_tab.src:
mld_stdmelding_key
NUMBER(10)
CONSTRAINT mld_r_mld_stdmelding_key7 REFERENCES mld_stdmelding
*/
/* in prs_tab.src:
,prs_kostenplaats_key
NUMBER(10)
CONSTRAINT ins_r_prs_kostenplaats_key1 REFERENCES prs_kostenplaats(prs_kostenplaats_key)
*/
CONSTRAINT ins_r_ins_scenario_key1 REFERENCES ins_scenario(ins_scenario_key) ON DELETE CASCADE
);
CREATE_TABLE(ins_controlemode, 0)
@@ -526,42 +501,36 @@ CREATE_TABLE(ins_srtcontroledl_xcp, 0)
ins_srtcontrole_key
NUMBER(10)
NOT NULL REFERENCES ins_srtcontrole ON DELETE CASCADE,
ins_srtcontroledl_xcp_respijt // eerstvolgende keer (indien officieel uitgesteld) >> hoort hier niet maar in ins_deelsrtcontrole_plandatum
DATE,
ins_srtcontroledl_xcp_periode
NUMBER(6,2),
ins_srtcontroledl_xcp_eenheid // 0=uurlijks, 1=dagelijks, 2=wekelijk, 3=maandelijk, 4=jaarlijks
NUMBER(3),
ins_srtcontroledl_xcp_bits // details, afhankelijk van de mode (mag best null zijn)
ins_srtcontroledl_xcp_bits // details, afhankelijk van de mode (mag best null zijn)
NUMBER(4),
ins_srtcontroledl_xcp_aantal // optionele overrule van het ins_deel_aantal tbv deze controle
NUMBER(8,2),
ins_srtcontroledl_xcp_aanteh // optionele overrule van het ins_srtdeel_eenheid tbv deze controle (_eenheid bestond al)
VARCHAR2(30),
ins_srtcontroledl_xcp_uren // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal of ins_srtcontroledl_xcp_aantal) per controle) bv tbv capaciteitsplanning
ins_srtcontroledl_xcp_uren // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) bv tbv capaciteitsplanning
NUMBER(8,2),
ins_srtcontroledl_xcp_materia // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal of ins_srtcontroledl_xcp_aantal) per controle)
ins_srtcontroledl_xcp_materia // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle)
NUMBER(9,2),
ins_srtcontroledl_xcp_kosten // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal of ins_srtcontroledl_xcp_aantal) per controle)
ins_srtcontroledl_xcp_kosten // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle)
NUMBER(11,2),
ins_srtcontroledl_xcp_kosten2 // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal of ins_srtcontroledl_xcp_aantal) per controle) deel 2 (bv BTW laag)
ins_srtcontroledl_xcp_kosten2 // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) deel 2 (bv BTW laag)
NUMBER(11,2),
ins_srtcontroledl_xcp_kosten3 // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle of ins_srtcontroledl_xcp_aantal) deel 3 (spare)
ins_srtcontroledl_xcp_kosten3 // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) deel 3 (spare)
NUMBER(11,2),
ins_srtcontroledl_xcp_perc // percentage van het aantal delen waarop dit betrekking heeft
ins_srtcontroledl_xcp_perc // percentage van het aantal delen waarop dit betrekking heeft
NUMBER(3)
DEFAULT (100)
CONSTRAINT ins_c_srtcontroledl_xcp_perc CHECK(ins_srtcontroledl_xcp_perc BETWEEN 0 AND 100),
ins_srtcontroledl_xcp_groep // Vrijblijvende categorisering voor groepering in rapportages
ins_srtcontroledl_xcp_groep // Vrijblijvende categorisering voor groepering in rapportages
VARCHAR2(60),
ins_srtcontroledl_xcp_startdat // Startdatum eerste inspectie.
DATE,
ins_srtcontroledl_xcp_eind // hier eindigt deze
ins_srtcontroledl_xcp_eind // hier eindigt deze
DATE,
ins_scenario_key
NUMBER(10)
DEFAULT 1 NOT NULL
CONSTRAINT ins_r_ins_scenario_key2 REFERENCES ins_scenario(ins_scenario_key) ON DELETE CASCADE,
ins_srtcontroledl_xcp_opmerk
VARCHAR2(320),
CONSTRAINT ins_u_ins_srtcontroledl_xcp UNIQUE (ins_deel_key, ins_srtcontrole_key, ins_scenario_key)
CONSTRAINT ins_r_ins_scenario_key2 REFERENCES ins_scenario(ins_scenario_key) ON DELETE CASCADE,
CONSTRAINT ins_u_ins_srtcontroledl_xcp UNIQUE (ins_deel_key, ins_srtcontrole_key)
);
/* de feitelijke inspecties */
@@ -580,30 +549,24 @@ CREATE_TABLE(ins_deelsrtcontrole, 0)
DATE,
ins_deelsrtcontrole_datum_org
DATE,
ins_deelsrtcontrole_datum_xcp
DATE,
ins_controlemode_key
NUMBER(10)
CONSTRAINT ins_r_ins_controlemode_key REFERENCES ins_controlemode,
ins_deelsrtcontrole_opmerking
VARCHAR(4000 CHAR),
VARCHAR(2000 CHAR),
ins_deelsrtcontrole_plandatum
DATE,
ins_deelsrtcontrole_status // (vooralsnog 0;Ingepland 2;Gestart/In behandeling 5;Afgemeld/Gereed gemeld; 6;Afgerond)
ins_deelsrtcontrole_status // (vooralsnog 0,2,5,6)
NUMBER(1)
DEFAULT (6)
CONSTRAINT ins_c_deelsrtcontrole_status NOT NULL,
ins_scenario_key
NUMBER(10)
DEFAULT 1 NOT NULL
CONSTRAINT ins_r_ins_scenario_key3 REFERENCES ins_scenario(ins_scenario_key) ON DELETE CASCADE,
ins_deelsrtcontrole_freezecost
NUMBER(11,2),
ins_deelsrtcontrole_freezedate
DATE,
// Note: this column is defined in PRS_TAB.SRC
// prs_perslid_key
// NUMBER(10)
// CONSTRAINT ins_r_prs_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
CONSTRAINT ins_u_ins_deelsrtcontrole UNIQUE (ins_deel_key, ins_srtcontrole_key, ins_scenario_key, ins_deelsrtcontrole_datum_org)
CONSTRAINT ins_u_ins_deelsrtcontrole UNIQUE (ins_deel_key, ins_srtcontrole_key, ins_deelsrtcontrole_datum_org)
);
CREATE_TABLE(ins_import,0)
@@ -643,7 +606,7 @@ CREATE_TABLE(ins_srtkenmerk, 0)
VARCHAR2(10),
ins_srtkenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN('C', 'N', 'D', 'R', 'X', 'L', 'Q','F','M','E','S', 'l', 'B')),
CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN('C', 'N', 'D', 'R', 'X', 'L', 'Q','F','M','E','S', 'l')),
ins_srtkenmerk_systeem
NUMBER(1)
CONSTRAINT ins_c_ins_srtkenmerk_systeem CHECK(ins_srtkenmerk_systeem IS NULL
@@ -705,10 +668,6 @@ CREATE_TABLE(ins_kenmerk, 0)
NUMBER(1)
CONSTRAINT ins_c_ins_kenmerk_meetwaarde CHECK(ins_kenmerk_meetwaarde IS NULL
OR ins_kenmerk_meetwaarde = 1),
ins_kenmerk_wissen
NUMBER(1)
DEFAULT 0 NOT NULL
CONSTRAINT ins_c_ins_kenmerk_wissen CHECK(ins_kenmerk_wissen IN (0,1,2)),
ins_kenmerk_volgnummer
NUMBER(3)
NOT NULL,
@@ -719,7 +678,7 @@ CREATE_TABLE(ins_kenmerk, 0)
ins_kenmerk_regexp
VARCHAR2(255),
ins_kenmerk_default
VARCHAR2(4000),
VARCHAR2(255),
ins_kenmerk_hint
VARCHAR2(255 CHAR),
ins_kenmerk_aanmaak

39
INS/INS_TRI.SRC
View File

@@ -15,16 +15,6 @@ BEGIN
END;
/
AUDIT_BEGIN(ins_tab_discipline)
AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_omschrijving)
AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_volgnr)
AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, prs_kostensoort_key)
AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_kpnverplicht)
AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_email)
AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_ktopercentage)
AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_ktodrempel)
AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_verwijder)
AUDIT_END()
CREATE_TRIGGER(ins_t_ins_discipline_B_IU)
BEFORE INSERT OR UPDATE ON ins_tab_discipline
@@ -565,17 +555,20 @@ BEGIN
APPLICATION_ERROR(-20003, 'INS_M156');
END IF;
IF :new.ins_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.ins_srtkenmerk_lengte IS NULL
IF (:new.ins_srtkenmerk_kenmerktype = 'C'
OR :new.ins_srtkenmerk_kenmerktype = 'N')
AND :new.ins_srtkenmerk_lengte IS NULL
THEN
APPLICATION_ERROR(-20000, 'INS_C_INS_SRTKENMERK_LENGTE');
END IF;
-- Numeriek mag niet te lang zijn (numeric overflow)
IF :new.ins_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.ins_srtkenmerk_lengte > 20
IF :new.ins_srtkenmerk_kenmerktype = 'N'
AND :new.ins_srtkenmerk_lengte > 20
THEN
:new.ins_srtkenmerk_lengte := 20;
END IF;
IF :new.ins_srtkenmerk_kenmerktype IN ('N', 'B') AND :old.ins_srtkenmerk_key IS NOT NULL
IF :new.ins_srtkenmerk_kenmerktype = 'N' AND :old.ins_srtkenmerk_key IS NOT NULL
THEN
IF :old.ins_srtkenmerk_nmin <> :new.ins_srtkenmerk_nmin OR
(:old.ins_srtkenmerk_nmin IS NULL AND :new.ins_srtkenmerk_nmin IS NOT NULL)
@@ -690,7 +683,7 @@ BEGIN
THEN
APPLICATION_ERROR_GOTO(-20004, 'ins_m143,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
END IF;
ELSIF SrtKenmerkType IN ('N', 'B') /* Number */
ELSIF SrtKenmerkType = 'N' /* Number */
THEN
/* Controleer of er een numerieke waarde ingevuld is */
IF SrtKenmerkDec IS NULL OR SrtKenmerkDec = 0
@@ -799,7 +792,7 @@ BEGIN
THEN
APPLICATION_ERROR_GOTO(-20004, 'ins_m143,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
END IF;
ELSIF SrtKenmerkType IN ('N', 'B') /* Number */
ELSIF SrtKenmerkType = 'N' /* Number */
THEN
/* Controleer of er een numerieke waarde ingevuld is */
IF SrtKenmerkDec IS NULL OR SrtKenmerkDec = 0
@@ -900,16 +893,6 @@ BEGIN
END;
/
CREATE_TRIGGER(ins_t_scenario_B_D)
BEFORE DELETE ON ins_scenario
FOR EACH ROW
BEGIN
IF :old.ins_scenario_key = 1 THEN
raise_application_error (-20000, 'Cannot delete actual scenario');
END IF;
END;
/
CREATE_TRIGGER(ins_t_srtcontrole_B_IU)
BEFORE INSERT OR UPDATE ON ins_srtcontrole
FOR EACH ROW
@@ -942,12 +925,6 @@ BEGIN
END;
/
AUDIT_BEGIN(ins_disc_params)
AUDIT_VALUE(ins_disc_params, ins_disc_params_autonum)
AUDIT_VALUE(ins_disc_params, ins_disc_params_cadlayers)
AUDIT_VALUE(ins_disc_params, ins_disc_params_type)
AUDIT_END()
CREATE_TRIGGER(ins_t_ins_disc_params_b_iu)
BEFORE INSERT OR UPDATE ON ins_disc_params
FOR EACH ROW

1170
INS/INS_VIE.SRC
View File

File diff suppressed because it is too large Load Diff

2
KPI/KPI_INI.SRC
View File

@@ -5,7 +5,7 @@
*/
/* TODO lcl */
_FAC_MODULE('KPI','lcl_module_KPI')
_FAC_MODULE('KPI','Key Performance Indicators')
----- Grafieken -----
INSERT INTO fac_usrgraph

2
MLD/MLD_INI.SRC
View File

@@ -5,7 +5,7 @@
*/
/* Installation of modules should fill or update this one */
_FAC_MODULE('MLD','lcl_module_MLD')
_FAC_MODULE('MLD','Servicedesk')
INSERT INTO mld_typeopdr (mld_typeopdr_key, mld_typeopdr_omschrijving,
mld_typeopdr_upper, mld_typeopdr_module)

12
MLD/MLD_LCL.SRC
View File

@@ -130,15 +130,19 @@ DEFINE_LOCALEITEM(lcl_mld_rejected1)
DEFINE_LOCALEITEM(lcl_mld_rejected2)
DEFINE_LOCALEITEM(lcl_mld_result)
DEFINE_LOCALEITEM(lcl_mld_similarcalls)
DEFINE_LOCALEITEM(lcl_mld_startdate)
DEFINE_LOCALEITEM(lcl_mld_status)
DEFINE_LOCALEITEM(lcl_mld_typeopdr)
DEFINE_LOCALEITEM(lcl_mld_uitgegeven)
DEFINE_LOCALEITEM(lcl_mld_urg)
DEFINE_LOCALEITEM(lcl_mld_urg_hold1)
DEFINE_LOCALEITEM(lcl_mld_urg_hoog)
DEFINE_LOCALEITEM(lcl_mld_urg_hoog1)
DEFINE_LOCALEITEM(lcl_mld_urg_kritiek)
DEFINE_LOCALEITEM(lcl_mld_urg_kritiek1)
DEFINE_LOCALEITEM(lcl_mld_urg_laag)
DEFINE_LOCALEITEM(lcl_mld_urg_laag1)
DEFINE_LOCALEITEM(lcl_mld_urg_normaal)
DEFINE_LOCALEITEM(lcl_mld_urg_normaal1)
DEFINE_LOCALEITEM(lcl_noti_email)
DEFINE_LOCALEITEM(lcl_noti_mld_email)
DEFINE_LOCALEITEM(lcl_obj_advanced)
@@ -191,7 +195,6 @@ DEFINE_LOCALEITEM(lcl_mld_mldstatus)
DEFINE_LOCALEITEM(lcl_mld_opdr_closed_3)
DEFINE_LOCALEITEM(lcl_mld_person_prefix)
DEFINE_LOCALEITEM(lcl_mld_vakgroep)
DEFINE_LOCALEITEM(lcl_mld_subject)
END_LOCALEITEMS()
START_LOCALEITEMS('MLD_TYPEOPDR_KEY')
@@ -254,6 +257,11 @@ DEFINE_LOCALEITEM(lcl_mld_ord_kenmerken)
DEFINE_LOCALEITEM(lcl_mld_order_nr)
DEFINE_LOCALEITEM(lcl_mld_status)
DEFINE_LOCALEITEM(lcl_mld_typeopdr)
DEFINE_LOCALEITEM(lcl_mld_urg_hold1)
DEFINE_LOCALEITEM(lcl_mld_urg_hoog1)
DEFINE_LOCALEITEM(lcl_mld_urg_kritiek1)
DEFINE_LOCALEITEM(lcl_mld_urg_laag1)
DEFINE_LOCALEITEM(lcl_mld_urg_normaal1)
DEFINE_LOCALEITEM(lcl_mld_week)
DEFINE_LOCALEITEM(lcl_mlduren_approve)
DEFINE_LOCALEITEM(lcl_mlduren_booked_from)

1061
MLD/MLD_PAC.SRC
View File

File diff suppressed because it is too large Load Diff

75
MLD/MLD_TAB.SRC
View File

@@ -218,9 +218,6 @@ CREATE_TABLE(mld_typeopdr,0)
mld_typeopdr_typeopdr_key /* de mld_typeopdr_key voor vervolgopdracht (indien dit een offerte was) */
NUMBER(10)
CONSTRAINT mld_r_typeopdr_key1 REFERENCES mld_typeopdr(mld_typeopdr_key),
mld_typeopdr_slamode
NUMBER(1) -- 1: Leverancier-SLA, 2=Melding-SLA
DEFAULT 1 NOT NULL,
mld_typeopdr_contract /* of bij deze opdrachten een contract moet (3), kan (2) of niet kan (0) worden opgegeven */
NUMBER(1)
DEFAULT (2)
@@ -231,14 +228,8 @@ CREATE_TABLE(mld_typeopdr,0)
mld_typeopdr_gvs
NUMBER(11,2)
DEFAULT 1000000,
mld_typeopdr_fvs
NUMBER(11,2)
DEFAULT 0,
mld_typeopdr_kosten_verplicht /* bitwise valid are 0, 1, 2 and 4. Opdr kosten verplicht bij (0 = niet verplicht, 1 = save + 2 = afmelden, 4 = afronden) */
NUMBER(1),
mld_typeopdr_sequential /* Strikte sequentiele opdracht afhandeling en/of Hold (BITAND1 is (kan pauzeren en hervatten) en BITAND2 is strikt sequentieel) */
NUMBER(1)
DEFAULT 0 NOT NULL,
CONSTRAINT mld_u_mld_typeopdr_upper UNIQUE(mld_typeopdr_upper, mld_typeopdr_module)
);
@@ -359,7 +350,7 @@ CREATE_TABLE(mld_stdmelding,0)
CONSTRAINT mld_r_mld_typeopdr1 REFERENCES mld_typeopdr(mld_typeopdr_key),
mld_stdmelding_vereisdienst -- (1: mag alleen als binnen scope dienst geleverd wordt)
NUMBER(1),
mld_stdmelding_regime -- afhandelingsregime
mld_stdmelding_regime -- afhandeling in kantoortijden (null/0) of 24-uurs (24)
NUMBER(2)
DEFAULT 1
CONSTRAINT mld_c_stdmelding_regime CHECK (mld_stdmelding_regime IS NOT NULL AND mld_stdmelding_regime IN (1,2,3)), -- 1=kantoortijden, 2=openingstijden, 3=24x7
@@ -381,9 +372,6 @@ CREATE_TABLE(mld_stdmelding,0)
VARCHAR2(255 CHAR),
mld_stdmelding_vervaldatum
DATE,
mld_stdmelding_aanmaak
DATE
DEFAULT SYSDATE,
mld_stdmelding_verwijder
DATE,
mld_stdmelding_opdrtypevast -- 0: standaard opdrachttype
@@ -394,12 +382,6 @@ CREATE_TABLE(mld_stdmelding,0)
mld_stdmelding_kanverwijzen --0..127: 0: nee, +1: melding, +2: opdracht, +4: reservering, +8: bestelling, +16: bestelopdr, +32: contract, +64: factuur
NUMBER(4)
DEFAULT 0,
mld_stdmelding_subject -- 0:geen onderwerp, 1:optionele onderwerp, 2:verplichte onderwerp
NUMBER(1)
DEFAULT 1
NOT_NULL(mld_stdmelding_subject, mld_c_mld_stdmelding_subject),
mld_stdmelding_externurl
VARCHAR2(1024),
CONSTRAINT mld_u_mld_stdmelding UNIQUE(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_verwijder)
);
ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_accepttijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
@@ -409,12 +391,6 @@ ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvoertijd NOT_NULL(mld_stdm
ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
ALTER TABLE ins_srtcontrole ADD
(
mld_stdmelding_key
NUMBER(10)
CONSTRAINT mld_r_mld_stdmelding_key7 REFERENCES mld_stdmelding
);
// Eventuele afwijkingen per srtruimte van SLA tijden.
// Fungeert als COALESCE met alg_srtruimte.
@@ -441,10 +417,7 @@ CREATE_TABLE(mld_stdmsrtruimte, 0)
mld_stdmsrtruimte_t_uitvtijd
MLD_T_UITVOERTIJD
CONSTRAINT mld_c_mld_stdmsrtruimte_t_uitv CHECK(mld_stdmsrtruimte_t_uitvtijd.tijdsduur >= 0),
CONSTRAINT mld_u_mld_stdmsrtruimte UNIQUE(alg_srtruimte_key, mld_stdmelding_key),
mld_stdmsrtruimte_regime -- optioneel afwijkend afhandelingsregime (may be null)
NUMBER(2)
CONSTRAINT mld_c_stdmsrtruimte_regime CHECK (mld_stdmsrtruimte_regime IN (1,2,3)) -- 1=kantoortijden, 2=openingstijden, 3=24x7
CONSTRAINT mld_u_mld_stdmsrtruimte UNIQUE(alg_srtruimte_key, mld_stdmelding_key)
);
ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_accepttijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_uitvtijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
@@ -501,14 +474,14 @@ CREATE_TABLE(mld_adres, 0)
VARCHAR2(30),
mld_adres_contactpers_telefoon
VARCHAR2(15),
mld_adres_contactpers_email
VARCHAR2(200),
mld_adres_contactpers_fax
VARCHAR2(15),
mld_adres_contactpers_bureau
VARCHAR2(20),
mld_adres_telefoon
VARCHAR2(15),
mld_adres_email
VARCHAR2(200),
mld_adres_fax
VARCHAR2(15),
alg_locatie_key
NUMBER(10)
CONSTRAINT mld_r_alg_locatie_key3 REFERENCES alg_locatie (alg_locatie_key) ON DELETE CASCADE,
@@ -636,7 +609,7 @@ CREATE_TABLE(mld_melding,0)
DATE
NOT_NULL(mld_melding_datum, mld_c_mld_melding_datum),
mld_melding_onderwerp /* optionele korte omschrijving */
VARCHAR2(80),
VARCHAR2(60),
mld_melding_omschrijving
VARCHAR2(4000),
mld_melding_opmerking
@@ -706,7 +679,7 @@ CREATE_TABLE(mld_melding,0)
CONSTRAINT fac_r_fac_activiteit1 REFERENCES fac_activiteit(fac_activiteit_key) ON DELETE CASCADE,
mld_workflowstep_key
NUMBER(10)
CONSTRAINT mld_r_mld_workflowstep_key4 REFERENCES mld_workflowstep(mld_workflowstep_key),
CONSTRAINT mld_r_mld_workflowstep_key4 REFERENCES mld_workflowstep(mld_workflowstep_key) ON DELETE SET NULL,
mld_melding_start_key
NUMBER(10)
CONSTRAINT mld_r_mld_melding_key4 REFERENCES mld_melding(mld_melding_key),
@@ -800,20 +773,12 @@ CREATE_TABLE(mld_opdr,0)
NUMBER(8,2)
DEFAULT 0
CONSTRAINT mld_c_mld_opdr_materiaal CHECK(mld_opdr_materiaal >= 0),
mld_opdr_kosten /* excl BTW */
mld_opdr_kosten
NUMBER(12,2)
DEFAULT 0,
mld_opdr_kosten_btw
NUMBER(12,2)
DEFAULT 0,
mld_opdr_fiatbedrag /* Tot zover gefiatteerd */
NUMBER(11,2),
prs_kostenplaats_key
NUMBER(10)
CONSTRAINT mld_r_prs_kostenplaats_key2 REFERENCES prs_kostenplaats(prs_kostenplaats_key),
prs_kostensoort_key
NUMBER(10)
CONSTRAINT mld_r_prs_kostensoort_key1 REFERENCES prs_kostensoort (prs_kostensoort_key),
mld_opdr_ordernr
VARCHAR2(30),
mld_opdr_contactpersoon
@@ -868,16 +833,7 @@ CREATE_TABLE(mld_opdr,0)
mld_opdr_handfiat /* handmatig fiatteren verzocht (overrule-t evt limieten) */
NUMBER(1)
CONSTRAINT mld_c_mld_opdr_handfiat CHECK(mld_opdr_handfiat IS NULL
OR mld_opdr_handfiat = 1),
mld_opdr_halted -- is de opdracht onderbroken {0=nee (default) | 1=ja}
NUMBER(1)
DEFAULT (0)
NOT NULL
CONSTRAINT mld_c_mld_opdr_halted CHECK(mld_opdr_halted IN (0, 1)),
mld_opdr_meerwerk
NUMBER(1)
DEFAULT (0)
CONSTRAINT mld_c_mld_opdr_meerwerk CHECK(mld_opdr_meerwerk IN (0, 1))
OR mld_opdr_handfiat = 1)
);
CREATE_TABLE(mld_vrije_dagen, 0)
@@ -924,9 +880,8 @@ CREATE_TABLE(mld_srtkenmerk, 0)
VARCHAR2(10)
, mld_srtkenmerk_kenmerktype
VARCHAR2(1)
, mld_srtkenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list
, mld_srtkenmerk_systeem
NUMBER(1)
DEFAULT 0
, mld_srtkenmerk_lengte
NUMBER(4)
, mld_srtkenmerk_dec
@@ -947,8 +902,9 @@ CREATE_TABLE(mld_srtkenmerk, 0)
, CONSTRAINT mld_c_mld_srtkenmerk_omschr CHECK(mld_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT mld_srtkenmerk_omschrijving CHECK(mld_srtkenmerk_omschrijving IS NOT NULL)
, CONSTRAINT mld_u_mld_srtkenmerk_upper UNIQUE(mld_srtkenmerk_upper, mld_srtkenmerk_verwijder)
, CONSTRAINT mld_c_mld_srtkenmerk_kenmtype CHECK(mld_srtkenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
, CONSTRAINT mld_c_mld_srtkenmerk_systeem CHECK(mld_srtkenmerk_systeem IS NOT NULL)
, CONSTRAINT mld_c_mld_srtkenmerk_kenmtype CHECK(mld_srtkenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
, CONSTRAINT mld_c_mld_srtkenmerk_systeem CHECK(mld_srtkenmerk_systeem IS NULL
OR mld_srtkenmerk_systeem = 1)
, CONSTRAINT mld_c_mld_srtkenmerk_lengte CHECK(mld_srtkenmerk_lengte >= 1
AND mld_srtkenmerk_lengte <= 4000)
, CONSTRAINT mld_c_mld_srtkenmerk_max_min CHECK(mld_srtkenmerk_nmax >= mld_srtkenmerk_nmin)
@@ -1328,9 +1284,6 @@ CREATE_TABLE(mld_afmeldtekst, 0)
mld_ins_discipline_key
NUMBER(10)
CONSTRAINT mld_r_ins_discipine_key2 REFERENCES ins_tab_discipline(ins_discipline_key),
mld_afmeldtekst_usefor /* Bitwise 1=Afmeldtekst, 2=Afwijstekst, 3=Beide*/
NUMBER(1)
DEFAULT 1 NOT NULL,
CONSTRAINT mld_u_afmeldtekst_naam UNIQUE (mld_afmeldtekst_naam)
);

89
MLD/MLD_TRI.SRC
View File

@@ -11,35 +11,6 @@ BEGIN
END;
/
AUDIT_BEGIN(mld_disc_params)
AUDIT_VALUE(mld_disc_params, mld_behandelgroep_key)
AUDIT_VALUE(mld_disc_params, mld_disc_params_bestellimiet)
AUDIT_VALUE(mld_disc_params, mld_disc_params_bestellimiet2)
AUDIT_VALUE(mld_disc_params, mld_disc_params_bestellimiet3)
AUDIT_VALUE(mld_disc_params, mld_disc_params_bestellimiet4)
AUDIT_VALUE(mld_disc_params, mld_disc_params_bestellimiet5)
AUDIT_VALUE(mld_disc_params, mld_disc_params_pgb)
AUDIT_VALUE(mld_disc_params, mld_disc_params_startdatum)
AUDIT_VALUE(mld_disc_params, mld_disc_params_directklaar)
AUDIT_VALUE(mld_disc_params, mld_disc_params_keten)
AUDIT_VALUE(mld_disc_params, mld_disc_params_frontendprio)
AUDIT_VALUE(mld_disc_params, mld_disc_params_eigen_kp)
AUDIT_VALUE(mld_disc_params, mld_disc_params_factuurpct)
AUDIT_VALUE(mld_disc_params, mld_disc_params_factuurmarge)
AUDIT_VALUE(mld_disc_params, mld_disc_params_factmatchmode)
AUDIT_VALUE(mld_disc_params, mld_disc_params_factuurappr)
AUDIT_VALUE(mld_disc_params, mld_disc_params_factuurgrens)
AUDIT_VALUE(mld_disc_params, mld_disc_params_bonotify)
AUDIT_VALUE(mld_disc_params, mld_disc_params_benotify)
AUDIT_VALUE(mld_disc_params, mld_disc_params_notify)
AUDIT_VALUE(mld_disc_params, mld_disc_params_noti_dagen)
AUDIT_VALUE(mld_disc_params, mld_disc_params_opdr_kosten)
AUDIT_VALUE(mld_disc_params, fac_activiteit_key)
AUDIT_VALUE(mld_disc_params, mld_disc_params_offerteauto)
AUDIT_VALUE(mld_disc_params, mld_disc_params_fenotes)
AUDIT_VALUE(mld_disc_params, mld_disc_params_offhours)
AUDIT_END()
CREATE_TRIGGER(mld_t_mld_disc_params_b_iu)
BEFORE INSERT OR UPDATE ON mld_disc_params
FOR EACH ROW
@@ -75,12 +46,6 @@ BEGIN
END;
/
AUDIT_BEGIN(mld_stdmelding)
AUDIT_VALUE(mld_stdmelding, mld_stdmelding_malusbasis)
AUDIT_VALUE(mld_stdmelding, mld_stdmelding_malus)
AUDIT_VALUE(mld_stdmelding, mld_stdmelding_verwijder)
AUDIT_END()
CREATE_TRIGGER(mld_t_mld_stdmelding_B_IU)
BEFORE INSERT OR UPDATE ON mld_stdmelding
FOR EACH ROW
@@ -254,18 +219,11 @@ BEGIN
END;
/
CREATE_TRIGGER(mld_t_mld_opdr_B_I)
BEFORE INSERT ON mld_opdr
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(mld_opdr_key, mld_s_mld_opdr_key);
END;
/
CREATE_TRIGGER(mld_t_mld_opdr_B_IU)
BEFORE INSERT OR UPDATE ON mld_opdr
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(mld_opdr_key, mld_s_mld_opdr_key);
/* Controleer of de opdracht bij een melding hoort die de goede status heeft,
* Het voorkomt dat er onverwachts opdrachten zijn op Afgewezen of nog niet Geaccepteerde meldingen
* namelijk: GEACCEPTEERD, UITGEGEVEN of AFGEMELD
@@ -335,21 +293,25 @@ BEGIN
UPDATE_UPPER(mld_srtkenmerk_omschrijving, mld_srtkenmerk_upper,mld_srtkenmerk);
UPDATE_AANMAAKDATUM(mld_srtkenmerk, mld_srtkenmerk_aanmaak);
IF (:new.mld_srtkenmerk_verwijder IS NOT NULL AND :old.mld_srtkenmerk_verwijder IS NULL AND
BITAND(:new.mld_srtkenmerk_systeem, 1) = 1)
:new.mld_srtkenmerk_systeem = 1)
THEN
raise_application_error(-20003, 'MLD_C_MLD_SRTKENMERK_SYSTEEM');
END IF;
--
IF :new.mld_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.mld_srtkenmerk_lengte IS NULL
IF (:new.mld_srtkenmerk_kenmerktype = 'C'
OR :new.mld_srtkenmerk_kenmerktype = 'N')
AND :new.mld_srtkenmerk_lengte IS NULL
THEN
raise_application_error(-20000, 'MLD_C_MLD_SRTKENMERK_LENGTE');
END IF;
IF :new.mld_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.mld_srtkenmerk_lengte > 20
IF :new.mld_srtkenmerk_kenmerktype = 'N'
AND :new.mld_srtkenmerk_lengte > 20
THEN
:new.mld_srtkenmerk_lengte := 20;
END IF;
--
IF :new.mld_srtkenmerk_kenmerktype IN ('N', 'B') AND :old.mld_srtkenmerk_key IS NOT NULL
IF :new.mld_srtkenmerk_kenmerktype = 'N'
AND :old.mld_srtkenmerk_key IS NOT NULL
THEN
IF :old.mld_srtkenmerk_nmin <> :new.mld_srtkenmerk_nmin
OR (:old.mld_srtkenmerk_nmin IS NULL AND :new.mld_srtkenmerk_nmin IS NOT NULL)
@@ -412,14 +374,6 @@ BEGIN
END;
/
CREATE_TRIGGER(mld_t_mld_kenmerkmelding_b_i)
BEFORE INSERT ON mld_kenmerkmelding
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(mld_kenmerkmelding_key, mld_s_mld_kenmerkmelding_key);
END;
/
CREATE_TRIGGER(mld_t_mld_kenmerkmelding_b_iu)
BEFORE INSERT OR UPDATE ON mld_kenmerkmelding
FOR EACH ROW
@@ -480,7 +434,7 @@ BEGIN
THEN
APPLICATION_ERROR_GOTO(-20004, 'mld_m241,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
END IF;
ELSIF SrtKenmerkType IN ('N', 'B')
ELSIF SrtKenmerkType = 'N'
THEN
-- NUMBER
-- Controleer of er een numerieke waarde ingevuld is.
@@ -529,18 +483,11 @@ BEGIN
:new.mld_kenmerkmelding_waarde := KenmerkMeldingWaarde;
END IF;
END;
UPDATE_PRIMARY_KEY(mld_kenmerkmelding_key, mld_s_mld_kenmerkmelding_key);
END IF;
END;
/
CREATE_TRIGGER(mld_t_mld_kenmerkopdr_b_i)
BEFORE INSERT ON mld_kenmerkopdr
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(mld_kenmerkopdr_key, mld_s_mld_kenmerkopdr_key);
END;
/
CREATE_TRIGGER(mld_t_mld_kenmerkopdr_b_iu)
BEFORE INSERT OR UPDATE ON mld_kenmerkopdr
FOR EACH ROW
@@ -601,7 +548,7 @@ BEGIN
THEN
APPLICATION_ERROR_GOTO(-20004, 'mld_m241,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
END IF;
ELSIF SrtKenmerkType IN ('N', 'B')
ELSIF SrtKenmerkType = 'N'
THEN
-- NUMBER
-- Controleer of er een numerieke waarde ingevuld is.
@@ -650,6 +597,7 @@ BEGIN
:new.mld_kenmerkopdr_waarde := KenmerkOpdrWaarde;
END IF;
END;
UPDATE_PRIMARY_KEY(mld_kenmerkopdr_key, mld_s_mld_kenmerkopdr_key);
END IF;
END;
/
@@ -662,13 +610,6 @@ BEGIN
UPDATE_PRIMARY_KEY(mld_workflowstep_key,mld_s_mld_workflowstep_key);
END;
/
CREATE_TRIGGER(mld_t_mld_workflowstep_B_D)
BEFORE DELETE ON mld_workflowstep
FOR EACH ROW
BEGIN
UPDATE mld_melding SET mld_workflowstep_key = NULL where mld_workflowstep_key = :old.mld_workflowstep_key;
END;
/
CREATE_TRIGGER(mld_t_mld_workflowrule_B_IU)
BEFORE INSERT OR UPDATE ON mld_workflowrule
@@ -774,8 +715,8 @@ BEGIN
END;
/
CREATE_TRIGGER(mld_t_mld_opdr_materiaal_B_I)
BEFORE INSERT ON mld_opdr_materiaal
CREATE_TRIGGER(mld_t_mld_opdr_materiaal_B_IU)
BEFORE INSERT OR UPDATE ON mld_opdr_materiaal
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(mld_opdr_materiaal_key, mld_s_mld_opdr_materiaal_key);

188
MLD/MLD_VIE.SRC
View File

@@ -6,7 +6,7 @@
CREATE_VIEW(MLD_discipline, 0)
AS
SELECT * FROM ins_tab_discipline WHERE ins_discipline_module = 'MLD';
SELECT * FROM ALL_discipline WHERE ins_discipline_module = 'MLD';
DEFINIEER_VIEW_AANWEZIG(MLD_discipline, ins_discipline_verwijder,
MLD_v_aanwezigdiscipline,0);
@@ -90,17 +90,15 @@ CREATE_VIEW(mld_v_aanweziguitvoerende,0)
//'S' = srtperslid bij bedrijf
*/
/* PF: op eigen houtje aangepast, achterhaalde onzin eruitgehaald */
CREATE_VIEW(mld_v_uitvoerende,0) (mld_uitvoerende_key, naam, type, intern) AS
CREATE_VIEW(mld_v_uitvoerende,0) (mld_uitvoerende_key, naam, type) AS
SELECT B.prs_bedrijf_key,
B.prs_bedrijf_naam,
'B',
COALESCE(prs_bedrijf_intern, 0)
'B'
FROM prs_bedrijf B
UNION ALL
SELECT P.prs_perslid_key,
p.prs_perslid_naam||DECODE(p.prs_perslid_voorletters,null,'',', '||p.prs_perslid_voorletters)||DECODE(p.prs_perslid_tussenvoegsel,null,'',' '||p.prs_perslid_tussenvoegsel)||DECODE(p.prs_perslid_voornaam,null,'',' ('||p.prs_perslid_voornaam||')'),
'P',
1
'P'
FROM prs_perslid P;
/*
@@ -139,6 +137,90 @@ DEFINIEER_VIEW_AANWEZIG(mld_melding_object, mld_melding_object_verwijder,
DEFINIEER_VIEW_AANWEZIG(mld_kenmerkmelding, mld_kenmerkmelding_verwijder,
mld_v_aanwezigkenmerkmelding, 0);
CREATE_VIEW(mld_v_stdmelding_kenmerk, 0)
( mld_kenmerk_key
, mld_srtkenmerk_key
, mld_stdmelding_key
, mld_kenmerk_niveau
, mld_kenmerk_verplicht
, mld_kenmerk_toonbaar
, mld_kenmerk_uniek
, mld_kenmerk_locatiekolom
, mld_kenmerk_volgnummer
, mld_srtkenmerk_omschrijving
, mld_srtkenmerk_dimensie
, mld_srtkenmerk_kenmerktype
, mld_srtkenmerk_lengte
, mld_srtkenmerk_dec
, mld_srtkenmerk_nmin
, mld_srtkenmerk_nmax
, fac_kenmerkdomein_key
, mld_stdmelding_omschrijving
, mld_stdmelding_upper
, mld_discipline_key
, mld_discipline_omschrijving
)
AS SELECT MLD_K.mld_kenmerk_key
, MLD_K.mld_srtkenmerk_key
, MLD_K.mld_stdmelding_key
, MLD_K.mld_kenmerk_niveau
, MLD_K.mld_kenmerk_verplicht
, MLD_K.mld_kenmerk_toonbaar
, MLD_K.mld_kenmerk_uniek
, MLD_K.mld_kenmerk_locatiekolom
, MLD_K.mld_kenmerk_volgnummer
, MLD_SK.mld_srtkenmerk_omschrijving
, MLD_SK.mld_srtkenmerk_dimensie
, MLD_SK.mld_srtkenmerk_kenmerktype
, MLD_SK.mld_srtkenmerk_lengte
, MLD_SK.mld_srtkenmerk_dec
, MLD_SK.mld_srtkenmerk_nmin
, MLD_SK.mld_srtkenmerk_nmax
, MLD_SK.fac_kenmerkdomein_key
, MLD_SM.mld_stdmelding_omschrijving
, MLD_SM.mld_stdmelding_upper
, INS_D.ins_discipline_key
, INS_D.ins_discipline_omschrijving
FROM mld_kenmerk MLD_K
, mld_srtkenmerk MLD_SK
, mld_stdmelding MLD_SM
, ins_discipline INS_D
WHERE MLD_K.mld_srtkenmerk_key = MLD_SK.mld_srtkenmerk_key
AND MLD_K.mld_kenmerk_niveau = 'S'
AND MLD_SM.mld_stdmelding_key = MLD_K.mld_stdmelding_key
AND MLD_SM.mld_ins_discipline_key = INS_D.ins_discipline_key
UNION
SELECT MLD_K.mld_kenmerk_key
, MLD_K.mld_srtkenmerk_key
, MLD_K.mld_stdmelding_key
, MLD_K.mld_kenmerk_niveau
, MLD_K.mld_kenmerk_verplicht
, MLD_K.mld_kenmerk_toonbaar
, MLD_K.mld_kenmerk_uniek
, MLD_K.mld_kenmerk_locatiekolom
, MLD_K.mld_kenmerk_volgnummer
, MLD_SK.mld_srtkenmerk_omschrijving
, MLD_SK.mld_srtkenmerk_dimensie
, MLD_SK.mld_srtkenmerk_kenmerktype
, MLD_SK.mld_srtkenmerk_lengte
, MLD_SK.mld_srtkenmerk_dec
, MLD_SK.mld_srtkenmerk_nmin
, MLD_SK.mld_srtkenmerk_nmax
, MLD_SK.fac_kenmerkdomein_key
, MLD_SM.mld_stdmelding_omschrijving
, MLD_SM.mld_stdmelding_upper
, MLD_D.ins_discipline_key
, MLD_D.ins_discipline_omschrijving
FROM mld_kenmerk MLD_K
, mld_srtkenmerk MLD_SK
, mld_stdmelding MLD_SM
, mld_v_aanwezigdiscipline MLD_D
WHERE MLD_K.mld_srtkenmerk_key = MLD_SK.mld_srtkenmerk_key
AND MLD_K.mld_kenmerk_niveau = 'D'
AND MLD_SM.mld_ins_discipline_key = MLD_D.ins_discipline_key
AND ( MLD_D.ins_discipline_key = MLD_K.mld_stdmelding_key
OR MLD_K.mld_stdmelding_key IS NULL);
DEFINIEER_VIEW_AANWEZIG(mld_adres, mld_adres_verwijder,
mld_v_aanwezigadres, 0);
@@ -1188,16 +1270,13 @@ CREATE_VIEW(mld_v_api_opdrachten, 1) AS SELECT * from mld_opdr;
/* ROOT VIEWS for User defined Reports (UDR) */
/* since melding and opdracht are joined later on, the columns must be unique */
/* Note: als je kolommen toevoegt wil je dat zeer waarschijnlijk ook in mld_v_udr_meldingopdracht */
CREATE_VIEW(mld_v_udr_melding, 1)
(
melding_key,
meldingnummer,
melding_regio,
melding_district,
melding_locatiecode,
melding_locatie,
melding_locatieplaats,
fclt_3d_locatie_key,
melding_gebouwcode,
melding_gebouw,
@@ -1245,7 +1324,6 @@ CREATE_VIEW(mld_v_udr_melding, 1)
vomschrijving,
melding_opmerking,
prioriteit,
prioriteittxt,
rating,
rating_opmerking,
bolletje,
@@ -1263,11 +1341,9 @@ CREATE_VIEW(mld_v_udr_melding, 1)
AS
SELECT mld_melding_key,
meldingnummer,
alg_regio_omschrijving,
alg_district_omschrijving,
locatie,
locatie_omschrijving,
locatie_plaats,
alg_locatie_key,
gebouw,
gebouw_naam,
@@ -1317,7 +1393,6 @@ AS
omschrijving,
opmerking,
mld_melding_spoed prioriteit,
DECODE(mld_melding_spoed,3,lcl.l('lcl_mld_urg_normaal'),1,lcl.l('lcl_mld_urg_kritiek'),2,lcl.l('lcl_mld_urg_hoog'),4,lcl.l('lcl_mld_urg_laag')),
mld_melding_satisfaction,
mld_melding_satisfaction_op,
mld_melding_flag,
@@ -1408,11 +1483,9 @@ AS
FROM (SELECT m.mld_melding_key,
m.prs_perslid_key,
sd.ins_srtdiscipline_prefix || m.mld_melding_key meldingnummer,
alg_regio_omschrijving,
alg_district_omschrijving,
alg_locatie_code locatie,
alg_locatie_omschrijving locatie_omschrijving,
alg_locatie_plaats locatie_plaats,
l.alg_locatie_key,
og.alg_gebouw_code gebouw,
og.alg_gebouw_naam gebouw_naam,
@@ -1557,7 +1630,6 @@ AS
mld_stdmelding s,
alg_locatie l,
alg_district d,
alg_regio r,
alg_v_allonrgoed_gegevens og,
mld_discipline md,
mld_disc_params mdp,
@@ -1572,7 +1644,6 @@ AS
AND s.mld_stdmeldinggroep_key = smg.mld_stdmeldinggroep_key(+)
AND mdp.mld_behandelgroep_key = mbg.mld_behandelgroep_key(+)
AND l.alg_district_key = d.alg_district_key(+)
AND d.alg_regio_key = r.alg_regio_key(+)
AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
AND m.fac_activiteit_key IS NULL
AND m.mld_melding_datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')) x;
@@ -1581,11 +1652,9 @@ CREATE_VIEW(mld_v_udr_opdracht, 1)
(
opdracht_key,
opdracht_nummer,
opdracht_regio,
opdracht_district,
opdracht_locatie_code,
opdracht_locatie,
opdracht_locatieplaats,
fclt_3d_locatie_key,
opdracht_gebouwcode,
opdracht_gebouw,
@@ -1609,9 +1678,7 @@ CREATE_VIEW(mld_v_udr_opdracht, 1)
opdracht_omschrijving,
opdracht_opmerking,
opdracht_uitvoerende,
opdracht_behandelaar,
opdracht_contract,
opdracht_contract_versie,
opdracht_contactpersoon,
opdracht_uren,
opdracht_correctie,
@@ -1621,12 +1688,10 @@ CREATE_VIEW(mld_v_udr_opdracht, 1)
)
AS
SELECT mld_opdr_key,
ins_srtdiscipline_prefix || TO_CHAR (mld_melding_key) || '/' || opdracht_volgnummer,
alg_regio_omschrijving,
ins_srtdiscipline_prefix||TO_CHAR (mld_melding_key) || '/' || opdracht_volgnummer,
alg_district_omschrijving,
locatie,
locatie_omschrijving,
locatie_plaats,
alg_locatie_key,
gebouw,
gebouw_naam,
@@ -1650,20 +1715,16 @@ AS
opdracht_omschrijving,
opdracht_opmerking,
opdracht_uitvoerende,
opdracht_behandelaar,
opdracht_contract,
opdracht_contract_versie,
opdracht_contactpersoon,
opdracht_uren,
opdracht_correctie,
opdracht_materiaal,
opdracht_uurtarief,
opdracht_kosten
FROM (SELECT alg_regio_omschrijving,
alg_district_omschrijving,
FROM (SELECT alg_district_omschrijving,
alg_locatie_code locatie,
alg_locatie_omschrijving locatie_omschrijving,
alg_locatie_plaats locatie_plaats,
l.alg_locatie_key,
og.alg_gebouw_code gebouw,
og.alg_gebouw_naam gebouw_naam,
@@ -1700,20 +1761,16 @@ AS
COALESCE (fac.count_Work_Days (mld.getopdrachtstatusdate (o.mld_opdr_key, 5),
COALESCE(mld.getopdrachtstatusdate (o.mld_opdr_key, 8), mld.getopdrachtstatusdate (o.mld_opdr_key, 6))),
fac.count_Work_Days (mld.getopdrachtstatusdate (o.mld_opdr_key, 5),
mld.getopdrachtstatusdate (o.mld_opdr_key, 1)))
opdracht_accepttijd,
mld.getopdrachtstatusdate (o.mld_opdr_key, 1)))
opdracht_accepttijd,
o.mld_opdr_omschrijving opdracht_omschrijving,
o.mld_opdr_opmerking opdracht_opmerking,
(SELECT naam
FROM mld_v_uitvoerende u
WHERE u.mld_uitvoerende_key = o.mld_uitvoerende_keys)
opdracht_uitvoerende,
(SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key = o.prs_perslid_key) opdracht_behandelaar,
c.cnt_contract_nummer_intern opdracht_contract,
c.cnt_contract_versie opdracht_contract_versie,
o.mld_opdr_contactpersoon opdracht_contactpersoon,
NULL opdracht_contract,
NULL opdracht_contactpersoon,
o.mld_opdr_uren opdracht_uren,
o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon)
opdracht_correctie,
@@ -1723,20 +1780,16 @@ AS
sdi.ins_srtdiscipline_prefix
FROM alg_locatie l,
alg_district d,
alg_regio r,
alg_v_allonrgoed_gegevens og,
mld_opdr o,
mld_typeopdr top,
mld_melding m,
mld_stdmelding stdm,
ins_tab_discipline di,
ins_srtdiscipline sdi,
cnt_contract c
ins_srtdiscipline sdi
WHERE m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND l.alg_district_key = d.alg_district_key(+)
AND d.alg_regio_key = r.alg_regio_key(+)
AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
AND o.cnt_contract_key = c.cnt_contract_key(+)
AND m.mld_stdmelding_key = stdm.mld_stdmelding_key
AND stdm.mld_ins_discipline_key = di.ins_discipline_key
AND di.ins_srtdiscipline_key = sdi.ins_srtdiscipline_key
@@ -1750,11 +1803,9 @@ AS
SELECT
m.melding_key,
m.meldingnummer,
m.melding_regio,
m.melding_district,
m.melding_locatiecode,
m.melding_locatie,
m.melding_locatieplaats,
m.fclt_3d_locatie_key,
m.melding_gebouwcode,
m.melding_gebouw,
@@ -1793,36 +1844,20 @@ SELECT
m.plan_uitvoertijd_sla,
m.melding_datum,
m.melding_einddatum,
m.melding_acceptdatum,
m.melding_afgemeld,
m.melding_accepted,
m.doorlooptijd_werkdgn,
m.doorlooptijd_werkuren,
m.onderwerp,
m.vomschrijving,
m.melding_opmerking,
m.prioriteit,
m.prioriteittxt,
m.rating,
m.rating_opmerking,
m.bolletje,
m.accept_sla_dagen,
m.accept_sla_uren,
m.uitvoering_sla_dagen,
m.uitvoering_sla_uren,
m.afspraak_sla_dagen,
m.afspraak_sla_uren,
m.accept_sla_optijd,
m.uitvoering_sla_optijd,
m.afspraak_sla_optijd,
m.selfservice,
o.opdracht_key,
o.opdracht_nummer,
o.opdracht_regio,
o.opdracht_district,
o.opdracht_locatie_code,
o.opdracht_locatie,
o.opdracht_locatieplaats,
--o.fclt_3d_locatie_key,
o.opdracht_gebouwcode,
o.opdracht_gebouw,
@@ -1839,16 +1874,12 @@ SELECT
o.opdracht_datum,
o.opdracht_einddatum,
o.opdracht_plandatum,
o.opdracht_acceptdatum,
o.opdracht_afgemeld,
o.opdracht_doorlooptijd,
o.opdracht_accepttijd,
o.opdracht_omschrijving,
o.opdracht_opmerking,
o.opdracht_uitvoerende,
o.opdracht_behandelaar,
o.opdracht_contract,
o.opdracht_contract_versie,
o.opdracht_contactpersoon,
o.opdracht_uren,
o.opdracht_correctie,
@@ -1880,8 +1911,7 @@ AS
END
waarde_c,
CASE
WHEN skm.mld_srtkenmerk_kenmerktype IN ('N', 'B')
THEN TO_NUMBER (km.mld_kenmerkmelding_waarde)
WHEN skm.mld_srtkenmerk_kenmerktype = 'N' THEN TO_NUMBER (km.mld_kenmerkmelding_waarde)
ELSE TO_NUMBER (NULL)
END
waarde_n,
@@ -1924,8 +1954,7 @@ SELECT o.*,
END
waarde_c,
CASE
WHEN skm.mld_srtkenmerk_kenmerktype IN ('N', 'B')
THEN TO_NUMBER (ko.mld_kenmerkopdr_waarde)
WHEN skm.mld_srtkenmerk_kenmerktype = 'N' THEN TO_NUMBER (ko.mld_kenmerkopdr_waarde)
ELSE TO_NUMBER (NULL)
END
waarde_n,
@@ -1974,28 +2003,5 @@ SELECT o.*,
AND mo.fac_usrdata_key = fu.fac_usrdata_key(+)
AND mo.fin_btwtabelwaarde_key = btw.fin_btwtabelwaarde_key(+);
CREATE_VIEW(mld_v_nettotijdsbesteding, 0)
(
mld_opdr_key,
prs_perslid_key,
naam,
ntb_prs
)
AS
SELECT o.mld_opdr_key,
beh.prs_perslid_key,
p.prs_perslid_naam_full,
mld.getnettotijdsbesteding(o.mld_opdr_key, beh.prs_perslid_key) ntb_prs
FROM mld_opdr o,
(SELECT DISTINCT t.prs_perslid_key,
fac_tracking_refkey
FROM fac_tracking t,
fac_srtnotificatie st
WHERE t.fac_srtnotificatie_key = st.fac_srtnotificatie_key
AND st.fac_srtnotificatie_code IN ('ORDACP','ORDRSM')) beh,
prs_v_perslid_fullnames_all p
WHERE beh.fac_tracking_refkey = o.mld_opdr_key
AND beh.prs_perslid_key = p.prs_perslid_key;
REGISTERRUN('$Id$')
#endif // MLD

6
MODULES.H
View File

@@ -7,14 +7,12 @@
* ALG - Algemeen (onroerend goed)
* BES - Bestellingen (eProcurement)
* BEZ - Bezoekers registratie
* BGT - Budgetconrole (BCS)
* CAD - AutoCAD koppeling
* CNT - Contracten
* CTR - Periodieke taken (controles)
* FAC - Basismodule
* FIN - Financien/facturen
* INS - Installaties
* KPI - KPI's
* KPI - KPI's (planned 2015.3)
* MLD - Meldingen
* MRK - Marktplaats
* MSG - Messenger
@@ -27,10 +25,8 @@
#define ALG ALG
#define BES BES
#define BEZ BEZ
#define BGT BGT
#define CAD CAD
#define CNT CNT
#define CTR CTR
#define FAC FAC
#define FIN FIN
#define INS INS

6
MRK/MRK_INI.SRC
View File

@@ -1,11 +1,11 @@
#ifdef MRK
#ifdef MRK
/*
* $Revision$
* $Id$
*/
_FAC_MODULE('MRK','lcl_module_MRK')
_FAC_MODULE('MRK','Facilitor Marktplaats')
insert into ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('MRK', 'Aangeboden');
insert into ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('MRK', 'Gevraagd');

4
MRK/MRK_VIE.SRC
View File

@@ -1,4 +1,4 @@
#ifdef MRK
#ifdef MRK
/*
* $Revision$
* $Id$
@@ -7,7 +7,7 @@
CREATE_VIEW(mrk_discipline, 0)
AS
SELECT * FROM ins_tab_discipline WHERE ins_discipline_module = 'MRK';
SELECT * FROM all_discipline WHERE ins_discipline_module = 'MRK';
DEFINIEER_VIEW_AANWEZIG(mrk_discipline, ins_discipline_verwijder,
mrk_v_aanwezigdiscipline, 0);

4
MSG/MSG_INI.SRC
View File

@@ -3,8 +3,8 @@
/* $Revision$
* $Id$
*/
_FAC_MODULE('MSG','lcl_module_MSG')
_FAC_MODULE('MSG','Facilitor Messenger')
REGISTERONCE('$Id$')

2
PRJ/PRJ_INI.SRC
View File

@@ -4,7 +4,7 @@
* $Id$
*/
_FAC_MODULE('PRJ','lcl_module_PRJ')
_FAC_MODULE('PRJ','Projecten')
INSERT INTO cad_legenda (cad_legenda_omschrijving, cad_legenda_discreet) VALUES ('Default project legenda', 1);

23
PRS/PRS_IND.SRC
View File

@@ -5,36 +5,33 @@
* $Id$
*/
CREATE INDEX prs_i_prs_afdeling1 ON prs_afdeling(prs_afdeling_parentkey);
create index prs_i_prs_afdeling1 on prs_afdeling(prs_afdeling_parentkey);
CREATE INDEX prs_i_prs_afdeling2 ON prs_afdeling(prs_kostenplaats_key);
CREATE INDEX prs_i_prs_afdeling3 ON prs_afdeling(prs_afdeling_externid);
CREATE INDEX prs_i_prs_bedrijfadres1 ON prs_bedrijfadres(prs_bedrijf_key);
CREATE UNIQUE INDEX prs_i_prs_bedrijfadres2 ON prs_bedrijfadres(prs_bedrijf_key, prs_bedrijfadres_type, mld_typeopdr_key, alg_locatie_key, alg_district_key);
CREATE INDEX prs_i_prs_bedrijfadres1 on prs_bedrijfadres(prs_bedrijf_key);
CREATE UNIQUE INDEX prs_i_prs_bedrijfadres2 on prs_bedrijfadres(prs_bedrijf_key, prs_bedrijfadres_type, mld_typeopdr_key);
CREATE INDEX prs_i_prs_perslid1 ON prs_perslid(prs_srtperslid_key);
CREATE INDEX prs_i_prs_perslid2 ON prs_perslid(prs_afdeling_key);
CREATE INDEX prs_i_prs_perslid3 ON prs_perslid(prs_perslid_init_upper);
create index prs_i_prs_perslid1 on prs_perslid(prs_srtperslid_key);
create index prs_i_prs_perslid2 on prs_perslid(prs_afdeling_key);
create index prs_i_prs_perslid3 on prs_perslid(prs_perslid_init_upper);
/*via unique: CREATE UNIQUE INDEX prs_i_prs_perslid4 ON prs_perslid(prs_perslid_oslogin);*/
CREATE INDEX prs_i_prs_perslid5 ON prs_perslid(prs_perslid_upper);
CREATE INDEX prs_i_prs_perslid6 ON prs_perslid(prs_perslid_nr);
CREATE UNIQUE INDEX prs_i_prs_perslid7 ON prs_perslid(prs_perslid_apikey);
CREATE INDEX prs_i_prs_perslid8 ON prs_perslid(prs_perslid_externid);
CREATE UNIQUE INDEX prs_i_prs_bedrijfbedrijf1 ON prs_bedrijf_bedrijf(prs_bedrijf_key1, prs_bedrijf_key2);
CREATE INDEX prs_i_prscontactpersoon1 ON prs_contactpersoon(prs_bedrijf_key);
CREATE INDEX prs_i_prscontactpersoon2 ON prs_contactpersoon(prs_perslid_key);
CREATE INDEX prs_i_prs_werkplek1 ON prs_werkplek(prs_alg_ruimte_key);
CREATE INDEX prs_i_prs_perslidwerkplek1 ON prs_perslidwerkplek(prs_perslid_key);
CREATE INDEX prs_i_prs_perslidwerkplek2 ON prs_perslidwerkplek(prs_werkplek_key);
create index prs_i_prs_perslidwerkplek1 on prs_perslidwerkplek(prs_perslid_key);
create index prs_i_prs_perslidwerkplek2 on prs_perslidwerkplek(prs_werkplek_key);
CREATE INDEX prs_i_prs_kostenplaats2 ON prs_kostenplaats(prs_perslid_key);
CREATE UNIQUE INDEX prs_i_prs_kostensoort1 ON prs_kostensoort(prs_kostensoortgrp_key, prs_kostensoort_upper);
CREATE UNIQUE INDEX prs_i_prs_kostensoort1 ON prs_kostensoort(prs_kostensoort_upper);
CREATE UNIQUE INDEX prs_i_prs_kostencombinatie1 ON prs_kostencombinatie (prs_kostenplaatsgrp_key, prs_kostensoort_key);
CREATE INDEX prs_i_prs_perslidkostenplaats1 ON prs_perslidkostenplaats(prs_perslid_key, prs_kostenplaats_key);
create index prs_i_prs_perslidkostenplaats1 ON prs_perslidkostenplaats(prs_perslid_key, prs_kostenplaats_key);
CREATE UNIQUE INDEX prs_i_prs_collega1 ON prs_collega(prs_perslid_key, prs_perslid_key_alt);

2
PRS/PRS_INI.SRC
View File

@@ -4,7 +4,7 @@
* $Id$
*/
_FAC_MODULE('PRS','lcl_module_PRS')
_FAC_MODULE('PRS','Organisatiebeheer')
DEF_FAC_MESSAGE ('prs_r_prs_contactpersoon_key2','Er zijn nog referenties van contracten naar deze contactpersoon.' ,'There are still references from contracts to this contract.');

267
PRS/PRS_PAC.SRC
View File

@@ -66,9 +66,7 @@ END aut;
/* Formatted on 3-11-2010 11:50:08 (QP5 v5.136.908.31019) */
CREATE OR REPLACE PACKAGE prs
AS
FUNCTION getkpverantwoordelijke (pkostenplaats_key IN NUMBER,
pmethode IN NUMBER,
pexcludekey IN NUMBER)
FUNCTION getkpverantwoordelijke (pkostenplaats_key IN NUMBER, pmethode IN NUMBER, pexcludekey IN NUMBER)
RETURN NUMBER;
FUNCTION getkostenplaats (pperslid_key IN NUMBER, pmethode IN NUMBER, pexcludekey IN NUMBER)
@@ -81,6 +79,7 @@ AS
RETURN NUMBER;
FUNCTION getfiatteur (pkostenplaats_key IN NUMBER,
pmethode IN NUMBER,
pexcludekey IN NUMBER,
pondergrens IN NUMBER,
pdisckey IN NUMBER
@@ -94,7 +93,7 @@ AS
PROCEDURE upsertkenmerk (p_kenmerk_key IN NUMBER, p_prs_key IN NUMBER, p_waarde IN VARCHAR2);
PROCEDURE movetoruimte (p_prs_key IN NUMBER, p_ruimte_key IN NUMBER, p_alg_type IN VARCHAR2, p_virtual IN NUMBER DEFAULT 0);
PROCEDURE movetoruimte (p_prs_key IN NUMBER, p_ruimte_key IN NUMBER, p_alg_type IN VARCHAR2);
PROCEDURE import_perslid (p_import_key IN NUMBER, p_seq_of_columns IN VARCHAR2, p_header IN VARCHAR2);
@@ -107,21 +106,93 @@ END prs;
CREATE OR REPLACE PACKAGE BODY prs
AS
-- Levert de prs_perslid_key op van de budgethouder van een kostenplaats
-- Simpele versie van getfiatteur: hij negeert limieten
FUNCTION getkpverantwoordelijke (pkostenplaats_key IN NUMBER,
pmethode IN NUMBER, -- deze gebruiken we eigenlijk niet meer sinds 2017.2
pexcludekey IN NUMBER)
-- Kijkt dus niet naar limiet oid, gewoon de budgethouder zoeken volgens
-- de door ons gedefinieerde regels.
-- Levert -1 op indien er geen gevonden wordt.
-- Controleert niet of de meegegeven kostenplaats nog wel actief is
-- pmethode geeft .. inderdaad, waarbij
-- methode 1 = 2-laagsmethode via kp - kpngroep
-- methode 2 = n-laagsmethode via afdelingsboom
-- Met pexcludekey kan een perslid_key worden opgegeven die je niet wilt
-- Dat leek me wel een aardige feature. Geef -1 mee als je niemand wilt excluden
FUNCTION getkpverantwoordelijke (pkostenplaats_key IN NUMBER, pmethode IN NUMBER, pexcludekey IN NUMBER)
RETURN NUMBER
IS
lkpverantwkey prs_perslid.prs_perslid_key%TYPE;
lexcludeisvervanger NUMBER;
afdkey prs_afdeling.prs_afdeling_key%TYPE;
parentafdkey prs_afdeling.prs_afdeling_parentkey%TYPE;
BEGIN
IF pmethode = 3 THEN
raise_application_error (-20001, 'Cannot use prs.getkpverantwoordelijke with prs_approvemethod = 3');
END IF;
RETURN getfiatteur (pkostenplaats_key,
pexcludekey,
NULL,
NULL
);
BEGIN
SELECT COALESCE (prs_perslid_key, -1)
INTO lkpverantwkey
FROM prs_kostenplaats
WHERE prs_kostenplaats_key = pkostenplaats_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
-- kostenplaats bestaat niet
RETURN -1;
END;
-- Is de meegegeven pexcludekey wellicht een vervanger van kostenplaatsverantwoordelijke van de kostenplaats?
-- Zo ja, dan is in dat geval lkpverantwkey de pexcludekey
IF pexcludekey > 0 THEN
SELECT COUNT(prs_perslid_key)
INTO lexcludeisvervanger
FROM prs_collega
WHERE prs_perslid_key_alt = pexcludekey
AND prs_perslid_key = lkpverantwkey;
END IF;
IF (lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lexcludeisvervanger = 1) AND pmethode = 2
-- doorloop de boom naar boven, met allerlei aannames
THEN
-- waar hoort deze kp bij?
BEGIN
SELECT prs_afdeling_key, prs_afdeling_parentkey
INTO afdkey, parentafdkey
FROM prs_afdeling
WHERE prs_kostenplaats_key = pkostenplaats_key AND prs_afdeling_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
-- kp is niet aan een afdeling gerelateerd, dan weet ik het met deze methode niet
RETURN -1;
END;
WHILE lkpverantwkey = -1 AND parentafdkey IS NOT NULL
LOOP
SELECT COALESCE (k.prs_perslid_key, -1), prs_afdeling_parentkey
INTO lkpverantwkey, parentafdkey
FROM prs_kostenplaats k, prs_afdeling a
WHERE k.prs_kostenplaats_key(+) = a.prs_kostenplaats_key
AND a.prs_afdeling_verwijder IS NULL
AND a.prs_afdeling_key = parentafdkey;
END LOOP;
-- nu heb ik er een of kan ik er geen vinden
END IF;
-- Nu: als ik methode 1 heb, of methode 2 niemand opleverde (ondanks afdelingskostenplaats): de kpngroepverantwoordelijke
IF lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lexcludeisvervanger = 1
THEN
-- vindt de kostenplaatsGROEPverantwoordelijke van altijd de meegegeven kp
BEGIN
SELECT COALESCE (kg.prs_perslid_key, -1)
INTO lkpverantwkey
FROM prs_kostenplaats k, prs_kostenplaatsgrp kg
WHERE prs_kostenplaats_key = pkostenplaats_key
AND kg.prs_kostenplaatsgrp_key = k.prs_kostenplaatsgrp_key
AND kg.prs_perslid_key NOT IN (lkpverantwkey, pexcludekey);
EXCEPTION
WHEN NO_DATA_FOUND
THEN
-- er is geen kpgroep bij, of het is de excludekey
RETURN -1;
END;
END IF;
RETURN lkpverantwkey;
END;
-- Levert de prs_kostenplaats_key op van de persoon volgens
@@ -245,74 +316,43 @@ AS
-- Levert de prs_perslid_key op van de perslid die een item (opdracht/bestelling) van
-- discipline pdisckey boven bedrag pondergrens mag fiatteren
-- volgens de door ons gedefinieerde regels. Werkt analoog aan getkpverantwoordelijke
-- Maar houdt hierbij rekening met de profielen van de budgethouders als prs_approvemethod==3
-- Maar houdt hierbij rekening met de profielen van de budgethouders.
--
-- NB: algorithme gaat binnenkort wijzigen. Levert op dit moment
-- de budgethouder (als die dat mag) of de kpgverantwoordelijke (anders) op
-- en is als zodanig ALLEEN ZINVOL bij bepaling van de EERSTE FIATTEUR
-- De evt tweede fiatteur is nl. altijd de kpgverantwoordelijke, ongeacht limiet.
-- WORDT NU DUS NOG NIET TOEGEPAST (beoogd 5.1.0)
--
-- Levert de kostenplaatsgroepverantwoordelijke op indien geen goede budgethouder
-- wordt gevonden
-- prs_approvemethod geeft methode aan:
-- wordt gevonden, negeert een eventueel profiel van die groepverantwoordelijke
-- Levert -1 op indien er geen gevonden wordt.
-- pmethode geeft .. inderdaad, waarbij
-- methode 1 = 2-laagsmethode via kp - kpngroep
-- methode 2 = 2-laagsmethode via afdelingsboom tot gedefinieerde budgethouder en dan kpgroep
-- methode 3 = als 2 maar houd rekening met de profiel van de budgethouders tov pondergrens
-- methode 2 = n-laagsmethode via afdelingsboom
-- Met pexcludekey kan een perslid_key worden opgegeven die je niet wilt
-- dat kan zijn omdat je het niet voor jezelf mag (can_selfapprove) of
-- omdat je een lager niveau al gefiatteerd hebt
-- Geef -1 mee als je niemand wilt excluden
-- Dat leek me wel een aardige feature. Geef -1 mee als je niemand wilt excluden
FUNCTION getfiatteur (pkostenplaats_key IN NUMBER,
pmethode IN NUMBER,
pexcludekey IN NUMBER,
pondergrens IN NUMBER,
pdisckey IN NUMBER
)
RETURN NUMBER
IS
lkpverantwkey prs_kostenplaats.prs_perslid_key%TYPE;
lexcludeisvervanger NUMBER;
lkpverantwkey prs_perslid.prs_perslid_key%TYPE;
lkpverantwlimiet fac_profiel.fac_profiel_limiet%TYPE;
afdkey prs_afdeling.prs_afdeling_key%TYPE;
parentafdkey prs_afdeling.prs_afdeling_parentkey%TYPE;
lmethode NUMBER;
BEGIN
BEGIN
lkpverantwkey := -1;
SELECT COALESCE (prs_perslid_key, -1)
INTO lkpverantwkey
FROM prs_kostenplaats
WHERE prs_kostenplaats_key = pkostenplaats_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
-- kostenplaats bestaat niet
RETURN -1;
END;
dbms_output.put_line('Budgethouder: '||lkpverantwkey);
-- lkpverantwkey is (mits gedefinieerd) de budgethouder van de kp. Het is nog niet gezegd of dit de gevraagde fiatteur is
-- Is de meegegeven pexcludekey wellicht een vervanger van kostenplaatsverantwoordelijke van de kostenplaats?
-- Zo ja, dan is in dat geval lkpverantwkey de pexcludekey
IF pexcludekey > 0 AND lkpverantwkey <> pexcludekey THEN
SELECT COUNT(prs_perslid_key)
INTO lexcludeisvervanger
FROM prs_collega
WHERE prs_perslid_key_alt = pexcludekey
AND prs_perslid_key = lkpverantwkey;
END IF;
dbms_output.put_line('ExcludeIsVervanger: '||lexcludeisvervanger);
lmethode := fac.getSetting('prs_approvemethod');
dbms_output.put_line('Approvemethod: '||lmethode);
dbms_output.put_line('Ondergrens: '||pondergrens);
-- de eerste is makkelijk:
lkpverantwkey := prs.getkpverantwoordelijke (pkostenplaats_key, pmethode, pexcludekey);
lkpverantwlimiet := prs.getprofiellimiet (lkpverantwkey, pdisckey);
IF lmethode = 3 THEN -- ook profiel budgethouder controleren
lkpverantwlimiet := prs.getprofiellimiet (lkpverantwkey, pdisckey);
dbms_output.put_line('Zijn limiet: '||lkpverantwlimiet);
IF (lkpverantwlimiet < pondergrens) -- lkpverantwkey != -1 is impliciet in die limiet
THEN -- het profiel van deze budgethouder is niet genoeg
lkpverantwkey := -1; -- niet meer interessant wie dit was
END IF;
END IF;
IF (lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lexcludeisvervanger = 1)
AND (lmethode = 2 OR lmethode = 3)
/* NB: nu (nog) zoeken we NIET de boom omhoog naar hoger gelimiteerden, later misschien
IF (lkpverantwkey = -1 OR lkpverantwlimiet < pondergrens) AND pmethode = 2
-- doorloop de boom naar boven, met allerlei aannames
THEN
dbms_output.put_line('We gaan de boom in');
-- waar hoort deze kp bij?
BEGIN
SELECT prs_afdeling_key, prs_afdeling_parentkey
@@ -325,49 +365,32 @@ AS
-- kp is niet aan een afdeling gerelateerd, dan weet ik het met deze methode niet
RETURN -1;
END;
-- Zolang nog geen goede en we kunnen hogerop
WHILE (lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lexcludeisvervanger = 1)
AND parentafdkey IS NOT NULL
WHILE lkpverantwkey = -1 AND parentafdkey IS NOT NULL AND lkpverantwlimiet < pondergrens
LOOP
SELECT COALESCE (k.prs_perslid_key, -1), prs_afdeling_parentkey
INTO lkpverantwkey, parentafdkey
FROM prs_kostenplaats k, prs_afdeling a
WHERE k.prs_kostenplaats_key(+) = a.prs_kostenplaats_key
AND a.prs_afdeling_verwijder IS NULL
AND a.prs_afdeling_key = parentafdkey;
dbms_output.put_line('Volgende budgethouder: '||lkpverantwkey);
AND a.prs_afdeling_key = parentafdkey;
IF lmethode = 3 THEN -- ook profiel budgethouder controleren
lkpverantwlimiet := prs.getprofiellimiet (lkpverantwkey, pdisckey);
dbms_output.put_line('Zijn limiet B: '||lkpverantwlimiet);
IF (lkpverantwlimiet < pondergrens)
THEN -- het profiel van deze budgethouder is niet genoeg
lkpverantwkey := -1; -- niet meer interessant wie dit was
END IF;
END IF;
IF pexcludekey > 0 AND lkpverantwkey <> pexcludekey THEN
SELECT COUNT(prs_perslid_key)
INTO lexcludeisvervanger
FROM prs_collega
WHERE prs_perslid_key_alt = pexcludekey
AND prs_perslid_key = lkpverantwkey;
END IF;
lkpverantwlimiet := prs.getprofiellimiet (lkpverantwkey, pdisckey);
END LOOP;
-- nu heb ik er een of kan ik er geen vinden
END IF;
dbms_output.put_line('Gevonden budgethouder voor de kpgroep-tak: '||lkpverantwkey);
*/
-- Nu: als ik methode 1 heb, of methode 2 niemand opleverde (ondanks afdelingskostenplaats): de kpngroepverantwoordelijke
IF lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lexcludeisvervanger = 1
IF lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lkpverantwlimiet < pondergrens
THEN
-- vindt de kostenplaatsGROEPverantwoordelijke van altijd de meegegeven kp
-- vindt de kostenplaatsGROEPverantwoordelijke
BEGIN
SELECT COALESCE (kg.prs_perslid_key, -1)
INTO lkpverantwkey -- variabele bvat nu een kpg-verantwoordelijke, naam klopt niet 100%
INTO lkpverantwkey
FROM prs_kostenplaats k, prs_kostenplaatsgrp kg
WHERE prs_kostenplaats_key = pkostenplaats_key
AND kg.prs_kostenplaatsgrp_key = k.prs_kostenplaatsgrp_key
AND kg.prs_perslid_key NOT IN (lkpverantwkey, pexcludekey);
AND kg.prs_perslid_key <> pexcludekey;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
@@ -375,7 +398,7 @@ AS
RETURN -1;
END;
END IF;
dbms_output.put_line('Resultaat budgethouder: '||lkpverantwkey);
RETURN lkpverantwkey;
END;
@@ -477,9 +500,8 @@ AS
-- Als er al vaste werkplekken waren binnen het niveau van p_alg_type (R,V,G,L,D,NULL,A)
-- dan worden die geleegd/gewist. Bij NULL wordt niks gewist, bij A wordt altijd gewist.
PROCEDURE movetoruimte (p_prs_key IN NUMBER,
p_ruimte_key IN NUMBER,
p_alg_type IN VARCHAR2,
p_virtual IN NUMBER DEFAULT 0)
p_ruimte_key IN NUMBER,
p_alg_type IN VARCHAR2)
IS
v_count NUMBER;
v_wp_key NUMBER (10);
@@ -495,9 +517,7 @@ AS
FROM prs_perslidwerkplek pw, prs_werkplek wp
WHERE pw.prs_perslid_key = p_prs_key
AND pw.prs_werkplek_key = wp.prs_werkplek_key
AND wp.prs_alg_ruimte_key = p_ruimte_key
AND wp.prs_werkplek_type = 0 -- alleen vaste plekken
AND wp.prs_werkplek_virtueel = p_virtual;
AND wp.prs_alg_ruimte_key = p_ruimte_key;
IF (v_count = 0)
THEN
@@ -533,14 +553,14 @@ AS
alg_key
FROM alg_v_ruimte_gegevens_all) og
WHERE wp.prs_werkplek_key = pw.prs_werkplek_key
AND wp.prs_werkplek_virtueel = p_virtual
AND wp.prs_werkplek_virtueel = 0
AND wp.prs_werkplek_type = 0 -- alleen vaste plekken
AND wp.prs_alg_ruimte_key = og.alg_ruimte_key
AND (og.alg_key = v_alg_key OR p_alg_type = 'A'));
ELSE
-- Wis de werkplek, automatisch inclusief de bezetting
DELETE FROM prs_werkplek wp
WHERE wp.prs_werkplek_virtueel = p_virtual
WHERE wp.prs_werkplek_virtueel = 0
AND wp.prs_werkplek_type = 0 -- alleen vaste plekken
AND EXISTS
(SELECT 1
@@ -571,7 +591,7 @@ AS
INTO v_wp_key
FROM prs_werkplek wp
WHERE wp.prs_alg_ruimte_key = p_ruimte_key
AND wp.prs_werkplek_virtueel = p_virtual
AND wp.prs_werkplek_virtueel = 0
AND wp.prs_werkplek_type = 0 -- alleen vaste plekken
AND NOT EXISTS (SELECT 1
FROM prs_perslidwerkplek pw
@@ -602,9 +622,8 @@ AS
INSERT INTO prs_werkplek (prs_werkplek_volgnr,
prs_werkplek_omschrijving,
prs_alg_ruimte_key,
prs_werkplek_type,
prs_werkplek_virtueel)
VALUES (v_wp_volgnr, v_wp_oms, p_ruimte_key, 0, p_virtual)
prs_werkplek_type)
VALUES (v_wp_volgnr, v_wp_oms, p_ruimte_key, 0)
RETURNING prs_werkplek_key
INTO v_wp_key;
END IF;
@@ -777,11 +796,6 @@ AS
WHERE fac_import_key = p_import_key
ORDER BY fac_imp_file_index;
BEGIN
// JGL: Ik zou graag een WHERE fac_import_key = p_import_key hieronder
// toevoegen zodat het script ook multi-user veilig is,
// Heel veel klant-specifieke imports(/aanvullingen) controleren
// echter niet op de fac_import_key en zouden flink de fout in gaan.
// Daarom vooralsnog hier toch maar alles verwijderen
DELETE FROM fac_imp_perslid;
SELECT COALESCE (MAX (fac_imp_file_index), 0) + 1
@@ -1777,12 +1791,12 @@ AS
|| recPersLid.prs_afdeling_naam
|| ']';
SELECT a.prs_afdeling_key
SELECT prs_afdeling_key
INTO v_afdeling_key
FROM prs_v_aanwezigafdeling_boom b, prs_afdeling a
WHERE UPPER (a.prs_afdeling_naam) = UPPER (recPersLid.prs_afdeling_naam)
AND a.prs_afdeling_verwijder IS NULL
AND a.prs_afdeling_key = b.prs_afdeling_key;
FROM prs_afdeling
WHERE UPPER (prs_afdeling_naam) =
UPPER (recPersLid.prs_afdeling_naam)
AND prs_afdeling_verwijder IS NULL;
v_space := '';
-- kijk hoe we met partnernamen moeten omgaan:
@@ -1875,8 +1889,7 @@ AS
prs_perslid_geslacht,
prs_perslid_titel,
prs_perslid_dienstverband,
prs_perslid_oslogin,
prs_perslid_apikey)
prs_perslid_oslogin)
VALUES ('PRS',
v_srtperslid_key,
v_afdeling_key,
@@ -1891,8 +1904,7 @@ AS
recPersLid.prs_perslid_geslacht,
recPersLid.prs_perslid_titel,
recPersLid.prs_perslid_dienstverband,
recPersLid.prs_perslid_oslogin,
recPersLid.prs_perslid_apikey)
recPersLid.prs_perslid_oslogin)
RETURNING prs_perslid_key
INTO v_perslid_key;
@@ -1918,8 +1930,7 @@ AS
prs_perslid_telefoonnr = recPersLid.prs_perslid_telefoonnr,
prs_perslid_mobiel = recPersLid.prs_perslid_mobiel,
prs_perslid_email = recPersLid.prs_perslid_email,
prs_perslid_oslogin = recPersLid.prs_perslid_oslogin,
prs_perslid_apikey = recPersLid.prs_perslid_apikey
prs_perslid_oslogin = recPersLid.prs_perslid_oslogin
WHERE prs_perslid_key = v_perslid_key;
IF recPersLid.prs_perslid_wachtwoord IS NOT NULL
@@ -2132,20 +2143,6 @@ AS
v_errorhint :=
'Verwijderen van persoon met key ' || TO_CHAR (p_perslid_key);
-- Referenties in tabellen naar deze pers_perslid_key moeten eerst verwijderd worden.
-- Door cascade verwijderen van deze record onstaan audits op die tabellen die audit tracking hebben.
-- Daardoor onstaan "ORxA-04091:table VLKC.FAC_AUDIT is mutating, trigger/function may not see it" foutmeldingen
-- op de delete van de prs_perslid_key uit de prs_perslid tabel.
-- De tabellen prs_kostenplaats, prs_kostenplaatsgrp, prs_perslidkostenplaats en fac_gebruikersgroep hebben een prs_perslid_key referentie en audit tracking.
DELETE FROM prs_kostenplaats
WHERE prs_perslid_key = p_perslid_key;
DELETE FROM prs_kostenplaatsgrp
WHERE prs_perslid_key = p_perslid_key;
DELETE FROM prs_perslidkostenplaats
WHERE prs_perslid_key = p_perslid_key;
DELETE FROM fac_gebruikersgroep
WHERE prs_perslid_key = p_perslid_key;
DELETE FROM prs_perslid
WHERE prs_perslid_key = p_perslid_key;

1
PRS/PRS_SEQ.SRC
View File

@@ -15,7 +15,6 @@ CREATE SEQUENCE prs_s_prs_eenheid_key MINVALUE 1;
CREATE SEQUENCE prs_s_prs_contactpersoon_key MINVALUE 1;
CREATE SEQUENCE prs_s_prs_contactpers_loc_key MINVALUE 1;
CREATE SEQUENCE prs_s_prs_bedrijfadres_key MINVALUE 1;
CREATE SEQUENCE prs_s_prs_bedrijfbedrijf_key MINVALUE 1;
CREATE SEQUENCE prs_s_prs_dienst_key MINVALUE 1;
CREATE SEQUENCE prs_s_prs_bedrijfdienstloc_key MINVALUE 1;

214
PRS/PRS_TAB.SRC
View File

@@ -155,52 +155,6 @@ ADD
CONSTRAINT fac_r_prs_bedrijf_key1 REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE
);
ALTER TABLE fac_idp
ADD
(
prs_bedrijf_key
NUMBER(10)
CONSTRAINT fac_r_idp_prs_bedrijf REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE
);
/* Kruistabel met bedrijfsrelaties (use case Mareon): bedrijf 1 doet iets voor bedrijf 2 of andersom */
CREATE_TABLE(prs_bedrijf_bedrijf,0)
(
prs_bedrijf_bedrijf_key
NUMBER (10) PRIMARY KEY NOT NULL,
prs_bedrijf_key1
NUMBER (10)
CONSTRAINT prs_r_prs_bedrijf_bedrijf1 REFERENCES prs_bedrijf (prs_bedrijf_key) NOT NULL,
prs_bedrijf_externid1
VARCHAR2(60), -- optional remote key of 1
prs_bedrijf_key2
NUMBER (10)
CONSTRAINT prs_r_prs_bedrijf_bedrijf2 REFERENCES prs_bedrijf (prs_bedrijf_key) NOT NULL,
prs_bedrijf_externid2
VARCHAR2(60), -- optional remote key of 2
prs_bedrijf_bedrijf_startdatum
DATE
DEFAULT SYSDATE,
prs_bedrijf_bedrijf_einddatum
DATE,
prs_bedrijf_bedrijf_status
NUMBER(1) -- voor mld_opdr_teverzenden: 0=niet te verzenden 1=te verzenden
DEFAULT(0)
NOT NULL,
prs_bedrijf_bedrijf_charged
NUMBER(1) -- 0=niemand, 1=opdrachtnemer, 2=opdrachtgever
DEFAULT(0)
NOT NULL,
prs_bedrijf_bedrijf_chargemode
NUMBER(4), -- een codering voor de "premiummode" waaruit afgeleid kan worden hoe de kosten worden berekend (per opdracht, per bestelling, enz), enigszins futureproof
prs_bedrijf_bedrijf_fee1
NUMBER(6,2), -- bedrag in euro's tbv berekening icm chargemode
prs_bedrijf_bedrijf_fee2
NUMBER(6,2), -- bedrag in euro's tbv berekening icm chargemode
prs_bedrijf_bedrijf_fee3
NUMBER(6,2) -- bedrag in euro's tbv berekening icm chargemode
);
/* Kruistabel met elektronische adressen van een bedrijf, toegepast door
* PutOrders voor Bestellingen, Contracten en Opdrachten. Bij Opdrachten kan
* er per opdrachttype een ander adres zijn, het record met mld_typeopdr_key NULL
@@ -213,15 +167,9 @@ CREATE_TABLE(prs_bedrijfadres, 0) (
prs_bedrijf_key
NUMBER(10)
CONSTRAINT prs_r_prs_bedrijf_key6 REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE,
alg_district_key
NUMBER(10)
CONSTRAINT prs_r_alg_district_key REFERENCES alg_district(alg_district_key) ON DELETE CASCADE,
alg_locatie_key
NUMBER(10)
CONSTRAINT prs_r_alg_locatie_key REFERENCES alg_locatie(alg_locatie_key) ON DELETE CASCADE,
prs_bedrijfadres_type /* O=Order, B=Bestelling, V=Voorraadinfo, C=Contract, N=Notificatie */
prs_bedrijfadres_type /* O = order, B = Bestelling, C = Contract */
VARCHAR2(1)
CONSTRAINT prs_c_prs_bedrijfadrestype CHECK (prs_bedrijfadres_type IN ('O','B','C','V','N')),
CONSTRAINT prs_c_prs_bedrijfadrestype CHECK (prs_bedrijfadres_type IN ('O','B','C')),
-- In MLD_TAB.SRC:
-- mld_typeopdr_key
-- NUMBER(10) CONSTRAINT prs_r_mld_typeopdr_key REFERENCES mld_typeopdr(mld_typeopdr_key) ON DELETE CASCADE,
@@ -229,44 +177,21 @@ CREATE_TABLE(prs_bedrijfadres, 0) (
VARCHAR2(512),
prs_bedrijfadres_ordermode /* bitwise, TBD */
NUMBER(3) DEFAULT 0,
prs_bedrijfadres_soapversion /* future use, eg 1.1 or 1.2 */
VARCHAR2(10),
prs_bedrijfadres_soapaction
VARCHAR2(128),
prs_bedrijfadres_certificate
VARCHAR2(255),
prs_bedrijfadres_xsl
VARCHAR2(256),
prs_bedrijfadres_ext
VARCHAR2(10),
prs_bedrijfadres_username
prs_bedrijfadres_username /* future use */
VARCHAR2(32),
prs_bedrijfadres_password
prs_bedrijfadres_password /* future use */
VARCHAR2(32),
prs_bedrijfadres_authmethod /* 0=http.open, 1=Forces basic, 2=custom header, 3=add to xml, >4=future use */
NUMBER(3)
DEFAULT 0
NOT NULL,
-- prs_bedrijfadres_lockuser_key
-- NUMBER(10)
-- CONSTRAINT prs_r_prs_bedrijfadres_lckusr REFERENCES prs_perslid(prs_perslid_key),
prs_bedrijfadres_locksecret
VARCHAR2(128),
prs_bedrijfadres_lockexpire
NUMBER(10),
prs_bedrijfadres_attachfile
VARCHAR2(256),
prs_bedrijfadres_flexfiles /* 0=default (volgens S("puo_order_flexfiles")), 1=wel, 2=niet */
NUMBER(3)
DEFAULT 0
NOT NULL,
prs_bedrijfadres_encoding /* 0=text/xml, 1=multipart/form-data, 2=application/json, , 3=text/html */
NUMBER(3)
DEFAULT 0
NOT NULL,
prs_bedrijfadres_loglevel /* future use */
NUMBER(1)
DEFAULT 0
NOT NULL
);
@@ -281,16 +206,10 @@ CREATE_TABLE(prs_kostenplaatsgrp,0) (
prs_kostenplaatsgrp_limiet
NUMBER(8),
prs_kostenplaatsgrp_limperiode /* 0(of NULL)=geen(oneindig), 1=maand, 2=jaar */
NUMBER(1),
-- prs_perslid_key
NUMBER(1)
--, prs_perslid_key
-- NUMBER(10)
-- CONSTRAINT prs_r_prs_perslid_key11 REFERENCES prs_perslid(prs_perslid_key),
prs_kostenplaatsgrp_aanmaak
DATE
DEFAULT SYSDATE
-- bgt_project_key
-- NUMBER(10)
-- CONSTRAINT prs_r_bgt_project_key2 REFERENCES bgt_project(bgt_project_key)
-- CONSTRAINT prs_r_prs_perslid_key11 REFERENCES prs_perslid(prs_perslid_key)
);
CREATE_TABLE(prs_kostenplaats,0) (
@@ -314,7 +233,7 @@ CREATE_TABLE(prs_kostenplaats,0) (
DATE,
prs_kostenplaatsgrp_key
NUMBER(10)
CONSTRAINT prs_r_prs_kostenplaatsgrp_key REFERENCES prs_kostenplaatsgrp(prs_kostenplaatsgrp_key),
CONSTRAINT prs_r_prs_kostenplaatsgrp_key REFERENCES prs_kostenplaatsgrp(prs_kostenplaatsgrp_key) ON DELETE SET NULL,
prs_kostenplaats_aanmaak
DATE DEFAULT SYSDATE,
prs_kostenplaats_verwijder
@@ -348,13 +267,6 @@ ALTER TABLE alg_terreinsector ADD
CONSTRAINT alg_r_prs_afdeling_kostenp2 REFERENCES prs_kostenplaats(prs_kostenplaats_key)
);
ALTER TABLE ins_srtcontrole ADD
(
prs_kostenplaats_key
NUMBER(10)
CONSTRAINT ins_r_prs_kostenplaats_key1 REFERENCES prs_kostenplaats(prs_kostenplaats_key)
);
/* disciplineafhankelijke afdelingsbudgetten (=kostenplaatsbudgetten),
* vergelijkbaar met fac_profielwaarde voor persoonlijke budgetten
* als prs_kostenplaats_limiet gevuld is, dan wordt die gebruikt
@@ -373,10 +285,7 @@ CREATE_TABLE(prs_kostenplaatsdisc, 0) (
REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE,
prs_kostenplaatsdisc_limiet
NUMBER(8)
NOT NULL,
prs_kostenplaatsdisc_aanmaak
DATE
DEFAULT SYSDATE
NOT NULL
);
CREATE_TABLE(prs_afdeling,0)
@@ -404,8 +313,6 @@ CREATE_TABLE(prs_afdeling,0)
-- mld_adres_key
-- NUMBER(10)
-- CONSTRAINT alg_r_mld_adres_key2 REFERENCES mld_adres(mld_adres_key),
prs_afdeling_externid /* voor koppelingen met externe systemen, bijvoorbeeld een externe GUID */
VARCHAR2(128),
prs_afdeling_aanmaak
DATE
DEFAULT SYSDATE
@@ -425,12 +332,6 @@ ALTER TABLE alg_terreinsector ADD
NUMBER(10)
CONSTRAINT alg_r_prs_afdeling1 REFERENCES prs_afdeling(prs_afdeling_key)
);
ALTER TABLE fac_idp ADD
(
prs_afdeling_key
NUMBER(10)
CONSTRAINT alg_r_idp_prs_afdeling REFERENCES prs_afdeling(prs_afdeling_key) ON DELETE CASCADE
);
CREATE_TABLE(prs_srtperslid,0)
(
@@ -634,23 +535,8 @@ CREATE_TABLE(prs_perslid,0)
prs_perslid_verwijder
DATE
DEFAULT NULLDATUM,
prs_perslid_inactief
DATE,
prs_perslid_options // JSON
VARCHAR2(4000),
prs_perslid_credentials_datum /* wanneer voor het laatst gewijzigd. Oudere sessie ongeldig */
DATE
DEFAULT SYSDATE NOT NULL,
prs_perslid_externid /* voor koppelingen met externe systemen, bijvoorbeeld een externe GUID */
VARCHAR2(128),
prs_perslid_externoslogin -- SCIM only, not uppercased
VARCHAR2(30),
prs_perslid_terms_datum
DATE,
prs_perslid_terms_version /* filename of accepted terms of condition */
VARCHAR2(200),
prs_perslid_timezone
VARCHAR2(40),
CONSTRAINT prs_c_prs_perslid_datums CHECK(prs_perslid_einddatum >= prs_perslid_ingangsdatum)
);
@@ -719,11 +605,6 @@ ALTER TABLE fac_bookmark ADD (
NUMBER(10)
CONSTRAINT fac_r_prs_perslid_key4 REFERENCES prs_perslid(prs_perslid_key)
);
ALTER TABLE fac_menu ADD (
prs_perslid_key
NUMBER(10)
CONSTRAINT fac_r_prs_perslid_key7 REFERENCES prs_perslid (prs_perslid_key) ON DELETE CASCADE
);
ALTER TABLE fac_qvw_ticket ADD (
prs_perslid_key
NUMBER(10)
@@ -739,21 +620,12 @@ ALTER TABLE fac_gui_counter ADD (
NUMBER(10)
CONSTRAINT fac_r_guicnt_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
);
ALTER TABLE alg_gebouw ADD (
ALTER TABLE alg_gebouw ADD
(
prs_perslid_key_verantw
NUMBER(10)
CONSTRAINT alg_r_prs_perslid_key1 REFERENCES prs_perslid(prs_perslid_key),
prs_perslid_key_verantw2
NUMBER(10)
CONSTRAINT alg_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key)
CONSTRAINT alg_r_prs_perslid_key1 REFERENCES prs_perslid(prs_perslid_key)
);
ALTER TABLE prs_bedrijfadres
ADD prs_bedrijfadres_lockuser_key
NUMBER(10)
CONSTRAINT prs_r_prs_bedrijfadres_lckser REFERENCES prs_perslid(prs_perslid_key);
ALTER TABLE prs_kostenplaatsgrp ADD
(
prs_perslid_key
@@ -799,19 +671,6 @@ ADD
CONSTRAINT ins_r_prs_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
);
ALTER TABLE fac_kenmwaarden
ADD
(
prs_perslid_key
NUMBER(10)
CONSTRAINT fac_r_prs_perslid_key8 REFERENCES prs_perslid(prs_perslid_key),
CONSTRAINT fac_c_prs_perslid_key1 CHECK(prs_perslid_key IS NOT NULL)
);
ALTER TABLE fac_kenmwaarden
ADD
CONSTRAINT fac_u_fac_kenmwaarden UNIQUE(fac_kenmwaarden_module, fac_kenmwaarden_refkey, fac_kenmwaarden_kenmerk_key, prs_perslid_key);
ALTER TABLE fac_setting ADD
(
prs_perslid_key
@@ -819,23 +678,6 @@ ALTER TABLE fac_setting ADD
CONSTRAINT prs_perslid_key12 REFERENCES prs_perslid (prs_perslid_key)
);
ALTER TABLE fac_audit ADD
(
prs_perslid_key
NUMBER(10)
CONSTRAINT fac_r_prs_perslid_key9 REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
);
ALTER TABLE prs_kostenplaatsgrp
ADD prs_kostenplaatsgrp_fiat2_key
NUMBER(10)
CONSTRAINT prs_r_prs_perslid_key18 REFERENCES prs_perslid(prs_perslid_key);
ALTER TABLE prs_kostenplaatsgrp
ADD prs_kostenplaatsgrp_fiat3_key
NUMBER(10)
CONSTRAINT prs_r_prs_perslid_key19 REFERENCES prs_perslid(prs_perslid_key);
COMMENT ON COLUMN prs_kostenplaats.prs_perslid_key IS 'Budgethouder';
// key_alt is een vervanger voor key als frontend
@@ -877,10 +719,7 @@ CREATE_TABLE(prs_perslidkostenplaats,0)
prs_perslidkostenplaats_inzage
NUMBER(1)
DEFAULT 1
CONSTRAINT prs_c_prs_pkp_inzage CHECK(prs_perslidkostenplaats_inzage IN (0,1)),
prs_perslidkostenplaats_aanmk
DATE
DEFAULT SYSDATE
CONSTRAINT prs_c_prs_pkp_inzage CHECK(prs_perslidkostenplaats_inzage IN (0,1))
);
// Had voor hetzelfde geld prs_afdelingruimte geheten
@@ -965,7 +804,7 @@ CREATE_TABLE(prs_kenmerk,0)
,prs_kenmerk_kenmerktype
VARCHAR2(1)
CONSTRAINT prs_c_prs_kenmerk_type2 CHECK
(prs_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
(prs_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
,prs_kenmerk_systeem
NUMBER(1)
,prs_kenmerk_toonbaar
@@ -1051,7 +890,7 @@ prs_contactpersoon_fax
prs_contactpersoon_email
VARCHAR2(50),
prs_contactpersoon_functie
VARCHAR2(60),
VARCHAR2(30),
prs_contactpersoon_opmerking
VARCHAR2(255),
prs_contactpersoon_uurloon
@@ -1159,25 +998,21 @@ CREATE_TABLE(prs_kostensoort,0) (
prs_kostensoort_refcode -- bv grootboeknr
VARCHAR2(60),
prs_kostensoort_doorbelasten -- 1=Ja
NUMBER(1) DEFAULT(1)
CONSTRAINT prs_c_prs_kostensoort_doorbel CHECK(prs_kostensoort_doorbelasten IN (0,1)),
NUMBER(1) DEFAULT(1)
CONSTRAINT prs_c_prs_kostensoort_doorbel CHECK(prs_kostensoort_doorbelasten IN (0,1)),
prs_kostensoort_btw -- BTW doorbelasten 1=Incl.
NUMBER(1) DEFAULT(1)
CONSTRAINT prs_c_prs_kostensoort_btw CHECK(prs_kostensoort_btw IN (0,1)),
NUMBER(1) DEFAULT(1)
CONSTRAINT prs_c_prs_kostensoort_btw CHECK(prs_kostensoort_btw IN (0,1)),
prs_kostenplaats_key
NUMBER(10)
CONSTRAINT prs_r_prs_kostenplaats_key3 REFERENCES prs_kostenplaats(prs_kostenplaats_key),
NUMBER(10)
CONSTRAINT prs_r_prs_kostenplaats_key3 REFERENCES prs_kostenplaats(prs_kostenplaats_key),
prs_kostensoortgrp_key
NUMBER(10)
NOT NULL
CONSTRAINT prs_r_prs_kostensoortgrp_key REFERENCES prs_kostensoortgrp(prs_kostensoortgrp_key),
CONSTRAINT prs_r_prs_kostensoortgrp_key REFERENCES prs_kostensoortgrp(prs_kostensoortgrp_key) ON DELETE SET NULL,
prs_kostensoort_aanmaak
DATE DEFAULT SYSDATE,
prs_kostensoort_altcode
VARCHAR2(60)
-- fin_btwtabelwaarde_key
-- NUMBER(10)
-- CONSTRAINT prs_r_fin_btwtabelwaarde_key REFERENCES fin_btwtabelwaarde (fin_btwtabelwaarde_key)
);
ALTER TABLE ins_tab_discipline ADD
@@ -1195,10 +1030,7 @@ CREATE_TABLE(prs_kostencombinatie,0) (
CONSTRAINT prs_r_prs_kostenplaatsgrp_key2 REFERENCES prs_kostenplaatsgrp(prs_kostenplaatsgrp_key) ON DELETE CASCADE,
prs_kostensoort_key
NUMBER(10) NOT NULL
CONSTRAINT prs_r_prs_kostensoort_key1 REFERENCES prs_kostensoort(prs_kostensoort_key) ON DELETE CASCADE,
prs_kostencombinatie_aanmaak
DATE
DEFAULT SYSDATE
CONSTRAINT prs_r_prs_kostensoort_key1 REFERENCES prs_kostensoort(prs_kostensoort_key) ON DELETE CASCADE
);
CREATE_TABLE(prs_staffel, 0)

85
PRS/PRS_TRI.SRC
View File

@@ -99,13 +99,6 @@ BEGIN
END;
/
AUDIT_BEGIN(prs_perslid)
IF NOT DELETING
THEN
AUDIT_VALUE(prs_perslid, prs_perslid_verwijder)
END IF;
AUDIT_END()
CREATE_TRIGGER(prs_t_prs_perslid_B_I)
BEFORE INSERT ON prs_perslid
FOR EACH ROW
@@ -208,17 +201,12 @@ BEGIN
UPDATE prs_contactpersoon
SET prs_perslid_key = NULL
WHERE prs_perslid_key = :old.prs_perslid_key;
-- Verwijder vervangingsregistraties heen en terug
DELETE FROM prs_collega
WHERE prs_perslid_key = :old.prs_perslid_key OR prs_perslid_key_alt = :old.prs_perslid_key;
BEGIN
-- Pak mijn autorisaties af
DELETE FROM FAC_GEBRUIKERSGROEP WHERE PRS_PERSLID_KEY = :old.prs_perslid_key;
-- Ook een stukje veiligheid
DELETE FROM fac_session WHERE prs_perslid_key = :old.prs_perslid_key;
DELETE FROM aut_client_perslid WHERE prs_perslid_key = :old.prs_perslid_key;
END;
-- Tenslotte: ruim de objecten die ik zelf mocht beheren op
-- Aandacht: zou nog steeds kunnen dat dit faalt, niet mekkeren, jammer dan
@@ -249,11 +237,8 @@ BEGIN
OR NVL(:new.prs_perslid_wachtwoord_hash, 'X') <> NVL(:old.prs_perslid_wachtwoord_hash, 'X')
THEN -- Merk op: anno 5.3.2 wordt een persoon die *nu* is ingelogd hier niet
-- automatisch door uitgelogd
:new.prs_perslid_credentials_datum := SYSDATE;
DELETE FROM fac_session
WHERE prs_perslid_key = :new.prs_perslid_key;
DELETE FROM aut_client_perslid
WHERE prs_perslid_key = :old.prs_perslid_key;
END IF;
END;
@@ -408,14 +393,6 @@ BEGIN
END;
/
CREATE_TRIGGER(prs_t_prs_bedrijfbedrijf_B_IU)
BEFORE INSERT OR UPDATE ON prs_bedrijf_bedrijf
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(prs_bedrijf_bedrijf_key, prs_s_prs_bedrijfbedrijf_key);
END;
/
CREATE_TRIGGER(prs_t_prs_bedrijfadres_B_I)
BEFORE INSERT ON prs_bedrijfadres
FOR EACH ROW
@@ -436,15 +413,17 @@ BEGIN
APPLICATION_ERROR(-20003, 'ALG_M238');
END IF;
IF :new.prs_kenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.prs_kenmerk_lengte IS NULL
IF (:new.prs_kenmerk_kenmerktype IN ('C','N'))
AND :new.prs_kenmerk_lengte IS NULL
THEN
APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
END IF;
IF :new.prs_kenmerk_kenmerktype IN ('N', 'B') AND :new.prs_kenmerk_lengte > 20
IF :new.prs_kenmerk_kenmerktype = 'N'
AND :new.prs_kenmerk_lengte > 20
THEN
:new.prs_kenmerk_lengte := 20;
END IF;
IF :new.prs_kenmerk_kenmerktype IN ('N', 'B') AND :old.prs_kenmerk_key IS NOT NULL
IF :new.prs_kenmerk_kenmerktype = 'N' AND :old.prs_kenmerk_key IS NOT NULL
THEN
-- An existing property of type N
IF :old.prs_kenmerk_nmin <> :new.prs_kenmerk_nmin OR
@@ -604,7 +583,7 @@ BEGIN
APPLICATION_ERROR_GOTO(-20004, 'ALG_M232,'|| KenmerkOmschr ||','
|| TO_CHAR(KenmerkLengte));
END IF;
ELSIF KenmerkType IN ('N', 'B')
ELSIF KenmerkType = 'N'
/*
** Number
*/
@@ -725,14 +704,6 @@ BEGIN
END;
/
AUDIT_BEGIN(prs_kostenplaatsgrp)
AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_oms)
AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_nr)
AUDIT_VALUE(prs_kostenplaatsgrp, prs_perslid_key)
AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_limiet)
AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_limperiode)
AUDIT_END()
CREATE_TRIGGER(prs_t_prs_kostenplaatsgrp_B_IU)
BEFORE INSERT OR UPDATE ON prs_kostenplaatsgrp
FOR EACH ROW
@@ -741,20 +712,6 @@ BEGIN
END;
/
AUDIT_BEGIN(prs_kostenplaats)
AUDIT_VALUE(prs_kostenplaats, prs_kostenplaats_nr)
AUDIT_VALUE(prs_kostenplaats, prs_kostenplaats_module)
AUDIT_VALUE(prs_kostenplaats, prs_kostenplaats_omschrijving)
AUDIT_VALUE(prs_kostenplaats, prs_perslid_key)
AUDIT_VALUE(prs_kostenplaats, prs_kostenplaatsgrp_key)
AUDIT_VALUE(prs_kostenplaats, prs_kostenplaats_extern)
AUDIT_VALUE(prs_kostenplaats, prs_kostenplaats_fiat)
AUDIT_VALUE(prs_kostenplaats, prs_kostenplaats_eind)
AUDIT_VALUE(prs_kostenplaats, prs_kostenplaats_limiet)
AUDIT_VALUE(prs_kostenplaats, prs_kostenplaats_limietperiode)
AUDIT_VALUE(prs_kostenplaats, prs_kostenplaats_verwijder)
AUDIT_END()
CREATE_TRIGGER(prs_t_prs_kostenplaats_B_IU)
BEFORE INSERT OR UPDATE ON prs_kostenplaats
FOR EACH ROW
@@ -769,12 +726,6 @@ BEGIN
END;
/
AUDIT_BEGIN(prs_kostenplaatsdisc)
AUDIT_VALUE(prs_kostenplaatsdisc, prs_kostenplaats_key)
AUDIT_VALUE(prs_kostenplaatsdisc, ins_discipline_key)
AUDIT_VALUE(prs_kostenplaatsdisc, prs_kostenplaatsdisc_limiet)
AUDIT_END()
CREATE_TRIGGER(prs_t_prs_kostenpltsdisc_B_IU)
BEFORE INSERT OR UPDATE ON prs_kostenplaatsdisc
FOR EACH ROW
@@ -783,13 +734,6 @@ BEGIN
END;
/
AUDIT_BEGIN(prs_perslidkostenplaats)
AUDIT_VALUE(prs_perslidkostenplaats, prs_perslid_key)
AUDIT_VALUE(prs_perslidkostenplaats, prs_kostenplaats_key)
AUDIT_VALUE(prs_perslidkostenplaats, prs_perslidkostenplaats_boeken)
AUDIT_VALUE(prs_perslidkostenplaats, prs_perslidkostenplaats_inzage)
AUDIT_END()
CREATE_TRIGGER(prs_t_prs_perslidkp_B_IU)
BEFORE INSERT OR UPDATE ON prs_perslidkostenplaats
FOR EACH ROW
@@ -814,16 +758,6 @@ BEGIN
END;
/
AUDIT_BEGIN(prs_kostensoort)
AUDIT_VALUE(prs_kostensoort, prs_kostensoort_oms)
AUDIT_VALUE(prs_kostensoort, prs_kostensoort_refcode)
AUDIT_VALUE(prs_kostensoort, prs_kostensoort_doorbelasten)
AUDIT_VALUE(prs_kostensoort, prs_kostensoort_btw)
AUDIT_VALUE(prs_kostensoort, prs_kostenplaats_key)
AUDIT_VALUE(prs_kostensoort, prs_kostensoortgrp_key)
AUDIT_VALUE(prs_kostensoort, prs_kostensoort_altcode)
AUDIT_END()
CREATE_TRIGGER(prs_t_prs_kostensoort_B_IU)
BEFORE INSERT OR UPDATE ON prs_kostensoort
FOR EACH ROW
@@ -833,11 +767,6 @@ BEGIN
END;
/
AUDIT_BEGIN(prs_kostencombinatie)
AUDIT_VALUE(prs_kostencombinatie, prs_kostenplaatsgrp_key)
AUDIT_VALUE(prs_kostencombinatie, prs_kostensoort_key)
AUDIT_END()
CREATE_TRIGGER(prs_t_prs_kostencomb_B_IU)
BEFORE INSERT OR UPDATE ON prs_kostencombinatie
FOR EACH ROW

464
PRS/PRS_VIE.SRC
View File

@@ -118,6 +118,7 @@ SELECT prs_perslid_key,
|| prs_perslid_naam prs_perslid_naam_friendly
FROM prs_v_aanwezigperslid p;
// FSN#546
CREATE_VIEW(prs_v_perslid_fullnames_all, 0) AS
SELECT prs_perslid_key,
prs_perslid_naam||DECODE(p.prs_perslid_voorletters,null,'',', '||p.prs_perslid_voorletters)
@@ -125,8 +126,7 @@ SELECT prs_perslid_key,
||DECODE(p.prs_perslid_voornaam,null,'',' ('||p.prs_perslid_voornaam||')') prs_perslid_naam_full,
DECODE (p.prs_perslid_voornaam, NULL, '', p.prs_perslid_voornaam || ' ')
|| DECODE (p.prs_perslid_tussenvoegsel, NULL, '', p.prs_perslid_tussenvoegsel || ' ')
|| prs_perslid_naam prs_perslid_naam_friendly,
prs_perslid_verwijder
|| prs_perslid_naam prs_perslid_naam_friendly
FROM prs_perslid p;
CREATE_VIEW (prs_v_afdeling_perslid,0)
@@ -235,107 +235,6 @@ SELECT '5' Niveau,
AND a5.prs_afdeling_parentkey=a4.prs_afdeling_key
AND a1.prs_afdeling_parentkey IS NULL;
-- De 'aanwezig'-variant van bovenstaande boom, en dat is handiger dan je denkt
-- Een aanwezige afdeling met ergens daarboven een parent die niet aanwezig is,
-- is effectief namelijk eigenlijk niet aanwezig.
-- Kan dus ook gebruikt worden om te checken of een afdeling echt nog aanwezig is
CREATE_VIEW (prs_v_aanwezigafdeling_boom, 0)
(
niveau,
prs_bedrijf_key,
prs_afdeling_key,
prs_afdeling_key1,
prs_afdeling_key2,
prs_afdeling_key3,
prs_afdeling_key4,
prs_afdeling_key5
)
AS
SELECT '1' niveau,
a1.prs_bedrijf_key,
a1.prs_afdeling_key,
a1.prs_afdeling_key,
TO_NUMBER (NULL),
TO_NUMBER (NULL),
TO_NUMBER (NULL),
TO_NUMBER (NULL)
FROM prs_afdeling a1
WHERE a1.prs_afdeling_parentkey IS NULL AND a1.prs_afdeling_verwijder IS NULL
UNION
SELECT '2' niveau,
a1.prs_bedrijf_key,
a2.prs_afdeling_key,
a1.prs_afdeling_key,
a2.prs_afdeling_key,
TO_NUMBER (NULL),
TO_NUMBER (NULL),
TO_NUMBER (NULL)
FROM prs_afdeling a1, prs_afdeling a2
WHERE a2.prs_afdeling_parentkey = a1.prs_afdeling_key
AND a1.prs_afdeling_parentkey IS NULL
AND a1.prs_afdeling_verwijder IS NULL
AND a2.prs_afdeling_verwijder IS NULL
UNION
SELECT '3' niveau,
a1.prs_bedrijf_key,
a3.prs_afdeling_key,
a1.prs_afdeling_key,
a2.prs_afdeling_key,
a3.prs_afdeling_key,
TO_NUMBER (NULL),
TO_NUMBER (NULL)
FROM prs_afdeling a1, prs_afdeling a2, prs_afdeling a3
WHERE a2.prs_afdeling_parentkey = a1.prs_afdeling_key
AND a3.prs_afdeling_parentkey = a2.prs_afdeling_key
AND a1.prs_afdeling_parentkey IS NULL
AND a1.prs_afdeling_verwijder IS NULL
AND a2.prs_afdeling_verwijder IS NULL
AND a3.prs_afdeling_verwijder IS NULL
UNION
SELECT '4' niveau,
a1.prs_bedrijf_key,
a4.prs_afdeling_key,
a1.prs_afdeling_key,
a2.prs_afdeling_key,
a3.prs_afdeling_key,
a4.prs_afdeling_key,
TO_NUMBER (NULL)
FROM prs_afdeling a1,
prs_afdeling a2,
prs_afdeling a3,
prs_afdeling a4
WHERE a2.prs_afdeling_parentkey = a1.prs_afdeling_key
AND a3.prs_afdeling_parentkey = a2.prs_afdeling_key
AND a4.prs_afdeling_parentkey = a3.prs_afdeling_key
AND a1.prs_afdeling_parentkey IS NULL
AND a1.prs_afdeling_verwijder IS NULL
AND a2.prs_afdeling_verwijder IS NULL
AND a3.prs_afdeling_verwijder IS NULL
AND a4.prs_afdeling_verwijder IS NULL
UNION
SELECT '5' niveau,
a1.prs_bedrijf_key,
a5.prs_afdeling_key,
a1.prs_afdeling_key,
a2.prs_afdeling_key,
a3.prs_afdeling_key,
a4.prs_afdeling_key,
a5.prs_afdeling_key
FROM prs_afdeling a1,
prs_afdeling a2,
prs_afdeling a3,
prs_afdeling a4,
prs_afdeling a5
WHERE a2.prs_afdeling_parentkey = a1.prs_afdeling_key
AND a3.prs_afdeling_parentkey = a2.prs_afdeling_key
AND a4.prs_afdeling_parentkey = a3.prs_afdeling_key
AND a5.prs_afdeling_parentkey = a4.prs_afdeling_key
AND a1.prs_afdeling_parentkey IS NULL
AND a1.prs_afdeling_verwijder IS NULL
AND a2.prs_afdeling_verwijder IS NULL
AND a3.prs_afdeling_verwijder IS NULL
AND a4.prs_afdeling_verwijder IS NULL
AND a5.prs_afdeling_verwijder IS NULL;
CREATE_VIEW(prs_v_afdeling_fullnames, 0)
( NIVEAU,
@@ -1180,23 +1079,7 @@ AS
FROM prs_kostenplaats k
UNION ALL
SELECT k.prs_perslid_key,
'PRS_BUDGETHOUDER_GROEP',
k.prs_kostenplaatsgrp_oms,
k.prs_kostenplaatsgrp_key,
NULL,
''
FROM prs_kostenplaatsgrp k
UNION ALL
SELECT k.prs_kostenplaatsgrp_fiat2_key,
'PRS_BUDGETHOUDER_GROEP',
k.prs_kostenplaatsgrp_oms,
k.prs_kostenplaatsgrp_key,
NULL,
''
FROM prs_kostenplaatsgrp k
UNION ALL
SELECT k.prs_kostenplaatsgrp_fiat3_key,
'PRS_BUDGETHOUDER_GROEP',
'PRS_BUDGETHOUDER_VAN',
k.prs_kostenplaatsgrp_oms,
k.prs_kostenplaatsgrp_key,
NULL,
@@ -1367,9 +1250,6 @@ AS
SELECT c.prs_perslid_key_eig
FROM cnt_contract c
UNION ALL
SELECT c.cnt_prs_perslid_key
FROM cnt_contract c
UNION ALL
SELECT m.prs_perslid_key
FROM mld_melding m
UNION ALL
@@ -1491,22 +1371,8 @@ AS
FROM prs_kostenplaatsgrp k
WHERE k.prs_perslid_key IS NOT NULL
UNION ALL
SELECT k.prs_kostenplaatsgrp_fiat2_key, k.prs_kostenplaatsgrp_key
FROM prs_kostenplaatsgrp k
WHERE k.prs_kostenplaatsgrp_fiat2_key IS NOT NULL
UNION ALL
SELECT k.prs_kostenplaatsgrp_fiat3_key, k.prs_kostenplaatsgrp_key
FROM prs_kostenplaatsgrp k
WHERE k.prs_kostenplaatsgrp_fiat3_key IS NOT NULL
UNION ALL
SELECT c.prs_perslid_key_beh, cnt_contract_key
FROM cnt_contract c
WHERE cnt_contract_verwijder IS NULL
AND cnt_contract_status = 0 /* actief */
AND cnt_contract_looptijd_tot > SYSDATE
UNION ALL
SELECT c.cnt_prs_perslid_key, cnt_contract_key
FROM cnt_contract c
WHERE cnt_contract_verwijder IS NULL
AND cnt_contract_status = 0 /* actief */
AND cnt_contract_looptijd_tot > SYSDATE;
@@ -1618,192 +1484,146 @@ CREATE_VIEW(prs_v_api_personen, 1) AS SELECT * from prs_v_aanwezigperslid;
/* ROOT VIEWS for User defined Reports (UDR) */
CREATE_VIEW(prs_v_udr_bedrijf, 0)
(
key,
naam,
postadres,
postpostcode,
postplaats,
postland,
adres,
postcode,
plaats,
land,
telefoon1,
telefoon2,
contactpersoon,
contacttelefoon,
opmerking1,
opmerking2,
uurloon,
leveranciernr,
overeenkomstnr,
overeenkomstdatum,
relatietype,
registratiedatum,
isleverancier,
isuitvoerende,
iscontract,
ishuurder,
isintern,
email,
dienst,
locatie,
gebouw,
district,
regio,
fclt_3d_locatie_key
)
AS
SELECT b.prs_bedrijf_key key,
prs_bedrijf_naam naam,
prs_bedrijf_post_adres postadres,
prs_bedrijf_post_postcode postpostcode,
prs_bedrijf_post_plaats postplaats,
prs_bedrijf_post_land postland,
prs_bedrijf_bezoek_adres adres,
prs_bedrijf_bezoek_postcode postcode,
prs_bedrijf_bezoek_plaats plaats,
prs_bedrijf_bezoek_land land,
prs_bedrijf_telefoon telefoon1,
prs_bedrijf_telefoon2 telefoon2,
prs_bedrijf_contact_persoon contactpersoon,
prs_bedrijf_contact_telefoon contacttelefoon,
prs_bedrijf_opmerking opmerking1,
prs_bedrijf_opmerking2 opmerking2,
prs_bedrijf_uurloon uurloon,
prs_leverancier_nr leveranciernr,
prs_overeenkomst_nr overeenkomstnr,
prs_overeenkomst_datum overeenkomstdatum,
lcl.x ('prs_relatietype_omschrijving',
r.prs_relatietype_key,
r.prs_relatietype_omschrijving)
relatietype,
prs_bedrijf_aanmaak registratiedatum,
DECODE (prs_bedrijf_leverancier, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isleverancier,
DECODE (prs_bedrijf_uitvoerende, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isuitvoerende,
DECODE (prs_bedrijf_contract, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) iscontract,
DECODE (prs_bedrijf_huurder, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) ishuurder,
DECODE (prs_bedrijf_intern, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isintern,
prs_bedrijf_email email,
lcl.x ('prs_dienst_omschrijving', d.prs_dienst_key, d.prs_dienst_omschrijving) dienst,
l.alg_locatie_omschrijving locatie,
lcl.l ('lcl_all') gebouw,
lcl.l ('lcl_all') district,
lcl.l ('lcl_all') regio,
bdl.alg_locatie_key fclt_3d_locatie_key
FROM prs_bedrijf b,
prs_bedrijfdienstlocatie bdl,
prs_dienst d,
prs_relatietype r,
alg_locatie l
WHERE prs_bedrijf_verwijder IS NULL
AND b.prs_bedrijf_key = bdl.prs_bedrijf_key(+)
AND d.prs_dienst_key(+) = bdl.prs_dienst_key
AND b.prs_relatietype_key = r.prs_relatietype_key(+)
AND l.alg_locatie_key = bdl.alg_locatie_key
UNION
SELECT b.prs_bedrijf_key key,
prs_bedrijf_naam naam,
prs_bedrijf_post_adres postadres,
prs_bedrijf_post_postcode postpostcode,
prs_bedrijf_post_plaats postplaats,
prs_bedrijf_post_land postland,
prs_bedrijf_bezoek_adres adres,
prs_bedrijf_bezoek_postcode postcode,
prs_bedrijf_bezoek_plaats plaats,
prs_bedrijf_bezoek_land land,
prs_bedrijf_telefoon telefoon1,
prs_bedrijf_telefoon2 telefoon2,
prs_bedrijf_contact_persoon contactpersoon,
prs_bedrijf_contact_telefoon contacttelefoon,
prs_bedrijf_opmerking opmerking1,
prs_bedrijf_opmerking2 opmerking2,
prs_bedrijf_uurloon uurloon,
prs_leverancier_nr leveranciernr,
prs_overeenkomst_nr overeenkomstnr,
prs_overeenkomst_datum overeenkomstdatum,
lcl.x ('prs_relatietype_omschrijving',
r.prs_relatietype_key,
r.prs_relatietype_omschrijving)
relatietype,
prs_bedrijf_aanmaak registratiedatum,
DECODE (prs_bedrijf_leverancier, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isleverancier,
DECODE (prs_bedrijf_uitvoerende, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isuitvoerende,
DECODE (prs_bedrijf_contract, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) iscontract,
DECODE (prs_bedrijf_huurder, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) ishuurder,
DECODE (prs_bedrijf_intern, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isintern,
prs_bedrijf_email email,
lcl.x ('prs_dienst_omschrijving', d.prs_dienst_key, d.prs_dienst_omschrijving) dienst,
l.alg_locatie_omschrijving locatie,
g.alg_gebouw_omschrijving gebouw,
ad.alg_district_omschrijving district,
ar.alg_regio_omschrijving regio,
bdl.alg_locatie_key fclt_3d_locatie_key
FROM prs_bedrijf b,
prs_bedrijfdienstlocatie bdl,
prs_dienst d,
prs_relatietype r,
alg_locatie l,
alg_gebouw g,
alg_regio ar,
alg_district ad
WHERE prs_bedrijf_verwijder IS NULL
AND b.prs_bedrijf_key = bdl.prs_bedrijf_key(+)
AND d.prs_dienst_key(+) = bdl.prs_dienst_key
AND b.prs_relatietype_key = r.prs_relatietype_key(+)
AND g.alg_locatie_key = l.alg_locatie_key
AND g.alg_gebouw_key = bdl.alg_gebouw_key
AND l.alg_district_key = ad.alg_district_key
AND ad.alg_regio_key = ar.alg_regio_key
UNION
SELECT b.prs_bedrijf_key key,
prs_bedrijf_naam naam,
prs_bedrijf_post_adres postadres,
prs_bedrijf_post_postcode postpostcode,
prs_bedrijf_post_plaats postplaats,
prs_bedrijf_post_land postland,
prs_bedrijf_bezoek_adres adres,
prs_bedrijf_bezoek_postcode postcode,
prs_bedrijf_bezoek_plaats plaats,
prs_bedrijf_bezoek_land land,
prs_bedrijf_telefoon telefoon1,
prs_bedrijf_telefoon2 telefoon2,
prs_bedrijf_contact_persoon contactpersoon,
prs_bedrijf_contact_telefoon contacttelefoon,
prs_bedrijf_opmerking opmerking1,
prs_bedrijf_opmerking2 opmerking2,
prs_bedrijf_uurloon uurloon,
prs_leverancier_nr leveranciernr,
prs_overeenkomst_nr overeenkomstnr,
prs_overeenkomst_datum overeenkomstdatum,
lcl.x ('prs_relatietype_omschrijving',
r.prs_relatietype_key,
r.prs_relatietype_omschrijving)
relatietype,
prs_bedrijf_aanmaak registratiedatum,
DECODE (prs_bedrijf_leverancier, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isleverancier,
DECODE (prs_bedrijf_uitvoerende, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isuitvoerende,
DECODE (prs_bedrijf_contract, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) iscontract,
DECODE (prs_bedrijf_huurder, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) ishuurder,
DECODE (prs_bedrijf_intern, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isintern,
prs_bedrijf_email email,
lcl.x ('prs_dienst_omschrijving', d.prs_dienst_key, d.prs_dienst_omschrijving) dienst,
lcl.l ('lcl_all') locatie,
lcl.l ('lcl_all') gebouw,
lcl.l ('lcl_all') district,
lcl.l ('lcl_all') regio,
NULL fclt_3d_locatie_key
FROM prs_bedrijf b,
prs_bedrijfdienstlocatie bdl,
prs_dienst d,
prs_relatietype r
WHERE prs_bedrijf_verwijder IS NULL
AND b.prs_bedrijf_key = bdl.prs_bedrijf_key(+)
AND d.prs_dienst_key(+) = bdl.prs_dienst_key
AND b.prs_relatietype_key = r.prs_relatietype_key(+)
AND bdl.alg_gebouw_key IS NULL
AND bdl.alg_locatie_key IS NULL;
SELECT b.prs_bedrijf_key key,
prs_bedrijf_naam naam,
prs_bedrijf_post_adres postadres,
prs_bedrijf_post_postcode postpostcode,
prs_bedrijf_post_plaats postplaats,
prs_bedrijf_post_land postland,
prs_bedrijf_bezoek_adres adres,
prs_bedrijf_bezoek_postcode postcode,
prs_bedrijf_bezoek_plaats plaats,
prs_bedrijf_bezoek_land land,
prs_bedrijf_telefoon telefoon1,
prs_bedrijf_telefoon2 telefoon2,
prs_bedrijf_contact_persoon contactpersoon,
prs_bedrijf_contact_telefoon contacttelefoon,
prs_bedrijf_opmerking opmerking1,
prs_bedrijf_opmerking2 opmerking2,
prs_bedrijf_uurloon uurloon,
prs_leverancier_nr leveranciernr,
prs_overeenkomst_nr overeenkomstnr,
prs_overeenkomst_datum overeenkomstdatum,
lcl.x ('prs_relatietype_omschrijving',
r.prs_relatietype_key,
r.prs_relatietype_omschrijving)
relatietype,
prs_bedrijf_aanmaak registratiedatum,
DECODE (prs_bedrijf_leverancier, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isleverancier,
DECODE (prs_bedrijf_uitvoerende, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isuitvoerende,
DECODE (prs_bedrijf_contract, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) iscontract,
DECODE (prs_bedrijf_huurder, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) ishuurder,
DECODE (prs_bedrijf_intern, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isintern,
prs_bedrijf_email email,
lcl.x ('prs_dienst_omschrijving', d.prs_dienst_key, d.prs_dienst_omschrijving) dienst,
l.alg_locatie_omschrijving locatie,
lcl.l ('lcl_all') gebouw,
bdl.alg_locatie_key fclt_3d_locatie_key
FROM prs_bedrijf b,
prs_bedrijfdienstlocatie bdl,
prs_dienst d,
prs_relatietype r,
alg_locatie l
WHERE prs_bedrijf_verwijder IS NULL
AND b.prs_bedrijf_key = bdl.prs_bedrijf_key(+)
AND d.prs_dienst_key(+) = bdl.prs_dienst_key
AND b.prs_relatietype_key = r.prs_relatietype_key(+)
AND l.alg_locatie_key = bdl.alg_locatie_key
UNION
SELECT b.prs_bedrijf_key key,
prs_bedrijf_naam naam,
prs_bedrijf_post_adres postadres,
prs_bedrijf_post_postcode postpostcode,
prs_bedrijf_post_plaats postplaats,
prs_bedrijf_post_land postland,
prs_bedrijf_bezoek_adres adres,
prs_bedrijf_bezoek_postcode postcode,
prs_bedrijf_bezoek_plaats plaats,
prs_bedrijf_bezoek_land land,
prs_bedrijf_telefoon telefoon1,
prs_bedrijf_telefoon2 telefoon2,
prs_bedrijf_contact_persoon contactpersoon,
prs_bedrijf_contact_telefoon contacttelefoon,
prs_bedrijf_opmerking opmerking1,
prs_bedrijf_opmerking2 opmerking2,
prs_bedrijf_uurloon uurloon,
prs_leverancier_nr leveranciernr,
prs_overeenkomst_nr overeenkomstnr,
prs_overeenkomst_datum overeenkomstdatum,
lcl.x ('prs_relatietype_omschrijving',
r.prs_relatietype_key,
r.prs_relatietype_omschrijving)
relatietype,
prs_bedrijf_aanmaak registratiedatum,
DECODE (prs_bedrijf_leverancier, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isleverancier,
DECODE (prs_bedrijf_uitvoerende, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isuitvoerende,
DECODE (prs_bedrijf_contract, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) iscontract,
DECODE (prs_bedrijf_huurder, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) ishuurder,
DECODE (prs_bedrijf_intern, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isintern,
prs_bedrijf_email email,
lcl.x ('prs_dienst_omschrijving', d.prs_dienst_key, d.prs_dienst_omschrijving) dienst,
l.alg_locatie_omschrijving locatie,
g.alg_gebouw_omschrijving gebouw,
bdl.alg_locatie_key fclt_3d_locatie_key
FROM prs_bedrijf b,
prs_bedrijfdienstlocatie bdl,
prs_dienst d,
prs_relatietype r,
alg_locatie l,
alg_gebouw g
WHERE prs_bedrijf_verwijder IS NULL
AND b.prs_bedrijf_key = bdl.prs_bedrijf_key(+)
AND d.prs_dienst_key(+) = bdl.prs_dienst_key
AND b.prs_relatietype_key = r.prs_relatietype_key(+)
AND g.alg_locatie_key = l.alg_locatie_key
AND g.alg_gebouw_key = bdl.alg_gebouw_key
UNION
SELECT b.prs_bedrijf_key key,
prs_bedrijf_naam naam,
prs_bedrijf_post_adres postadres,
prs_bedrijf_post_postcode postpostcode,
prs_bedrijf_post_plaats postplaats,
prs_bedrijf_post_land postland,
prs_bedrijf_bezoek_adres adres,
prs_bedrijf_bezoek_postcode postcode,
prs_bedrijf_bezoek_plaats plaats,
prs_bedrijf_bezoek_land land,
prs_bedrijf_telefoon telefoon1,
prs_bedrijf_telefoon2 telefoon2,
prs_bedrijf_contact_persoon contactpersoon,
prs_bedrijf_contact_telefoon contacttelefoon,
prs_bedrijf_opmerking opmerking1,
prs_bedrijf_opmerking2 opmerking2,
prs_bedrijf_uurloon uurloon,
prs_leverancier_nr leveranciernr,
prs_overeenkomst_nr overeenkomstnr,
prs_overeenkomst_datum overeenkomstdatum,
lcl.x ('prs_relatietype_omschrijving',
r.prs_relatietype_key,
r.prs_relatietype_omschrijving)
relatietype,
prs_bedrijf_aanmaak registratiedatum,
DECODE (prs_bedrijf_leverancier, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isleverancier,
DECODE (prs_bedrijf_uitvoerende, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isuitvoerende,
DECODE (prs_bedrijf_contract, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) iscontract,
DECODE (prs_bedrijf_huurder, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) ishuurder,
DECODE (prs_bedrijf_intern, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) isintern,
prs_bedrijf_email email,
lcl.x ('prs_dienst_omschrijving', d.prs_dienst_key, d.prs_dienst_omschrijving) dienst,
lcl.l ('lcl_all') locatie,
lcl.l ('lcl_all') gebouw,
NULL fclt_3d_locatie_key
FROM prs_bedrijf b,
prs_bedrijfdienstlocatie bdl,
prs_dienst d,
prs_relatietype r
WHERE prs_bedrijf_verwijder IS NULL
AND b.prs_bedrijf_key = bdl.prs_bedrijf_key(+)
AND d.prs_dienst_key(+) = bdl.prs_dienst_key
AND b.prs_relatietype_key = r.prs_relatietype_key(+)
AND bdl.alg_gebouw_key IS NULL
AND bdl.alg_locatie_key IS NULL;
REGISTERRUN('$Id$')
#endif // PRS

Some files were not shown because too many files have changed in this diff Show More