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=10391
This commit is contained in:
Peter Feij
2010-09-06 13:11:52 +00:00
parent 3f890f46e1
commit 766af780de
42 changed files with 224 additions and 4462 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
BES/BES_IND.SRC
View File

@@ -1,9 +1,7 @@
#ifdef BES // 03-11-2000 PF
/*
* $Revision: 21 $
* $Modtime: 10-02-10 13:28 $
*
/* BES_IND.SRC
* $Revision: 22 $
* $Modtime: 6-09-10 15:15 $
*/
create index bes_i_bes_besopdr_it_b_bo_key on bes_bestelopdr_item (bes_bestelopdr_key);
@@ -42,4 +40,6 @@ CREATE INDEX bes_i_bes_kenmerkbesteli3 ON bes_kenmerkbesteli(bes_kenmerkbesteli_
CREATE INDEX bes_i_bes_favoriet1 ON bes_favoriet(prs_perslid_key);
REGISTERONCE('$Workfile: BES_IND.SRC $','$Revision: 22 $')
#endif // BES

263
BES/BES_INI.SRC
View File

@@ -1,15 +1,11 @@
#ifdef BES
/* $Revision: 44 $
* $Modtime: 18-01-08 15:16 $
/* BES_INI.SRC
* $Revision: 45 $
* $Modtime: 6-09-10 15:14 $
*/
#include "comsql.h"
_FAC_MODULE('BES','Bestellingenmodule')
_SET_SQLS(IDENTITY_INSERT bes_bestellingstatuses ON;)
#ifdef LANG_EN
INSERT INTO bes_bestellingstatuses(bes_bestellingstatuses_key,bes_bestellingstatuses_omschr)
VALUES (1, 'Rejected');
@@ -46,10 +42,6 @@ INSERT INTO bes_bestellingstatuses(bes_bestellingstatuses_key,bes_bestellingstat
VALUES (8, 'Mixed');
#endif
_SET_SQLS(IDENTITY_INSERT bes_bestellingstatuses OFF;)
_SET_SQLS(IDENTITY_INSERT bes_bestelopdrstatuses ON;)
#ifdef LANG_EN
INSERT INTO bes_bestelopdrstatuses(bes_bestelopdrstatuses_key,bes_bestelopdrstatuses_omschr)
VALUES (1, 'Rejected');
@@ -82,259 +74,12 @@ INSERT INTO bes_bestelopdrstatuses(bes_bestelopdrstatuses_key,bes_bestelopdrstat
VALUES (7, 'Verwerkt(AV)');
#endif
_SET_SQLS(IDENTITY_INSERT bes_bestelopdrstatuses OFF;)
DEF_FAC_MESSAGE ('BES_NO_REJECTED_MESSAGE' , 'Rejection reason must be specified.','EN2');
DEF_FAC_MESSAGE ('BES_INPUT_unknown_srtgroep' ,'Unknown SrtGroep.','EN2');
DEF_FAC_MESSAGE ('BES_INPUT_unknown_supplier' ,'Unknown Supplier.','EN2');
DEF_FAC_MESSAGE ('BES_INPUT_unknown_discipline' ,'Unknown Discipline.','EN2');
DEF_FAC_MESSAGE ('BES_XML_OUT_bad_cXMLparams', 'Missed bes_cXMLparams data','EN2');
#ifdef MS_SQL
[skip]
BEGIN
DECLARE @CURKEY DECIMAL(10);
#define _CURKEY @CURKEY
#else // MS_SQL
#define _CURKEY fac_s_fac_usrtab_key.currval
#endif // MS_SQL / Oracle
#ifdef REPROMODULE
insert into fac_usrtab (fac_usrtab_naam,fac_usrtab_object, fac_usrtab_omschrijving)
values ('RepPapierformaat','USR_REPPAPIERFORMAAT','Papierformaten');
_MSSQL(SELECT @CURKEY = SCOPE_IDENTITY();)
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'A5','A5');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'A4','A4');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'A3','A3');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'A2','A2');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'A1','A1');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'A0','A0');
insert into fac_usrtab (fac_usrtab_naam,fac_usrtab_object, fac_usrtab_omschrijving)
values ('RepAfdruk','USR_REPAFDRUK','Afdrukmogelijkheden');
_MSSQL(SELECT @CURKEY = SCOPE_IDENTITY();)
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'ZW','Zwart-wit');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'KLE','Kleur');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'TZW','Transparant zwart-wit');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'TKL','Transparant kleur');
insert into fac_usrtab (fac_usrtab_naam,fac_usrtab_object, fac_usrtab_omschrijving)
values ('RepAfdruk2','USR_REPAFDRUK2','Afdrukopties');
_MSSQL(SELECT @CURKEY = SCOPE_IDENTITY();)
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'ENKEL','Enkelzijdig');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'DUBBEL','Dubbelzijdig');
insert into fac_usrtab (fac_usrtab_naam,fac_usrtab_object, fac_usrtab_omschrijving)
values ('RepPapiersoort','USR_REPPAPIERSOORT','Papiersoorten');
_MSSQL(SELECT @CURKEY = SCOPE_IDENTITY();)
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'80','80 gr');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'100','100 gr');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'120','120 gr');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'160','160 gr');
insert into fac_usrtab (fac_usrtab_naam,fac_usrtab_object, fac_usrtab_omschrijving)
values ('RepPapierkleur','USR_REPPAPIERKLEUR','Papierkleuren');
_MSSQL(SELECT @CURKEY = SCOPE_IDENTITY();)
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'00', 'wit');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'01', 'rood');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'03', 'ivoorgeel');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'04', 'vanillegeel');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'06', 'cr<63>mewit');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'07', 'clematislila');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'08', 'azuurblauw');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'09', 'zeegroen');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'10', 'maisgeel');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'11', 'perzikoranje');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'12', 'zandbeige');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'13', 'antracietgrijs');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'14', 'oceaanblauw');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'15', 'mintgroen');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'16', 'citroengeel');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'17', 'zalmoranje');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'18', 'flamingoroze');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'19', 'lavendelblauw');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'20', 'turquoiseblauw');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'21', 'lentegroen');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'22', 'goudgeel');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'23', 'mandarijnoranje');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'24', 'kersroze');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'26', 'kobaltblauw');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'27', 'conifeergroen');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'29', 'papaverrood');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'30', 'koraalrood');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'31', 'warm geel');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'32', 'chamois');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'34', 'warm groen');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'35', 'warm blauw');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'47', 'boterbloemgeel');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'57', 'meigroen');
insert into fac_usrtab (fac_usrtab_naam,fac_usrtab_object, fac_usrtab_omschrijving)
values ('RepInbinden','USR_REPINBINDEN','Inbindmogelijkheden');
_MSSQL(SELECT @CURKEY = SCOPE_IDENTITY();)
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'0','Nee');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'1','RX-inline zwart');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'2','RX-inline wit');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'3','GBC-ringbanden');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'4','Snelhechter');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'5','Velobind');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'6','Brocheren');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'7','Lamineren');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'8','Leveren in witte ordner');
insert into fac_usrtab (fac_usrtab_naam,fac_usrtab_object, fac_usrtab_omschrijving)
values ('RepVouwen','USR_REPVOUWEN','Vouwmogelijkheden');
_MSSQL(SELECT @CURKEY = SCOPE_IDENTITY();)
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'0','Nee');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'1','Enkel');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'2','Brief');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'3','Zigzag');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'4','Wikkel');
insert into fac_usrtab (fac_usrtab_naam,fac_usrtab_object, fac_usrtab_omschrijving)
values ('RepSnijden','USR_REPSNIJDEN','Snijformaten');
_MSSQL(SELECT @CURKEY = SCOPE_IDENTITY();)
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'0','Nee');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'5','A5');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'6','A6');
insert into fac_usrtab (fac_usrtab_naam,fac_usrtab_object, fac_usrtab_omschrijving)
values ('RepNietjes','USR_REPNIETJES','Nietjes');
_MSSQL(SELECT @CURKEY = SCOPE_IDENTITY();)
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'0','Nee');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'1','1x');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'2','2x');
insert into fac_usrtab (fac_usrtab_naam,fac_usrtab_object, fac_usrtab_omschrijving)
values ('RepPerforeren','USR_REPPERFOREREN','Perforeren');
_MSSQL(SELECT @CURKEY = SCOPE_IDENTITY();)
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'0','Nee');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'2','2 gaats');
insert into fac_usrdata (FAC_USRTAB_KEY,FAC_USRDATA_CODE,FAC_USRDATA_OMSCHR)
values (_CURKEY,'4','4 gaats');
#ifdef MS_SQL
END;
[/skip]
#endif
INSERT INTO ins_tab_discipline
(ins_discipline_module, ins_discipline_omschrijving, ins_discipline_min_level)
VALUES('REP', 'Repro', 1);
INSERT INTO ins_srtgroep
(ins_discipline_key, ins_srtgroep_module, ins_srtgroep_omschrijving)
SELECT ins_discipline_key, 'REP', 'Printservice'
FROM ins_tab_discipline
WHERE SUBSTR(UPPER(ins_discipline_omschrijving),1,30) = SUBSTR(UPPER('Repro'),1,30);
INSERT INTO ins_srtdeel
(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_code,
ins_srtdeel_omschrijving,ins_srtdeel_dimensie, ins_srtdeel_eenheid, INS_SRTDEEL_PRIJS)
SELECT ins_srtgroep_key, 'REP', 'PRDEL' ,SUBSTR('Print & deliver',1,30), 0, 'PDF',11.95
FROM ins_srtgroep
WHERE SUBSTR(UPPER(ins_srtgroep_omschrijving),1,30) =
SUBSTR(UPPER('Printservice'),1,30);
#endif //REPROMODULE
REGISTERONCE('$Workfile: BES_INI.SRC $','$Revision: 45 $')
#endif // BES

14
BES/BES_PAC.SRC
View File

@@ -1,10 +1,9 @@
#ifdef BES // 03-11-2000 PF
/* $Revision: 71 $
* $Modtime: 9-06-10 13:47 $
/* BES_PAC.SRC
* $Revision: 72 $
* $Modtime: 6-09-10 15:13 $
*/
-- STATUS: TESTEN
-- Wens is om met 5i alle bes-functies in de BES-package te hebben
CREATE OR REPLACE PACKAGE bes
@@ -638,9 +637,6 @@ AS
END bes;
/
[quotes]
CREATE OR REPLACE FUNCTION bes_bestelopdr_items (besopdrkey IN NUMBER)
RETURN VARCHAR2
IS
@@ -1004,8 +1000,6 @@ BEGIN
END;
/
// bes_p_update_catalogus is lokaal opgenomen in fac_update_catalogus -PF
[/quotes]
REGISTERRUN('$Workfile: BES_PAC.SRC $','$Revision: 72 $')
#endif // BES

8
BES/BES_SEQ.SRC
View File

@@ -1,7 +1,7 @@
#ifdef BES // 03-11-2000 PF
/* $Revision: 7 $
* $Modtime: 29-05-09 16:10 $
/* BES_SEQ.SRC
* $Revision: 8 $
* $Modtime: 6-09-10 15:13 $
*/
CREATE SEQUENCE bes_s_bes_bestelling_key MINVALUE 1 NOCACHE;
@@ -22,4 +22,6 @@ CREATE SEQUENCE bes_s_bes_favoriet_key MINVALUE 1;
CREATE SEQUENCE bes_s_bes_staffeltabel_key MINVALUE 1;
CREATE SEQUENCE bes_s_bes_staffel_key MINVALUE 1;
REGISTERONCE('$Workfile: BES_SEQ.SRC $','$Revision: 8 $')
#endif // BES

11
BES/BES_TAB.SRC
View File

@@ -1,12 +1,9 @@
#ifdef BES // 03-11-2000 PF
/*
* $Revision: 64 $
* $Modtime: 10-02-10 15:37 $
/* BES_TAB.SRC
* $Revision: 65 $
* $Modtime: 6-09-10 15:11 $
*/
#include "comsql.h"
CREATE_TABLE(bes_bestelling, 0)
(
bes_bestelling_key
@@ -488,6 +485,6 @@ CREATE_TABLE (bes_staffel, 0)
NUMBER (12, 6) NOT NULL
);
REGISTERONCE('$Workfile: BES_TAB.SRC $','$Revision: 65 $')
#endif // BES

10
BES/BES_TRI.SRC
View File

@@ -1,11 +1,9 @@
#ifdef BES // 03-11-2000 PF
/*
* $Revision: 53 $
* $Modtime: 9-06-10 13:53 $
/* BES_TRI.SRC
* $Revision: 54 $
* $Modtime: 6-09-10 15:11 $
*/
#include "comsql.h"
/*
* Wat info:
* Oorspronkelijk was er een complex mechanisme met redundante info met betrekking
@@ -558,4 +556,6 @@ BEGIN
UPDATE_PRIMARY_KEY(bes_staffel_key, bes_s_bes_staffel_key);
END;
/
REGISTERRUN('$Workfile: BES_TRI.SRC $','$Revision: 54 $')
#endif // BES

11
BES/BES_VIE.SRC
View File

@@ -1,12 +1,9 @@
#ifdef BES // 03-11-2000 PF
/*
* $Revision: 32 $
* $Modtime: 10-02-10 16:22 $
* $Revision: 33 $
* $Modtime: 6-09-10 15:11 $
*/
#include "comsql.h"
CREATE_VIEW(bes_discipline, 0)
AS
SELECT * FROM ALL_discipline WHERE ins_discipline_module = 'BES';
@@ -258,4 +255,8 @@ AS
AND bi.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = d.ins_discipline_key);
REGISTERRUN('$Workfile: BES_VIE.SRC $','$Revision: 33 $')
#endif // BES

7
BEZ/BEZ_IND.SRC
View File

@@ -1,8 +1,7 @@
#ifdef BEZ // 03-11-2000 PF
/*
* $Revision: 4 $
* $Modtime: 6-12-05 9:37 $
* $Revision: 5 $
* $Modtime: 6-09-10 15:18 $
*/
create index bez_res_rsv_ruimte_key1 on bez_afspraak(res_rsv_ruimte_key);
@@ -13,4 +12,6 @@ create index bez_i_bez_afspraak_bez3 on bez_afspraak (prs_perslid_key);
create index bez_i_bez_afspraak_bez4 on bez_afspraak (bez_afspraak_datum);
create index bez_i_bez_bezoeker_afsp on bez_bezoekers (bez_afspraak_key);
REGISTERONCE('$Workfile: BEZ_IND.SRC $','$Revision: 5 $')
#endif // BEZ

10
BEZ/BEZ_INI.SRC
View File

@@ -1,12 +1,8 @@
#ifdef BEZ // 03-11-2000 PF
/* $Revision: 9 $
* $Modtime: 28-01-10 11:42 $
/* $Revision: 10 $
* $Modtime: 6-09-10 15:19 $
*/
#include "comsql.h"
_FAC_MODULE('BEZ','Bezoekersregistratie')
INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Onbekend');
@@ -17,4 +13,6 @@ INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Op laten halen (bellen)'
DEF_SETTING('BEZ', 'vis_parking_key' , -1, 'ins_discipline_key for Parking places');
REGISTERONCE('$Workfile: BEZ_INI.SRC $','$Revision: 10 $')
#endif // BEZ

6
BEZ/BEZ_PAC.SRC
View File

@@ -1,7 +1,7 @@
#ifdef BEZ // 03-11-2000 PF
/*
* $Revision: 4 $
* $Modtime: 28-01-10 14:14 $
* $Revision: 5 $
* $Modtime: 6-09-10 15:19 $
*
*/
CREATE OR REPLACE PACKAGE bez AS
@@ -307,4 +307,6 @@ CREATE OR REPLACE PACKAGE BODY bez AS
END bez;
/
REGISTERRUN('$Workfile: BEZ_PAC.SRC $','$Revision: 5 $')
#endif // BEZ

8
BEZ/BEZ_SEQ.SRC
View File

@@ -1,11 +1,9 @@
#ifdef BEZ // 03-11-2000 PF
/* BEZ_SEQ.SRC
* $Revision: 2 $
* $Modtime: 30-03-10 11:57 $
* $Revision: 3 $
* $Modtime: 6-09-10 15:19 $
*/
CREATE SEQUENCE bez_s_bez_afspraak_key MINVALUE 1;
CREATE SEQUENCE bez_s_bez_bezoekers_key MINVALUE 1;
CREATE SEQUENCE bez_s_bez_actie_key MINVALUE 1;
@@ -14,4 +12,6 @@ CREATE SEQUENCE bez_s_bez_refkenmerk_key MINVALUE 1000;
CREATE SEQUENCE bez_s_bez_kenmerk_key MINVALUE 1000;
CREATE SEQUENCE bez_s_bez_kenmerkwaarde_key MINVALUE 1;
REGISTERONCE('$Workfile: BEZ_SEQ.SRC $','$Revision: 3 $')
#endif // BEZ

13
BEZ/BEZ_TAB.SRC
View File

@@ -1,14 +1,9 @@
#ifdef BEZ // 03-11-2000 PF
/* REVISIONS:
*
* $Revision: 20 $
* $Modtime: 11-08-10 13:42 $
/*
* $Revision: 21 $
* $Modtime: 6-09-10 15:19 $
*/
#include "comsql.h"
CREATE_TABLE(bez_actie,0)
(
bez_actie_key
@@ -202,4 +197,6 @@ CREATE_TABLE(bez_kenmerkwaarde,0)
CONSTRAINT bez_u_bez_kenmerkwaarde_key UNIQUE(bez_bezoekers_key, bez_kenmerk_key)
);
REGISTERONCE('$Workfile: BEZ_TAB.SRC $','$Revision: 21 $')
#endif // BEZ

9
BEZ/BEZ_TRI.SRC
View File

@@ -1,11 +1,8 @@
#ifdef BEZ // 03-11-2000 PF
/* $Revision: 31 $
* $Modtime: 12-04-10 9:26 $
/* $Revision: 32 $
* $Modtime: 6-09-10 15:20 $
*/
#include "comsql.h"
CREATE_TRIGGER(bez_t_bez_afspraak_B_IU)
BEFORE INSERT OR UPDATE ON bez_afspraak
FOR EACH ROW
@@ -361,4 +358,6 @@ BEGIN
END;
/
REGISTERRUN('$Workfile: BEZ_TRI.SRC $','$Revision: 32 $')
#endif // BEZ

10
BEZ/BEZ_VIE.SRC
View File

@@ -1,14 +1,12 @@
#ifdef BEZ // 03-11-2000 PF
/* BEZ_VIE.SRC
*
* $Revision: 9 $
* $Modtime: 14-04-10 10:12 $
* $Revision: 10 $
* $Modtime: 6-09-10 15:20 $
*/
#include "comsql.h"
DEFINIEER_VIEW_AANWEZIG(bez_refkenmerk, bez_refkenmerk_verwijder,
bez_v_aanwezigrefkenmerk,0);
REGISTERRUN('$Workfile: BEZ_VIE.SRC $','$Revision: 10 $')
#endif // BEZ

8
CAD/CAD_IND.SRC
View File

@@ -1,7 +1,7 @@
#ifdef CAD // 22-05-1998 KTH
/* $Revision: 9 $
* $Modtime: 5-10-09 14:44 $
/* CAD_IND.SRC
* $Revision: 10 $
* $Modtime: 6-09-10 15:24 $
*/
CREATE INDEX cad_i_cad_tekening1 ON cad_tekening(ins_discipline_key);
@@ -10,4 +10,6 @@ CREATE INDEX cad_i_cad_tekening3 ON cad_tekening(alg_verdieping_key);
CREATE INDEX cad_i_cad_contour1 ON cad_imp_contour(cad_tekening_key);
CREATE UNIQUE INDEX cad_i_cad_legendaw1 ON cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value);
REGISTERONCE('$Workfile: CAD_IND.SRC $','$Revision: 10 $')
#endif // CAD

18
CAD/CAD_INI.SRC
View File

@@ -1,17 +1,7 @@
#ifdef CAD // 22-05-1998 KTH
/* $History: CAD_INI.SRC $
*
* ***************** Version 10 *****************
* User: Jgl Date: 13-08-08 Time: 10:32
* Updated in $/Facilitor/SRC/SQL/CAD
* FSN#13778 Thema's gelijktrekken
*
* ***************** Version 9 *****************
* User: Pf Date: 4-11-05 Time: 16:56
* Updated in $/Facilitor/SRC/SQL/CAD
* FSN#1251
*
/* CAD_INI.SRC
* $Revision: 11 $
* $Modtime: 6-09-10 15:24 $
*/
_FAC_MODULE('CAD','Facilitor Graphics')
@@ -101,4 +91,6 @@ INSERT INTO CAD_LABEL
from fac_functie
where fac_functie_code = 'WEB_ALGUSE';
REGISTERONCE('$Workfile: CAD_INI.SRC $','$Revision: 11 $')
#endif // CAD

3748
CAD/CAD_PAC.SRC
View File

File diff suppressed because it is too large Load Diff

9
CAD/CAD_SEQ.SRC
View File

@@ -1,8 +1,7 @@
#ifdef CAD // 22-05-1998 KTH
/* $Revision: 4 $
* $Modtime: 21-09-05 13:09 $
*
/* CAD_SEQ.SRC
* $Revision: 5 $
* $Modtime: 6-09-10 15:23 $
*/
CREATE SEQUENCE cad_s_cad_tekening_key MINVALUE 1;
@@ -13,4 +12,6 @@ CREATE SEQUENCE cad_s_cad_thema_key MINVALUE 1;
CREATE SEQUENCE cad_s_cad_label_key MINVALUE 1;
CREATE SEQUENCE cad_s_cad_imp_contour_key MINVALUE 1;
REGISTERONCE('$Workfile: CAD_SEQ.SRC $','$Revision: 5 $')
#endif // CAD

50
CAD/CAD_TAB.SRC
View File

@@ -1,12 +1,9 @@
#ifdef CAD // 22-05-1998 KTH
/* $Revision: 25 $
* $Modtime: 21-11-08 14:03 $
/* $Revision: 26 $
* $Modtime: 6-09-10 15:22 $
*/
#include "comsql.h"
CREATE_TABLE(cad_tekening, FAC_NORMAAL_PRIVILEGE)
CREATE_TABLE(cad_tekening, 0)
(
cad_tekening_key
NUMBER(10)
@@ -39,45 +36,6 @@ CREATE_TABLE(cad_tekening, FAC_NORMAAL_PRIVILEGE)
CONSTRAINT cad_u_cad_tekening UNIQUE(alg_locatie_key,alg_verdieping_key,cad_tekening_type,ins_discipline_key, cad_tekening_verwijder)
);
/*
CREATE_TABLE(cad_slnkstruct, FAC_NORMAAL_PRIVILEGE)
(
cad_slnkstruct_sessionid
NUMBER(10),
cad_slnkstruct_entry
VARCHAR2(128),
cad_slnkstruct_seqnr
NUMBER(10),
cad_slnkstruct_valint
NUMBER(10),
cad_slnkstruct_valstr
VARCHAR2(128),
cad_slnkstruct_valreal
NUMBER(13,3),
cad_slnkstruct_valdate
DATE
);
CREATE_TABLE(cad_symbool, FAC_BIBLIOTHEEK_PRIVILEGE)
(
cad_symbool_key
NUMBER(10)
CONSTRAINT cad_k_cad_symbool_key PRIMARY KEY,
cad_symbool_entry
VARCHAR2(32)
NOT_NULL(cad_symbool_entry, cad_c_cad_symbool_entry),
cad_symbool_symbool
VARCHAR2(256),
cad_symbool_layer
VARCHAR2(256)
NOT_NULL(cad_symbool_layer, cad_c_cad_symbool_layer),
cad_symbool_linetype
VARCHAR2(256),
cad_symbool_kleur
NUMBER(3)
CONSTRAINT cad_c_cad_symbool_kleur CHECK(cad_symbool_kleur BETWEEN 1 AND 255)
);
*/
/* Algemeen bruikbare legenda's en bijbehorende waarde/kleur */
CREATE_TABLE(cad_legenda,0)
@@ -182,4 +140,6 @@ CREATE_TABLE(cad_imp_contour,0)
-- NUMBER(10) REFERENCES prj_scenario(prj_scenario_key) ON DELETE CASCADE
);
REGISTERONCE('$Workfile: CAD_TAB.SRC $','$Revision: 26 $')
#endif // CAD

12
CAD/CAD_TRI.SRC
View File

@@ -1,9 +1,9 @@
/* $Revision: 8 $
* $Modtime: 3-10-05 12:29 $
#ifdef CAD
/* CAD_TRI.SRC
* $Revision: 9 $
* $Modtime: 6-09-10 15:24 $
*/
#include "comsql.h"
CREATE_TRIGGER(cad_t_cad_tekening_B_IU)
BEFORE INSERT OR UPDATE ON cad_tekening
FOR EACH ROW
@@ -59,3 +59,7 @@ BEGIN
UPDATE_PRIMARY_KEY(cad_imp_contour_key,cad_s_cad_imp_contour_key);
END;
/
REGISTERRUN('$Workfile: CAD_TRI.SRC $','$Revision: 9 $')
#endif

37
CAD/CAD_VIE.SRC
View File

@@ -1,20 +1,17 @@
#ifdef CAD // 22-05-1998 KTH
/* CAD_VIE1.SRC
*
* $Revision: 35 $
* $Modtime: 1-07-10 11:47 $
/* CAD_VIE.SRC
* $Revision: 36 $
* $Modtime: 6-09-10 15:21 $
*/
#include "comsql.h"
CREATE_VIEW(cad_v_cad_aanwezigtekening, FAC_NORMAAL_PRIVILEGE) AS
CREATE_VIEW(cad_v_cad_aanwezigtekening,0) AS
SELECT * FROM cad_tekening C_T
WHERE cad_tekening_verwijder IS NULL
AND (C_T.ins_discipline_key IN (SELECT ins_discipline_key
FROM ins_discipline)
OR C_T.ins_discipline_key IS NULL);
CREATE_VIEW(cad_v_cad_tekening_gegevens, FAC_NORMAAL_PRIVILEGE)
CREATE_VIEW(cad_v_cad_tekening_gegevens,0)
(cad_tekening_key,
alg_locatie_key,
alg_locatie_code,
@@ -43,17 +40,17 @@ CREATE_VIEW(cad_v_cad_tekening_gegevens, FAC_NORMAAL_PRIVILEGE)
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, FAC_NORMAAL_PRIVILEGE) AS
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, FAC_NORMAAL_PRIVILEGE) AS
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, FAC_NORMAAL_PRIVILEGE) AS
CREATE_VIEW(cad_v_discipline,0) AS
SELECT * FROM cad_tekening
WHERE cad_tekening_verwijder IS NULL
AND UPPER(cad_tekening_type) = 'D';
@@ -87,7 +84,7 @@ SELECT
/* View met ALLE tekeningen, ongeacht de autorisatie; minimale kolommen, gebruikt in CAD_PAC.SRC */
CREATE_VIEW(cad_v_cad_tekening, FAC_NORMAAL_PRIVILEGE) AS
CREATE_VIEW(cad_v_cad_tekening,0) AS
SELECT ins_discipline_key,
alg_locatie_key,
alg_verdieping_key,
@@ -100,7 +97,7 @@ CREATE_VIEW(cad_v_cad_tekening, FAC_NORMAAL_PRIVILEGE) AS
* 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, FAC_NORMAAL_PRIVILEGE)
CREATE_VIEW(cad_v_ins_deel,0)
(ins_deel_key,
ins_deel_cadlabel,
ins_srtdeel_omschrijving,
@@ -115,7 +112,7 @@ CREATE_VIEW(cad_v_ins_deel, FAC_NORMAAL_PRIVILEGE)
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, FAC_NORMAAL_PRIVILEGE) AS
CREATE_VIEW(cad_v_lpn_ins_deel_2,0) AS
SELECT
D.ins_deel_key,
ins_srtkenmerk_omschrijving,
@@ -130,7 +127,7 @@ WHERE SK.ins_srtkenmerk_key=K.ins_srtkenmerk_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, FAC_NORMAAL_PRIVILEGE) AS
CREATE_VIEW(cad_v_lpn_ins_deel_1,0) AS
SELECT
D.ins_deel_key,
SD.ins_srtdeel_omschrijving,
@@ -141,7 +138,7 @@ FROM
WHERE D.ins_srtdeel_key = SD.ins_srtdeel_key;
CREATE_VIEW(cad_v_prs_werkplek, FAC_NORMAAL_PRIVILEGE)
CREATE_VIEW(cad_v_prs_werkplek,0)
(prs_werkplek_key,
prs_werkplek_cadlabel,
prs_werkplek_volgnr,
@@ -155,7 +152,7 @@ CREATE_VIEW(cad_v_prs_werkplek, FAC_NORMAAL_PRIVILEGE)
W.prs_werkplek_opp /* Alleen een waarde indien prs_werkplek_vastopp 1 is, anders te traag? */
FROM prs_v_aanwezigwerkplek W;
CREATE_VIEW(cad_v_lpn_prs_werkplek_1, FAC_NORMAAL_PRIVILEGE) AS
CREATE_VIEW(cad_v_lpn_prs_werkplek_1,0) AS
SELECT W.prs_werkplek_key,
W.prs_werkplek_volgnr,
W.prs_werkplek_omschrijving
@@ -349,7 +346,7 @@ SELECT ra.alg_ruimte_key, 'mismatch'
AND wp.prs_alg_ruimte_key = ra.alg_ruimte_key
AND ra.prs_afdeling_key <> p.prs_afdeling_key;
CREATE_VIEW(cad_v_label_srtruimteopp, FAC_NORMAAL_PRIVILEGE)
CREATE_VIEW(cad_v_label_srtruimteopp,0)
(alg_ruimte_key, waarde)
AS
SELECT r.alg_ruimte_key,
@@ -398,7 +395,7 @@ AS
WHERE va.alg_ruimte_key = r.alg_ruimte_key;
--Meldingen
CREATE_VIEW(cad_v_thema_openmeldingen,FAC_NORMAAL_PRIVILEGE)
CREATE_VIEW(cad_v_thema_openmeldingen,0)
(alg_ruimte_key, waarde)
AS
SELECT r.alg_ruimte_key, COUNT (mld_melding_key)
@@ -491,4 +488,6 @@ AS
AND ps.prj_selectie_tabelnaam(+) = label_soort
AND ps.prj_selectie_tabelkey(+) = label_key;
REGISTERRUN('$Workfile: CAD_VIE.SRC $','$Revision: 36 $')
#endif // CAD

7
CNT/CNT_IND.SRC
View File

@@ -1,9 +1,8 @@
#ifdef CNT
/* CNT_IND.SRC
*
* $Revision: 10 $
* $Modtime: 14-04-10 17:12 $
* $Revision: 11 $
* $Modtime: 6-09-10 15:31 $
*/
create index cnt_i_cnt_contract1 on cnt_contract(cnt_contract_nummer,cnt_contract_looptijd_van,cnt_contract_looptijd_tot);
@@ -25,4 +24,6 @@ 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);
REGISTERONCE('$Workfile: CNT_IND.SRC $','$Revision: 11 $')
#endif // CNT

12
CNT/CNT_INI.SRC
View File

@@ -1,12 +1,7 @@
#ifdef CNT
/* $Revision: 21 $
* $Modtime: 8-08-08 10:40 $
/* $Revision: 22 $
* $Modtime: 6-09-10 15:31 $
*/
#include "comsql.h"
/*
** Bij installatie van modules moet de tabel FAC_MODULE gevuld of ge-update worden.
*/
@@ -115,5 +110,8 @@ INSERT INTO cnt_termijn (cnt_termijn_type, cnt_termijn_aantal, cnt_termijn_omsch
INSERT INTO cnt_termijn (cnt_termijn_type, cnt_termijn_aantal, cnt_termijn_omschrijving, cnt_termijn_volgnummer) VALUES ('M', 9, '9 Maanden', 90);
INSERT INTO cnt_termijn (cnt_termijn_type, cnt_termijn_aantal, cnt_termijn_omschrijving, cnt_termijn_volgnummer) VALUES ('Y', 1, '1 Jaar', 100);
REGISTERONCE('$Workfile: CNT_INI.SRC $','$Revision: 22 $')
#endif // CNT

59
CNT/CNT_PAC.SRC
View File

@@ -1,8 +1,7 @@
#ifdef CNT
/*
* $Revision: 13 $
* $Modtime: 4-06-10 11:09 $
* $Revision: 14 $
* $Modtime: 6-09-10 15:31 $
*/
CREATE OR REPLACE PACKAGE Cnt AS
@@ -113,11 +112,7 @@ END;
FUNCTION cnt_contract_status (van IN DATE, rappel IN DATE, opzeg IN DATE, tot IN DATE) RETURN NUMBER AS
varSysdate DATE;
BEGIN
#ifndef MS_SQL
varSysdate:=SYSDATE;
#else
SELECT myGetDate INTO varSysdate FROM vwGetDate;
#endif
IF varSysdate < van THEN
RETURN 0;
@@ -136,10 +131,6 @@ END;
FUNCTION cnt_contract_items (cntKey IN NUMBER) RETURN VARCHAR2 AS
ret VARCHAR2(512);
var_ckey number;
#ifdef MS_SQL
cntitem_rec_ckey NUMBER;
cntitem_rec_cntText VARCHAR2(256);
#endif
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
@@ -176,18 +167,7 @@ UNION
BEGIN
ret := null;
var_ckey := -1;
#ifndef MS_SQL
FOR cntitem_rec IN query(cntKey) LOOP
#else
LOOP
FETCH NEXT FROM query INTO cntitem_rec_ckey,
cntitem_rec_cntText;
IF @@FETCH_STATUS = -1 THEN
CLOSE query;
DEALLOCATE query;
BREAK;
END IF;
#endif
IF var_ckey = -1 THEN
ret := cntitem_rec.cntText;
ELSE
@@ -199,11 +179,7 @@ BEGIN
END IF;
END IF;
var_ckey := cntitem_rec.ckey;
#ifndef MS_SQL
END LOOP;
#else
END LOOP;
#endif
RETURN ret;
END;
@@ -275,7 +251,6 @@ END;
-- Zoek alle records voor een gegeven contract en kenmerk
-- en zet de meest recente bovenaan.
--
#ifndef MS_SQL
CURSOR c_kenmerkcontract(p_kenmerk_key IN NUMBER
,p_contract_key IN NUMBER
) IS
@@ -288,35 +263,11 @@ END;
ORDER BY cnt_kenmerkcontract_key DESC
;
r_kenmerkcontract c_kenmerkcontract%ROWTYPE;
#else
r_kenmerkcontract_cnt_kenmerkcontract_aanmaak DATE;
r_kenmerkcontract_cnt_kenmerkcontract_verwijder DATE;
r_kenmerkcontract_cnt_kenmerkcontract_key NUMBER;
#endif
BEGIN
#ifdef MS_SQL
[skip]
DECLARE c_kenmerkcontract CURSOR FOR
SELECT cnt_kenmerkcontract_key
, WEB.TRUNC_DATE(cnt_kenmerkcontract_aanmaak) cnt_kenmerkcontract_aanmaak
, WEB.TRUNC_DATE(cnt_kenmerkcontract_verwijder) cnt_kenmerkcontract_verwijder
FROM cnt_kenmerkcontract
WHERE cnt_kenmerk_key = @p_kenmerk_key
AND cnt_contract_key = @p_contract_key
ORDER BY cnt_kenmerkcontract_key DESC;
OPEN c_kenmerkmeldin;
[/skip]
#else
OPEN c_kenmerkcontract(p_kenmerk_key,p_contract_key);
#endif
OPEN c_kenmerkcontract(p_kenmerk_key,p_contract_key);
#ifndef MS_SQL
FETCH c_kenmerkcontract INTO r_kenmerkcontract;
#else
FETCH c_kenmerkcontract INTO r_kenmerkcontract_cnt_kenmerkcontract_aanmaak,
r_kenmerkcontract_cnt_kenmerkcontract_verwijder;
#endif
FETCH c_kenmerkcontract INTO r_kenmerkcontract;
IF c_kenmerkcontract%NOTFOUND THEN
-- Voor deze contract en kenmerk bestaat nog geen record
-- dus toevoegen. Behalve als de toe te voegen waarde
@@ -620,4 +571,6 @@ PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER)
END Cnt;
/
REGISTERRUN('$Workfile: CNT_PAC.SRC $','$Revision: 14 $')
#endif // CNT

7
CNT/CNT_SEQ.SRC
View File

@@ -1,7 +1,6 @@
#ifdef CNT
/* $Revision: 10 $
* $Modtime: 15-12-09 9:47 $
/* $Revision: 11 $
* $Modtime: 6-09-10 15:31 $
*/
CREATE SEQUENCE cnt_s_cnt_disc_params_key MINVALUE 1;
@@ -24,4 +23,6 @@ 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;
REGISTERONCE('$Workfile: CNT_SEQ.SRC $','$Revision: 11 $')
#endif // CNT

13
CNT/CNT_TAB.SRC
View File

@@ -1,10 +1,7 @@
#ifdef CNT
/* $Revision: 62 $
* $Modtime: 8-02-10 18:14 $
/* $Revision: 63 $
* $Modtime: 6-09-10 15:30 $
*/
#include "comsql.h"
CREATE_TABLE(cnt_typecontract, 0)
(
@@ -255,9 +252,7 @@ CREATE_TABLE(cnt_refsrtkenmerk, 0)
DATE
DEFAULT NULLDATUM
, CONSTRAINT cnt_c_cnt_refsrtkenmerk_omschr CHECK(cnt_refsrtkenmerk_omschrijving IS NOT NULL)
#ifndef MS_SQL
, CONSTRAINT cnt_c_cnt_refsrtkenmerk_upper CHECK(cnt_refsrtkenmerk_upper IS NOT NULL)
#endif
, CONSTRAINT cnt_u_cnt_refsrtkenmerk_upper UNIQUE(cnt_refsrtkenmerk_upper, cnt_refsrtkenmerk_verwijder)
, CONSTRAINT cnt_c_cnt_refsrtkenm_objnaam CHECK(cnt_refsrtkenmerk_objectnaam IS NOT NULL)
, CONSTRAINT cnt_c_cnt_refsrtkenm_kolnaam CHECK(cnt_refsrtkenmerk_kolomnaam IS NOT NULL)
@@ -397,7 +392,7 @@ CREATE_TABLE(cnt_mutatie, 0)
);
CREATE_TABLE(cnt_mutatie_status,BES_BIBLIOTHEEK_PRIVILEGE)
CREATE_TABLE(cnt_mutatie_status,0)
(
cnt_mutatie_status
NUMBER(10)
@@ -465,5 +460,7 @@ CREATE_TABLE(cnt_factuurschema , 0)
VARCHAR2(20)
);
REGISTERONCE('$Workfile: CNT_TAB.SRC $','$Revision: 63 $')
#endif // CNT

59
CNT/CNT_TRI.SRC
View File

@@ -1,9 +1,7 @@
#ifdef CNT
/* $Revision: 31 $
* $Modtime: 15-12-09 9:49 $
/* $Revision: 32 $
* $Modtime: 6-09-10 15:30 $
*/
#include "comsql.h"
CREATE_TRIGGER(cnt_t_cnt_disc_params_b_iu)
BEFORE INSERT OR UPDATE ON cnt_disc_params
@@ -56,19 +54,10 @@ CREATE_TRIGGER(cnt_t_cnt_contract_B_IU)
BEFORE INSERT OR UPDATE ON cnt_contract
FOR EACH ROW
BEGIN
#ifdef MS_SQL
if(select count(*) from inserted i where
( i.cnt_prs_bedrijf_key IS NULL
AND i.cnt_prs_afdeling_key IS NULL)
OR ( i.cnt_prs_bedrijf_key IS NOT NULL
AND i.cnt_prs_afdeling_key IS NOT NULL)
)>0
#else
IF ( :new.cnt_prs_bedrijf_key IS NULL
AND :new.cnt_prs_afdeling_key IS NULL)
OR ( :new.cnt_prs_bedrijf_key IS NOT NULL
AND :new.cnt_prs_afdeling_key IS NOT NULL)
#endif
THEN
APPLICATION_ERROR_GOTO(-20000,'cnt_m002');
ELSE
@@ -89,9 +78,6 @@ BEGIN
WHERE cnt_contract_onrgoed.cnt_contract_key = :new.cnt_contract_key;
END IF;
END;
#ifdef MS_SQL
lerror:
#endif
END;
/
@@ -99,28 +85,16 @@ CREATE_TRIGGER(cnt_t_cnt_contract_dienst_B_IU)
BEFORE INSERT OR UPDATE ON cnt_contract_dienst
FOR EACH ROW
BEGIN
#ifndef MS_SQL
IF :new.cnt_contract_dienst_key IS NULL THEN
SELECT cnt_s_cnt_contr_dienst_key.nextval
INTO :new.cnt_contract_dienst_key FROM DUAL;
END IF;
#endif
IF :new.PRS_BEDRIJF_KEY IS NULL THEN
#ifndef MS_SQL
SELECT C.cnt_prs_bedrijf_key, P.prs_perslid_naam_full
INTO :new.prs_bedrijf_key, :new.CNT_CONTRACT_DIENST_CONTACTEXT
#else
update cnt_contract_dienst
set prs_bedrijf_key=C.cnt_prs_bedrijf_key,
CNT_CONTRACT_DIENST_CONTACTEXT=P.prs_perslid_naam_full
#endif
FROM cnt_contract C, PRS_V_PERSLID_FULLNAMES_ALL P
WHERE C.cnt_contract_key=:new.cnt_contract_key
AND P.prs_perslid_key = C.prs_contactpersoon_key
#ifdef MS_SQL
and cnt_contract_dienst_key=:new.cnt_contract_dienst_key
#endif
;
AND P.prs_perslid_key = C.prs_contactpersoon_key;
--:new.CNT_CONTRACT_DIENST_CONTACTEXT := NULL;
END IF;
IF :new.CNT_CONTRACT_DIENST_CONTACTINT IS NULL THEN
@@ -379,26 +353,13 @@ BEGIN
END IF;
--
BEGIN
#ifdef MS_SQL
DECLARE isnum smallint;
isnum := WEB.IsNumberString(KenmerkContractWaarde)
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,'cnt_m242,'||SrtKenmerkOmschr||','||FormatMask);
END;
#endif
NumberWaarde := TO_NUMBER(KenmerkContractWaarde);
#ifndef MS_SQL
EXCEPTION
WHEN OTHERS
THEN FormatMask := REPLACE(FormatMask, '9', '#');
FormatMask := REPLACE(FormatMask, '0', '#');
FormatMask := REPLACE(FormatMask, 'D', '.');
raise_application_error(-20004,'cnt_m242,'||SrtKenmerkOmschr||','||FormatMask);
#endif
END;
-- Controleer of de waarde binnen NMin en NMax ligt.
IF (SrtKenmerkNMin IS NOT NULL AND NumberWaarde < SrtKenmerkNMin)
@@ -423,23 +384,11 @@ BEGIN
ELSIF SrtKenmerkType = 'D'
THEN
-- DATUM
#ifdef MS_SQL
DECLARE isdat smallint;
isdat := WEB.IsDateString(KenmerkContractWaarde,'DD-MM-YYYY')
if isdat = -1 GOTO lcontinue
if isdat = 0 BEGIN
FormatMask := 'DD-MM-YYYY';
APPLICATION_ERROR_GOTO(-20004,'cnt_m242,'||SrtKenmerkOmschr||','||FormatMask);
END;
#endif
KenmerkContractWaarde := DATE_TO_CHAR(_TO_DATE2(KenmerkContractWaarde,'DD-MM-YY'),'DD-MM-YYYY');
-- Zet de geconverteerde waarde terug.
:new.cnt_kenmerkcontract_waarde := KenmerkContractWaarde;
END IF;
END;
#ifdef MS_SQL
lcontinue:
#endif
END IF;
END;
/
@@ -487,4 +436,6 @@ BEGIN
END;
/
REGISTERRUN('$Workfile: CNT_TRI.SRC $','$Revision: 32 $')
#endif // CNT

14
CNT/CNT_VIE.SRC
View File

@@ -1,9 +1,7 @@
#ifdef CNT
/* $Revision: 24 $
* $Modtime: 12-09-08 16:19 $
/* $Revision: 25 $
* $Modtime: 6-09-10 15:30 $
*/
#include "comsql.h"
CREATE_VIEW(cnt_discipline, 0)
AS SELECT * FROM ALL_discipline WHERE ins_discipline_module = 'CNT';
@@ -116,12 +114,12 @@ SELECT CC.cnt_contract_key,
-- Onderstaande views moeten opnieuw gedefinieerd worden
-- aangezien mld_opdr is uitgebreid met cnt_contract_key.
CREATE_VIEW(mld_v_openopdr,MLD_NORMAAL_PRIVILEGE) AS
CREATE_VIEW(mld_v_openopdr,0) AS
SELECT *
FROM mld_opdr
WHERE mld_statusopdr_key IN (5,6);
CREATE_VIEW(mld_v_melding_openopdr,MLD_NORMAAL_PRIVILEGE) AS
CREATE_VIEW(mld_v_melding_openopdr,0) AS
SELECT *
FROM mld_opdr
WHERE mld_statusopdr_key IN (5,6);
@@ -416,7 +414,7 @@ SELECT basis.contract_key, basis.internnr, basis.externnr,
/
CREATE_VIEW(CNT_V_CONTRACT_HUURDER, FAC_NORMAAL_PRIVILEGE)
CREATE_VIEW(CNT_V_CONTRACT_HUURDER,0)
(ALG_ONRGOED_KEY, CNT_CONTRACT_KEY, ins_discipline_key, CNT_PRS_BEDRIJF_KEY1, CNT_PRS_AFDELING_KEY1,
CNT_CONTRACT_ONRGOED_KEY, CNT_CONTRACT_ONRGOED_OPP1, CNT_CONTRACT_ONRGOED_TYPE1, CNT_MLD_MELDING_KEY, CNT_PRS_BEDRIJF_KEY2,
CNT_PRS_AFDELING_KEY2, CNT_CONTRACT_ONRGOED_KEY2, CNT_CONTRACT_ONRGOED_OPP2, CNT_CONTRACT_ONRGOED_TYPE2, CNT_CONTRACT_KEY2)
@@ -488,6 +486,6 @@ FROM cnt_contract_onrgoed cogm WHERE cogm.cnt_mld_melding_key IS NOT NULL
)mut
/
REGISTERRUN('$Workfile: CNT_VIE.SRC $','$Revision: 25 $')
#endif // CNT

6
FIN/FIN_IND.SRC
View File

@@ -1,9 +1,9 @@
#ifdef FIN
/* FIN_IND.SRC
*
* $Revision: 1 $
* $Modtime: 11-05-06 15:10 $
* $Revision: 2 $
* $Modtime: 6-09-10 15:34 $
*/
REGISTERONCE('$Workfile: fin_ind.src $','$Revision: 2 $')
#endif // FIN

6
FIN/FIN_INI.SRC
View File

@@ -1,7 +1,6 @@
#ifdef FIN
/* $Revision: 2 $
* $Modtime: 23-10-09 10:59 $
/* $Revision: 3 $
* $Modtime: 6-09-10 15:34 $
*/
_FAC_MODULE('FIN','Facturen')
@@ -14,5 +13,6 @@ INSERT INTO fin_factuur_statuses (fin_factuur_statuses_key, fin_factuur_statuses
INSERT INTO fin_factuur_statuses (fin_factuur_statuses_key, fin_factuur_statuses_omschr) VALUES (6,'Akkoord');
INSERT INTO fin_factuur_statuses (fin_factuur_statuses_key, fin_factuur_statuses_omschr) VALUES (7,'Verwerkt');
REGISTERONCE('$Workfile: fin_ini.src $','$Revision: 3 $')
#endif // FIN

7
FIN/FIN_PAC.SRC
View File

@@ -1,8 +1,7 @@
#ifdef FIN
/* FIN_PAC.SRC
*
* $Revision: 4 $
* $Modtime: 31-08-10 15:12 $
* $Revision: 5 $
* $Modtime: 6-09-10 15:33 $
*/
/* Formatted on 16-7-2010 17:57:48 (QP5 v5.136.908.31019) */
@@ -446,4 +445,6 @@ AS
END fin;
/
REGISTERRUN('$Workfile: fin_pac.src $','$Revision: 5 $')
#endif // FIN

7
FIN/FIN_SEQ.SRC
View File

@@ -1,8 +1,7 @@
#ifdef FIN
/* FIN_SEQ.SRC
*
* $Revision: 2 $
* $Modtime: 19-08-09 17:44 $
* $Revision: 3 $
* $Modtime: 6-09-10 15:33 $
*/
CREATE SEQUENCE fin_s_fin_factuur_key MINVALUE 1 NOCACHE;
@@ -11,4 +10,6 @@ CREATE SEQUENCE fin_s_fin_kenmerkfactuur_key MINVALUE 1;
CREATE SEQUENCE fin_s_fin_kenmerk_key MINVALUE 1;
CREATE SEQUENCE fin_s_fin_refkenmerk_key MINVALUE 1;
REGISTERONCE('$Workfile: fin_seq.src $','$Revision: 3 $')
#endif // FIN

8
FIN/FIN_TAB.SRC
View File

@@ -1,12 +1,9 @@
#ifdef FIN
/* FIN_TAB.SRC
*
* $Revision: 6 $
* $Modtime: 15-07-10 19:03 $
* $Revision: 7 $
* $Modtime: 6-09-10 15:33 $
*/
#include "comsql.h"
CREATE_TABLE(fin_factuur_statuses,0)
(
fin_factuur_statuses_key
@@ -188,5 +185,6 @@ CREATE_TABLE(fin_kenmerkfactuur,0)
DEFAULT NULLDATUM
);
REGISTERONCE('$Workfile: fin_tab.src $','$Revision: 7 $')
#endif // FIN

8
FIN/FIN_TRI.SRC
View File

@@ -1,8 +1,7 @@
#ifdef FIN
/* FIN_TRI.SRC
*
* $Revision: 4 $
* $Modtime: 30-08-10 17:45 $
* $Revision: 5 $
* $Modtime: 6-09-10 15:33 $
*/
CREATE_TRIGGER(fin_t_fin_factuur_b_iu)
@@ -303,7 +302,6 @@ BEGIN
END;
/
BEGIN fac.systrackscript('$Workfile: fin_tri.src $','$Revision: 4 $', 0); END
/
REGISTERRUN('$Workfile: fin_tri.src $','$Revision: 5 $')
#endif // FIN

10
FIN/FIN_VIE.SRC
View File

@@ -1,9 +1,8 @@
#ifdef FIN
/* FIN_VIE.SRC
*
* $Revision: 2 $
* $Modtime: 14-04-10 10:17 $
* $Revision: 3 $
* $Modtime: 6-09-10 15:33 $
*/
#include "comsql.h"
@@ -11,7 +10,6 @@
DEFINIEER_VIEW_AANWEZIG(fin_refkenmerk, fin_refkenmerk_verwijder,
fin_v_aanwezigrefkenmerk,0);
REGISTERRUN('$Workfile: fin_vie.src $','$Revision: 3 $')
#endif // FIN

6
PRS/PRS_IND.SRC
View File

@@ -1,8 +1,8 @@
#ifdef PRS // 13-03-96 AH
/*
* $Revision: 16 $
* $Modtime: 26-06-08 14:35 $
* $Revision: 17 $
* $Modtime: 6-09-10 15:09 $
*/
create index prs_i_prs_afdeling1 on prs_afdeling(prs_afdeling_parentkey);
@@ -25,4 +25,6 @@ create index prs_i_prs_perslidkostenplaats1 ON prs_perslidkostenplaats(prs_persl
CREATE UNIQUE INDEX prs_i_prs_collega1 ON prs_collega(prs_perslid_key, prs_perslid_key_alt);
REGISTERONCE('$Workfile: PRS_IND.SRC $','$Revision: 17 $')
#endif // PRS

9
PRS/PRS_INI.SRC
View File

@@ -1,14 +1,13 @@
#ifdef PRS // 13-03-96 AH
/* PRS_INI.SRC
* $Revision: 13 $
* $Modtime: 23-08-07 10:46 $
*/
/*
* PRS tables for Facilitor: installation time population
* $Revision: 14 $
* $Modtime: 6-09-10 15:09 $
*/
_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.');
REGISTERONCE('$Workfile: PRS_INI.SRC $','$Revision: 14 $')
#endif // PRS

102
PRS/PRS_PAC.SRC
View File

@@ -1,31 +1,7 @@
#ifdef PRS
/* PRS_PAC.SRC
*
* $Revision: 16 $
*
* 21-10-2003 BIV Package Aut toegevoegd i.v.m. 3D autorisatiemodel
* 11-05-1999 PF Obsolete views verwijderd, omdat PRS211 en PRS212 nu gewoon FAC311 vullen,
* en er geen akelige views tbv PRS311/PRS312 meer nodig zijn.
* prs_v_werkplek_gegevens naar vie2 verplaats.
* 27-04-1999 EGR Aan view prs_v_werkplek_gegevens de PRS_NORMAAL_PRIVILEGE toegekend.
* 08-02-1999 EGR In prs_v_werkplek_gegevens kolom prs_werkplek_aanduiding toegevoegd.
* 17-12-1998 EGR Functie prs_f_prs_wpbezetting toegevoegd om delen door nul te voorkomen.
* 08-10-1998 PF Functies prs_f prs_* toegevoegd voor de
* rapporten prs311 en prs312
* --- 01.40 ---
* --- 01.39 ---
* --- 01.38 ---
* --- 01.37 ---
* --- 01.36 ---
* --- 01.35 ---
* --- 01.34 ---
* --- 01.33 ---
* --- 01.32 ---
* --- 01.31 ---
* --- 01.30 ---
* 14-07-97 AH Extra argument ArgEditMode toegevoegd.
* 10-07-97 AH Aangemaakt
/*
* $Revision: 18 $
* $Modtime: 6-09-10 14:59 $
*/
/* Bepaal de oppervlakte van een werkplek
@@ -58,7 +34,7 @@
* Als (WerkplekVastOpp <> NULL) dan wordt de vaste oppervlakte van de te wijzigen
* werkplek geretourneerd, als deze ingevuld was, anders NULL.
*/
CREATE OR REPLACE FUNCTION _MSSQL(web.)PRS_P_PRS_BepaalWerkplekOpp( ArgWerkplekKey IN NUMBER,
CREATE OR REPLACE FUNCTION PRS_P_PRS_BepaalWerkplekOpp( ArgWerkplekKey IN NUMBER,
ArgRuimteKey IN NUMBER,
ArgRuimteBrutoVloerOpp IN NUMBER,
ArgWerkplekVastOpp IN NUMBER,
@@ -344,73 +320,6 @@ CREATE OR REPLACE PACKAGE BODY aut AS
--
--
FUNCTION fac_get_prs_same_level(userkey IN NUMBER, perslidkey IN NUMBER) RETURN NUMBER IS
#ifdef MS_SQL
[skip]
BEGIN
DECLARE usr_deps CURSOR LOCAL FOR
SELECT prs_afdeling_key, prs_afdeling_elder_key, niveau
FROM prs_v_afdeling_familie
WHERE prs_afdeling_key =
(SELECT prs_afdeling_key
FROM prs_perslid
WHERE prs_perslid_key=@userkey)
ORDER BY niveau DESC;
DECLARE @c1_prs_afdeling_key DECIMAL(10);
DECLARE @c1_prs_afdeling_elder_key DECIMAL(10);
DECLARE @c1_niveau DECIMAL(10);
DECLARE pers_deps CURSOR LOCAL FOR
SELECT prs_afdeling_key, prs_afdeling_elder_key, niveau
FROM prs_v_afdeling_familie
WHERE prs_afdeling_key =
(SELECT prs_afdeling_key
FROM prs_perslid
WHERE prs_perslid_key=@perslidkey)
ORDER BY niveau DESC;
DECLARE @c2_prs_afdeling_key DECIMAL(10);
DECLARE @c2_prs_afdeling_elder_key DECIMAL(10);
DECLARE @c2_niveau DECIMAL(10);
DECLARE @usr_orglevel DECIMAL(1);
DECLARE @pers_orglevel DECIMAL(1);
DECLARE @samelevelFound int;
DECLARE @samelevel DECIMAL(1);
BEGIN
SET @samelevelFound = 0;
open usr_deps
FETCH NEXT FROM usr_deps INTO @c1_prs_afdeling_key, @c1_prs_afdeling_elder_key, @c1_niveau
WHILE (@@FETCH_STATUS = 0 )
begin
open pers_deps
FETCH NEXT FROM pers_deps INTO @c2_prs_afdeling_key, @c2_prs_afdeling_elder_key, @c2_niveau
WHILE (@@FETCH_STATUS = 0 )
begin
IF @c1_prs_afdeling_elder_key = @c2_prs_afdeling_elder_key
begin
SET @samelevelFound = 1;
SET @samelevel = @c2_niveau;
break;
end;
FETCH NEXT FROM pers_deps INTO @c2_prs_afdeling_key, @c2_prs_afdeling_elder_key, @c2_niveau
end;
IF @samelevelFound = 1
begin
break;
end;
close pers_deps;
FETCH NEXT FROM usr_deps INTO @c1_prs_afdeling_key, @c1_prs_afdeling_elder_key, @c1_niveau
end;
IF (@samelevelFound <> 1)
begin
SET @samelevel = 0; -- no same level found,then assume same company
end; -- multi_company will be detected in ASP so no problem here
end if 1=2 begin
SET @samelevel = 9;
END;
RETURN @samelevel;
END
[/skip]
#else
CURSOR usr_deps IS
SELECT paf.prs_afdeling_key, prs_afdeling_elder_key, niveau
FROM prs_v_afdeling_familie paf, prs_perslid pp
@@ -459,8 +368,9 @@ END
END;
RETURN samelevel;
END;
#endif
END aut;
/
REGISTERRUN('$Workfile: PRS_PAC.SRC $','$Revision: 18 $')
#endif // PRS

6
PRS/PRS_SEQ.SRC
View File

@@ -1,7 +1,7 @@
#ifdef PRS // 13-03-96 AH
/* $Revision: 16 $
* $Modtime: 29-05-09 15:48 $
/* $Revision: 17 $
* $Modtime: 6-09-10 15:09 $
*/
CREATE SEQUENCE prs_s_prs_alluitvoerende_keys MINVALUE 1;
@@ -32,4 +32,6 @@ CREATE SEQUENCE prs_s_prs_kostensoortgrp_key MINVALUE 1;
CREATE SEQUENCE prs_s_prs_collega_key MINVALUE 1;
CREATE SEQUENCE prs_s_prs_staffel_key MINVALUE 1;
REGISTERONCE('$Workfile: PRS_SEQ.SRC $','$Revision: 17 $')
#endif // PRS

9
PRS/PRS_TAB.SRC
View File

@@ -1,8 +1,7 @@
#ifdef PRS // 13-03-96 AH
/* PRS_TAB.SRC
* $Revision: 129 $
* $Modtime: 2-07-10 15:07 $
* $Revision: 130 $
* $Modtime: 6-09-10 14:59 $
*/
CREATE_TABLE(prs_bedrijf,0)
@@ -844,7 +843,7 @@ CREATE_TABLE(prs_kostensoort,0) (
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)
CONSTRAINT prs_r_prs_kostenplaats_key3 REFERENCES prs_kostenplaats(prs_kostenplaats_key),
prs_kostensoortgrp_key
NUMBER(10)
CONSTRAINT prs_r_prs_kostensoortgrp_key REFERENCES prs_kostensoortgrp(prs_kostensoortgrp_key) ON DELETE SET NULL,
@@ -882,4 +881,6 @@ CREATE_TABLE(prs_staffel, 0)
NUMBER (12, 6) NOT NULL
);
REGISTERONCE('$Workfile: PRS_TAB.SRC $','$Revision: 130 $')
#endif // PRS

13
PRS/PRS_TRI.SRC
View File

@@ -1,10 +1,9 @@
/* CREA_TRI.SRC maakt de triggers aan voor PRS */
/* $Revision: 81 $
* $Modtime: 9-06-10 14:06 $
#ifdef PRS
/* PRS_TRI.SRC
* $Revision: 82 $
* $Modtime: 6-09-10 15:09 $
*/
#include "comsql.h"
#include "alg\algsql.h"
CREATE_TRIGGER(prs_t_prs_srtperslid_B_IU)
@@ -782,3 +781,7 @@ BEGIN
UPDATE_PRIMARY_KEY(prs_staffel_key, prs_s_prs_staffel_key);
END;
/
REGISTERRUN('$Workfile: PRS_TRI.SRC $','$Revision: 82 $')
#endif

24
PRS/PRS_VIE.SRC
View File

@@ -1,11 +1,9 @@
#ifdef PRS // 01-12-98 PF
/*
* $Revision: 80 $
* $Modtime: 30-08-10 10:31 $
* $Revision: 81 $
* $Modtime: 6-09-10 14:59 $
*/
#include "comsql.h"
DEFINIEER_VIEW_AANWEZIG(prs_afdeling,
prs_afdeling_verwijder,
prs_v_aanwezigafdeling,
@@ -162,7 +160,7 @@ AS SELECT PRS_A.prs_afdeling_key , 'A'
-- Onderstaande views t.b.v. Aanmeldingsmodule, maar wordt ook in standaard web gebruikt.
CREATE_VIEW(prs_v_aanwezigperslideenheid,PRS_BIBLIOTHEEK_PRIVILEGE) AS
CREATE_VIEW(prs_v_aanwezigperslideenheid,0) AS
SELECT pe.PRS_PERSLIDEENHEID_KEY,
p.PRS_PERSLID_KEY,
p.PRS_PERSLID_NAAM,
@@ -193,7 +191,7 @@ CREATE_VIEW(prs_v_aanwezigperslideenheid,PRS_BIBLIOTHEEK_PRIVILEGE) AS
AND p.prs_perslid_verwijder IS NULL;
CREATE_VIEW(prs_v_perslideenheid_gegevens, PRS_BIBLIOTHEEK_PRIVILEGE)
CREATE_VIEW(prs_v_perslideenheid_gegevens,0)
( PRS_AFDELING_KEY,
PRS_AFDELING_OMSCHRIJVING,
PRS_PERSLID_KEY,
@@ -219,7 +217,7 @@ UNION
AND prs_afdeling_parentkey IS NULL;
CREATE_VIEW(prs_v_aanwezigperslidafdeling, PRS_BIBLIOTHEEK_PRIVILEGE) AS
CREATE_VIEW(prs_v_aanwezigperslidafdeling,0) AS
SELECT pa.PRS_PERSLIDAFDELING_KEY,
p.PRS_PERSLID_KEY,
p.PRS_PERSLID_NAAM,
@@ -258,7 +256,7 @@ CREATE_VIEW(prs_v_aanwezigperslidafdeling, PRS_BIBLIOTHEEK_PRIVILEGE) AS
AND a2.prs_afdeling_verwijder IS NULL;
CREATE_VIEW(prs_v_perslidafdeling_gegevens, PRS_BIBLIOTHEEK_PRIVILEGE)
CREATE_VIEW(prs_v_perslidafdeling_gegevens, 0)
(prs_afdeling_key
,prs_afdeling_naam
,prs_eenheid_key
@@ -812,7 +810,7 @@ CREATE_VIEW(prs_v_werkplek_gegevens,0)
AS SELECT PRS_W.prs_werkplek_key
, PRS_W.prs_werkplek_volgnr
, PRS_W.prs_werkplek_omschrijving
, _MSSQL(web.)PRS_P_PRS_BepaalWerkplekOpp(PRS_W.prs_werkplek_key
, PRS_P_PRS_BepaalWerkplekOpp(PRS_W.prs_werkplek_key
,ALG_R.alg_ruimte_key
,ALG_R.alg_ruimte_bruto_vloeropp
,PRS_W.prs_werkplek_vastopp
@@ -858,11 +856,9 @@ CREATE_VIEW(prs_v_werkplek_bezetting, 0)
prs_werkplek_bezetting) AS
SELECT PRS_W.prs_werkplek_key,
NVL(SUM(PRS_PW.prs_perslidwerkplek_bezetting), 0)
FROM prs_werkplek PRS_W
_LEFT_JOIN( prs_v_aanwezigperslidwerkplek PRS_PW, PRS_W.prs_werkplek_key = PRS_PW.prs_werkplek_key )
#ifndef MS_SQL
FROM prs_werkplek PRS_W,
prs_v_aanwezigperslidwerkplek PRS_PW
WHERE PRS_W.prs_werkplek_key = PRS_PW.prs_werkplek_key (+)
#endif
GROUP BY PRS_W.prs_werkplek_key;
/* View om alle werkplekken te koppelen aan persleden, met outerjoin. */
@@ -1662,4 +1658,6 @@ SELECT prs_bedrijf_key,
FROM prs_bedrijf
WHERE prs_bedrijf.prs_bedrijf_verwijder IS NULL;
REGISTERRUN('$Workfile: PRS_VIE.SRC $','$Revision: 81 $')
#endif // PRS