800 lines
38 KiB
C
800 lines
38 KiB
C
#ifndef _COMSQL_H
|
|
#define _COMSQL_H
|
|
/*
|
|
* COMSQL.H
|
|
* $Revision$
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Opmerkingen:
|
|
* - gebruik ~ waar een \n gewenst is (zie bv. CREATE_TABLE())
|
|
*/
|
|
|
|
#define STRINGIZE(a) #@a
|
|
#define _EVALCONCAT(a, b) a ## b
|
|
#define EVALCONCAT(a, b) _EVALCONCAT(a, b)
|
|
#define _MKSTRING(a) STRINGIZE(a)
|
|
|
|
/*
|
|
* The database schema version must increase with every release
|
|
* It is now defined by external macro _DBV
|
|
*/
|
|
/* The minimum required software version */
|
|
#define _VERSIONMAJ 2019
|
|
#define _VERSIONMIN 1
|
|
#define _VERSIONPATCH '0'
|
|
#define _VERSION '2019.1.0'
|
|
#define _DBV_STRING _MKSTRING(_DBV)
|
|
|
|
#define REGISTERONCE(svnid) \
|
|
BEGIN adm.systrackscriptId(svnid, 1); END;~/
|
|
|
|
#define REGISTERRUN(svnid) \
|
|
BEGIN adm.systrackscriptId(svnid, 0); END;~/
|
|
|
|
#define SET_VERWIJDER_CHILDREN(child_table, parent_key, parent_verwijder, \
|
|
child_verwijder, table) \
|
|
BEGIN \
|
|
IF (:new.parent_verwijder IS NOT NULL AND :old.parent_verwijder IS NULL) \
|
|
THEN \
|
|
UPDATE child_table \
|
|
SET child_verwijder = :new.parent_verwijder \
|
|
WHERE \
|
|
child_table.parent_key = :new.parent_key \
|
|
AND child_verwijder IS NULL; \
|
|
END IF; \
|
|
END
|
|
|
|
#define CHECK_REFERENCE_UITVOERENDE(key_veld, message) \
|
|
DECLARE \
|
|
dummy CHAR; \
|
|
BEGIN \
|
|
IF :new.key_veld IS NOT NULL \
|
|
THEN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM mld_v_uitvoerende \
|
|
WHERE MLD_UITVOERENDE_KEY = :new.key_veld; \
|
|
END IF; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
APPLICATION_ERROR(-20000, message); \
|
|
END
|
|
|
|
#define CHECK_KEY_REFERENCE(table, primary_key, ref_key, message) \
|
|
DECLARE \
|
|
dummy NUMBER(10); \
|
|
mutating_table EXCEPTION; \
|
|
PRAGMA EXCEPTION_INIT(mutating_table, -4091); \
|
|
BEGIN \
|
|
SELECT primary_key \
|
|
INTO dummy \
|
|
FROM table \
|
|
WHERE primary_key = ref_key; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND \
|
|
THEN APPLICATION_ERROR(-20000, message); \
|
|
WHEN mutating_table \
|
|
_THEN NULL; \
|
|
END
|
|
|
|
|
|
#define CREATE_TYPE(type_name) \
|
|
CREATE TYPE type_name
|
|
|
|
#define CREATE_TABLE(table_name, level) \
|
|
CREATE TABLE table_name
|
|
|
|
#define _SPOOL(x) \
|
|
SPOOL x
|
|
|
|
#define _EQ_OLD(x,y) \
|
|
x = :old.y
|
|
|
|
#define PROMPT1(x) \
|
|
PROMPT x
|
|
#define PROMPT2(x,y) \
|
|
PROMPT x,y
|
|
|
|
#define _INTO_VAR(x) \
|
|
INTO x
|
|
|
|
#define CREATE_SEQUENCE(sequence_name, minval) \
|
|
CREATE SEQUENCE sequence_name MINVALUE minval;
|
|
|
|
#define CREATE_VIEW(view_name, level) \
|
|
CREATE OR REPLACE FORCE VIEW view_name
|
|
|
|
#define CREATE_TRIGGER(trigger_name) \
|
|
CREATE OR REPLACE TRIGGER trigger_name
|
|
|
|
#define _END_TRIGGER() \
|
|
END;~/
|
|
|
|
#define CREATE_PROCEDURE(pack_name, proc_name) \
|
|
CREATE OR REPLACE PROCEDURE proc_name
|
|
|
|
#define MONEY \
|
|
NUMBER
|
|
|
|
#define VARCHAR \
|
|
VARCHAR2
|
|
|
|
#define _LONG_RAW \
|
|
LONG RAW
|
|
|
|
#define _CONCAT \
|
|
||
|
|
|
|
#define _ALTER_MODIFY_START \
|
|
MODIFY
|
|
|
|
#define _ALTER_ADD_START \
|
|
ADD (
|
|
|
|
#define _ALTER_END \
|
|
)
|
|
|
|
#define _IDENTITY(x,y)
|
|
|
|
#define _TYPE(tab,fld) \
|
|
tab.fld%TYPE
|
|
|
|
#define _CREATE_OR_REPLACE \
|
|
CREATE OR REPLACE
|
|
|
|
#define _RETURN_LENGTH(x) \
|
|
|
|
#define _DECLARE_VAR(x) \
|
|
x
|
|
|
|
#define _SET_VAR(x) \
|
|
x
|
|
|
|
#define _VAR(x) \
|
|
x
|
|
|
|
#define _ASSIGN \
|
|
:=
|
|
|
|
#define _RETURNS \
|
|
RETURN
|
|
|
|
#define _AS \
|
|
IS
|
|
|
|
#define _GO \
|
|
;
|
|
|
|
#define _GO2 \
|
|
;~/
|
|
|
|
#define _NOTFOUND(x) \
|
|
x%NOTFOUND
|
|
|
|
#define INSTR2(a, b) \
|
|
INSTR(a, b)
|
|
|
|
#define SUBSTR2 \
|
|
SUBSTR
|
|
|
|
#define TRUNC_DATE \
|
|
TRUNC
|
|
|
|
#define _LOOP \
|
|
loop
|
|
|
|
#define _FOR(i,a,b) \
|
|
FOR i in a .. b loop
|
|
|
|
#define _END_LOOP \
|
|
end loop
|
|
|
|
#define _EXIT \
|
|
exit
|
|
|
|
#define _FROM_DUAL \
|
|
FROM DUAL
|
|
|
|
#define _EXEC0(p) \
|
|
p
|
|
|
|
#define _EXEC1(p,a1) \
|
|
p(a1)
|
|
|
|
#define _EXEC2(p,a1,a2) \
|
|
p(a1,a2)
|
|
|
|
#define _EXEC3(p,a1,a2,a3) \
|
|
p(a1,a2,a3)
|
|
|
|
#define _EXEC4(p,a1,a2,a3, a4) \
|
|
p(a1,a2,a3,a4)
|
|
|
|
#define _EXEC5(p,a1,a2,a3,a4,a5) \
|
|
p(a1,a2,a3,a4,a5)
|
|
|
|
#define _EXEC6(p,a1,a2,a3,a4,a5,a6) \
|
|
p(a1,a2,a3,a4,a5,a6)
|
|
|
|
|
|
#define _INTO1(x)
|
|
#define _INTO2(x) \
|
|
INTO x
|
|
#define _INTO3(x) \
|
|
,x
|
|
|
|
#define UPDATE_UPPER(omschrijving, upper_omschrijving,tab) \
|
|
:new.upper_omschrijving := UPPER(:new.omschrijving)
|
|
|
|
#define UPDATE_AANMAAKDATUM(TableName, Datum_veld) \
|
|
BEGIN \
|
|
IF :new.Datum_veld IS NULL \
|
|
THEN \
|
|
:new.Datum_veld := SYSDATE; \
|
|
END IF; \
|
|
END
|
|
|
|
|
|
#define _CC \
|
|
||
|
|
|
|
#define _OPLUS \
|
|
(+)
|
|
|
|
#define _OSTAR
|
|
|
|
#define _DECODE_BEGIN \
|
|
DECODE(
|
|
|
|
#define _DECODE_WHEN \
|
|
,
|
|
|
|
#define _DECODE_THEN \
|
|
,
|
|
|
|
#define _DECODE_ELSE \
|
|
,
|
|
|
|
#define _DECODE_END \
|
|
)
|
|
|
|
#define _THEN \
|
|
THEN
|
|
|
|
#define _FOUND(x) \
|
|
x%FOUND = TRUE
|
|
|
|
#define _IN_PACKAGE(pak,fp,fname) \
|
|
fp fname
|
|
|
|
#define _INPUT \
|
|
IN
|
|
|
|
#define _OUTPUT(x) \
|
|
OUT x
|
|
|
|
#define _DATEPART(x,y) \
|
|
TO_CHAR(x,#@y)
|
|
|
|
#define DATE_TO_CHAR \
|
|
TO_CHAR
|
|
|
|
#define NUMBER_TO_CHAR \
|
|
TO_CHAR
|
|
|
|
#define _MOD \
|
|
MOD
|
|
|
|
#define _NUM2HM(x) \
|
|
TO_NUMBER(TO_CHAR(x,'HH24.MI'))
|
|
|
|
#define _TO_CHAR(x) \
|
|
TO_CHAR(x)
|
|
|
|
#define _TO_NUMBER(x) \
|
|
TO_NUMBER(x)
|
|
|
|
#define _TO_NUMBER2(x,y) \
|
|
TO_NUMBER(x,y)
|
|
|
|
#define _TO_NUMBER3(x,y,z) \
|
|
TO_NUMBER(x,y,z)
|
|
|
|
#define _TO_DATE(x) \
|
|
TO_DATE(x)
|
|
|
|
#define _TO_DATE2(x,y) \
|
|
TO_DATE(x,y)
|
|
|
|
#define _DECLARE_CURSOR(x) \
|
|
CURSOR x
|
|
|
|
#define _CURSOR_PARAM(x) \
|
|
(x)
|
|
|
|
#define _CURSOR_PARAM2(x,y) \
|
|
(x,y)
|
|
|
|
#define _CURSOR_PARAM3(x,y,z) \
|
|
(x,y,z)
|
|
|
|
#define _CURSOR_FOR \
|
|
IS
|
|
|
|
#define _OPEN_CURSOR1(query, s, rec) \
|
|
FOR rec IN query LOOP
|
|
|
|
#define _OPEN_CURSOR2(query, s, rec, key) \
|
|
FOR rec IN query(key) LOOP
|
|
// , val s := rec.val;
|
|
|
|
#define _CLOSE_CURSOR(query, s) \
|
|
END LOOP;
|
|
|
|
|
|
#define _BEGIN_SQLS_PROC \
|
|
AS
|
|
|
|
#define _BEGIN_ORA_PROC \
|
|
BEGIN
|
|
|
|
#define _END_PROC \
|
|
END;~/
|
|
|
|
#define _END_IF \
|
|
END IF;
|
|
|
|
#define _ELSE \
|
|
ELSE
|
|
|
|
#define _ELSIF \
|
|
ELSIF
|
|
|
|
#define _FAC_MODULE(module,omschrijving) \
|
|
INSERT INTO fac_module (fac_module_name, fac_module_version, fac_module_date, fac_module_remark, fac_module_extern) \
|
|
VALUES (module,_VERSION,TO_CHAR(SYSDATE,'YYYYMMDD'),omschrijving, 1);
|
|
|
|
#define APPLICATION_ERROR(code,text) raise_application_error(code, text)
|
|
|
|
#define APPLICATION_ERROR_GOTO(code,text) raise_application_error(code, text)
|
|
|
|
#define UPDATE_PRIMARY_KEY(primary_key, sequence_primary_key) \
|
|
IF :new.primary_key IS NULL \
|
|
THEN SELECT sequence_primary_key.nextval INTO :new.primary_key \
|
|
FROM DUAL; \
|
|
END IF
|
|
|
|
#define CHECK_UNIQUE_OMSCHRIJVING(tabel, upper_omschrijving, \
|
|
exc_msg_GEEN_OMSCHRIJVING, \
|
|
exc_msg_BESTAANDE_OMSCHRIJVING) \
|
|
DECLARE \
|
|
dummy CHAR := 'N'; \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM tabel \
|
|
GROUP BY upper_omschrijving \
|
|
HAVING COUNT(*) > 1; \
|
|
APPLICATION_ERROR(-20001, exc_msg_BESTAANDE_OMSCHRIJVING); \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND \
|
|
THEN NULL; \
|
|
\
|
|
WHEN TOO_MANY_ROWS \
|
|
THEN APPLICATION_ERROR(-20001, exc_msg_BESTAANDE_OMSCHRIJVING); \
|
|
END
|
|
|
|
#define CHECK_UNIQUE_KEY_OMSCHRIJVING(tabel, key, upper_omschrijving, \
|
|
exc_msg_GEEN_OMSCHRIJVING, \
|
|
exc_msg_BESTAANDE_OMSCHRIJVING) \
|
|
DECLARE \
|
|
dummy CHAR := 'N'; \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM tabel \
|
|
GROUP BY key, upper_omschrijving \
|
|
HAVING COUNT(*) > 1; \
|
|
APPLICATION_ERROR(-20001, exc_msg_BESTAANDE_OMSCHRIJVING); \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND \
|
|
THEN NULL; \
|
|
\
|
|
WHEN TOO_MANY_ROWS \
|
|
THEN APPLICATION_ERROR(-20001, exc_msg_BESTAANDE_OMSCHRIJVING); \
|
|
END
|
|
|
|
#define CHECK_UNIQUE_DEEL_KEY_OMSCHRIJVING(tabel, up_key, naast_key, \
|
|
upper_omschrijving, exc_msg_GEEN_OMSCHRIJVING, \
|
|
exc_msg_BESTAANDE_OMSCHRIJVING) \
|
|
DECLARE \
|
|
dummy CHAR := 'N'; \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM tabel \
|
|
GROUP BY up_key, naast_key, upper_omschrijving \
|
|
HAVING COUNT(*) > 1; \
|
|
APPLICATION_ERROR(-20001, exc_msg_BESTAANDE_OMSCHRIJVING); \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND \
|
|
THEN NULL; \
|
|
\
|
|
WHEN TOO_MANY_ROWS \
|
|
THEN APPLICATION_ERROR(-20001, exc_msg_BESTAANDE_OMSCHRIJVING); \
|
|
END
|
|
|
|
#define LAAT_VERDIEPING_VERVALLEN_VOOR_GEBOUW(exc_msg_VERDIEPING_IN_GEBRUIK) \
|
|
BEGIN \
|
|
IF :new.alg_gebouw_verwijder IS NOT NULL \
|
|
AND :old.alg_gebouw_verwijder IS NULL \
|
|
THEN \
|
|
UPDATE alg_verdieping \
|
|
SET alg_verdieping_verwijder = :new.alg_gebouw_verwijder \
|
|
WHERE \
|
|
alg_verdieping.alg_gebouw_key = :new.alg_gebouw_key \
|
|
AND alg_verdieping_verwijder IS NULL; \
|
|
END IF; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND \
|
|
THEN APPLICATION_ERROR(-20000, exc_msg_VERDIEPING_IN_GEBRUIK); \
|
|
\
|
|
WHEN TOO_MANY_ROWS \
|
|
THEN APPLICATION_ERROR(-20000, exc_msg_VERDIEPING_IN_GEBRUIK); \
|
|
END
|
|
|
|
#define LAAT_RUIMTE_VERVALLEN_VOOR_VERDIEPING(exc_msg_RUIMTE_IN_GEBRUIK) \
|
|
BEGIN \
|
|
IF :new.alg_verdieping_verwijder IS NOT NULL \
|
|
AND :old.alg_verdieping_verwijder IS NULL \
|
|
THEN \
|
|
UPDATE alg_ruimte \
|
|
SET alg_ruimte_verwijder = :new.alg_verdieping_verwijder \
|
|
WHERE \
|
|
alg_ruimte.alg_verdieping_key = :new.alg_verdieping_key \
|
|
AND alg_ruimte_verwijder IS NULL; \
|
|
END IF; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND \
|
|
THEN APPLICATION_ERROR(-20000, exc_msg_RUIMTE_IN_GEBRUIK); \
|
|
\
|
|
WHEN TOO_MANY_ROWS \
|
|
THEN APPLICATION_ERROR(-20000, exc_msg_RUIMTE_IN_GEBRUIK); \
|
|
END
|
|
|
|
#define CHECK_NOG_REFERENCES(tabel,tabel_verwijder_veld,reference_view, \
|
|
key_veld,message) \
|
|
DECLARE \
|
|
dummy CHAR; \
|
|
BEGIN \
|
|
IF :new.tabel_verwijder_veld IS NOT NULLDATUM \
|
|
AND :old.tabel_verwijder_veld IS NULLDATUM \
|
|
THEN \
|
|
SELECT 'x' INTO dummy \
|
|
FROM reference_view \
|
|
WHERE reference_view.key_veld = :old.key_veld; \
|
|
APPLICATION_ERROR(-20000,message); \
|
|
END IF; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
NULL; \
|
|
WHEN TOO_MANY_ROWS THEN \
|
|
APPLICATION_ERROR(-20000,message); \
|
|
END
|
|
|
|
#define CHECK_REFERENCE_INST(key_veld, message) \
|
|
DECLARE \
|
|
dummy CHAR; \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM ins_v_aanwezigdeel \
|
|
WHERE ins_deel_key = :new.key_veld; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM ins_v_aanwezigonderdeel \
|
|
WHERE ins_onderdeel_key = :new.key_veld; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM ins_v_aanwezigelement \
|
|
WHERE ins_element_key = :new.key_veld; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
APPLICATION_ERROR(-20000, message); \
|
|
END; \
|
|
END; \
|
|
END
|
|
|
|
#define CHECK_REFERENCE_SRTINST(key_veld, message) \
|
|
DECLARE \
|
|
dummy CHAR; \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM ins_v_aanwezigsrtdeel \
|
|
WHERE ins_srtdeel_key = :new.key_veld; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM ins_v_aanwezigsrtonderdeel \
|
|
WHERE ins_srtonderdeel_key = :new.key_veld; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM ins_v_aanwezigsrtelement \
|
|
WHERE ins_srtelement_key = :new.key_veld; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
APPLICATION_ERROR(-20000, message); \
|
|
END; \
|
|
END; \
|
|
END
|
|
|
|
#define CHECK_REFERENCE_ONROERENDGOED(key_veld, message) \
|
|
DECLARE \
|
|
dummy CHAR; \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM alg_v_aanwezigruimte \
|
|
WHERE alg_ruimte_key = :new.key_veld; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM alg_v_aanwezigverdieping \
|
|
WHERE alg_verdieping_key = :new.key_veld; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM alg_v_aanweziggebouw \
|
|
WHERE alg_gebouw_key = :new.key_veld; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM alg_v_aanwezigterreinsector \
|
|
WHERE alg_terreinsector_key = :new.key_veld; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
APPLICATION_ERROR(-20000,message); \
|
|
END; \
|
|
END; \
|
|
END; \
|
|
END
|
|
|
|
#define CEIL \
|
|
CEIL
|
|
|
|
#define NULLDATUM NULL
|
|
|
|
#define CREATE_VOLGNR(volgnr_srt, volgnr_periode) \
|
|
INSERT INTO fac_volgnrs (fac_volgnr_srt, fac_volgnr_periode) \
|
|
VALUES(volgnr_srt, volgnr_periode)
|
|
|
|
|
|
#define UPDATE_VOLGNR(key_veld, fac_volgnr_srt) \
|
|
IF :new.key_veld IS NULL \
|
|
THEN \
|
|
:new.key_veld := FAC_P_FAC_VOLGNR.FAC_VOLGNR_NEXTVAL(fac_volgnr_srt); \
|
|
END IF
|
|
|
|
#define DEFINIEER_VIEW_AANWEZIG(table, verwijder_veld, view_name, level) \
|
|
CREATE_VIEW (view_name,level) AS \
|
|
SELECT * \
|
|
FROM table \
|
|
WHERE table.verwijder_veld IS NULLDATUM
|
|
|
|
#define CHECK_REFERENCE_DEFAULTUITV(key_veld, message) \
|
|
DECLARE \
|
|
dummy CHAR; \
|
|
BEGIN \
|
|
SELECT 'X' INTO dummy \
|
|
FROM mld_v_defaultuitv \
|
|
WHERE bco_defaultuitv_keys = :new.key_veld; \
|
|
EXCEPTION \
|
|
WHEN NO_DATA_FOUND THEN \
|
|
APPLICATION_ERROR(-20000, message); \
|
|
END
|
|
|
|
#define UPDATE_WEEKINGAVE(weekingave_veld) \
|
|
BEGIN \
|
|
:new.weekingave_veld := to_number( \
|
|
to_char(:new.mld_opdr_datumbegin, 'YYWW')); \
|
|
END
|
|
|
|
|
|
#define SET_VERWIJDER_CHILDREN2(child_table, parent_key, child_key, parent_verwijder, \
|
|
child_verwijder) \
|
|
BEGIN \
|
|
IF :new.parent_verwijder IS NOT NULL OR \
|
|
(:new.parent_verwijder IS NULL AND :old.parent_verwijder IS NOT NULL) \
|
|
THEN \
|
|
UPDATE child_table \
|
|
SET child_verwijder = :new.parent_verwijder \
|
|
WHERE \
|
|
child_table.child_key = :new.parent_key; \
|
|
END IF; \
|
|
END
|
|
|
|
|
|
#define DELETE_CHILDREN(child_table, parent_key) \
|
|
BEGIN \
|
|
DELETE FROM child_table \
|
|
WHERE child_table.parent_key = :new.parent_key; \
|
|
END
|
|
|
|
#define DEF_FAC_MESSAGE(a,b,c) INSERT INTO fac_message VALUES (a,b)
|
|
|
|
#define UPD_FAC_FUNCTIE2(c, o, m, l, d, g, i) UPDATE fac_functie SET fac_functie_omschrijving=o,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_FUNCTIE3x(c, x, 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||x, 'lcl_' || c ||x, m, l, d, g, 'lcl_' || c || x ||'_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, i) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_image, fac_menu_level) SELECT COALESCE(MAX(fac_menuitems_key),0)*100+50, s, g, i, 1 FROM fac_menuitems
|
|
#define DEF_MENUKOPV(g, v, s, i) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_image, fac_menu_level) VALUES (v, s, g, i, 1)
|
|
#define DEF_MENUITEM(g, l, i, m, u, s, d, f, rw, x, img) INSERT INTO fac_menuitems (fac_menuitems_groep, fac_menuitems_label, fac_menuitems_oms, fac_menuitems_module, fac_menuitems_url, fac_menuitems_srtdisc, fac_menuitems_disc, fac_functie_key, fac_menuitems_rw, fac_menuitems_default, fac_menuitems_image) SELECT g, l, i, m, u, s, d, fac_functie_key, rw, x, img FROM fac_functie WHERE fac_functie_code=f
|
|
|
|
#define DEF_MENUENTRY(g, v, l, i, m, u, s, d, f) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_info, fac_menu_alturl, fac_menu_altgroep, fac_functie_key) SELECT v, l, i, u, g, fac_functie_key FROM fac_functie WHERE fac_functie_code = f AND NOT EXISTS (SELECT '' FROM fac_menu WHERE fac_menu_alturl = u)
|
|
|
|
#define DEF_SETTING(m, n, d, t) INSERT INTO fac_setting (fac_setting_module, fac_setting_name, fac_setting_default, fac_setting_description) VALUES (m, n, d, t)
|
|
#define DEF_BOOKMARK(x, p, q)INSERT INTO fac_bookmark (fac_bookmark_id, fac_bookmark_naam, fac_bookmark_xmlnode, fac_bookmark_path, fac_bookmark_query) VALUES (DBMS_RANDOM.string ('a', 16), x, x, p, q)
|
|
// We begonnen te denken dat het om statussen ging, maar het werd meer. De naam van de macro bleef echter
|
|
#define DEF_STATUS(x, c, t)INSERT INTO fac_code2label (fac_code2label_domein ,fac_code2label_code, fac_code2label_label) VALUES (x, c, t)
|
|
|
|
// Voeg (nieuwe, default) menukop met label a van groep g en level l toe na bestaande menuoptie met label b, increment n
|
|
#define MENU_INSKOP_AFTER(a, b, g, n) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_level) SELECT fac_menu_volgnr + n, a, g, 1 FROM fac_menu m WHERE m.fac_menuitems_key = (SELECT MAX (mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
|
|
// Voeg (nieuwe, default) menuoptie met label a toe na de eerste bestaande menukop met label b, increment n
|
|
#define MENU_INS_AFTERKOP(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr) SELECT i.fac_menuitems_key, MIN (m.fac_menu_volgnr) + n FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX (mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menu_altlabel = b GROUP BY i.fac_menuitems_key
|
|
// Voeg (nieuwe, default) menuoptie met label a toe na bestaande menuoptie met label b, increment n
|
|
#define MENU_INS_AFTER(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr) SELECT i.fac_menuitems_key, m.fac_menu_volgnr + n FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
|
|
// poging 1
|
|
#define MENU_MOV_AFTER(b, a, n) UPDATE fac_menu SET fac_menu_volgnr = (SELECT m.fac_menu_volgnr + n FROM fac_menuitems i, fac_menu m WHERE m.fac_menuitems_key=i.fac_menuitems_key AND i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a)) WHERE fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
|
|
|
|
// NOT_NULL(): Columnconstraint ipv. NOT NULL, De melding ORA-1400: mandatory (NOT NULL)...
|
|
// geeft de constraintnaam niet, zodat de melding niet vertaald kan worden.
|
|
// De CHECK() geeft het wel, dus wordt deze gebruikt.
|
|
#define NOT_NULL(column, constraint_name) CONSTRAINT constraint_name CHECK(column IS NOT NULL)
|
|
|
|
#define DEF_IMPORT(aut, code, oms_nl, oms_en) \
|
|
DECLARE ~\
|
|
imp_key NUMBER(10); ~\
|
|
BEGIN ~\
|
|
INSERT INTO fac_import_app ~\
|
|
( fac_import_app_code, fac_import_app_oms, fac_functie_key ) ~\
|
|
VALUES ( UPPER(code), oms_nl ~\
|
|
, (SELECT fac_functie_key FROM fac_functie ~\
|
|
WHERE fac_functie_code = aut ~\
|
|
) ~\
|
|
) ~\
|
|
RETURNING fac_import_app_key INTO imp_key; ~\
|
|
INSERT INTO fac_locale (fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst) ~\
|
|
VALUES ('EN', imp_key, 'FAC_IMPORT_APP_OMS', oms_en); ~\
|
|
END; ~\
|
|
/ ~\
|
|
|
|
#define DEF_RAPPORT(aut, func, view, oms_nl, info_nl, oms_en, info_en) \
|
|
DECLARE ~\
|
|
rap_key NUMBER(10); ~\
|
|
BEGIN ~\
|
|
INSERT INTO fac_usrrap ~\
|
|
( fac_usrrap_omschrijving, fac_usrrap_view_name ~\
|
|
, fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum ~\
|
|
, fac_usrrap_functie, fac_usrrap_autorefresh ~\
|
|
, fac_usrrap_info ~\
|
|
, fac_functie_key ~\
|
|
) ~\
|
|
VALUES ( oms_nl, view, 0, 0, func, 0, info_nl ~\
|
|
, (SELECT fac_functie_key FROM fac_functie ~\
|
|
WHERE fac_functie_code = aut ~\
|
|
) ~\
|
|
) ~\
|
|
RETURNING fac_usrrap_key INTO rap_key; ~\
|
|
INSERT INTO fac_locale ( fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst) ~\
|
|
VALUES ('EN', rap_key, 'FAC_USRRAP_OMSCHRIJVING', oms_en); ~\
|
|
INSERT INTO fac_locale ( fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst) ~\
|
|
VALUES ('EN', rap_key, 'FAC_USRRAP_INFO', info_en); ~\
|
|
END; ~\
|
|
/ ~\
|
|
|
|
#define DEF_RAPPORT_COL(oms_nl, volgnr, col, f, d, t, v, label_nl, label_en) \
|
|
DECLARE ~\
|
|
col_key NUMBER(10); ~\
|
|
BEGIN ~\
|
|
INSERT INTO fac_usrrap_cols ~\
|
|
( fac_usrrap_key, fac_usrrap_cols_volgnr ~\
|
|
, fac_usrrap_cols_column_name, fac_usrrap_cols_caption ~\
|
|
, fac_usrrap_cols_filter, fac_usrrap_cols_filterdefault ~\
|
|
, fac_usrrap_cols_datatype, fac_usrrap_cols_visible ~\
|
|
) ~\
|
|
VALUES ( (SELECT fac_usrrap_key ~\
|
|
FROM fac_usrrap ~\
|
|
WHERE fac_usrrap_omschrijving = oms_nl ~\
|
|
) ~\
|
|
, volgnr, col, label_nl ~\
|
|
, f, d, t, v ~\
|
|
) ~\
|
|
RETURNING fac_usrrap_cols_key INTO col_key; ~\
|
|
/* INSERT INTO fac_locale ( fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst) */ ~\
|
|
/* VALUES ('EN', col_key, 'FAC_USRRAP_COLS_CAPTION', label_en); */ ~\
|
|
END; ~\
|
|
/ ~\
|
|
|
|
|
|
#define BEGIN_MODULE(m) \
|
|
DECLARE ~\
|
|
dummy VARCHAR2(1); ~\
|
|
BEGIN ~\
|
|
SELECT 'x'INTO dummy ~\
|
|
FROM fac_module ~\
|
|
WHERE fac_module_name = UPPER(#@m);
|
|
|
|
#define SQL_SPOOL(SQLRegel) \
|
|
dbms_output.put_line(#@SQLRegel);
|
|
|
|
#define END_MODULE(m) \
|
|
EXCEPTION ~\
|
|
WHEN NO_DATA_FOUND THEN dbms_output.put_line('--Module ' ||#@m|| ' niet aanwezig'); ~\
|
|
END; ~/
|
|
|
|
#define UPDMOD(m, n) \
|
|
BEGIN_MODULE(m) ~\
|
|
SQL_SPOOL(START n.m) ~\
|
|
END_MODULE(m)
|
|
|
|
#define START_LOCALEITEMS(dialect_id) \
|
|
DECLARE ~ \
|
|
v_dialect_id fac_localeitems.fac_localeitems_dialect_id%TYPE; ~ \
|
|
BEGIN ~ \
|
|
v_dialect_id := dialect_id; ~ \
|
|
insert into fac_localeitems ~ \
|
|
(fac_localeitems_dialect_id, fac_localeitems_lcl) ~ \
|
|
SELECT * FROM (
|
|
|
|
|
|
#define DEFINE_LOCALEITEM(lcl) \
|
|
SELECT v_dialect_id, STRINGIZE(lcl) FROM DUAL UNION ALL
|
|
|
|
#define END_LOCALEITEMS() \
|
|
SELECT 'a', 'b' FROM DUAL WHERE 1=0) ~ \
|
|
MINUS select fac_localeitems_dialect_id, fac_localeitems_lcl FROM fac_localeitems; ~ \
|
|
END; ~\
|
|
/ ~ \
|
|
COMMIT;
|
|
|
|
#define AUDIT_BEGIN(table) ~\
|
|
CREATE OR REPLACE TRIGGER aud_t_##table## ~\
|
|
AFTER INSERT OR UPDATE OR DELETE ON table ~\
|
|
FOR EACH ROW ~\
|
|
DECLARE ~\
|
|
action VARCHAR2(1); ~\
|
|
BEGIN ~\
|
|
IF DELETING THEN ~\
|
|
action := 'D'; ~\
|
|
ELSIF INSERTING THEN ~\
|
|
action := 'I'; ~\
|
|
ELSE ~\
|
|
action := 'U'; ~\
|
|
END IF;
|
|
|
|
#define AUDIT_VALUE_K(table, tablekey, column) ~\
|
|
aud.auditaction(STRINGIZE(table), ~\
|
|
:old.tablekey, ~\
|
|
:new.tablekey, ~\
|
|
STRINGIZE(column), ~\
|
|
:old.column, ~\
|
|
:new.column, ~\
|
|
action);
|
|
|
|
#define AUDIT_VALUE(table, column) ~\
|
|
AUDIT_VALUE_K(table, table##_key, column)
|
|
|
|
#define AUDIT_END() ~\
|
|
END; ~\
|
|
/ ~ \
|
|
|
|
|
|
#endif // _COMSQL_H
|