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

FSN#18275

Browse Source 
svn path=/Database/trunk/; revision=10388
This commit is contained in:
Peter Feij
2010-09-06 11:59:22 +00:00
parent d2803c7bbd
commit b414b7b9ed
5 changed files with 28 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
ALG/ALG_IND.SRC
View File

@@ -1,9 +1,8 @@
#ifdef ALG // 13-03-96 AH
/*
* Revisie:
/* ALG_IND.SRC
* $Revision: 5 $
* $Modtime: 6-09-10 13:54 $
*/
create index alg_i_alg_district1 on alg_district(alg_regio_key);
create index alg_i_alg_locatie1 on alg_locatie(alg_district_key);
@@ -21,4 +20,4 @@ create index alg_i_alg_ruimte3 on alg_ruimte(alg_ruimte_key, alg_ruimte_nr);
// speciaal tbv ins_v_alg_overzicht:
CREATE INDEX alg_i_alg_ruimte4 on alg_ruimte(alg_verdieping_key,alg_ruimte_key, alg_ruimte_upper_nr, alg_ruimte_nr);
#endif // ALG
REGISTERONCE('$Workfile: ALG_IND.SRC $','$Revision: 5 $')

7
ALG/ALG_INI.SRC
View File

@@ -1,7 +1,6 @@
/* ALG_INI.SRC
* $Revision: 10 $
* $Modtime: 9-03-09 16:52 $
* ALG tables for Facilitor: installation time population
* $Revision: 11 $
* $Modtime: 6-09-10 13:54 $
*/
_FAC_MODULE('ALG','Vastgoedbeheer')
@@ -12,3 +11,5 @@ DEF_FAC_MESSAGE ('ALG_OPENST_RES', 'heeft niet-verwerkte ruimtereservering', '')
DEF_FAC_MESSAGE ('ALG_OPENST_RES_V', 'heeft niet-verwerkte voorzieningsreservering', '');
DEF_FAC_MESSAGE ('ALG_TOEK_AFSPRAAK', 'heeft toekomstige afspraak', '');
DEF_FAC_MESSAGE ('ALG_OPEN_CONTRACT', 'heeft lopend contract', '');
REGISTERONCE('$Workfile: ALG_INI.SRC $','$Revision: 11 $')

15
ALG/ALG_TAB.SRC
View File

@@ -1,10 +1,8 @@
/* ALG_TAB.SRC
* $Revision: 61 $
* $Modtime: 16-06-10 14:20 $
* $Revision: 62 $
* $Modtime: 6-09-10 13:42 $
*/
#include "comsql.h"
CREATE_TABLE(alg_regio,0)
(
alg_regio_key
@@ -106,7 +104,7 @@ CREATE_TABLE(alg_locatie,0)
CONSTRAINT alg_u_alg_locatie_upper UNIQUE(alg_district_key, alg_locatie_upper, alg_locatie_verwijder)
);
CREATE_TABLE(alg_srtterreinsector,ALG_BIBLIOTHEEK_PRIVILEGE)
CREATE_TABLE(alg_srtterreinsector,0)
(
alg_srtterreinsector_key
NUMBER(10)
@@ -188,7 +186,7 @@ CREATE_TABLE(alg_terreinsector,0)
CONSTRAINT alg_u_alg_terreinsector_upper UNIQUE(alg_locatie_key, alg_terreinsector_upper, alg_terreinsector_verwijder)
);
CREATE_TABLE(alg_srtgebouw,ALG_BIBLIOTHEEK_PRIVILEGE)
CREATE_TABLE(alg_srtgebouw,0)
(
alg_srtgebouw_key
NUMBER(10)
@@ -324,7 +322,7 @@ CREATE_TABLE(alg_verdieping,0)
CONSTRAINT alg_u_alg_verdieping_code UNIQUE(alg_gebouw_key, alg_verdieping_code, alg_verdieping_verwijder)
);
CREATE_TABLE(alg_srtruimte,ALG_BIBLIOTHEEK_PRIVILEGE)
CREATE_TABLE(alg_srtruimte,0)
(
alg_srtruimte_key
NUMBER(10)
@@ -427,7 +425,7 @@ CREATE_TABLE(alg_ruimte,0)
CONSTRAINT alg_u_alg_ruimte_upper_nr UNIQUE(alg_verdieping_key, alg_ruimte_upper_nr, alg_ruimte_verwijder)
);
CREATE_TABLE(alg_import,ALG_BASIS_PRIVILEGE)
CREATE_TABLE(alg_import,0)
(
alg_import_key
NUMBER(10)
@@ -550,3 +548,4 @@ CREATE_TABLE(alg_kenmerk,0)
,CONSTRAINT alg_r_refkenmerk_key2 CHECK(alg_kenmerk_kenmerktype <> 'R' OR alg_refkenmerk_key IS NOT NULL)
);
REGISTERONCE('$Workfile: ALG_TAB.SRC $','$Revision: 62 $')

75
ALG/ALG_TRI.SRC
View File

@@ -1,9 +1,8 @@
/* ALG_TRI.SRC
* $Revision: 60 $
* $Modtime: 10-02-10 18:45 $
* $Revision: 61 $
* $Modtime: 6-09-10 13:57 $
*/
#include "comsql.h"
#include "alg\algsql.h"
CREATE_TRIGGER(alg_t_alg_import_B_IU)
@@ -86,9 +85,6 @@ BEGIN
DELETE FROM cad_tekening WHERE alg_locatie_key=:old.alg_locatie_key;
END IF;
#ifdef MS_SQL
lerror:
#endif
END;
/
@@ -152,9 +148,6 @@ BEGIN
AND bez_afspraak_datum > SYSDATE;
END IF;
#ifdef MS_SQL
lerror:
#endif
END;
/
@@ -215,9 +208,6 @@ BEGIN
END IF;
#ifdef MS_SQL
lerror:
#endif
END;
/
@@ -264,9 +254,6 @@ BEGIN
SET alg_onrgoed_keys = :NEW.alg_gebouw_key
WHERE alg_onrgoed_keys = :NEW.alg_verdieping_key AND bez_afspraak_datum > SYSDATE;
END IF;
#ifdef MS_SQL
lerror:
#endif
END;
/
@@ -430,9 +417,6 @@ BEGIN
END IF;
#ifdef MS_SQL
lerror:
#endif
END;
/
@@ -541,10 +525,10 @@ BEGIN
FROM alg_onrgoedkenmerk
WHERE alg_kenmerk_key = :old.alg_kenmerk_key
AND alg_kenmerk_key IN
(SELECT _MSSQL(TOP 1) alg_kenmerk_key FROM alg_onrgoedkenmerk
(SELECT alg_kenmerk_key FROM alg_onrgoedkenmerk
WHERE alg_kenmerk_key = :old.alg_kenmerk_key
AND FAC.SAFE_TO_NUMBER(alg_onrgoedkenmerk_waarde) < :new.alg_kenmerk_nmin
_ORACLE(AND rownum=1));
AND rownum=1);
IF :new.alg_kenmerk_niveau = 'G' THEN
APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MIN_G');
ELSE
@@ -574,10 +558,10 @@ BEGIN
FROM alg_onrgoedkenmerk
WHERE alg_kenmerk_key = :old.alg_kenmerk_key
AND alg_kenmerk_key IN
(SELECT _MSSQL(top 1) alg_kenmerk_key FROM alg_onrgoedkenmerk
(SELECT alg_kenmerk_key FROM alg_onrgoedkenmerk
WHERE alg_kenmerk_key = :old.alg_kenmerk_key
AND FAC.SAFE_TO_NUMBER(alg_onrgoedkenmerk_waarde) > :new.alg_kenmerk_nmax
_ORACLE(AND rownum=1));
AND rownum=1);
IF :new.alg_kenmerk_niveau = 'G' THEN
APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MAX_G');
ELSE
@@ -704,19 +688,7 @@ BEGIN
** Controleer of er een numerieke waarde ingevuld is
*/
BEGIN
#ifdef MS_SQL
DECLARE isnum smallint;
isnum := WEB.IsNumberString(@KenmerkWaarde)
if isnum = -1 GOTO lcontinue
if isnum = 0 BEGIN
FormatMask := REPLACE(FormatMask, '9', '#');
FormatMask := REPLACE(FormatMask, '0', '#');
FormatMask := REPLACE(FormatMask, 'D', '.');
APPLICATION_ERROR_GOTO(-20004,'ALG_M233,'|| KenmerkOmschr ||','|| FormatMask);
END;
#endif
NumberWaarde := TO_NUMBER(KenmerkWaarde);
#ifndef MS_SQL
EXCEPTION
WHEN OTHERS
THEN FormatMask := REPLACE(FormatMask, '9', '#');
@@ -724,7 +696,6 @@ BEGIN
FormatMask := REPLACE(FormatMask, 'D', '.');
RAISE_APPLICATION_ERROR(-20004,'ALG_M233,'|| KenmerkOmschr ||','
|| FormatMask);
#endif
END;
/*
** Controleer of de waarde binnen NMin en NMax ligt
@@ -758,16 +729,6 @@ BEGIN
** Datum
*/
THEN
#ifdef MS_SQL
DECLARE isdat smallint;
isdat := WEB.IsDateString(@KenmerkWaarde,'DD-MM-YYYY')
if isdat = -1 GOTO lcontinue
if isdat = 0 BEGIN
FormatMask := 'DD-MM-YYYY';
APPLICATION_ERROR_GOTO(-20004,'ALG_M233,'|| KenmerkOmschr ||','
|| FormatMask);
END;
#endif
KenmerkWaarde := DATE_TO_CHAR(_TO_DATE2(KenmerkWaarde,'DD-MM-YY'),'DD-MM-YYYY');
/*
** Zet de geconverteerde waarde terug
@@ -778,38 +739,16 @@ BEGIN
/*
** Ken nu een key aan dit record toe.
*/
#ifndef MS_SQL
IF :new.alg_onrgoedkenmerk_key IS NULL
THEN
SELECT alg_s_alg_onrgoedkenmerk_key.nextval
INTO :new.alg_onrgoedkenmerk_key
FROM DUAL;
END IF;
#else
lcontinue:
#endif
END IF;
END;
/
/* Vanaf Facilitor 3.0 worden de lege record verwijderd vanuit FORMS
i.v.m. performance.
CREATE_TRIGGER(alg_t_alg_onrgoedkenmerk_a_iu)
AFTER INSERT OR UPDATE ON alg_onrgoedkenmerk
BEGIN
/* Nadat de waardes ingevuld zijn worden de ALG_ONRGOEDKENMERK-records
** met NULL-waardes weer verwijderd. Ze zijn blijkbaar door de B_IU-trigger
** goedgekeurd, maar om de database niet overbodig te vullen worden ze weer verwijderd.
DELETE
FROM alg_onrgoedkenmerk
WHERE alg_onrgoedkenmerk_waarde IS NULL;
END;
/
*/
CREATE_TRIGGER(alg_t_alg_srtterreinsec_B_IU)
BEFORE INSERT OR UPDATE ON alg_srtterreinsector
FOR EACH ROW
@@ -822,3 +761,5 @@ BEGIN
alg_v_aanwezigsrtterreinsector, alg_srtterreinsector_key, 'alg_m041');
END;
/
REGISTERRUN('$Workfile: ALG_TRI.SRC $','$Revision: 61 $')

11
ALG/ALG_VIE.SRC
View File

@@ -1,10 +1,7 @@
/*
* Revisie:
*
* 9-04-2003 RL alg_v_ruimte_gegevens.alg_srtruimte_omschrijving changed
*
/* ALG_VIE.SRC
* $Revision: 60 $
* $Modtime: 6-09-10 13:54 $
*/
#include "comsql.h"
DEFINIEER_VIEW_AANWEZIG(alg_regio, alg_regio_verwijder,
alg_v_aanwezigregio,0);
@@ -1066,3 +1063,5 @@ SELECT m.mld_alg_onroerendgoed_keys, 'ALG_OPENST_MELDING',
FROM bez_afspraak a
WHERE a.bez_afspraak_datum > SYSDATE;
/
REGISTERRUN('$Workfile: ALG_VIE.SRC $','$Revision: 60 $')