diff --git a/BES/BES_IND.SRC b/BES/BES_IND.SRC index 9a7d23c5..972f74c2 100644 --- a/BES/BES_IND.SRC +++ b/BES/BES_IND.SRC @@ -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 diff --git a/BES/BES_INI.SRC b/BES/BES_INI.SRC index 350bcb14..1f216ba8 100644 --- a/BES/BES_INI.SRC +++ b/BES/BES_INI.SRC @@ -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'); +REGISTERONCE('$Workfile: BES_INI.SRC $','$Revision: 45 $') - -#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è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 - -#endif // BES \ No newline at end of file +#endif // BES diff --git a/BES/BES_PAC.SRC b/BES/BES_PAC.SRC index 08fce47b..8722599a 100644 --- a/BES/BES_PAC.SRC +++ b/BES/BES_PAC.SRC @@ -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 diff --git a/BES/BES_SEQ.SRC b/BES/BES_SEQ.SRC index 728469e5..bd7863da 100644 --- a/BES/BES_SEQ.SRC +++ b/BES/BES_SEQ.SRC @@ -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 diff --git a/BES/BES_TAB.SRC b/BES/BES_TAB.SRC index 7dadadb8..1ec5f300 100644 --- a/BES/BES_TAB.SRC +++ b/BES/BES_TAB.SRC @@ -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 diff --git a/BES/BES_TRI.SRC b/BES/BES_TRI.SRC index 06c26df5..01969f70 100644 --- a/BES/BES_TRI.SRC +++ b/BES/BES_TRI.SRC @@ -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 diff --git a/BES/BES_VIE.SRC b/BES/BES_VIE.SRC index 83d532f3..3f8486bb 100644 --- a/BES/BES_VIE.SRC +++ b/BES/BES_VIE.SRC @@ -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 diff --git a/BEZ/BEZ_IND.SRC b/BEZ/BEZ_IND.SRC index 5c77070f..896ad8b0 100644 --- a/BEZ/BEZ_IND.SRC +++ b/BEZ/BEZ_IND.SRC @@ -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 diff --git a/BEZ/BEZ_INI.SRC b/BEZ/BEZ_INI.SRC index f21fe64c..c9b3f3ea 100644 --- a/BEZ/BEZ_INI.SRC +++ b/BEZ/BEZ_INI.SRC @@ -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 diff --git a/BEZ/BEZ_PAC.SRC b/BEZ/BEZ_PAC.SRC index 30c64f79..f1ac3af2 100644 --- a/BEZ/BEZ_PAC.SRC +++ b/BEZ/BEZ_PAC.SRC @@ -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 diff --git a/BEZ/BEZ_SEQ.SRC b/BEZ/BEZ_SEQ.SRC index f60c3141..f0a4d1b3 100644 --- a/BEZ/BEZ_SEQ.SRC +++ b/BEZ/BEZ_SEQ.SRC @@ -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 diff --git a/BEZ/BEZ_TAB.SRC b/BEZ/BEZ_TAB.SRC index 4330c38d..dee2da86 100644 --- a/BEZ/BEZ_TAB.SRC +++ b/BEZ/BEZ_TAB.SRC @@ -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 diff --git a/BEZ/BEZ_TRI.SRC b/BEZ/BEZ_TRI.SRC index 79d5b160..56fa83bc 100644 --- a/BEZ/BEZ_TRI.SRC +++ b/BEZ/BEZ_TRI.SRC @@ -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 diff --git a/BEZ/BEZ_VIE.SRC b/BEZ/BEZ_VIE.SRC index 26fa398f..c7dc0180 100644 --- a/BEZ/BEZ_VIE.SRC +++ b/BEZ/BEZ_VIE.SRC @@ -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 diff --git a/CAD/CAD_IND.SRC b/CAD/CAD_IND.SRC index 0a2f22e8..1f784866 100644 --- a/CAD/CAD_IND.SRC +++ b/CAD/CAD_IND.SRC @@ -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 diff --git a/CAD/CAD_INI.SRC b/CAD/CAD_INI.SRC index e2f7f2fe..249b6fad 100644 --- a/CAD/CAD_INI.SRC +++ b/CAD/CAD_INI.SRC @@ -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 diff --git a/CAD/CAD_PAC.SRC b/CAD/CAD_PAC.SRC index ca66b130..59a7f99d 100644 --- a/CAD/CAD_PAC.SRC +++ b/CAD/CAD_PAC.SRC @@ -1,3750 +1,10 @@ #ifdef CAD // 22-05-1998 KTH -#ifdef RETAIN_OBSOLETE_PARTS -/* REVISIONS: - * - * 17-03-2003 RL "DISTINCT" syntax changed in cad_KILLtrajecten, EindTrajectGroter cursor - * - * 15-03-2000 BIV UPPER() verwijderd overal waar Upper(ins_srtdeel_cadlayer) en UPPER((ins_srtdeel_acadsymbol) i.v.m. performance. - * 23-11-1999 RD cad_SLNKPostErase: bij verwijderen van een ruimte alleen die werkplekken verwijderen - * met verwijderdatum NOT NULL, dus niet verwijderen in prs_werkplek maar van prs_v_aanwezigwerkplek. - * 23-11-1999 BIV PRS_WERKPLEK toegevoegd aan cad_SLNKpostdraw. - * 14-10-1999 RD Procedure aangepast. Getekend veld wordt gezet - * van alg_gebouw en alg_ruimte bij update omtrek/oppervlakte. - * 07-10-1999 BIV Functie AddDeel gewijzigd. Bij insert in ins_deel ook Locatiekey en Disciplinekey meegeven. - * 27-09-1999 EGR cad_slnkPrePostDimensie0, 1 en 2: Bij selecteren van ins_srtdeel_key met behulp - * van layer en symbol ook controleren of objectsoort niet verwijderd is. - * 27-08-1999 EGR cad_SLNKSTRUCTshift aangepast zodat PROJECTKEY met seqnr=1 tijdens shift niet wordt verwijderd. - * 25-08-1999 EGR Functies Bepaal_locatiecode,cad_getLayerColor,cad_getLayerLinetype,cad_getLayerName,cad_SLNKSTRUCTreadVALSTR2 - * ,cad_SLNKSTRUCTreadVALINT2 en pragma voor Bepaal_locatiecode toegevoegd zodat deze functies ook in de PRJ_PAC - * gebruikt kunnen worden. - * In cad_SLNKSTRUCTclear worden ook entries voor PROJECTKEY niet meer gewist. - * 16-08-1999 BIV Procedures cad_SetKenmerkWaarde en cad_GetKenmerkWaarde toegevoegd om de kenmerken vanuit AutoCAD te kunnen zetten - * 05-08-1999 BIV Procedure cad_GetSrcDwgOfEntity2 toegevoegd aangezien de functie cad_GetSrcDwgOfEntity vanuit - * AutoCAD niet goed gaat (TIMEOUT). - * 02-06-1999 BIV Aantal argumenten functie fac_f_fac_get_description is gewijzigd de div. aanroepen ook aangepast. - * 20-05-1999 BIV Procedure cad_GetSrcDwgOfEntity toegevoegd die source_dwg in cad_slnkstruct zet. - * 19-05-1999 BIV Bepaal_VolgnummerTxt niet meer gebruiken. Hier nu functie fac_f_fac_get_description voor. - * 10-05-1999 BIV Procedure cad_SLNKSTRUCTdelete aangepast zodat deze ook van buiten de package kan worden aangeroepen. - * 05-05-1999 BIV update van de _getekend-velden toegevoegd in cad_SLNKPostDraw. - * 28-04-1999 PF update van de _getekend-velden toegevoegd. De database weet hierdoor dat de - * betreffende update hiervandaan komt, en staat het dan toe (#2376). - * 28-04-1999 PF Procedure cad_p_ruimte_update_opp verwijderd (obsolete) - * 27-04-1999 BIV Zelfde al vorige regel, maar dan voor terreinsectoren. - * --- 01.44 --- - * 22-04-1999 BIV Procedure cad_slnkPredraw zodanig aangepast dat bij een deel ALLE discipline-tekeningen die de - * gebruiker mag zien(disciplines) worden weggeschreven in cad_slnkstruct. - * --- 01.43 --- - * 14-04-1999 BIV Functie cad_MaakCadTekening toegevoegd. Deze functie maakt een tekening aan in cad_tekening en - * en geeft de naam van die tekening terug. - * 12-04-1999 BIV Procedure cad_SLNKgetBinnenBuiten toegevoegd. Deze bepaalt a.h.v. LoadDwg of binnen of buiten. - * 30-03-1999 BIV Procedure cad_SLNKDelenbijWerkplek. - * 18-03-1999 BIV #2278 - cad_SLNKPostDraw aangepast i.v.m. ins_deelkoppeling. - * 12-03-1999 BIV #2278 - Procedure cad_SLNKPrePostDraw toegevoegd t.b.v. tekenen "vanuit" AutoCAD. - * 11-03-1999 BIV #2278 - Procedures cad_slnkPredraw,cad_SLNKModify,cad_SLNKPostErase, cad_SLNKPostDraw uitgebreid - * i.v.m. LPN_PRS_WERKPLEK t.b.v. Facilitor 3. - * 09-03-1999 BIV I.o.v. MB PERIMETER vervangen door LENGTH. - * 08-03-1999 BIV #2278 - Entry PERIMETER toegevoegd voor update van Omtrek in terreinsector,gebouw en ruimte. - * 03-03-1999 BIV #2278 - Procedures cad_slnkPredraw,cad_SLNKModify,cad_SLNKPostErase, cad_SLNKPostDraw uitgebreid - * i.v.m. LPN_INS_DEEL t.b.v. Facilitor 3. - * 01-03-1999 BIV #2278 - Functies cad_getVerdiepPlgrnd_tekening en cad_getVerdiepCntr_tekening toegevoegd - * t.b.v. Facilitor 3, het grafisch plaatsen van een ruimte. - * 26-02-1999 BIV #2278 - Procedures cad_slnkPredraw,cad_SLNKModify,cad_SLNKPostErase, cad_SLNKPostDraw aangepast - * i.v.m. LPN_ALG_TERREINSECTOR en LPN_ALG_RUIMTE t.b.v. Facilitor 3. - * --- 01.42 --- - * --- 01.41 --- - * 09-12-1998 BIV Functies cad_getDisciplinetekening, cad_getPlattegrondtekening, cad_getContourtekening toegevoegd. - * 09-12-1998 BIV Procedure cad_SLNKPreDraw toegevoegd. - * 03-12-1998 BIV Procedure cad_SLNKgetDrawing toegevoegd. - * 20-11-1998 BIV Procedure cad_SLNKSTRUCTclearAll toegevoegd (wist alles van de opgegeven sessie). - * 12-11-1998 BIV Procedure cad_SLNKModify toegevoegd. - * 09-11-1998 BIV Procedure cad_SLNKPostErase toegevoegd. - * 06-11-1998 BIV Procedure cad_SLNKPostDraw toegevoegd. - * 05-11-1998 BIV Procedure cad_SLNKSTRUCTshift toegevoegd(wist 1ste entry van opgegeven sessie schuift - * alle andere entries 1 pos. door (dus 4->3, 3->2 en 2->1)). - * 05-11-1998 BIV Procedure cad_SLNKSTRUCTclear toegevoegd (wist alles van de opgegeven sessie, behalve de - * entry FAC_MODULE). - * 02-11-1998 BIV Procedures cad_SLNKSTRUCTinsertVALINT,...VALSTR, ....VALREAL en ....VALDATE toegevoegd. - * 06-10-1998 PF #2060 get_tekeningnaam werkt nu ook voor terreinen - * --- 01.40 --- - * --- 01.39 --- - * 22-07-1998 KTH - diverse -- vervangen door slash-sterretje/sterretje-slash - * - diverse kleine aanpassingen - * 21-07-1998 BIV Procedure cad_p_ruimte_update_opp toegevoegd - * 21-07-1998 BIV Functie cad_f_ruimte_get_tekeningnaam() toegevoegd. - * 09-07-1998 PF Geen exception meer, en PRAGMA WNPS toegevoegd - * 08-07-1998 PF Functies gebruiken TABLE ins_deel ipv VIEW ins_v_aanwezigdeel, vanwege autorisatie. - * De functie wordt ook door andere users (FCLTCAD) gebruikt, en die ziet niets - * in de autorisatie views - * 07-07-1998 BIV Functies cad_f_deel_get_locatie_key, ..._get_verdieping_key, ..._get_discipline_key, - * ..._get_tekeningnaam toegevoegd. - * --- 01.38 --- - * --- 01.37 --- - * 22-05-1998 KTH Aangemaakt +/* + * $Revision: 78 $ + * $Modtime: 6-09-10 15:23 $ */ +REGISTERRUN('$Workfile: CAD_PAC.SRC $','$Revision: 78 $') -CREATE OR REPLACE PACKAGE cad AS - FUNCTION cad_f_deel_get_locatie(key IN NUMBER) RETURN NUMBER; - FUNCTION cad_f_deel_get_verdieping(key IN NUMBER) RETURN NUMBER; - FUNCTION cad_f_deel_get_discipline(key IN NUMBER) RETURN NUMBER; - FUNCTION cad_f_deel_get_tekeningnaam(key IN NUMBER) RETURN VARCHAR2; - FUNCTION cad_f_ruimte_get_tekeningnaam(key IN NUMBER) RETURN VARCHAR2; - PROCEDURE cad_SLNKSTRUCTinsertVALINT(Session_Id IN NUMBER, entry IN VARCHAR2, seqnr IN NUMBER, value IN NUMBER, ClrEntry IN NUMBER); - PROCEDURE cad_SLNKSTRUCTinsertVALSTR(Session_Id IN NUMBER, entry IN VARCHAR2, seqnr IN NUMBER, value VARCHAR2, ClrEntry IN NUMBER); - PROCEDURE cad_SLNKSTRUCTinsertVALREAL(Session_Id IN NUMBER, entry IN VARCHAR2, seqnr IN NUMBER, value IN NUMBER, ClrEntry IN NUMBER); - PROCEDURE cad_SLNKSTRUCTinsertVALDATE(Session_Id IN NUMBER, entry IN VARCHAR2, seqnr IN NUMBER, value IN DATE, ClrEntry IN NUMBER); - FUNCTION cad_SLNKSTRUCTreadVALINT(Session_Id IN NUMBER, Entry IN VARCHAR2) RETURN NUMBER; - FUNCTION cad_SLNKSTRUCTreadVALSTR(Session_Id IN NUMBER, Entry IN VARCHAR2) RETURN VARCHAR2; - FUNCTION cad_SLNKSTRUCTreadVALREAL(Session_Id IN NUMBER, Entry IN VARCHAR2) RETURN NUMBER; - FUNCTION cad_SLNKSTRUCTreadVALDATE(Session_Id IN NUMBER, Entry IN VARCHAR2) RETURN DATE; - PROCEDURE cad_SLNKSTRUCTclear(Session_Id IN NUMBER); - PROCEDURE cad_SLNKSTRUCTshift(Session_Id IN NUMBER); - PROCEDURE cad_SLNKpostDraw(Session_Id IN NUMBER); - PROCEDURE cad_SLNKpostErase(Session_Id IN NUMBER); - PROCEDURE cad_SLNKpostModify(Session_Id IN NUMBER); - PROCEDURE cad_SLNKSTRUCTclearAll(Session_Id IN NUMBER); - PROCEDURE cad_SLNKSTRUCTdelete(Session_Id IN NUMBER, Entry IN VARCHAR2); - PROCEDURE cad_SLNKgetDrawing(Session_Id IN NUMBER); - PROCEDURE cad_SLNKPreDraw(Session_Id IN NUMBER); - PROCEDURE cad_SLNKPrePostDraw(Session_Id IN NUMBER); - PROCEDURE cad_SLNKDelenbijWerkplek(Session_Id IN NUMBER); - PROCEDURE cad_getSymboolInfo(Session_Id IN NUMBER, Entry IN VARCHAR2); - PROCEDURE cad_SLNKgetBinnenBuiten(Session_Id IN NUMBER, LoadDwg IN VARCHAR2); - PROCEDURE cad_GetSrcDwgOfEntity2(Session_Id IN NUMBER, LPNAliasINSO IN VARCHAR2, LPNKey IN NUMBER); - PROCEDURE cad_SetKenmerkWaarde(DeelKey IN NUMBER, KenmerkKey IN NUMBER, KenmerkWaarde IN VARCHAR2); - PROCEDURE cad_GetKenmerkWaarde(Session_Id IN NUMBER, DeelKey IN NUMBER, KenmerkKey IN NUMBER); - - /* Deze procedure is slechts eenmaal gebruikt t.b.v. grafische conversie BIS ... - * PROCEDURE cad_SLNKConvPreDraw(Session_Id IN NUMBER, LOC_X_COORD NUMBER, LOC_Y_COORD NUMBER); - */ - FUNCTION cad_getDisciplinetekening(Locatie_key IN NUMBER, Discipline_key IN NUMBER) RETURN VARCHAR2; - FUNCTION cad_getPlattegrondtekening(Locatie_key IN NUMBER)RETURN VARCHAR2; - FUNCTION cad_getContourtekening(Locatie_key IN NUMBER)RETURN VARCHAR2; - FUNCTION cad_getVerdiepPlgrnd_tekening(Locatiekey IN NUMBER, Verdiepingkey IN NUMBER) RETURN VARCHAR2; - FUNCTION cad_getVerdiepCntr_tekening(Locatiekey IN NUMBER, Verdiepingkey IN NUMBER) RETURN VARCHAR2; - FUNCTION cad_getLocatieCode_Tekening(TekeningNaam IN VARCHAR2) RETURN VARCHAR2; - FUNCTION cad_getTekeningNaam_LoadDwg(LoadDwg IN VARCHAR2) RETURN VARCHAR2; - FUNCTION cad_GetSrcDwgOfEntity(Session_Id IN NUMBER, LPNAliasINSO IN VARCHAR2, LPNKey IN NUMBER) RETURN VARCHAR2; - FUNCTION Bepaal_locatiecode(locatie_key IN NUMBER) RETURN VARCHAR2; - FUNCTION cad_getLayerColor(Entry IN VARCHAR2) RETURN NUMBER; - FUNCTION cad_getLayerLinetype(Entry IN VARCHAR2) RETURN VARCHAR2; - FUNCTION cad_getLayerName(Entry IN VARCHAR2) RETURN VARCHAR2; - FUNCTION cad_SLNKSTRUCTreadVALSTR2(Session_Id IN NUMBER, Entry IN VARCHAR2, SeqNr IN NUMBER) RETURN VARCHAR2; - FUNCTION cad_SLNKSTRUCTreadVALINT2(Session_Id IN NUMBER, Entry IN VARCHAR2, SeqNr IN NUMBER) RETURN NUMBER; - - /* garandeer dat de functies de database-state en package-state niet beinvloeden - * (anders kunnen ze niet zondermeer in een view worden gebruikt) - */ - PRAGMA RESTRICT_REFERENCES (cad_f_deel_get_locatie, WNDS, WNPS); - PRAGMA RESTRICT_REFERENCES (cad_f_deel_get_verdieping, WNDS, WNPS); - PRAGMA RESTRICT_REFERENCES (cad_f_deel_get_discipline, WNDS, WNPS); - PRAGMA RESTRICT_REFERENCES (cad_f_deel_get_tekeningnaam, WNDS, WNPS); - PRAGMA RESTRICT_REFERENCES (cad_f_ruimte_get_tekeningnaam, WNDS, WNPS); - PRAGMA RESTRICT_REFERENCES (cad_getDisciplinetekening, WNDS, WNPS); - PRAGMA RESTRICT_REFERENCES (cad_getPlattegrondtekening, WNDS, WNPS); - PRAGMA RESTRICT_REFERENCES (cad_getContourtekening, WNDS, WNPS); - PRAGMA RESTRICT_REFERENCES (cad_getVerdiepPlgrnd_tekening, WNDS, WNPS); - PRAGMA RESTRICT_REFERENCES (cad_getVerdiepCntr_tekening, WNDS, WNPS); - PRAGMA RESTRICT_REFERENCES (cad_getLocatieCode_Tekening, WNDS, WNPS); - PRAGMA RESTRICT_REFERENCES (cad_getTekeningNaam_LoadDwg, WNDS, WNPS); - PRAGMA RESTRICT_REFERENCES (Bepaal_locatiecode, WNDS, WNPS); -END cad; -/ - -CREATE OR REPLACE PACKAGE BODY cad AS - - FUNCTION cad_f_deel_get_locatie(Key IN NUMBER) RETURN NUMBER IS - locatie_key NUMBER(10); - BEGIN - SELECT ins_alg_locatie_key - INTO locatie_key - FROM all_v_aanwezigdeel - /* FROM ins_deel -- de tabel i.o.m. PF view gebruiken */ - WHERE ins_deel_key = Key; - RETURN locatie_key; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END cad_f_deel_get_locatie; - - FUNCTION cad_f_deel_get_verdieping(Key IN NUMBER) RETURN NUMBER IS - verdieping_key NUMBER(10); - PlaatsDeel VARCHAR2(1); - WerkplekKey NUMBER(10); - BEGIN - /* Functie aangepast t.b.v. Facilitor 3 i.v.m. mogelijkheid deel te plaatsen op een werkplek */ - SELECT ins_alg_ruimte_type INTO PlaatsDeel - FROM ins_deel - WHERE ins_deel_key = Key; - IF PlaatsDeel = 'W' THEN - SELECT ins_alg_ruimte_key INTO WerkplekKey - FROM ins_deel - WHERE ins_deel_key = Key; - /* Bepaal ruimte waarin werkplek zich bevindt en vervolgens de verdieping */ - BEGIN - SELECT alg_verdieping_key INTO verdieping_key - FROM alg_ruimte - WHERE alg_ruimte_key = - (SELECT prs_alg_ruimte_key FROM PRS_WERKPLEK - WHERE prs_werkplek_key = WerkplekKey); - RETURN verdieping_key; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - ELSE - BEGIN - SELECT ALG_G.alg_verdieping_key - INTO verdieping_key - FROM alg_ruimte ALG_G, ins_deel INS_D /* de tabel! */ - WHERE INS_D.ins_deel_key = Key - AND INS_D.ins_alg_ruimte_key = ALG_G.alg_ruimte_key; - RETURN verdieping_key; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - END IF; - RETURN NULL; - END cad_f_deel_get_verdieping; - - FUNCTION cad_f_deel_get_discipline(Key IN NUMBER) RETURN NUMBER IS - discipline_key NUMBER(10); - BEGIN - SELECT ins_discipline_key - INTO discipline_key - FROM all_v_aanwezigdeel - /* FROM ins_deel -- de tabel! */ - WHERE ins_deel_key = Key; - RETURN discipline_key; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END cad_f_deel_get_discipline; - - - FUNCTION cad_f_deel_get_tekeningnaam(Key IN NUMBER) RETURN VARCHAR2 IS - tekeningnaam VARCHAR2(256); - locatie_key NUMBER(10); - verdieping_key NUMBER(10); - discipline_key NUMBER(10); - BEGIN - locatie_key := _MSSQL(cad.)cad_f_deel_get_locatie(Key); - verdieping_key := _MSSQL(cad.)cad_f_deel_get_verdieping(Key); - discipline_key := _MSSQL(cad.)cad_f_deel_get_discipline(Key); - - IF (locatie_key IS NOT NULL AND - verdieping_key IS NOT NULL AND - discipline_key IS NOT NULL) THEN - BEGIN - SELECT cad_tekening_filenaam - INTO tekeningnaam - FROM cad_v_cad_tekening - WHERE alg_locatie_key = locatie_key - AND alg_verdieping_key = verdieping_key - AND ins_discipline_key = discipline_key; - RETURN tekeningnaam; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - ELSIF (locatie_key IS NOT NULL AND - verdieping_key IS NULL AND - discipline_key IS NOT NULL) THEN - BEGIN - SELECT cad_tekening_filenaam - INTO tekeningnaam - FROM cad_v_cad_tekening - WHERE alg_locatie_key = locatie_key - AND alg_verdieping_key IS NULL - AND ins_discipline_key = discipline_key; - RETURN tekeningnaam; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - END IF; - RETURN NULL; - END cad_f_deel_get_tekeningnaam; - - - FUNCTION cad_f_ruimte_get_tekeningnaam(Key IN NUMBER) RETURN VARCHAR2 IS - tekeningnaam VARCHAR2(256); - locatie_key NUMBER(10); - verdieping_key NUMBER(10); - BEGIN - SELECT alg_locatie_key, alg_verdieping_key - INTO locatie_key, verdieping_key - FROM alg_v_ruimte_gegevens - WHERE alg_ruimte_key = Key; - - IF (locatie_key IS NOT NULL AND - verdieping_key IS NOT NULL) THEN - BEGIN - SELECT cad_tekening_filenaam - INTO tekeningnaam - FROM cad_v_cad_tekening /* ja deze! */ - WHERE alg_locatie_key = locatie_key - AND alg_verdieping_key = verdieping_key - AND cad_tekening_type = 'C'; - RETURN tekeningnaam; - EXCEPTION - WHEN NO_DATA_FOUND THEN - /* raise_application_error(-20000, 'ins_m166'); */ - RETURN NULL; - END; - END IF; - - RETURN NULL; - END cad_f_ruimte_get_tekeningnaam; - - - FUNCTION Bepaal_locatiecode(locatie_key IN NUMBER) RETURN VARCHAR2 IS - locatie_code VARCHAR2(5); - BEGIN - BEGIN - SELECT alg_locatie_code INTO locatie_code - FROM alg_locatie - WHERE alg_locatie_key = Locatie_key; - RETURN locatie_code; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END Bepaal_locatiecode; - - - FUNCTION cad_getLocatieCode_Tekening(TekeningNaam IN VARCHAR2) RETURN VARCHAR2 IS - locatieCode VARCHAR2(25); -#ifndef MS_SQL - SlashPositie NUMBER(2); -#else - SlashPositie INT; -#endif - BEGIN - SlashPositie := INSTR2(TekeningNaam,CHR(92)); - LocatieCode := SUBSTR(TekeningNaam,1, SlashPositie-1); - RETURN LocatieCode; - END cad_getLocatieCode_Tekening; - - FUNCTION cad_getTekeningNaam_LoadDwg(LoadDwg IN VARCHAR2) RETURN VARCHAR2 IS - Teller int; - OneChar VARCHAR2(1); - Tekening VARCHAR2(256); - SlashFound BOOLEAN; - - BEGIN - SlashFound := FALSE; - Teller:= LENGTH(LoadDwg); -#ifndef MS_SQL - WHILE (teller>0) LOOP -#else - WHILE (teller>0) - BEGIN -#endif - OneChar:=SUBSTR(LoadDwg,Teller,1); - IF OneChar= CHR(92) THEN - EXIT; - END IF; - teller :=teller-1; - END LOOP; - IF teller = 0 THEN - /* geen '\' gevonden */ - RETURN LoadDwg; - ELSE - /* return tekeningnaam zonder pad terug */ - RETURN SUBSTR(LoadDwg,teller+1,LENGTH(LoadDwg)-teller); - END IF; - RETURN NULL; - END cad_getTekeningNaam_LoadDwg; - - FUNCTION cad_getDisciplinetekening(Locatie_key IN NUMBER, Discipline_key IN NUMBER)RETURN VARCHAR2 IS - locatie_code VARCHAR2(5); - tekening VARCHAR2(256); - Disciplinetekening VARCHAR2(256); - BEGIN - BEGIN - locatie_code := _MSSQL(cad.)bepaal_locatiecode(Locatie_key); - SELECT cad_tekening_filenaam INTO tekening - FROM cad_v_discipline - WHERE alg_locatie_key = Locatie_key - AND ins_discipline_key = Discipline_key; - Disciplinetekening := locatie_code||CHR(92)||tekening; - RETURN Disciplinetekening; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_getDisciplinetekening; - - - FUNCTION cad_getPlattegrondtekening(Locatie_key IN NUMBER)RETURN VARCHAR2 IS - locatie_code VARCHAR2(5); - tekening VARCHAR2(256); - Plattegrondtekening VARCHAR2(256); - BEGIN - BEGIN - locatie_code := _MSSQL(cad.)bepaal_locatiecode(Locatie_key); - SELECT cad_tekening_filenaam INTO tekening - FROM cad_v_plattegrond - WHERE alg_locatie_key = Locatie_key - AND alg_verdieping_key IS NULL; - plattegrondtekening := locatie_code||CHR(92)||tekening; - RETURN plattegrondtekening; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_getPlattegrondtekening; - - FUNCTION cad_getVerdiepPlgrnd_tekening(Locatiekey IN NUMBER, Verdiepingkey IN NUMBER) RETURN VARCHAR2 IS - locatie_code VARCHAR2(5); - tekening VARCHAR2(256); - Plattegrondtekening VARCHAR2(256); - BEGIN - BEGIN - locatie_code := _MSSQL(cad.)bepaal_locatiecode(Locatiekey); - SELECT cad_tekening_filenaam INTO tekening - FROM cad_v_plattegrond - WHERE alg_locatie_key = LocatieKey - AND alg_verdieping_key = Verdiepingkey; - plattegrondtekening := locatie_code||CHR(92)||tekening; - RETURN plattegrondtekening; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_getVerdiepPlgrnd_tekening; - - FUNCTION cad_getContourtekening(Locatie_key IN NUMBER)RETURN VARCHAR2 IS - locatie_code VARCHAR2(5); - tekening VARCHAR2(256); - Contourtekening VARCHAR2(256); - BEGIN - locatie_code := _MSSQL(cad.)bepaal_locatiecode(Locatie_key); - BEGIN - SELECT cad_tekening_filenaam INTO tekening - FROM cad_v_contour - WHERE alg_locatie_key = Locatie_key - AND alg_verdieping_key IS NULL; - Contourtekening := locatie_code||CHR(92)||tekening; - RETURN Contourtekening; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_getContourtekening; - - FUNCTION cad_getVerdiepCntr_tekening(Locatiekey IN NUMBER, Verdiepingkey IN NUMBER) RETURN VARCHAR2 IS - locatie_code VARCHAR2(5); - tekening VARCHAR2(256); - Contourtekening VARCHAR2(256); - BEGIN - locatie_code := _MSSQL(cad.)bepaal_locatiecode(LocatieKey); - BEGIN - SELECT cad_tekening_filenaam INTO tekening - FROM cad_v_contour - WHERE alg_locatie_key = LocatieKey - AND alg_verdieping_key = Verdiepingkey; - Contourtekening := locatie_code||CHR(92)||tekening; - RETURN Contourtekening; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_getVerdiepCntr_tekening; - - PROCEDURE cad_SLNKgetBinnenBuiten(Session_Id IN NUMBER, LoadDwg IN VARCHAR2) IS - /* Bepaal a.h.v. de LoadDwg of het hier gaat om een buitentekening(terreinsector) of binnentekening */ - TekeningNaam VARCHAR2(256); - LocatieCode VARCHAR2(5); - LocatieKey NUMBER(10); - VerdiepingKey NUMBER(10); - Plaats NUMBER; - - BEGIN - TekeningNaam := _MSSQL(cad.)cad_getTekeningNaam_LoadDwg(LoadDwg); - LocatieCode := _MSSQL(cad.)cad_getLocatieCode_Tekening(LoadDwg); - SELECT alg_locatie_key INTO LocatieKey - FROM alg_locatie - WHERE UPPER(alg_locatie_code) = UPPER(LocatieCode); - BEGIN - SELECT alg_verdieping_key INTO VerdiepingKey - FROM cad_v_plattegrond - WHERE alg_locatie_key = LocatieKey - AND UPPER(cad_tekening_filenaam) = UPPER(TekeningNaam); - IF VerdiepingKey IS NOT NULL THEN - Plaats := 0; - ELSE - Plaats := 1; - END IF; - EXCEPTION - WHEN NO_DATA_FOUND THEN - Plaats := 1; - END; - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'INFOI', 1, Plaats, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - END cad_SLNKgetBinnenBuiten; - - - PROCEDURE cad_SLNKSTRUCTdelete(Session_Id IN NUMBER, Entry IN VARCHAR2) IS - BEGIN - BEGIN - DELETE FROM cad_slnkstruct - WHERE cad_slnkstruct_sessionid = Session_Id - AND cad_slnkstruct_entry = entry; - COMMIT; - EXCEPTION - WHEN NO_DATA_FOUND THEN - NULL; - END; - END cad_SLNKSTRUCTdelete; - - - PROCEDURE cad_SLNKSTRUCTinsertVALINT(Session_Id IN NUMBER, entry IN VARCHAR2, seqnr IN NUMBER, value IN NUMBER, ClrEntry IN NUMBER) IS - BEGIN - IF ClrEntry = 1 AND seqnr = 1 THEN - _EXEC2(_MSSQL(cad.)cad_SLNKSTRUCTdelete,Session_Id, Entry); - END IF; - BEGIN - INSERT INTO cad_slnkstruct(cad_slnkstruct_sessionId, cad_slnkstruct_entry, cad_slnkstruct_seqnr, cad_slnkstruct_valint) - VALUES(Session_Id, entry, seqnr, value); - COMMIT; - EXCEPTION - WHEN OTHERS THEN - NULL; - END; - END cad_SLNKSTRUCTinsertVALINT; - - - PROCEDURE cad_SLNKSTRUCTinsertVALSTR(Session_Id IN NUMBER, entry IN VARCHAR2, seqnr IN NUMBER, value IN VARCHAR2, ClrEntry IN NUMBER) IS - BEGIN - IF ClrEntry = 1 AND seqnr = 1 THEN - _EXEC2(_MSSQL(cad.)cad_SLNKSTRUCTdelete,Session_Id, Entry); - END IF; - BEGIN - INSERT INTO cad_slnkstruct(cad_slnkstruct_sessionId, cad_slnkstruct_entry, cad_slnkstruct_seqnr, cad_slnkstruct_valstr) - VALUES(Session_Id, entry, seqnr, value); - COMMIT; - EXCEPTION - WHEN OTHERS THEN - NULL; - END; - END cad_SLNKSTRUCTinsertVALSTR; - - - PROCEDURE cad_SLNKSTRUCTinsertVALREAL(Session_Id IN NUMBER, entry IN VARCHAR2, seqnr IN NUMBER, value IN NUMBER, ClrEntry IN NUMBER) IS - BEGIN - IF ClrEntry = 1 AND seqnr = 1 THEN - _EXEC2(_MSSQL(cad.)cad_SLNKSTRUCTdelete,Session_Id, Entry); - END IF; - BEGIN - INSERT INTO cad_slnkstruct(cad_slnkstruct_sessionId, cad_slnkstruct_entry, cad_slnkstruct_seqnr, cad_slnkstruct_valreal) - VALUES(Session_Id, entry, seqnr, value); - COMMIT; - EXCEPTION - WHEN OTHERS THEN - NULL; - END; - END cad_SLNKSTRUCTinsertVALREAL; - - - PROCEDURE cad_SLNKSTRUCTinsertVALDATE(Session_Id IN NUMBER, entry IN VARCHAR2, seqnr IN NUMBER, value IN DATE, ClrEntry IN NUMBER) IS - BEGIN - IF ClrEntry = 1 AND seqnr = 1 THEN - _EXEC2(_MSSQL(cad.)cad_SLNKSTRUCTdelete,Session_Id, Entry); - END IF; - BEGIN - INSERT INTO cad_slnkstruct(cad_slnkstruct_sessionId, cad_slnkstruct_entry, cad_slnkstruct_seqnr, cad_slnkstruct_valdate) - VALUES(Session_Id, entry, seqnr, value); - COMMIT; - EXCEPTION - WHEN OTHERS THEN - NULL; - END; - END cad_SLNKSTRUCTinsertVALDATE; - - - PROCEDURE cad_SLNKSTRUCTclear(Session_Id IN NUMBER) IS - BEGIN - BEGIN - DELETE FROM cad_slnkstruct - WHERE cad_slnkstruct_sessionid = Session_Id - AND cad_slnkstruct_entry <> 'FAC_MODULE' - AND cad_slnkstruct_entry <> 'SYNC' - AND cad_slnkstruct_entry <> 'PROJECTKEY'; - COMMIT; - EXCEPTION - WHEN NO_DATA_FOUND THEN - NULL; - END; - END cad_SLNKSTRUCTclear; - - PROCEDURE cad_SLNKSTRUCTclearAll(Session_Id IN NUMBER) IS - BEGIN - BEGIN - DELETE FROM cad_slnkstruct - WHERE cad_slnkstruct_sessionid = Session_Id; - COMMIT; - EXCEPTION - WHEN NO_DATA_FOUND THEN - NULL; - END; - END cad_SLNKSTRUCTclearAll; - - - PROCEDURE cad_SLNKSTRUCTshift(Session_Id IN NUMBER) IS - aantal NUMBER(10); - BEGIN - BEGIN - SELECT max(cad_slnkstruct_seqnr) - INTO aantal - FROM cad_slnkstruct - WHERE cad_slnkstruct_sessionid = Session_Id - AND cad_slnkstruct_entry <> 'FAC_MODULE' - AND cad_slnkstruct_entry <> 'SYNC'; - IF aantal > 1 - THEN - DELETE - FROM cad_slnkstruct - WHERE cad_slnkstruct_seqnr = 1 - AND cad_slnkstruct_sessionid = Session_Id - AND cad_slnkstruct_entry <> 'FAC_MODULE' - AND cad_slnkstruct_entry <> 'SYNC' - AND cad_slnkstruct_entry <> 'PROJECTKEY'; - COMMIT; - UPDATE cad_slnkstruct - SET cad_slnkstruct_seqnr = cad_slnkstruct_seqnr - 1 - WHERE cad_slnkstruct_sessionid = Session_Id - AND cad_slnkstruct_seqnr > 1 - AND cad_slnkstruct_entry <> 'FAC_MODULE' - AND cad_slnkstruct_entry <> 'SYNC' - AND cad_slnkstruct_entry <> 'PROJECTKEY'; - COMMIT; - END IF; - EXCEPTION - WHEN NO_DATA_FOUND - THEN - NULL; - END; - END cad_SLNKSTRUCTshift; - - - FUNCTION cad_SLNKSTRUCTreadVALINT(Session_Id IN NUMBER, Entry IN VARCHAR2) RETURN NUMBER IS - Value NUMBER; - BEGIN - BEGIN - SELECT cad_slnkstruct_valint INTO Value - FROM cad_slnkstruct - WHERE cad_slnkstruct_sessionid = Session_Id - AND cad_slnkstruct_entry = Entry - AND cad_slnkstruct_seqnr = 1; - RETURN Value; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_SLNKSTRUCTreadVALINT; - - - FUNCTION cad_SLNKSTRUCTreadVALINT2(Session_Id IN NUMBER, Entry IN VARCHAR2, SeqNr IN NUMBER) RETURN NUMBER IS - Value NUMBER; - BEGIN - BEGIN - SELECT cad_slnkstruct_valint INTO Value - FROM cad_slnkstruct - WHERE cad_slnkstruct_sessionid = Session_Id - AND cad_slnkstruct_entry = Entry - AND cad_slnkstruct_seqnr = SeqNr; - RETURN Value; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_SLNKSTRUCTreadVALINT2; - - - FUNCTION cad_SLNKSTRUCTreadVALSTR(Session_Id IN NUMBER, Entry IN VARCHAR2) RETURN VARCHAR2 IS - Value VARCHAR2(128); - BEGIN - BEGIN - SELECT cad_slnkstruct_valstr INTO Value - FROM cad_slnkstruct - WHERE cad_slnkstruct_sessionid = Session_Id - AND cad_slnkstruct_entry = Entry - AND cad_slnkstruct_seqnr = 1; - RETURN Value; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_SLNKSTRUCTreadVALSTR; - - - FUNCTION cad_SLNKSTRUCTreadVALSTR2(Session_Id IN NUMBER, Entry IN VARCHAR2, SeqNr IN NUMBER) RETURN VARCHAR2 IS - Value VARCHAR2(128); - BEGIN - BEGIN - SELECT cad_slnkstruct_valstr INTO Value - FROM cad_slnkstruct - WHERE cad_slnkstruct_sessionid = Session_Id - AND cad_slnkstruct_entry = Entry - AND cad_slnkstruct_seqnr = SeqNr; - RETURN Value; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_SLNKSTRUCTreadVALSTR2; - - - FUNCTION cad_SLNKSTRUCTreadVALREAL(Session_Id IN NUMBER, Entry IN VARCHAR2) RETURN NUMBER IS - Value NUMBER; - BEGIN - BEGIN - SELECT cad_slnkstruct_valreal INTO Value - FROM cad_slnkstruct - WHERE cad_slnkstruct_sessionid = Session_Id - AND cad_slnkstruct_entry = Entry - AND cad_slnkstruct_seqnr = 1; - RETURN Value; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_SLNKSTRUCTreadVALREAL; - - - FUNCTION cad_SLNKSTRUCTreadVALDATE(Session_Id IN NUMBER, Entry IN VARCHAR2) RETURN DATE IS - Value DATE; - BEGIN - BEGIN - SELECT cad_slnkstruct_valdate INTO Value - FROM cad_slnkstruct - WHERE cad_slnkstruct_sessionid = Session_Id - AND cad_slnkstruct_entry = Entry - AND cad_slnkstruct_seqnr = 1; - RETURN Value; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_SLNKSTRUCTreadVALDATE; - - - PROCEDURE cad_SLNKgetDrawing(Session_Id IN NUMBER) IS - LPNName VARCHAR2(128); - tekeningnaam VARCHAR2(256); - locatie_key NUMBER(10); - locCode VARCHAR2(5); - DwgString VARCHAR2(261); - - BEGIN - LocCode := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR2(Session_id, 'INFOS', 1); - LPNName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR2(Session_id, 'INFOS', 2); - SELECT alg_locatie_key INTO locatie_key - FROM alg_v_aanweziglocatie - WHERE alg_locatie_code = LocCode; - IF LPNName = 'LPN_BIS_BORING' THEN - BEGIN - SELECT cad_tekening_filenaam - INTO tekeningnaam - FROM cad_v_cad_tekening - WHERE alg_locatie_key = locatie_key - AND cad_tekening_type = 'D' - AND ins_discipline_key = - (SELECT ins_discipline_key - FROM ins_tab_discipline - WHERE UPPER(ins_discipline_omschrijving) = 'MILIEU'); - EXCEPTION - WHEN NO_DATA_FOUND THEN - tekeningnaam := NULL; - END; - ELSE - /* Later misschien verder uitwerken voor LPN_ALG_TERREINSECTOR, LPN_BIS_PROJECT en LPN_BIS_ONTGRAVINGSVAK. - * Voorlopig voor al deze LPN's dezelfde acties. - */ - BEGIN - SELECT cad_tekening_filenaam - INTO tekeningnaam - FROM cad_v_cad_tekening - WHERE alg_locatie_key = locatie_key - AND cad_tekening_type = 'C'; - EXCEPTION - WHEN NO_DATA_FOUND THEN - tekeningnaam := NULL; - END; - END IF; - DwgString := LocCode||CHR(92)||tekeningnaam; - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SRCDWG', 1, DwgString, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - END cad_SLNKgetDrawing; - - - - FUNCTION cad_getLayerColor(Entry IN VARCHAR2) RETURN NUMBER IS - LayerColor NUMBER(3); - BEGIN - BEGIN - SELECT cad_symbool_kleur INTO LayerColor - FROM cad_symbool - WHERE cad_symbool_entry = Entry; - RETURN LayerColor; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_getLayerColor; - - FUNCTION cad_getLayerLinetype(Entry IN VARCHAR2) RETURN VARCHAR2 IS - LayerLinetype VARCHAR2(256); - BEGIN - BEGIN - SELECT cad_symbool_linetype INTO LayerLinetype - FROM cad_symbool - WHERE cad_symbool_entry = Entry; - RETURN LayerLinetype; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_getLayerLinetype; - - FUNCTION cad_getLayerName(Entry IN VARCHAR2) RETURN VARCHAR2 IS - LayerName VARCHAR2(256); - BEGIN - BEGIN - SELECT cad_symbool_layer INTO LayerName - FROM cad_symbool - WHERE cad_symbool_entry = Entry; - RETURN LayerName; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN NULL; - END; - RETURN NULL; - END cad_getLayerName; - - -#ifdef BIS - PROCEDURE cad_KILLtrajecten(Session_Id IN NUMBER, Diepte IN NUMBER, Datum IN DATE) IS - Eerste BOOLEAN; - BEGIN - DECLARE - varTemp NUMBER(10, 0); - TrajectRec_bis_traject_key NUMBER(10, 0); - CURSOR EindTrajectGroter IS - SELECT DISTINCT BIS_BT1.bis_boring_key - FROM cad_slnkstruct CAD_S, bis_v_boring_trajecten BIS_BT1 - WHERE CAD_S.cad_slnkstruct_sessionid = 114866 - AND CAD_S.cad_slnkstruct_entry = 'LPNKEYDELO' - AND CAD_S.cad_slnkstruct_valint = BIS_BT1.bis_boring_key - AND Diepte >= - (SELECT MAX(BIS_BT2.bis_traject_einddiepte) - FROM bis_v_boring_trajecten BIS_BT2 - WHERE BIS_BT2.bis_boring_key = BIS_BT1.bis_boring_key); - - - /* Als Diepte > einddiepte laatste traject v/e boring -> verwijder hele boring */ - BEGIN - Eerste := TRUE; - FOR TrajectRec IN EindTrajectGroter LOOP - UPDATE bis_boring - SET bis_boring_verwijderdatum = Datum -#ifndef MS_SQL - WHERE bis_boring_key = TrajectRec.bis_boring_key -#else - WHERE bis_boring_key = TO_NUMBER(TrajectRec) -#endif - AND bis_boring_verwijderdatum IS NULL; - COMMIT; - IF Eerste=TRUE THEN - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASDELA', 1,'LPN_BIS_BORING', 1); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, TrajectRec.bis_boring_key, 1); -#else - varTemp := TO_NUMBER(TrajectRec); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, varTemp, 1); -#endif - Eerste := FALSE; - ELSE - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASDELA', 1,'LPN_BIS_BORING', 0); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, TrajectRec.bis_boring_key, 0); -#else - varTemp := TO_NUMBER(TrajectRec); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, varTemp, 0); -#endif - END IF; - END LOOP; - END; - DECLARE - CURSOR TrajectKleinerDiepte IS - SELECT CAD_S.cad_slnkstruct_valint, bis_traject_key - FROM cad_slnkstruct CAD_S, bis_v_boring_trajecten BIS_BT - WHERE CAD_S.cad_slnkstruct_sessionid = Session_Id - AND CAD_S.cad_slnkstruct_entry = 'LPNKEYDELO' - AND CAD_S.cad_slnkstruct_valint = BIS_BT.bis_boring_key - AND BIS_BT.bis_traject_einddiepte < Diepte; - - /* Hele traject valt binnen het ontgravingsvak */ - BEGIN -#ifndef MS_SQL - FOR TrajectRec IN TrajectKleinerDiepte LOOP -#else - LOOP - FETCH NEXT FROM TrajectKleinerDiepte INTO varTemp, TrajectRec_bis_traject_key; - IF @@FETCH_STATUS = -1 THEN - CLOSE TrajectKleinerDiepte; - DEALLOCATE TrajectKleinerDiepte; - EXIT; - END IF; -#endif - UPDATE bis_traject - SET bis_traject_einddatum = Datum - WHERE bis_traject_key = TrajectRec.bis_traject_key - AND bis_traject_einddatum IS NULL; - /* Als een traject wordt verwijderd dan moet het ook uit het mengmonster verwijderd worden */ - DELETE FROM bis_traject_mengmonster - WHERE bis_traject_mengmonster_key = TrajectRec.bis_traject_key; - COMMIT; -#ifndef MS_SQL - END LOOP; -#else - END LOOP; -#endif - END; - - DECLARE - CURSOR TrajectOverlap IS - SELECT CAD_S.cad_slnkstruct_valint, BIS_BT.bis_traject_key - FROM cad_slnkstruct CAD_S, bis_v_boring_trajecten BIS_BT - WHERE CAD_S.cad_slnkstruct_sessionid = Session_Id - AND CAD_S.cad_slnkstruct_entry = 'LPNKEYDELO' - AND CAD_S.cad_slnkstruct_valint = BIS_BT.bis_boring_key - AND BIS_BT.bis_traject_begindiepte < Diepte - AND BIS_BT.bis_traject_einddiepte > Diepte; - - /* Het traject valt gedeeltelijk binnen het ontgravingsvak */ - BEGIN -#ifndef MS_SQL - FOR TrajectRec IN TrajectOverlap LOOP -#else - LOOP - FETCH NEXT FROM TrajectOverlap INTO varTemp, TrajectRec_bis_traject_key; - IF @@FETCH_STATUS = -1 THEN - CLOSE TrajectOverlap; - DEALLOCATE TrajectOverlap; - EXIT; - END IF; -#endif - UPDATE bis_traject - SET bis_traject_begindiepte = Diepte - WHERE bis_traject_key = TrajectRec.bis_traject_key; - COMMIT; -#ifndef MS_SQL - END LOOP; -#else - END LOOP; -#endif - END; - END cad_KILLtrajecten; - - - FUNCTION cad_GETBoringSymbolName(Boring_key IN NUMBER) RETURN VARCHAR2 IS - SymboolNaam VARCHAR2(128); - GrondBoring VARCHAR2(1); - GrondwaterBoring VARCHAR2(1); - AantalPeilbuizen VARCHAR2(1); - Sondering VARCHAR2(1); - BoringRec_bis_boring_key NUMBER(10, 0); - BoringRec_bis_grond_key NUMBER(10, 0); - BoringRec_bis_grondwater_key NUMBER(10, 0); - BoringRec_bis_sondering_key NUMBER(10, 0); - - Cursor BoringCursor IS - SELECT bis_boring_key, bis_grond_key, bis_grondwater_key, bis_sondering_key - FROM bis_v_aanwezigbor_boringtype - WHERE bis_boring_key = Boring_Key; - - BEGIN -#ifndef MS_SQL - GrondBoring := '0'; - GrondwaterBoring := '0'; - AantalPeilbuizen := '0'; - Sondering := '0'; -#else -[skip] - set @GrondBoring = '0'; - set @GrondwaterBoring = '0'; - set @AantalPeilbuizen = '0'; - set @Sondering = '0'; -[/skip] -#endif - - SELECT count(*) INTO AantalPeilbuizen - FROM bis_v_aanwezigbor_boringtype - WHERE bis_boring_key = Boring_Key - AND bis_grondwater_key IS NOT NULL; - -#ifndef MS_SQL - FOR BoringRec IN BoringCursor LOOP -#else - LOOP - FETCH NEXT FROM BoringCursor INTO BoringRec_bis_boring_key, - BoringRec_bis_grond_key, BoringRec_bis_grondwater_key, BoringRec_bis_sondering_key ; - IF @@FETCH_STATUS = -1 THEN - CLOSE BoringCursor; - DEALLOCATE BoringCursor; - EXIT; - END IF; -#endif - IF BoringRec.bis_sondering_key IS NOT NULL AND Sondering = 0 THEN - Sondering := 1; - END IF; - IF BoringRec.bis_grond_key IS NOT NULL AND Grondboring = 0 THEN - Grondboring := 1; - END IF; - IF BoringRec.bis_grondwater_key IS NOT NULL AND Grondwaterboring = 0 THEN - Grondwaterboring := 1; - END IF; -#ifndef MS_SQL - END LOOP; -#else - END LOOP; -#endif - - IF Grondboring = 1 AND Grondwaterboring = 1 AND Sondering = 0 AND AantalPeilbuizen = 0 THEN - Grondboring := 0; - ELSIF Grondwaterboring = 1 AND Sondering = 1 THEN - AantalPeilbuizen := 1; - Grondboring := 0; - ELSIF Grondwaterboring = 1 AND AantalPeilbuizen > 1 THEN - AantalPeilbuizen := 2; - Grondboring := 0; - Sondering := 0; - ELSIF Grondwaterboring = 1 AND AantalPeilbuizen = 1 THEN - Grondboring := 0; - ELSE - Grondboring := 1; - Grondwaterboring := 0; - Sondering := 0; - END IF; - BEGIN - SELECT bis_boringblk_symbool INTO SymboolNaam - FROM bis_boringblk - WHERE bis_boringblk_grond = GrondBoring AND bis_boringblk_grondwater = GrondwaterBoring - AND bis_boringblk_aantalpb = Aantalpeilbuizen AND bis_boringblk_sondering = Sondering; - EXCEPTION - WHEN NO_DATA_FOUND THEN - SymboolNaam := NULL; - END; - Return SymboolNaam; - END cad_GETBoringSymbolName; - - /* Eenmalige procedure t.b.v. Grafische conversie BIS */ - PROCEDURE cad_SLNKConvPreDraw(Session_Id IN NUMBER, loc_x_coord IN NUMBER, loc_y_coord IN NUMBER) IS - LPNName VARCHAR2(128); - LPNKey NUMBER(10); - LPNKeyCond NUMBER(10); - Diepte NUMBER(8,2); - Veld_Key NUMBER(10); - Subloc_Code VARCHAR2(10); - Boring_nummer VARCHAR2(5); - Punt_boring BOOLEAN; - Boring_Symbol VARCHAR2(128); - Valint NUMBER; - SeqNr NUMBER(10); - Datum DATE; - - BEGIN - LPNName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASPREDRAW'); - LPNKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYPREDRAW'); - SeqNr := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'SEQ'||'NR'); - IF SeqNr IS NULL THEN - SeqNr := 1; - END IF; - /* Bepaal of er sprake is van een veld(contour) of van een puntboring */ - _EXEC5(cad.cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASINSA', SeqNr, 'LPN_BIS_BORING', 1); - _EXEC5(cad.cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1); - SELECT bis_veld_key, bis_boring_nummer INTO veld_key, boring_nummer - FROM bis_v_aanwezigboring - WHERE bis_boring_key = LPNKey; - IF veld_key IS NULL THEN - Valint := 0; - Punt_boring := TRUE; /* Er moet een boring getekend worden */ - ELSE - Valint := 2; /* Er moet een contour getekend worden */ - Punt_boring := FALSE; - END IF; - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'DIMENSION', SeqNr, Valint, 1); - IF Punt_boring=TRUE THEN - /* Zoek juiste boringsymbool bij Boringnummer */ - Boring_Symbol := _MSSQL(cad.)cad_GETBoringSymbolName(LPNKey); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'BLOCK', SeqNr, Boring_Symbol, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYER', SeqNr, 'BORING', 1); - END IF; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLINSA', SeqNr, 'BIS_BORING_KEY', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNALIASCONDA', SeqNr, 'LPN_ALG_TERREINSECTOR', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLCONDA', SeqNr, 'ALG_TERREINSECTOR_KEY', 1); - SELECT alg_terreinsector_key INTO LPNKeyCond - FROM bis_v_aanwezigboring - WHERE bis_boring_key = LPNKey; - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'LPNKEYCONDA', SeqNr, LPNKeyCond, 1); - IF Punt_boring=TRUE THEN - _EXEC5(cad.cad_SLNKstructinsertVALREAL,Session_Id,'INSPOINTX', SeqNr, loc_x_coord, 1); - _EXEC5(cad.cad_SLNKstructinsertVALREAL,Session_Id,'INSPOINTY', SeqNr, loc_y_coord, 1); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'INSPOINTCODE', SeqNr, 1, 1); - END IF; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABELCOL',SeqNr, 'BIS_BORING_NUMMER', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABEL',SeqNr, boring_nummer, 1); - END cad_SLNKConvPreDraw; -#endif // BIS - - FUNCTION CheckLPNCondKey(LPNCondName IN VARCHAR2, LPNCondKey IN NUMBER) RETURN BOOLEAN IS - Dummy NUMBER(10); - BEGIN - IF LPNCondName = 'LPN_ALG_TERREINSECTOR' THEN - BEGIN - SELECT alg_terreinsector_key INTO Dummy - FROM alg_terreinsector - WHERE alg_terreinsector_key = LPNCondKey; - RETURN TRUE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN FALSE; - END; - ELSIF LPNCondName = 'LPN_ALG_RUIMTE' THEN - BEGIN - SELECT alg_ruimte_key INTO Dummy - FROM alg_ruimte - WHERE alg_ruimte_key = LPNCondKey; - RETURN TRUE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN FALSE; - END; - ELSIF LPNCondName = 'LPN_PRS_WERKPLEK' THEN - BEGIN - SELECT prs_werkplek_key INTO Dummy - FROM prs_werkplek - WHERE prs_werkplek_key = LPNCondKey; - RETURN TRUE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RETURN FALSE; - END; - ELSE - RETURN FALSE; - END IF; - RETURN FALSE; - END CheckLPNCondKey; - - -/* -FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS - VolgnrTxt VARCHAR2(10); - Volgnummer NUMBER(3); - Numeriek BOOLEAN := TRUE; - SeqNr NUMBER(10); - StreepPos NUMBER(2); - VoorDeStreep VARCHAR2(20); - ReturnString VARCHAR2(30); - - BEGIN - - IF Omschrijving IS NULL THEN - ReturnString := '01'; - RETURN ReturnString; - ELSE - StreepPos := INSTR2(Omschrijving, '-'); - IF StreepPos = 0 THEN - VolgnrTxt := Omschrijving; - ELSE - VoorDeStreep := SUBSTR(Omschrijving,1, StreepPos-1); - VolgnrTxt := SUBSTR(Omschrijving, StreepPos+1, LENGTH(omschrijving)-StreepPos); - END IF; - - FOR i IN 1.. LENGTH(VolgnrTxt) LOOP - IF SUBSTR(VolgnrTxt,i,1) BETWEEN '0' AND '9' OR SUBSTR(VolgnrTxt,i,1) = ' ' THEN - Numeriek := TRUE; - ELSE - Numeriek := FALSE; - EXIT; - END IF; - END LOOP; - IF Numeriek THEN - Volgnummer := TO_NUMBER(VolgnrTxt); - Volgnummer := Volgnummer + 1; - VolgnrTxt := TO_CHAR(Volgnummer); - IF StreepPos <> 0 THEN - VolgnrTxt := '- 0'||VolgnrTxt; - ELSE - VolgnrTxt := '0'||VolgnrTxt; - END IF; - ELSE - Volgnummer := 1; - VolgnrTxt := VolgnrTxt||'- 01'; - END IF; - - IF VoorDeStreep IS NOT NULL THEN - ReturnString := VoorDeStreep||VolgnrTxt; - ELSE - ReturnString := VolgnrTxt; - END IF; - RETURN ReturnString; - END IF; - END Bepaal_VolgnummerTxt; -*/ - - -#ifdef MS_SQL - PROCEDURE AddDeel(Session_Id IN NUMBER, SrtdeelKey IN NUMBER, LoadDwg IN VARCHAR2, LPNCondName IN VARCHAR2, - LPNCondKey IN NUMBER, LPNKey OUT NUMBER ) IS -#else - FUNCTION AddDeel(Session_Id IN NUMBER, SrtdeelKey IN NUMBER, LoadDwg IN VARCHAR2, LPNCondName IN VARCHAR2, - LPNCondKey IN NUMBER) RETURN NUMBER IS -#endif - Plaatsdeel ins_deel.ins_alg_ruimte_type%TYPE; - LocatieCode alg_locatie.alg_locatie_code%TYPE; - LocatieKey alg_locatie.alg_locatie_key%TYPE; - DisciplineKey ins_discipline.ins_discipline_key%TYPE; - Volgnummer NUMBER(3); - SrtgroepKey ins_srtgroep.ins_srtgroep_key%TYPE; - SrtDeelCode ins_srtdeel.ins_srtdeel_code%TYPE; - Omschrijving VARCHAR2(30); - ZoekString VARCHAR2(20); - AntiString VARCHAR2(20); - VolgNrTxt VARCHAR2(30); - SeqNr cad_slnkstruct.cad_slnkstruct_valint%TYPE; -#ifndef MS_SQL - LPNKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; -#endif - MaxLengte NUMBER(10); - Dummy NUMBER(10); - LabelSymbool VARCHAR2(256); - LabelOK BOOLEAN; - - BEGIN - LocatieCode := _MSSQL(cad.)cad_getLocatieCode_Tekening(LoadDwg); - BEGIN - SELECT alg_locatie_key INTO LocatieKey - FROM alg_locatie - WHERE UPPER(alg_locatie_code) = UPPER(LocatieCode); - EXCEPTION - WHEN NO_DATA_FOUND THEN - LocatieKey := NULL; - END; - SELECT ins_discipline_key INTO DisciplineKey - FROM ins_srtgroep - WHERE ins_srtgroep_key = - (SELECT ins_srtgroep_key FROM ins_srtdeel - WHERE ins_srtdeel_key = SrtDeelKey); - - IF LPNCondName = 'LPN_ALG_TERREINSECTOR' THEN - PlaatsDeel := 'T'; - ELSIF LPNCondName = 'LPN_ALG_RUIMTE' THEN - PlaatsDeel := 'R'; - ELSIF LPNCondName = 'LPN_PRS_WERKPLEK' THEN - PlaatsDeel := 'W'; - END IF; - LabelSymbool := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO'); - LabelOK := FALSE; - IF LabelSymbool IS NOT NULL THEN - LabelSymbool := SUBSTR(LabelSymbool,1,10); - BEGIN - SELECT ins_deel_key INTO Dummy - FROM all_v_aanwezigdeel - WHERE ins_deel_upper = LabelSymbool; - LabelOK := FALSE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - LabelOK := TRUE; - Omschrijving := LabelSymbool; - END; - ELSE - LabelOK := FALSE; - END IF; - IF LabelOK=FALSE THEN - SELECT RTRIM(ins_srtdeel_code_upper) INTO SrtDeelCode - FROM ins_srtdeel - WHERE ins_srtdeel_key = SrtdeelKey; - /* vervangen door nieuwe functie in FAC_PAC.SRC - Zoekstring := RTRIM(SrtDeelCode)||' - 0%'; - Antistring := RTRIM(SrtDeelCode)||' - 00%'; - BEGIN - SELECT MAX(LENGTH(ins_deel_omschrijving)) INTO MaxLengte - FROM all_v_aanwezigdeel - WHERE ins_srtdeel_key = SrtdeelKey - AND ins_alg_locatie_key = LocatieKey - AND ins_deel_parent_key IS NULL - AND ins_deel_omschrijving LIKE Zoekstring - AND ins_deel_omschrijving NOT LIKE AntiString; - - SELECT max(ins_deel_omschrijving) INTO Omschrijving - FROM all_v_aanwezigdeel - WHERE ins_srtdeel_key = SrtdeelKey - AND ins_alg_locatie_key = LocatieKey - AND ins_deel_parent_key IS NULL - AND ins_deel_omschrijving LIKE Zoekstring - AND ins_deel_omschrijving NOT LIKE AntiString - AND LENGTH(ins_deel_omschrijving) = MaxLengte; - - IF Omschrijving IS NOT NULL THEN - VolgnrTxt := Bepaal_VolgnummerTxt(Omschrijving); - ELSE - VolgnrTxt := RTRIM(SrtdeelCode)||' - 01'; - END IF; - EXCEPTION - WHEN NO_DATA_FOUND THEN - VolgnrTxt := RTRIM(SrtdeelCode)||' - 01'; - END; - Omschrijving := VolgnrTxt; -*/ - - Omschrijving := _MSSQL(WEB.)FAC_F_FAC_GET_DESCRIPTION('LPN_INS_DEEL', LocatieKey, SrtDeelCode, SrtdeelKey); - END IF; - - INSERT INTO ins_deel(ins_srtdeel_key, ins_alg_ruimte_key, ins_alg_ruimte_type, ins_deel_aantal, - ins_deel_omschrijving, ins_alg_locatie_key, ins_discipline_key) - VALUES(SrtdeelKey, LPNCondKey, PlaatsDeel, 1, Omschrijving, LocatieKey, DisciplineKey); - COMMIT; - BEGIN - SELECT ins_deel_key INTO LPNKey - FROM all_v_aanwezigdeel - WHERE ins_srtdeel_key = SrtdeelKey - AND ins_deel_omschrijving = omschrijving - AND ins_alg_ruimte_key = LPNCondKey - AND ins_alg_ruimte_type = PlaatsDeel; - RETURN LPNKey; - EXCEPTION - WHEN NO_DATA_FOUND THEN - NULL; - END; - END AddDeel; - - -#ifndef MS_SQL - FUNCTION cad_MaakCadTekening(LPNALIAS IN VARCHAR2, LPNKEY IN VARCHAR2, SrtTekening IN CHAR) RETURN VARCHAR2 IS -#else - PROCEDURE cad_MaakCadTekening(LPNALIAS IN VARCHAR2, LPNKEY IN VARCHAR2, SrtTekening IN CHAR, TekeningNaam OUT VARCHAR2) IS -#endif - LocatieKey alg_locatie.alg_locatie_key%TYPE; - LocatieCode alg_locatie.alg_locatie_code%TYPE; - VerdiepingKey alg_ruimte.alg_verdieping_key%TYPE; - DisciplineKey ins_discipline.ins_discipline_key%TYPE; -#ifndef MS_SQL - TekeningNaam cad_tekening.cad_tekening_filenaam%TYPE; -#endif - TekeningKey cad_tekening.cad_tekening_key%TYPE; - PlaatsDeel ins_deel.ins_alg_ruimte_type%TYPE; - - BEGIN - IF LPNALIAS = 'LPN_ALG_TERREINSECTOR' THEN -#ifndef MS_SQL - SELECT alg_locatie_key,alg_locatie_code INTO LocatieKey, LocatieCode - FROM alg_locatie - WHERE alg_locatie_key = - (SELECT alg_locatie_key FROM alg_terreinsector - WHERE alg_terreinsector_key = LPNKey); -#else - SELECT LocatieKey=alg_locatie_key,LocatieCode=alg_locatie_code - FROM alg_locatie - WHERE alg_locatie_key = - (SELECT alg_locatie_key FROM alg_terreinsector - WHERE alg_terreinsector_key = LPNKey); -#endif - - /* Tekening bestaat nog NIET, dus aanmaken ... - * Naam v.d. tekening is waarde v.d. toe te voegen key v.d. tabel cad_tekening + '.DWG' - */ -#ifndef MS_SQL - SELECT cad_s_cad_tekening_key.NEXTVAL INTO TekeningKey FROM DUAL; -#endif - TekeningNaam := TO_CHAR(TekeningKey)||'.DWG'; - VerdiepingKey := NULL; - DisciplineKey := NULL; - ELSIF LPNALIAS = 'LPN_ALG_GEBOUW' THEN -#ifndef MS_SQL - SELECT alg_locatie_key,alg_locatie_code INTO LocatieKey, LocatieCode - FROM alg_locatie - WHERE alg_locatie_key = - (SELECT alg_locatie_key FROM alg_gebouw - WHERE alg_gebouw_key = LPNKey); -#else - SELECT LocatieKey=alg_locatie_key,LocatieCode=alg_locatie_code - FROM alg_locatie - WHERE alg_locatie_key = - (SELECT alg_locatie_key FROM alg_gebouw - WHERE alg_gebouw_key = LPNKey); -#endif - -#ifndef MS_SQL - SELECT cad_s_cad_tekening_key.NEXTVAL INTO TekeningKey FROM DUAL; -#endif - TekeningNaam := TO_CHAR(TekeningKey)||'.DWG'; - VerdiepingKey := NULL; - DisciplineKey := NULL; - ELSIF LPNALIAS = 'LPN_ALG_RUIMTE' THEN -#ifndef MS_SQL - SELECT alg_locatie_key,alg_locatie_code, alg_verdieping_key INTO LocatieKey, LocatieCode, VerdiepingKey - FROM alg_v_ruimte_gegevens - WHERE alg_ruimte_key = LPNKey; -#else - SELECT LocatieKey=alg_locatie_key,LocatieCode=alg_locatie_code, VerdiepingKey=alg_verdieping_key - FROM alg_v_ruimte_gegevens - WHERE alg_ruimte_key = LPNKey; -#endif -#ifndef MS_SQL - SELECT cad_s_cad_tekening_key.NEXTVAL INTO TekeningKey FROM DUAL; -#endif - TekeningNaam := TO_CHAR(TekeningKey)||'.DWG'; - DisciplineKey := NULL; - ELSIF LPNALIAS = 'LPN_INS_DEEL' THEN - SELECT ins_alg_locatie_key, ins_alg_ruimte_type INTO LocatieKey, PlaatsDeel - FROM ins_deel - WHERE ins_deel_key = LPNKey; - - LocatieCode := _MSSQL(cad.)Bepaal_LocatieCode(LocatieKey); - IF SrtTekening = 'D' THEN - DisciplineKey := _MSSQL(cad.)cad_f_deel_get_discipline(LPNKey); - ELSE - DisciplineKey := NULL; - END IF; - IF PlaatsDeel = 'T' THEN /* Deel bevindt zich buiten */ - VerdiepingKey := NULL; - ELSE - VerdiepingKey := _MSSQL(cad.)cad_f_deel_get_verdieping(LPNKey); - END IF; -#ifndef MS_SQL - SELECT cad_s_cad_tekening_key.NEXTVAL INTO TekeningKey FROM DUAL; -#endif - TekeningNaam := TO_CHAR(TekeningKey)||'.DWG'; - ELSIF LPNALIAS = 'LPN_PRS_WERKPLEK' THEN - SELECT alg_locatie_key, alg_verdieping_key INTO LocatieKey, VerdiepingKey - FROM prs_v_werkplek_gegevens - WHERE prs_werkplek_key = LPNKey; - LocatieCode := _MSSQL(cad.)Bepaal_LocatieCode(LocatieKey); -#ifndef MS_SQL - SELECT cad_s_cad_tekening_key.NEXTVAL INTO TekeningKey FROM DUAL; -#endif - TekeningNaam := TO_CHAR(TekeningKey)||'.DWG'; - DisciplineKey := NULL; - END IF; - INSERT INTO cad_tekening( -#ifndef MS_SQL -cad_tekening_key, -#endif - alg_locatie_key, alg_verdieping_key, ins_discipline_key, - cad_tekening_filenaam, cad_tekening_type) - VALUES( -#ifndef MS_SQL - TekeningKey, -#endif - LocatieKey, VerdiepingKey, DisciplineKey, TekeningNaam, SrtTekening); - COMMIT; - Tekeningnaam := LocatieCode||CHR(92)||TekeningNaam; - RETURN TekeningNaam; - END cad_MaakCadTekening; - - - FUNCTION cad_GetSrcDwgOfEntity(Session_Id IN NUMBER, LPNAliasINSO IN VARCHAR2, LPNKey IN NUMBER) RETURN VARCHAR2 IS - SrcDwg cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LocatieCode alg_locatie.alg_locatie_code%TYPE; - LocatieKey alg_locatie.alg_locatie_key%TYPE; - VerdiepingKey alg_verdieping.alg_verdieping_key%TYPE; - - BEGIN - IF LPNAliasINSO = 'LPN_INS_DEEL' THEN - /* Bepaal Disciplinetekening */ - SrcDwg := _MSSQL(cad.)cad_f_deel_get_tekeningnaam(LPNKey); - SELECT ins_alg_locatie_key INTO LocatieKey - FROM ins_deel - WHERE ins_deel_key = LPNKey; - Locatiecode := _MSSQL(cad.)Bepaal_locatiecode(LocatieKey); - IF SrcDwg IS NOT NULL THEN - SrcDwg := Locatiecode||CHR(92)||SrcDwg; - ELSE - SrcDwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_INS_DEEL', LPNKey, 'D'); - END IF; - ELSIF LPNAliasINSO = 'LPN_ALG_TERREINSECTOR' THEN - SELECT alg_locatie_key INTO Locatiekey - FROM alg_terreinsector - WHERE alg_terreinsector_key = LPNKey; - SrcDwg := _MSSQL(cad.)cad_getContourtekening(LocatieKey); - IF SrcDwg IS NULL THEN - SrcDwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_ALG_TERREINSECTOR', LPNKey, 'C'); - END IF; - ELSIF LPNAliasINSO = 'LPN_ALG_GEBOUW' THEN - SELECT alg_locatie_key INTO Locatiekey - FROM alg_gebouw - WHERE alg_gebouw_key = LPNKey; - SrcDwg := _MSSQL(cad.)cad_getContourtekening(LocatieKey); - IF SrcDwg IS NULL THEN - SrcDwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_ALG_GEBOUW', LPNKey, 'C'); - END IF; - ELSIF LPNAliasINSO = 'LPN_ALG_RUIMTE' THEN - SELECT alg_locatie_key, alg_verdieping_key - INTO locatiekey, verdiepingkey - FROM alg_v_ruimte_gegevens - WHERE alg_ruimte_key = LPNKey; - SrcDwg := _MSSQL(cad.)cad_getVerdiepCntr_tekening(Locatiekey, Verdiepingkey); - IF SrcDwg IS NULL THEN - SrcDwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_ALG_RUIMTE', LPNKey, 'C'); - END IF; - ELSIF LPNAliasINSO = 'LPN_PRS_WERKPLEK' THEN - SELECT alg_locatie_key, alg_verdieping_key - INTO Locatiekey, Verdiepingkey - FROM alg_v_ruimte_gegevens - WHERE alg_ruimte_key = - (SELECT prs_alg_ruimte_key FROM prs_werkplek - WHERE prs_werkplek_key = LPNKey); - SrcDwg := _MSSQL(cad.)cad_getVerdiepCntr_tekening(LocatieKey, Verdiepingkey); /* Contourtekening verdieping */ - IF SrcDwg IS NULL THEN - SrcDwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_PRS_WERKPLEK', LPNKey, 'C'); - END IF; --- ELSE - /* Komt hier in de toekomst een ERROR-melding ? */ --- NULL; - END IF; - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'INFOS', 1, srcdwg, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - RETURN SrcDwg; - END cad_GetSrcDwgOfEntity; - - PROCEDURE cad_GetSrcDwgOfEntity2(Session_Id IN NUMBER, LPNAliasINSO IN VARCHAR2, LPNKey IN NUMBER) IS - SrcDwg cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - - BEGIN - IF LPNAliasINSO = 'LPN_INS_DEEL' THEN - SrcDwg := _MSSQL(cad.)cad_GetSrcDwgOfEntity(Session_Id, 'LPN_INS_DEEL', LPNKey); - ELSIF LPNAliasINSO = 'LPN_ALG_TERREINSECTOR' THEN - SrcDwg := _MSSQL(cad.)cad_GetSrcDwgOfEntity(Session_Id, 'LPN_ALG_TERREINSECTOR', LPNKey); - ELSIF LPNAliasINSO = 'LPN_ALG_GEBOUW' THEN - SrcDwg := _MSSQL(cad.)cad_GetSrcDwgOfEntity(Session_Id,'LPN_ALG_GEBOUW', LPNKey); - ELSIF LPNAliasINSO = 'LPN_ALG_RUIMTE' THEN - SrcDwg := _MSSQL(cad.)cad_GetSrcDwgOfEntity(Session_Id, 'LPN_ALG_RUIMTE', LPNKey); - ELSIF LPNAliasINSO = 'LPN_PRS_WERKPLEK' THEN - SrcDwg := _MSSQL(cad.)cad_GetSrcDwgOfEntity(Session_Id, 'LPN_PRS_WERKPLEK', LPNKey); - -- ELSE - /* Komt hier in de toekomst een ERROR-melding ? */ - -- NULL; - END IF; - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'INFOS', 1, srcdwg, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - END cad_GetSrcDwgOfEntity2; - - - PROCEDURE cad_SLNKPreDraw(Session_Id IN NUMBER) IS - LPNName cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LPNKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; - LPNKeyCond cad_slnkstruct.cad_slnkstruct_valint%TYPE; -#ifdef BIS - Diepte NUMBER(8,2); - Veld_Key NUMBER(10); - Boring_nummer VARCHAR2(5); - Projectnr VARCHAR2(8); - Ontgraafvak_Naam VARCHAR2(32); - Punt_boring BOOLEAN; - Boring_Symbol VARCHAR2(128); -#endif //BIS - LocatieKey alg_locatie.alg_locatie_key%TYPE; - VerdiepingKey alg_verdieping.alg_verdieping_key%TYPE; - DisciplineKey ins_discipline.ins_discipline_key%TYPE; - locatiecode alg_locatie.alg_locatie_code%TYPE; - Subloc_Code alg_terreinsector.alg_terreinsector_code%TYPE; - RuimteNr alg_ruimte.alg_ruimte_nr%TYPE; - WerkplekNr prs_werkplek.prs_werkplek_volgnr%TYPE; - gebouwcode alg_gebouw.alg_gebouw_code%TYPE; - Src_Dwg cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - Load_Dwg cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - AttachDwg1 cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - AttachDwg2 cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - Valint cad_slnkstruct.cad_slnkstruct_valint%TYPE; - SeqNr cad_slnkstruct.cad_slnkstruct_valint%TYPE; - Datum DATE; - Eerste BOOLEAN; - LayerNaam ins_srtdeel.ins_srtdeel_cadlayer%TYPE; - varLayerColor ins_srtdeel.ins_srtdeel_cadlaycolor%TYPE; - varLayerLineType ins_srtdeel.ins_srtdeel_cadlaylinetype%TYPE; - Symbool ins_srtdeel.ins_srtdeel_acadsymbol%TYPE; - Opmaat ins_srtdeel.ins_srtdeel_opmaat%TYPE; - SrtdeelKey ins_srtdeel.ins_srtdeel_key%TYPE; - Dimensie ins_srtdeel.ins_srtdeel_dimensie%TYPE; - PlaatsDeel ins_deel.ins_alg_ruimte_type%TYPE; - Omschrijving VARCHAR2(30); - SrtTekening VARCHAR2(20); - varTemp VARCHAR2(100); - BEGIN - LPNName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASPREDRAW'); - LPNKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYPREDRAW'); - varTemp := 'SEQ' || 'NR'; - SeqNr := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, varTemp); - IF SeqNr IS NULL THEN - SeqNr := 1; - END IF; - IF LPNName = 'LPN_INS_DEEL' THEN - _EXEC5(cad.cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASINSA', SeqNr, 'LPN_INS_DEEL', 1); - _EXEC5(cad.cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1); - /* Bepaal soortdeelkey */ - SELECT ins_srtdeel_key INTO SrtdeelKey - FROM ins_deel - WHERE ins_deel_key = LPNKey; - /* Lees de grafische gegevens uit tabel ins_srtdeel */ -#ifndef MS_SQL - SELECT ins_srtdeel_cadlaycolor, ins_srtdeel_cadlaylinetype,ins_srtdeel_cadlayer, ins_srtdeel_acadsymbol, - ins_srtdeel_opmaat, ins_srtdeel_dimensie - INTO varLayerColor, varLayerLineType, LayerNaam, Symbool, Opmaat, Dimensie - FROM ins_srtdeel - WHERE ins_srtdeel_key = SrtdeelKey; -#else - SELECT varLayerColor=ins_srtdeel_cadlaycolor, - varLayerLineType=ins_srtdeel_cadlaylinetype, - LayerNaam=ins_srtdeel_cadlayer, Symbool=ins_srtdeel_acadsymbol, - Opmaat=ins_srtdeel_opmaat, Dimensie=ins_srtdeel_dimensie - FROM ins_srtdeel - WHERE ins_srtdeel_key = SrtdeelKey; -#endif - - _EXEC5(cad.cad_SLNKSTRUCTinsertVALINT,Session_Id,'DIMENSION', SeqNr, Dimensie, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLINSA', SeqNr, 'INS_DEEL_KEY', 1); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'LAYERCOLOR', SeqNr, varLayerColor, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYERLINETYPE', SeqNr, varLayerLinetype, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYER', SeqNr, Layernaam, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'BLOCK', SeqNr, Symbool, 1); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'SCALE', SeqNr, Opmaat, 1); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'INSPOINTCODE', SeqNr, 0, 1); - /* Bepaal of een deel geplaatst is op een T(erreinsector) of in een R(uimte)/W(erkplek)... */ - SELECT ins_alg_ruimte_type INTO PlaatsDeel - FROM ins_deel - WHERE ins_deel_key = LPNKey; - IF PlaatsDeel = 'T' THEN /* Terreinsector */ - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNALIASCONDA', SeqNr, 'LPN_ALG_TERREINSECTOR', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLCONDA', SeqNr, 'ALG_TERREINSECTOR_KEY', 1); - ELSE /* Ruimte of Werkplek */ - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNALIASCONDA', SeqNr, 'LPN_ALG_RUIMTE', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLCONDA', SeqNr, 'ALG_RUIMTE_KEY', 1); - END IF; - IF PlaatsDeel = 'W' THEN /* Bepaal ruimte waarin werkplek zich bevindt en geef ruimtekey ervan door */ - SELECT prs_alg_ruimte_key INTO LPNKeyCond - FROM prs_werkplek - WHERE prs_werkplek_key = - (SELECT ins_alg_ruimte_key FROM ins_deel - WHERE ins_deel_key = LPNKey); - ELSE - SELECT ins_alg_ruimte_key INTO LPNKeyCond - FROM ins_deel - WHERE ins_deel_key = LPNKey; - END IF; - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'LPNKEYCONDA', SeqNr, LPNKeyCond, 1); - SELECT ins_alg_locatie_key INTO LocatieKey - FROM ins_deel - WHERE ins_deel_key = LPNKey; - Locatiecode := _MSSQL(cad.)Bepaal_locatiecode(LocatieKey); -/* - Src_Dwg := _MSSQL(cad.)cad_f_deel_get_tekeningnaam(LPNKey); - IF Src_Dwg IS NOT NULL THEN - Src_Dwg := Locatiecode||CHR(92)||Src_Dwg; - ELSE - Src_Dwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_INS_DEEL', LPNKey, 'D'); - END IF; - */ - - Src_Dwg := _MSSQL(cad.)cad_GetSrcDwgOfEntity(Session_Id, 'LPN_INS_DEEL', LPNKey); - /* Bepaal Load_Dwg */ - IF PlaatsDeel = 'T' THEN /* Terreinsector */ - Load_Dwg := _MSSQL(cad.)cad_getPlattegrondtekening(Locatiekey); - ELSE /* Ruimte of Werkplek */ - SELECT alg_verdieping_key INTO VerdiepingKey - FROM alg_ruimte - WHERE alg_ruimte_key = LPNKeyCond; - Load_Dwg := _MSSQL(cad.)cad_getVerdiepPlgrnd_tekening(LocatieKey, Verdiepingkey); - END IF; - IF Load_Dwg IS NULL THEN - Load_Dwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_INS_DEEL', LPNKey, 'P'); - END IF; - /* Bepaal Attachdwg's */ - IF PlaatsDeel = 'T' THEN /* Terreinsector */ - AttachDwg1 := _MSSQL(cad.)cad_getContourtekening(LocatieKey); /* Contourtekening locatie */ - ELSE /* Ruimte of Werkplek */ - AttachDwg1 := _MSSQL(cad.)cad_getVerdiepCntr_tekening(LocatieKey, Verdiepingkey); /* Contourtekening verdieping */ - END IF; - IF AttachDwg1 IS NULL THEN - AttachDwg1 := _MSSQL(cad.)cad_MaakCadTekening('LPN_INS_DEEL', LPNKey, 'C'); - END IF; - AttachDwg2 := Src_Dwg; - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'SRCDWG', SeqNr, Src_Dwg, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'LOADDWG', SeqNr, Load_Dwg, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, AttachDwg1, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, Attachdwg2, 0); - IF PlaatsDeel = 'T' THEN - DECLARE Cursor D_tekeningen IS - SELECT cad_tekening_filenaam - FROM cad_v_discipline - WHERE alg_locatie_key = LocatieKey - AND alg_verdieping_key IS NULL - AND ins_discipline_key IN - (SELECT ins_discipline_key - FROM INS_v_aanwezigdiscipline); - BEGIN - FOR TekenRec IN D_tekeningen LOOP -#ifndef MS_SQL - varTemp := LocatieCode||CHR(92)||Tekenrec.cad_tekening_filenaam; -#else - varTemp := LocatieCode||CHR(92)||Tekenrec; -#endif - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0); - END LOOP; - END; - ELSE - DECLARE Cursor D_tekeningen IS - SELECT cad_tekening_filenaam - FROM cad_v_discipline - WHERE alg_locatie_key = LocatieKey - AND alg_verdieping_key = VerdiepingKey - AND ins_discipline_key IN - (SELECT ins_discipline_key - FROM INS_v_aanwezigdiscipline); - BEGIN - FOR TekenRec IN D_tekeningen LOOP -#ifndef MS_SQL - varTemp := LocatieCode||CHR(92)||Tekenrec.cad_tekening_filenaam; -#else - varTemp := LocatieCode||CHR(92)||Tekenrec; -#endif - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0); - END LOOP; - END; - END IF; - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'LABELCOL', SeqNr, 'INS_DEEL_CADLABEL', 1); - SELECT ins_deel_omschrijving INTO Omschrijving - FROM ins_deel - WHERE ins_deel_key = LPNKey; - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'LABEL',SeqNr, Omschrijving, 1); - ELSIF LPNName = 'LPN_ALG_GEBOUW' THEN - _EXEC5(cad.cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASINSA', SeqNr, 'LPN_ALG_GEBOUW', 1); - _EXEC5(cad.cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'DIMENSION', SeqNr, 2, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLINSA', SeqNr, 'ALG_GEBOUW_KEY', 1); - varLayerColor := _MSSQL(cad.)cad_getLayercolor('ALG_GEBOUW'); - varLayerLineType := _MSSQL(cad.)cad_getLayerlinetype('ALG_GEBOUW'); - LayerNaam := _MSSQL(cad.)cad_getLayername('ALG_GEBOUW'); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'LAYERCOLOR', SeqNr, varLayerColor, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYERLINETYPE', SeqNr, varLayerLinetype, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYER', SeqNr, Layernaam, 1); - SELECT alg_locatie_key INTO Locatiekey - FROM alg_gebouw - WHERE alg_gebouw_key = LPNKey; - Locatiecode := _MSSQL(cad.)Bepaal_locatiecode(LocatieKey); - Load_Dwg := _MSSQL(cad.)cad_getPlattegrondtekening(LocatieKey); - IF Load_Dwg IS NULL THEN - Load_Dwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_ALG_GEBOUW', LPNKey, 'P'); - END IF; -/* - Src_Dwg := _MSSQL(cad.)cad_getContourtekening(LocatieKey); - IF Src_Dwg IS NULL THEN - Src_Dwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_ALG_GEBOUW', LPNKey, 'C'); - END IF; - */ - /* Schrijf Src_Dwg weg in cad_slnkstruct */ - Src_Dwg := _MSSQL(cad.)cad_GetSrcDwgOfEntity(Session_Id, 'LPN_ALG_GEBOUW', LPNKey); - AttachDwg1 := Src_Dwg; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'SRCDWG', 1, Src_Dwg, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LOADDWG', 1, Load_Dwg, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', 1, AttachDwg1, 1); - DECLARE Cursor D_tekeningen IS - SELECT cad_tekening_filenaam - FROM cad_v_discipline - WHERE alg_locatie_key = LocatieKey - AND alg_verdieping_key IS NULL - AND ins_discipline_key IN - (SELECT ins_discipline_key - FROM INS_v_aanwezigdiscipline); - BEGIN - FOR TekenRec IN D_tekeningen LOOP -#ifndef MS_SQL - varTemp := LocatieCode||CHR(92)||Tekenrec.cad_tekening_filenaam; -#else - varTemp := LocatieCode||CHR(92)||Tekenrec; -#endif - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0); - END LOOP; - END; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABELCOL',SeqNr, 'ALG_GEBOUW_CADLABEL', 1); - SELECT alg_gebouw_code INTO gebouwcode - FROM alg_v_aanweziggebouw - WHERE alg_gebouw_key = LPNKey; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABEL',SeqNr, gebouwcode, 1); - ELSIF LPNName = 'LPN_ALG_RUIMTE' THEN - _EXEC5(cad.cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASINSA', SeqNr, 'LPN_ALG_RUIMTE', 1); - _EXEC5(cad.cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'DIMENSION', SeqNr, 2, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLINSA', SeqNr, 'ALG_RUIMTE_KEY', 1); - varLayerColor := _MSSQL(cad.)cad_getLayercolor('ALG_RUIMTE'); - varLayerLineType := _MSSQL(cad.)cad_getLayerlinetype('ALG_RUIMTE'); - LayerNaam := _MSSQL(cad.)cad_getLayername('ALG_RUIMTE'); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'LAYERCOLOR', SeqNr, varLayerColor, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYERLINETYPE', SeqNr, varLayerLinetype, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYER', SeqNr, Layernaam, 1); - SELECT alg_locatie_key, alg_verdieping_key - INTO locatiekey, verdiepingkey - FROM alg_v_ruimte_gegevens - WHERE alg_ruimte_key = LPNKey; - LocatieCode := _MSSQL(cad.)Bepaal_locatiecode(LocatieKey); - Load_Dwg := _MSSQL(cad.)cad_getVerdiepPlgrnd_tekening(Locatiekey, Verdiepingkey); - IF Load_Dwg IS NULL THEN - Load_Dwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_ALG_RUIMTE', LPNKey, 'P'); - END IF; -/* - Src_Dwg := _MSSQL(cad.)cad_getVerdiepCntr_tekening(Locatiekey, Verdiepingkey); - IF Src_Dwg IS NULL THEN - Src_Dwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_ALG_RUIMTE', LPNKey, 'C'); - END IF; - */ - /* Schrijf Src_Dwg weg in cad_slnkstruct */ - Src_Dwg := _MSSQL(cad.)cad_GetSrcDwgOfEntity(Session_Id, 'LPN_ALG_RUIMTE', LPNKey); - AttachDwg1 := Src_Dwg; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'SRCDWG', SeqNr, Src_Dwg, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LOADDWG', SeqNr, Load_Dwg, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, AttachDwg1, 1); - DECLARE Cursor D_tekeningen IS - SELECT cad_tekening_filenaam - FROM cad_v_discipline - WHERE alg_locatie_key = LocatieKey - AND alg_verdieping_key = VerdiepingKey - AND ins_discipline_key IN - (SELECT ins_discipline_key - FROM INS_v_aanwezigdiscipline); - BEGIN - FOR TekenRec IN D_tekeningen LOOP -#ifndef MS_SQL - varTemp := LocatieCode||CHR(92)||Tekenrec.cad_tekening_filenaam; -#else - varTemp := LocatieCode||CHR(92)||Tekenrec; -#endif - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0); - END LOOP; - END; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABELCOL', SeqNr, 'ALG_RUIMTE_CADLABEL', 1); - SELECT alg_ruimte_nr INTO RuimteNr - FROM alg_ruimte - WHERE alg_ruimte_key = LPNKey; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABEL',SeqNr, RuimteNr, 1); - ELSIF LPNNAME = 'LPN_PRS_WERKPLEK' THEN - _EXEC5(cad.cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASINSA', SeqNr, 'LPN_PRS_WERKPLEK', 1); - _EXEC5(cad.cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'DIMENSION', SeqNr, 0, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLINSA', SeqNr, 'PRS_WERKPLEK_KEY', 1); - varLayerColor := _MSSQL(cad.)cad_getLayercolor('PRS_WERKPLEK'); - varLayerLineType := _MSSQL(cad.)cad_getLayerlinetype('PRS_WERKPLEK'); - LayerNaam := _MSSQL(cad.)cad_getLayername('PRS_WERKPLEK'); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'LAYERCOLOR', SeqNr, varLayerColor, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYERLINETYPE', SeqNr, varLayerLinetype, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYER', SeqNr, Layernaam, 1); - SELECT cad_symbool_symbool INTO symbool - FROM cad_symbool - WHERE cad_symbool_entry = 'PRS_WERKPLEK'; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'BLOCK', SeqNr, Symbool, 1); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'SCALE', SeqNr, 1, 1); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'INSPOINTCODE', SeqNr, 0, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNALIASCONDA', SeqNr, 'LPN_ALG_RUIMTE', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLCONDA', SeqNr, 'ALG_RUIMTE_KEY', 1); - SELECT prs_alg_ruimte_key INTO LPNKeyCond - FROM prs_werkplek - WHERE prs_werkplek_key = LPNKey; - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'LPNKEYCONDA', SeqNr, LPNKeyCond, 1); - /* Bepaal de bijbehorende tekeningen */ - SELECT alg_locatie_key, alg_verdieping_key - INTO locatiekey, verdiepingkey - FROM alg_v_ruimte_gegevens - WHERE alg_ruimte_key = - (SELECT prs_alg_ruimte_key FROM prs_werkplek - WHERE prs_werkplek_key = LPNKey); - LocatieCode := _MSSQL(cad.)Bepaal_locatiecode(LocatieKey); -/* - Src_Dwg := _MSSQL(cad.)cad_getVerdiepCntr_tekening(LocatieKey, Verdiepingkey); -- Contourtekening verdieping - IF Src_Dwg IS NULL THEN - Src_Dwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_PRS_WERKPLEK', LPNKey, 'C'); - END IF; - */ - /* Schrijf Src_Dwg weg in cad_slnkstruct */ - Src_Dwg := _MSSQL(cad.)cad_GetSrcDwgOfEntity(Session_Id, 'LPN_PRS_WERKPLEK', LPNKey); - Load_Dwg := _MSSQL(cad.)cad_getVerdiepPlgrnd_tekening(LocatieKey, Verdiepingkey); -- Plattegrondtekening verdieping - IF Load_Dwg IS NULL THEN - Load_Dwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_PRS_WERKPLEK', LPNKey, 'P'); - END IF; - AttachDwg1 := Src_Dwg; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'SRCDWG', SeqNr, Src_Dwg, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LOADDWG', SeqNr, Load_Dwg, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, AttachDwg1, 1); - DECLARE Cursor D_tekeningen IS - SELECT cad_tekening_filenaam - FROM cad_v_discipline - WHERE alg_locatie_key = LocatieKey - AND alg_verdieping_key = VerdiepingKey - AND ins_discipline_key IN - (SELECT ins_discipline_key - FROM INS_v_aanwezigdiscipline); - BEGIN - FOR TekenRec IN D_tekeningen LOOP -#ifndef MS_SQL - varTemp := LocatieCode||CHR(92)||Tekenrec.cad_tekening_filenaam; -#else - varTemp := LocatieCode||CHR(92)||Tekenrec; -#endif - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0); - END LOOP; - END; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABELCOL',SeqNr, 'PRS_WERKPLEK_CADLABEL', 1); - SELECT prs_werkplek_volgnr INTO WerkplekNr - FROM prs_werkplek - WHERE prs_werkplek_key = LPNKey; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABEL',SeqNr, WerkplekNr, 1); - ELSIF LPNNAME = 'LPN_ALG_TERREINSECTOR' THEN - _EXEC5(cad.cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASINSA', SeqNr, 'LPN_ALG_TERREINSECTOR', 1); - _EXEC5(cad.cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'DIMENSION', SeqNr, 2, 1); - #ifdef BIS - LayerNaam := 'SUBLOCATIE'; - #else - varLayerColor := _MSSQL(cad.)cad_getLayercolor('ALG_TERREINSECTOR'); - varLayerLineType := _MSSQL(cad.)cad_getLayerlinetype('ALG_TERREINSECTOR'); - LayerNaam := _MSSQL(cad.)cad_getLayername('ALG_TERREINSECTOR'); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'LAYERCOLOR', SeqNr, varLayerColor, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYERLINETYPE', SeqNr, varLayerLinetype, 1); - #endif //NONBIS - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYER', SeqNr, Layernaam, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLINSA', SeqNr, 'ALG_TERREINSECTOR_KEY', 1); - SELECT alg_locatie_key INTO Locatiekey - FROM alg_terreinsector - WHERE alg_terreinsector_key = LPNKey; - LocatieCode := _MSSQL(cad.)Bepaal_locatiecode(LocatieKey); - Load_Dwg := _MSSQL(cad.)cad_getPlattegrondtekening(LocatieKey); - IF Load_Dwg IS NULL THEN - Load_Dwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_ALG_TERREINSECTOR', LPNKey, 'P'); - END IF; -/* - Src_Dwg := _MSSQL(cad.)cad_getContourtekening(LocatieKey); - IF Src_Dwg IS NULL THEN - Src_Dwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_ALG_TERREINSECTOR', LPNKey, 'C'); - END IF; - */ - /* Schrijf Src_Dwg weg in cad_slnkstruct */ - Src_Dwg := _MSSQL(cad.)cad_GetSrcDwgOfEntity(Session_Id, 'LPN_ALG_TERREINSECTOR', LPNKey); - AttachDwg1 := Src_Dwg; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'SRCDWG', 1, Src_Dwg, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LOADDWG', 1, Load_Dwg, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', 1, AttachDwg1, 1); - DECLARE Cursor D_tekeningen IS - SELECT cad_tekening_filenaam - FROM cad_v_discipline - WHERE alg_locatie_key = LocatieKey - AND alg_verdieping_key IS NULL - AND ins_discipline_key IN - (SELECT ins_discipline_key - FROM INS_v_aanwezigdiscipline); - BEGIN - FOR TekenRec IN D_tekeningen LOOP -#ifndef MS_SQL - varTemp := LocatieCode||CHR(92)||Tekenrec.cad_tekening_filenaam; -#else - varTemp := LocatieCode||CHR(92)||Tekenrec; -#endif - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0); - END LOOP; - END; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABELCOL',SeqNr, 'ALG_TERREINSECTOR_CADLABEL', 1); - SELECT alg_terreinsector_code INTO Subloc_code - FROM alg_v_aanwezigterreinsector - WHERE alg_terreinsector_key = LPNKey; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABEL',SeqNr, Subloc_code, 1); - #ifdef BIS - /* Zet alle boringen die binnen deze sublocatie vallen in de tabel cad_slnkstruct */ - DECLARE - CURSOR Sectorboring IS - SELECT bis_boring_key - FROM bis_v_aanwezigboring - WHERE alg_terreinsector_key = LPNKey; - BEGIN - Eerste := TRUE; - FOR BoringRec IN Sectorboring LOOP - IF Eerste=TRUE THEN - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASCONDAOUTER', 1,'LPN_BIS_BORING', 1); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYCONDAOUTER', 1, BoringRec.bis_boring_key, 1); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYCONDAOUTER', 1, BoringRec, 1); -#endif - Eerste := FALSE; - ELSE - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASCONDAOUTER', 1,'LPN_BIS_BORING', 0); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYCONDAOUTER', 1, BoringRec.bis_boring_key, 0); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYCONDAOUTER', 1, BoringRec, 0); -#endif - END IF; - END LOOP; - END; - ELSIF LPNNAME = 'LPN_BIS_BORING' THEN - _EXEC5(cad.cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASINSA', SeqNr, 'LPN_BIS_BORING', 1); - _EXEC5(cad.cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1); - /* Bepaal of er sprake is van een veld(contour) of van een puntboring */ - SELECT bis_veld_key, bis_boring_nummer INTO veld_key, boring_nummer - FROM bis_v_aanwezigboring - WHERE bis_boring_key = LPNKey; - IF veld_key IS NULL THEN - Valint := 0; - Punt_boring := TRUE; /* Er moet een boring getekend worden */ - ELSE - Valint := 2; /* Er moet een contour getekend worden */ - Punt_boring := FALSE; - END IF; - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'DIMENSION', SeqNr, Valint, 1); - /* Zoek de juiste tekeningen bij de boring */ - BEGIN - SELECT ins_discipline_key INTO DisciplineKey - FROM ins_discipline - WHERE ins_discipline_omschrijving = 'Milieu'; - EXCEPTION - WHEN NO_DATA_FOUND THEN - DisciplineKey := NULL; - END; - Locatiekey := bis.bis_boring_get_locatie(LPNKey); - Src_Dwg := _MSSQL(cad.)cad_getDisciplinetekening(LocatieKey, DisciplineKey); - Load_Dwg := _MSSQL(cad.)cad_getPlattegrondtekening(LocatieKey); - AttachDwg1 := _MSSQL(cad.)cad_getContourtekening(LocatieKey); - AttachDwg2 := Src_Dwg; - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'SRCDWG', SeqNr, Src_Dwg, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'LOADDWG', SeqNr, Load_Dwg, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, AttachDwg1, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, Attachdwg2, 0); - IF Punt_boring=TRUE THEN - /* Zoek juiste boringsymbool bij Boringnummer */ - Boring_Symbol := _MSSQL(cad.)cad_GETBoringSymbolName(LPNKey); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'BLOCK', SeqNr, Boring_Symbol, 1); - END IF; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYER', SeqNr, 'BORING', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLINSA', SeqNr, 'BIS_BORING_KEY', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNALIASCONDA', SeqNr, 'LPN_ALG_TERREINSECTOR', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLCONDA', SeqNr, 'ALG_TERREINSECTOR_KEY', 1); - SELECT alg_terreinsector_key INTO LPNKeyCond - FROM bis_v_aanwezigboring - WHERE bis_boring_key = LPNKey; - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'LPNKEYCONDA', SeqNr, LPNKeyCond, 1); - IF Punt_boring=TRUE THEN - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'INSPOINTCODE', SeqNr, 0, 1); - END IF; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABELCOL',SeqNr, 'BIS_BORING_NUMMER', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABEL',SeqNr, boring_nummer, 1); - ELSIF LPNNAME = 'LPN_BIS_PROJECT' THEN - _EXEC5(cad.cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASINSA', SeqNr, 'LPN_BIS_PROJECT', 1); - _EXEC5(cad.cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'DIMENSION', SeqNr, 2, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYER', SeqNr, 'PROJECT', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLINSA', SeqNr, 'BIS_PROJECT_KEY', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABELCOL',SeqNr, 'BIS_PROJECT_NR', 1); - SELECT alg_locatie_key INTO Locatiekey - FROM bis_project - WHERE bis_project_key = LPNKey; - Src_Dwg := _MSSQL(cad.)cad_getContourtekening(LocatieKey); - Load_Dwg := _MSSQL(cad.)cad_getPlattegrondtekening(LocatieKey); - AttachDwg1 := Src_Dwg; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'SRCDWG', 1, Src_Dwg, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LOADDWG', 1, Load_Dwg, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', 1, AttachDwg1, 1); - SELECT bis_project_nr INTO ProjectNr - FROM bis_v_aanwezigproject - WHERE bis_project_key = LPNKey; - ProjectNr := SUBSTR(ProjectNr,1,2)||'-'||SUBSTR(ProjectNr,3,6); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABEL',SeqNr, ProjectNr, 1); - ELSIF LPNName = 'LPN_BIS_ONTGRAVINGSVAK' THEN - _EXEC5(cad.cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASINSA', SeqNr, 'LPN_BIS_ONTGRAVINGSVAK', 1); - _EXEC5(cad.cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYINSA', SeqNr, LPNKey, 1); - _EXEC5(cad.cad_SLNKstructinsertVALINT,Session_Id,'DIMENSION', SeqNr, 2, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LAYER', SeqNr, 'ONTGRAVINSVAK', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LPNCOLINSA', SeqNr, 'BIS_ONTGRAVINGSVAK_KEY', 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABELCOL',SeqNr, 'BIS_ONTGRAVINGSVAK_NAAM', 1); - SELECT bis_ontgravingsvak_naam INTO Ontgraafvak_naam - FROM bis_ontgravingsvak - WHERE bis_ontgravingsvak_key = LPNKey; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LABEL',SeqNr, Ontgraafvak_naam, 1); - SELECT alg_locatie_key INTO LocatieKey - FROM bis_ontgravingsvak - WHERE bis_ontgravingsvak_key = LPNKey; - Src_Dwg := _MSSQL(cad.)cad_getContourtekening(LocatieKey); - Load_Dwg := _MSSQL(cad.)cad_getPlattegrondtekening(LocatieKey); - AttachDwg1 := Src_Dwg; - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'SRCDWG', 1, Src_Dwg, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'LOADDWG', 1, Load_Dwg, 1); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', 1, AttachDwg1, 1); - SELECT bis_ontgravingsvak_diepte INTO Diepte - FROM bis_ontgravingsvak - WHERE bis_ontgravingsvak_key = LPNKey; - _EXEC5(cad.cad_SLNKstructinsertVALREAL,Session_Id,'DEPTH', SeqNr, Diepte, 1); - SELECT bis_ontgravingsvak_aanmaak INTO Datum - FROM bis_ontgravingsvak - WHERE bis_ontgravingsvak_key = LPNKey; - - varTemp := TO_CHAR(Datum); - _EXEC5(cad.cad_SLNKstructinsertVALSTR,Session_Id,'DATE', SeqNr, varTemp, 1); - #endif //BIS - END IF; - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - END cad_SLNKPreDraw; - - PROCEDURE cad_SLNKPrePostUndo(Session_id IN NUMBER, RetValue OUT BOOLEAN -) IS - varLPNAliasINSO cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - varLPNKeyINSO cad_slnkstruct.cad_slnkstruct_valint%TYPE; - Code VARCHAR2(10); - RuimteKey alg_ruimte.alg_ruimte_key%TYPE; - WerkplekNr prs_werkplek.prs_werkplek_volgnr%TYPE; - VerdiepingKey alg_ruimte.alg_verdieping_key%TYPE; - LocatieKey alg_locatie.alg_locatie_key%TYPE; - SrtdeelKey ins_srtdeel.ins_srtdeel_key%TYPE; - Omschrijving VARCHAR2(30); - Dummy NUMBER(10); - varNow DATE; - BEGIN -#ifndef MS_SQL - varNow := SYSDATE; -#else - SELECT myGetDate INTO varNow FROM vwGetDate; -#endif - - varLPNAliasINSO := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASINSO'); - varLPNKeyINSO := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYINSO'); - IF varLPNKeyINSO IS NOT NULL THEN - BEGIN - IF varLPNAliasINSO = 'LPN_ALG_TERREINSECTOR' THEN - SELECT alg_locatie_key, alg_terreinsector_code INTO LocatieKey, Code - FROM alg_terreinsector - WHERE alg_terreinsector_key = varLPNKeyINSO; - BEGIN - SELECT alg_terreinsector_key INTO Dummy - FROM alg_v_aanwezigterreinsector - WHERE alg_locatie_key = LocatieKey - AND alg_terreinsector_code = Code; - RetValue := FALSE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - /* Verwijderdatum wordt NULL */ - UPDATE alg_terreinsector - SET alg_terreinsector_verwijder = NULL, - alg_terreinsector_getekend = varNow /* It's CAD */ - WHERE alg_terreinsector_key = varLPNKeyINSO; - RetValue := TRUE; - END; - ELSIF varLPNAliasINSO = 'LPN_ALG_GEBOUW' THEN - SELECT alg_locatie_key, alg_gebouw_code INTO LocatieKey, Code - FROM alg_gebouw - WHERE alg_gebouw_key = varLPNKeyINSO; - BEGIN - SELECT alg_gebouw_key INTO Dummy - FROM alg_v_aanweziggebouw - WHERE alg_locatie_key = LocatieKey - AND alg_gebouw_code = Code; - RetValue := FALSE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - /* Verwijderdatum wordt NULL */ - UPDATE alg_gebouw - SET alg_gebouw_verwijder = NULL, - alg_gebouw_getekend = varNow /* It's CAD */ - WHERE alg_gebouw_key = varLPNKeyINSO; - RetValue := TRUE; - END; - ELSIF varLPNAliasINSO = 'LPN_ALG_RUIMTE' THEN - SELECT alg_verdieping_key, alg_ruimte_upper_nr INTO VerdiepingKey, Code - FROM alg_ruimte - WHERE alg_ruimte_key = varLPNKeyINSO; - BEGIN - SELECT alg_ruimte_key INTO Dummy - FROM alg_v_aanwezigruimte - WHERE alg_verdieping_key = VerdiepingKey - AND alg_ruimte_upper_nr = Code; - RetValue := FALSE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - /* Verwijderdatum wordt NULL */ - UPDATE alg_ruimte - SET alg_ruimte_verwijder = NULL, - alg_ruimte_getekend = varNow /* It's CAD */ - WHERE alg_ruimte_key = varLPNKeyINSO; - RetValue := TRUE; - END; - ELSIF varLPNAliasINSO = 'LPN_PRS_WERKPLEK' THEN - SELECT prs_alg_ruimte_key, prs_werkplek_volgnr INTO RuimteKey, Werkpleknr - FROM prs_werkplek - WHERE prs_werkplek_key = varLPNKeyINSO; - BEGIN - SELECT prs_werkplek_key INTO Dummy - FROM prs_v_aanwezigwerkplek - WHERE prs_alg_ruimte_key = RuimteKey - AND prs_werkplek_volgnr = WerkplekNr; - RetValue := FALSE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - /* Verwijderdatum wordt NULL */ - UPDATE prs_werkplek - SET prs_werkplek_verwijder = NULL, - prs_werkplek_getekend = varNow /* IT's CAD */ - WHERE prs_werkplek_key = varLPNKeyINSO; - RetValue := TRUE; - END; - ELSIF varLPNAliasINSO = 'LPN_INS_DEEL' THEN - SELECT ins_alg_locatie_key, ins_srtdeel_key, ins_deel_upper INTO LocatieKey, SrtdeelKey, Omschrijving - FROM ins_deel - WHERE ins_deel_key = varLPNKeyINSO; - BEGIN - SELECT ins_deel_key INTO dummy - FROM all_v_aanwezigdeel - WHERE ins_alg_locatie_key = LocatieKey - AND ins_srtdeel_key = SrtDeelKey - AND ins_deel_parent_key IS NULL - AND ins_deel_upper = Omschrijving; - RetValue := FALSE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - UPDATE ins_deel - SET ins_deel_verwijder = NULL, - ins_deel_getekend = varNow /* It's CAD */ - WHERE ins_deel_key = varLPNKeyINSO; - RetValue := TRUE; - END; - ELSE - RetValue := FALSE; - RETURN; - END IF; - EXCEPTION - WHEN NO_DATA_FOUND THEN - RetValue := FALSE; - END; - ELSE - RetValue := FALSE; /* Geen undo gegevens vanuit AutoCAD - gewoon toevoegen via PrePostDraw */ - END IF; - IF RetValue=TRUE THEN - _EXEC1(_MSSQL(cad.)cad_SLNKSTRUCTclear,Session_Id); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASPREDRAW', 1, varLPNAliasINSO, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYPREDRAW', 1, varLPNKeyINSO, 1); - _EXEC1(_MSSQL(cad.)cad_SLNKPreDraw,Session_Id); - END IF; - END cad_SLNKPrePostUndo; - - - PROCEDURE cad_SLNKPrePostDimensie0(Session_Id IN NUMBER) IS - Dimensie ins_srtdeel.ins_srtdeel_dimensie%TYPE; - LayerNaam ins_srtdeel.ins_srtdeel_cadlayer%TYPE; - Symbool ins_srtdeel.ins_srtdeel_acadsymbol%TYPE; - SymboolLayer ins_srtdeel.ins_srtdeel_cadlayer%TYPE; - LabelSymbool VARCHAR2(256); - SrtdeelKey ins_srtdeel.ins_srtdeel_key%TYPE; - LPNName cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LPNKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; - LPNCondName cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LPNCondKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; - BlockNaam ins_srtdeel.ins_srtdeel_acadsymbol%TYPE; - LPNCondKeyOK BOOLEAN; - RecordAdded BOOLEAN; - RuimteNr alg_ruimte.alg_ruimte_nr%TYPE; - RuimteKey alg_ruimte.alg_ruimte_key%TYPE; - WerkplekNr prs_werkplek.prs_werkplek_volgnr%TYPE; - LoadDwg cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - SeqNr cad_slnkstruct.cad_slnkstruct_valint%TYPE; - Omschrijving VARCHAR2(30); - Dummy NUMBER(10); - LabelOK BOOLEAN; - varLPNAliasINSO cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - varLPNKeyINSO cad_slnkstruct.cad_slnkstruct_valint%TYPE; - - BEGIN - Dimensie := 0; - LayerNaam := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LAYER'); - LPNCondName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO'); - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYCONDO'); - BlockNaam := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'BLOCK'); - LoadDwg := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LOA'||'DDWG'); - IF LPNCondKey IS NOT NULL THEN - SELECT cad_symbool_symbool, cad_symbool_layer INTO Symbool, SymboolLayer - FROM cad_symbool - WHERE cad_symbool_entry = 'PRS_WERKPLEK'; - IF BlockNaam = Symbool -- i.o.v. mb AND LayerNaam = SymboolLayer - THEN - /* Het is een werkplek - Check eerst of LPNCondkey wel ruimtekey is */ - IF LPNCondName = 'LPN_ALG_RUIMTE' THEN - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF LPNCondKeyOK=FALSE THEN - SeqNr := 2; - LOOP - LPNCondName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR2(Session_id, 'LPNALIASCONDO', SeqNr); - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT2(Session_id, 'LPNKEYCONDO', SeqNr); - IF LPNCondKey IS NULL THEN - EXIT; - END IF; - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_ALG_RUIMTE' THEN - EXIT; - END IF; - LPNCondKeyOK := FALSE; - SeqNr := SeqNr + 1; - END LOOP; - END IF; - ELSE - LPNCondKeyOK := FALSE; - END IF; - IF LPNCondKeyOK=TRUE THEN - LabelSymbool := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO'); - LabelOK := FALSE; - IF LabelSymbool IS NOT NULL THEN - LabelSymbool := SUBSTR(LabelSymbool,1,3); - /* Vanuit AutoCAD voorstel voor een label binnengekregen */ - BEGIN - SELECT prs_werkplek_key INTO Dummy - FROM all_v_aanwezigwerkplek - WHERE prs_alg_ruimte_key = LPNCondKey - AND prs_werkplek_volgnr = TO_NUMBER(LabelSymbool); - LabelOK := FALSE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - /* Label bestaat nog niet */ - LabelOK := TRUE; - WerkplekNr := TO_NUMBER(LabelSymbool); - Omschrijving := LabelSymbool; - END; - ELSE - LabelOK := FALSE; - END IF; - IF LabelOK=FALSE THEN - /* Bepaal het volgnummer v/d toe te voegen werkplek */ - BEGIN - SELECT MAX(prs_werkplek_volgnr) + 1 - INTO WerkplekNr - FROM all_v_aanwezigwerkplek - WHERE prs_alg_ruimte_key = LPNCondKey - AND prs_werkplek_module = 'PRR'; - IF WerkplekNr IS NULL THEN - WerkplekNr := 1; - END IF; - EXCEPTION - WHEN NO_DATA_FOUND THEN - werkplekNr := 1; - END; - - /* Omschrijving */ - SELECT alg_ruimte_nr INTO RuimteNr - FROM alg_ruimte - WHERE alg_ruimte_key = LPNCondKey; - Omschrijving := RuimteNr||' - '||TO_CHAR(WerkplekNr); - END IF; - - INSERT INTO prs_werkplek(prs_werkplek_module, prs_werkplek_volgnr, prs_werkplek_omschrijving, - prs_alg_ruimte_key, prs_werkplek_getekend) - VALUES ('PRR', WerkplekNr, Omschrijving, LPNCondKey, SYSDATE); - RecordAdded := TRUE; - /* Bepaal sleutel van zojuist toegevoegde werkplek i.v.m. aanroep Predraw */ - LPNName := 'LPN_PRS_WERKPLEK'; - BEGIN - SELECT prs_werkplek_key INTO LPNKey - FROM prs_v_aanwezigwerkplek - WHERE prs_alg_ruimte_key = LPNCondKey - AND prs_werkplek_volgnr = WerkplekNr; - EXCEPTION - WHEN NO_DATA_FOUND THEN - LPNKey := NULL; - END; - ELSE - RecordAdded := FALSE; - END IF; - ELSE - /* Het is geen WERKPLEK - check of het een srtdeel is */ - - /* gebruik in dit geval geen MIN() .... - SELECT MIN(ins_srtdeel_key) INTO SrtDeelKey - FROM ins_srtdeel - WHERE ins_srtdeel_dimensie = Dimensie - AND ins_srtdeel_cadlayer = UPPER(LayerNaam) - AND ins_srtdeel_acadsymbol = UPPER(BlockNaam) - AND ins_srtdeel_verwijder IS NULL; - - ... maar gebruik hiervoor in de plaats rownum = 1 */ - BEGIN - SELECT _MSSQL(top 1) ins_srtdeel_key INTO SrtDeelKey - FROM ins_srtdeel - WHERE ins_srtdeel_dimensie = Dimensie - AND ins_srtdeel_cadlayer = UPPER(LayerNaam) - AND ins_srtdeel_acadsymbol = UPPER(BlockNaam) - AND ins_srtdeel_verwijder IS NULL - _ORACLE(AND rownum = 1); - EXCEPTION - WHEN NO_DATA_FOUND THEN - SrtDeelKey := NULL; - END; - - IF SrtDeelKey IS NOT NULL THEN - /* Het is een srtdeel, dus voeg een deel toe */ - IF LPNCondName = 'LPN_ALG_TERREINSECTOR' OR LPNCondName = 'LPN_ALG_RUIMTE' OR - LPNCondName = 'LPN_PRS_WERKPLEK' - THEN - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF LPNCondKeyOK=FALSE THEN - Seqnr := 2; - LOOP - LPNCondName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR2(Session_id, 'LPNALIASCONDO', Seqnr); - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT2(Session_id, 'LPNKEYCONDO', Seqnr); - IF LPNCondKey IS NULL THEN - EXIT; - END IF; - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF (LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_ALG_TERREINSECTOR') - OR (LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_ALG_RUIMTE') - OR (LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_PRS_WERKPLEK') THEN - EXIT; - END IF; - LPNCondKeyOK := FALSE; - Seqnr := Seqnr + 1; - END LOOP; - END IF; - ELSE - LPNCondKeyOK := FALSE; - END IF; - IF LPNCondKeyOK=TRUE THEN - LPNName := 'LPN_INS_DEEL'; -#ifndef MS_SQL - LPNKey := _MSSQL(cad.)AddDeel(Session_id, SrtdeelKey, LoadDwg, LPNCondName, LPNCondKey); -#else - _EXEC6(_MSSQL(cad.)AddDeel,Session_id, SrtdeelKey, LoadDwg, LPNCondName, LPNCondKey, LPNKey); -#endif - RecordAdded:= TRUE; - ELSE - RecordAdded:= FALSE; - END IF; - ELSE -/* - SELECT MIN(ins_srtdeel_key) INTO SrtDeelKey - FROM ins_srtdeel - WHERE ins_srtdeel_dimensie = Dimensie - AND ins_srtdeel_acadsymbol = UPPER(BlockNaam) - AND ins_srtdeel_verwijder IS NULL; - */ - BEGIN - SELECT _MSSQL(top 1) ins_srtdeel_key INTO SrtDeelKey - FROM ins_srtdeel - WHERE ins_srtdeel_dimensie = Dimensie - AND ins_srtdeel_acadsymbol = UPPER(BlockNaam) - AND ins_srtdeel_verwijder IS NULL - _ORACLE(AND rownum = 1); - EXCEPTION - WHEN NO_DATA_FOUND THEN - SrtDeelKey := NULL; - END; - - IF SrtDeelKey IS NOT NULL THEN - /* Het is een srtdeel */ - IF LPNCondName = 'LPN_ALG_TERREINSECTOR' OR LPNCondName = 'LPN_ALG_RUIMTE' OR - LPNCondName = 'LPN_PRS_WERKPLEK' - THEN - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF LPNCondKeyOK=FALSE THEN - Seqnr := 2; - LOOP - LPNCondName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR2(Session_id, 'LPNALIASCONDO', Seqnr); - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT2(Session_id, 'LPNKEYCONDO', Seqnr); - IF LPNCondKey IS NULL THEN - EXIT; - END IF; - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF (LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_ALG_TERREINSECTOR') - OR (LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_ALG_RUIMTE') - OR (LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_PRS_WERKPLEK') THEN - EXIT; - END IF; - LPNCondKeyOK := FALSE; - Seqnr := Seqnr + 1; - END LOOP; - END IF; - ELSE - LPNCondKeyOK := FALSE; - END IF; - - IF LPNCondKeyOK=TRUE THEN - LPNName := 'LPN_INS_DEEL'; -#ifndef MS_SQL - LPNKey := _MSSQL(cad.)AddDeel(Session_id,SrtdeelKey, LoadDwg, LPNCondName, LPNCondKey); -#else - _EXEC6(_MSSQL(cad.)AddDeel,Session_id,SrtdeelKey, LoadDwg, LPNCondName, LPNCondKey, LPNKey); -#endif - RecordAdded:= TRUE; - ELSE - RecordAdded:= FALSE; - END IF; - ELSE - RecordAdded:= FALSE; - END IF; - END IF; - END IF; - END IF; - _EXEC1(_MSSQL(cad.)cad_SLNKSTRUCTclear,Session_Id); - IF RecordAdded=TRUE THEN - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASPREDRAW', 1, LPNName, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYPREDRAW', 1, LPNKey, 1); - _EXEC1(_MSSQL(cad.)cad_SLNKPreDraw,Session_Id); - ELSE - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - END IF; - END cad_SLNKPrePostDimensie0; - - PROCEDURE cad_SLNKPrePostDimensie1(Session_Id IN NUMBER) IS - Dimensie ins_srtdeel.ins_srtdeel_dimensie%TYPE; - LayerNaam ins_srtdeel.ins_srtdeel_cadlayer%TYPE; - Symbool ins_srtdeel.ins_srtdeel_acadsymbol%TYPE; - SrtdeelKey ins_srtdeel.ins_srtdeel_key%TYPE; - LPNName cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LPNKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; - LPNCondName cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LPNCondKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; - BlockNaam ins_srtdeel.ins_srtdeel_acadsymbol%TYPE; - LPNCondKeyOK BOOLEAN; - RecordAdded BOOLEAN; - LoadDwg cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - SeqNr cad_slnkstruct.cad_slnkstruct_valint%TYPE; - Omschrijving VARCHAR2(30); - - BEGIN - Dimensie := 1; - LPNCondName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO'); - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYCONDO'); - LayerNaam := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LAYER'); - LoadDwg := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LOA'||'DDWG'); - /* Check of het een soortdeel is... */ - /* - SELECT MIN(ins_srtdeel_key) INTO SrtDeelKey - FROM ins_srtdeel - WHERE ins_srtdeel_dimensie = Dimensie - AND ins_srtdeel_cadlayer = UPPER(LayerNaam) - AND ins_srtdeel_verwijder IS NULL; - */ - BEGIN - SELECT _MSSQL(top 1) ins_srtdeel_key INTO SrtDeelKey - FROM ins_srtdeel - WHERE ins_srtdeel_dimensie = Dimensie - AND ins_srtdeel_cadlayer = UPPER(LayerNaam) - AND ins_srtdeel_verwijder IS NULL - _ORACLE(AND rownum = 1); - EXCEPTION - WHEN NO_DATA_FOUND THEN - SrtDeelKey := NULL; - END; - - IF SrtDeelKey IS NOT NULL THEN - /* Het is een srtdeel */ - IF LPNCondName = 'LPN_ALG_TERREINSECTOR' OR LPNCondName = 'LPN_ALG_RUIMTE' OR - LPNCondName = 'LPN_PRS_WERKPLEK' - THEN - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF LPNCondKeyOK=FALSE THEN - Seqnr := 2; - LOOP - LPNCondName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR2(Session_id, 'LPNALIASCONDO', Seqnr); - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT2(Session_id, 'LPNKEYCONDO', Seqnr); - IF LPNCondKey IS NULL THEN - EXIT; - END IF; - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF (LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_ALG_TERREINSECTOR') - OR (LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_ALG_RUIMTE') - OR (LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_PRS_WERKPLEK') THEN - EXIT; - END IF; - LPNCondKeyOK := FALSE; - Seqnr := Seqnr + 1; - END LOOP; - END IF; - ELSE - LPNCondKeyOK := FALSE; - END IF; - IF LPNCondKeyOK=TRUE THEN - LPNName := 'LPN_INS_DEEL'; -#ifndef MS_SQL - LPNKey := _MSSQL(cad.)AddDeel(Session_id, SrtdeelKey, LoadDwg, LPNCondName, LPNCondKey); -#else - _EXEC6(_MSSQL(cad.)AddDeel,Session_id, SrtdeelKey, LoadDwg, LPNCondName, LPNCondKey, LPNKey); -#endif - RecordAdded:= TRUE; - ELSE - RecordAdded:= FALSE; - END IF; - ELSE - RecordAdded:= FALSE; - END IF; - _EXEC1(_MSSQL(cad.)cad_SLNKSTRUCTclear,Session_Id); - IF RecordAdded=TRUE THEN - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASPREDRAW', 1, LPNName, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYPREDRAW', 1, LPNKey, 1); - _EXEC1(_MSSQL(cad.)cad_SLNKPreDraw,Session_Id); - ELSE - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - END IF; - END cad_SLNKPrePostDimensie1; - - PROCEDURE cad_SLNKPrePostDimensie2(Session_Id IN NUMBER) IS - Dimensie ins_srtdeel.ins_srtdeel_dimensie%TYPE; - LayerNaam ins_srtdeel.ins_srtdeel_cadlayer%TYPE; - LocatieKey alg_locatie.alg_locatie_key%TYPE; - VerdiepingKey alg_verdieping.alg_verdieping_key%TYPE; - VerdiepingNr alg_verdieping.alg_verdieping_volgnr%TYPE; - DisciplineKey ins_discipline.ins_discipline_key%TYPE; - locatiecode alg_locatie.alg_locatie_code%TYPE; - Sectorcode alg_terreinsector.alg_terreinsector_code%TYPE; - Gebouwcode alg_gebouw.alg_gebouw_code%TYPE; - RuimteNr alg_ruimte.alg_ruimte_nr%TYPE; - Symbool ins_srtdeel.ins_srtdeel_acadsymbol%TYPE; - SymboolLayer ins_srtdeel.ins_srtdeel_cadlayer%TYPE; - TekeningNaam cad_tekening.cad_tekening_filenaam%TYPE; - SrtdeelKey ins_srtdeel.ins_srtdeel_key%TYPE; - LPNName cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LPNKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; - LPNCondName cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LPNCondKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; - BlockNaam ins_srtdeel.ins_srtdeel_acadsymbol%TYPE; - LPNCondKeyOK BOOLEAN; - RecordAdded BOOLEAN; - LoadDwg cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - SeqNr cad_slnkstruct.cad_slnkstruct_valint%TYPE; - Omschrijving VARCHAR2(30); - VolgnrTxt VARCHAR2(3); - ZoekString VARCHAR2(20); - StreepPos NUMBER(2); - MaxLengte NUMBER(10); - Dummy NUMBER(10); - LabelSymbool VARCHAR2(256); - LabelOK BOOLEAN; - - BEGIN - RecordAdded := FALSE; - Dimensie := 2; - LayerNaam := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LAYER'); - LoadDwg := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LOA'||'DDWG'); - BlockNaam := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'BLOCK'); - LPNCondName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO'); - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYCONDO'); - - SELECT cad_symbool_layer INTO SymboolLayer - FROM cad_symbool - WHERE cad_symbool_entry = 'ALG_TERREINSECTOR'; - IF LayerNaam = SymboolLayer THEN - /* Het is een terrein ... */ - LocatieCode := _MSSQL(cad.)cad_getLocatieCode_Tekening(LoadDwg); - SELECT alg_locatie_key INTO LocatieKey - FROM alg_locatie - WHERE alg_locatie_code = LocatieCode; - LabelSymbool := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO'); - LabelOK := FALSE; - IF LabelSymbool IS NOT NULL THEN - LabelSymbool := SUBSTR(LabelSymbool,1,10); - BEGIN - /* Check of label reeds bestaat */ - SELECT alg_terreinsector_key INTO Dummy - FROM alg_v_aanwezigterreinsector - WHERE alg_locatie_key = LocatieKey - AND UPPER(alg_terreinsector_code) = LabelSymbool; - LabelOK := FALSE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - LabelOK := TRUE; - SectorCode := LabelSymbool; - END; - ELSE - LabelOK:= FALSE; - END IF; - IF LabelOK=FALSE THEN - /* De terreinsectorcode = locatiecode + volgnummer */ -/* BEGIN - SELECT MAX(LENGTH(alg_terreinsector_code)) INTO MaxLengte - FROM alg_v_aanwezigterreinsector - WHERE alg_locatie_key = LocatieKey - AND alg_terreinsector_code BETWEEN '0' AND '9999999999' - AND alg_terreinsector_code like '0%' - AND alg_terreinsector_code NOT LIKE '00%'; - - SELECT max(alg_terreinsector_code) INTO Omschrijving - FROM alg_v_aanwezigterreinsector - WHERE alg_locatie_key = LocatieKey - AND alg_terreinsector_code BETWEEN '0' AND '9999999999' - AND alg_terreinsector_code like '0%' - AND alg_terreinsector_code NOT LIKE '00%' - AND LENGTH(alg_terreinsector_code) = MaxLengte; - SectorCode := _MSSQL(cad.)Bepaal_VolgnummerTxt(Omschrijving); - EXCEPTION - WHEN NO_DATA_FOUND THEN - SectorCode := '01'; - END; -*/ - SectorCode := _MSSQL(WEB.)FAC_F_FAC_GET_DESCRIPTION('LPN_ALG_TERREINSECTOR', LocatieKey, NULL, NULL); - END IF; - INSERT INTO alg_terreinsector(alg_locatie_key, alg_terreinsector_code, alg_terreinsector_naam) - VALUES (LocatieKey, SectorCode, SectorCode); - RecordAdded := TRUE; - COMMIT; - /* Bepaal sleutel van zojuist toegevoegde terreinsector i.v.m. aanroep Predraw */ - LPNName := 'LPN_ALG_TERREINSECTOR'; - BEGIN - SELECT alg_terreinsector_key INTO LPNKey - FROM alg_v_aanwezigterreinsector - WHERE alg_locatie_key = LocatieKey - AND alg_terreinsector_code = SectorCode; - EXCEPTION - WHEN NO_DATA_FOUND THEN - LPNKey := NULL; - END; - ELSE - /* Het is geen terreinsector, is het een gebouw ? */ - SELECT cad_symbool_Layer INTO SymboolLayer - FROM cad_symbool - WHERE cad_symbool_entry = 'ALG_GEBOUW'; - IF LayerNaam = SymboolLayer THEN - /* Het is een gebouw ... */ - LocatieCode := _MSSQL(cad.)cad_getLocatieCode_Tekening(LoadDwg); - SELECT alg_locatie_key INTO LocatieKey - FROM alg_locatie - WHERE alg_locatie_code = LocatieCode; - LabelSymbool := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO'); - LabelOK := FALSE; - IF LabelSymbool IS NOT NULL THEN - LabelSymbool := SUBSTR(LabelSymbool,1,10); - BEGIN - SELECT alg_gebouw_key INTO Dummy - FROM alg_v_aanweziggebouw - WHERE alg_locatie_key = LocatieKey - AND UPPER(alg_gebouw_code) = UPPER(LabelSymbool); - LabelOK := FALSE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - LabelOK := TRUE; - GebouwCode := LabelSymbool; - END; - ELSE - LabelOK := FALSE; - END IF; - IF labelOK=FALSE THEN -/* - BEGIN - SELECT MAX(LENGTH(alg_gebouw_code)) INTO MaxLengte - FROM alg_v_aanweziggebouw - WHERE alg_locatie_key = LocatieKey - AND alg_gebouw_code BETWEEN '0' AND '9999999999' - AND alg_gebouw_code like '0%' - AND alg_gebouw_code NOT LIKE '00%'; - - SELECT MAX(alg_gebouw_code) INTO omschrijving - FROM alg_v_aanweziggebouw - WHERE alg_locatie_key = LocatieKey - AND alg_gebouw_code BETWEEN '0' AND '9999999999' - AND alg_gebouw_code like '0%' - AND alg_gebouw_code NOT LIKE '00%' - AND LENGTH(alg_gebouw_code) = MaxLengte; - GebouwCode := Bepaal_VolgnummerTxt(Omschrijving); - EXCEPTION - WHEN NO_DATA_FOUND THEN - GebouwCode := '01'; - END; - */ - GebouwCode := _MSSQL(WEB.)FAC_F_FAC_GET_DESCRIPTION('LPN_ALG_GEBOUW', LocatieKey, NULL, NULL); - - END IF; - INSERT INTO alg_gebouw(alg_locatie_key,alg_srtgebouw_key,alg_gebouw_code,alg_gebouw_naam, - alg_gebouw_omschrijving) VALUES(LocatieKey, NULL, GebouwCode, GebouwCode, GebouwCode); - COMMIT; - RecordAdded := TRUE; - /* Bepaal sleutel van zojuist toegevoegde gebouw i.v.m. aanroep Predraw... */ - LPNName := 'LPN_ALG_GEBOUW'; - BEGIN - SELECT alg_gebouw_key INTO LPNKey - FROM alg_v_aanweziggebouw - WHERE alg_locatie_key = LocatieKey - AND UPPER(alg_gebouw_code) = UPPER(GebouwCode); - EXCEPTION - WHEN NO_DATA_FOUND THEN - LPNKey := NULL; - END; - ELSE - /* Het is geen gebouw, is het dan een ruimte ??? */ - SELECT cad_symbool_layer INTO SymboolLayer - FROM cad_symbool - WHERE cad_symbool_entry = 'ALG_RUIMTE'; - IF LayerNaam = SymboolLayer THEN - /* Het is een ruimte ... */ - LocatieCode := _MSSQL(cad.)cad_getLocatieCode_Tekening(LoadDwg); - SELECT alg_locatie_key INTO LocatieKey - FROM alg_locatie - WHERE alg_locatie_code = LocatieCode; - /* Bepaal verdieping -> bepaal eerst tekeningnaam zonder toevoeging Locatiecode... */ - TekeningNaam := _MSSQL(cad.)cad_getTekeningNaam_LoadDwg(LoadDwg); - BEGIN - SELECT alg_verdieping_key INTO VerdiepingKey - FROM cad_v_plattegrond - WHERE alg_locatie_key = LocatieKey - AND UPPER(cad_tekening_filenaam) = UPPER(TekeningNaam) - AND alg_verdieping_key IS NOT NULL; - SELECT alg_verdieping_volgNr INTO VerdiepingNr - FROM alg_verdieping - WHERE alg_verdieping_key = VerdiepingKey; - EXCEPTION - WHEN NO_DATA_FOUND THEN - VerdiepingNr := NULL; - END; - LabelSymbool := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LABELO'); - LabelOK := FALSE; - IF LabelSymbool IS NOT NULL THEN - LabelSymbool := SUBSTR(LabelSymbool,1,10); - BEGIN - SELECT alg_ruimte_key INTO Dummy - FROM alg_v_aanwezigruimte - WHERE alg_verdieping_key = VerdiepingKey - AND alg_ruimte_upper_nr = UPPER(LabelSymbool); - LabelOK := FALSE; - EXCEPTION - WHEN NO_DATA_FOUND THEN - LabelOK := TRUE; - RuimteNr := LabelSymbool; - END; - ELSE - LabelOK := FALSE; - END IF; - IF VerdiepingNr IS NOT NULL THEN - IF LabelOK=FALSE THEN -/* - BEGIN - SELECT MAX(LENGTH(alg_ruimte_nr)) INTO MaxLengte - FROM alg_v_aanwezigruimte - WHERE alg_verdieping_Key = VerdiepingKey - AND alg_ruimte_nr BETWEEN '0' AND '9999999999' - AND alg_ruimte_nr like '0%' - AND alg_ruimte_nr NOT LIKE '00%'; - - SELECT MAX(alg_ruimte_nr) INTO Omschrijving - FROM alg_v_aanwezigruimte - WHERE alg_verdieping_Key = VerdiepingKey - AND alg_ruimte_nr BETWEEN '0' AND '9999999999' - AND alg_ruimte_nr like '0%' - AND alg_ruimte_nr NOT LIKE '00%' - AND LENGTH(alg_ruimte_nr) = MaxLengte; - RuimteNr := Bepaal_VolgnummerTxt(Omschrijving); - EXCEPTION - WHEN NO_DATA_FOUND THEN - RuimteNr := '01'; - END; -*/ - RuimteNr := _MSSQL(WEB.)FAC_F_FAC_GET_DESCRIPTION('LPN_ALG_RUIMTE', VerdiepingKey, NULL, NULL); - END IF; - - INSERT INTO alg_ruimte(alg_verdieping_key, alg_srtruimte_key, alg_ruimte_nr) - VALUES (VerdiepingKey, NULL, RuimteNr); - RecordAdded := TRUE; - /* Bepaal sleutel van zojuist toegevoegde ruimte i.v.m. aanroep Predraw */ - LPNName := 'LPN_ALG_RUIMTE'; - BEGIN - SELECT alg_ruimte_key INTO LPNKey - FROM alg_v_aanwezigruimte - WHERE alg_verdieping_key = VerdiepingKey - AND alg_ruimte_nr = RuimteNr; - EXCEPTION - WHEN NO_DATA_FOUND THEN - LPNKey := NULL; - END; - END IF; - ELSE - /* Het is ook geen ruimte, check of het dan een srtdeel is...*/ - /* - SELECT MIN(ins_srtdeel_key) INTO SrtDeelKey - FROM ins_srtdeel - WHERE ins_srtdeel_dimensie = Dimensie - AND ins_srtdeel_cadlayer = UPPER(LayerNaam) - AND ins_srtdeel_verwijder IS NULL; - */ - - BEGIN - SELECT _MSSQL(top 1) ins_srtdeel_key INTO SrtDeelKey - FROM ins_srtdeel - WHERE ins_srtdeel_dimensie = Dimensie - AND ins_srtdeel_cadlayer = UPPER(LayerNaam) - AND ins_srtdeel_verwijder IS NULL - _ORACLE(AND rownum = 1); - EXCEPTION - WHEN NO_DATA_FOUND THEN - SrtDeelKey := NULL; - END; - --- SM44 Fix #79 AND ins_srtdeel_acadsymbol = UPPER(BlockNaam); - IF SrtDeelKey IS NOT NULL THEN - /* Het is een srtdeel... */ - IF LPNCondName = 'LPN_ALG_TERREINSECTOR' OR LPNCondName = 'LPN_ALG_RUIMTE' OR - LPNCondName = 'LPN_PRS_WERKPLEK' - THEN - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF LPNCondKeyOK=FALSE THEN - Seqnr := 2; - LOOP - LPNCondName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR2(Session_id, 'LPNALIASCONDO', Seqnr); - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT2(Session_id, 'LPNKEYCONDO', Seqnr); - IF LPNCondKey IS NULL THEN - EXIT; - END IF; - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF (LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_ALG_TERREINSECTOR') - OR (LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_ALG_RUIMTE') - OR (LPNCondKeyOK=TRUE AND LPNCondName = 'LPN_PRS_WERKPLEK') THEN - EXIT; - END IF; - LPNCondKeyOK := FALSE; - Seqnr := Seqnr + 1; - END LOOP; - END IF; - ELSE - LPNCondKeyOK := FALSE; - END IF; - IF LPNCondKeyOK=TRUE THEN - LPNName := 'LPN_INS_DEEL'; -#ifndef MS_SQL - LPNKey := _MSSQL(cad.)AddDeel(Session_id, SrtdeelKey, LoadDwg, LPNCondName, LPNCondKey); -#else - _EXEC6(_MSSQL(cad.)AddDeel,Session_id, SrtdeelKey, LoadDwg, LPNCondName, LPNCondKey, LPNKey); -#endif - RecordAdded:= TRUE; - ELSE - RecordAdded:= FALSE; - END IF; - ELSE - /* Het is een onbekend object... */ - RecordAdded:= FALSE; - END IF; - END IF; - END IF; - END IF; - _EXEC1(_MSSQL(cad.)cad_SLNKSTRUCTclear,Session_Id); - IF RecordAdded=TRUE THEN - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id,'LPNALIASPREDRAW', 1, LPNName, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id,'LPNKEYPREDRAW', 1, LPNKey, 1); - _EXEC1(_MSSQL(cad.)cad_SLNKPreDraw,Session_Id); - ELSE - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - END IF; - END cad_SLNKPrePostDimensie2; - - PROCEDURE cad_SLNKPrePostDraw(Session_Id IN NUMBER) IS - Symbool ins_srtdeel.ins_srtdeel_acadsymbol%TYPE; - SymboolLayer ins_srtdeel.ins_srtdeel_cadlayer%TYPE; - SrtdeelKey ins_srtdeel.ins_srtdeel_key%TYPE; - Dimensie ins_srtdeel.ins_srtdeel_dimensie%TYPE; - PlaatsDeel ins_deel.ins_alg_ruimte_type%TYPE; - Omschrijving VARCHAR2(30); - UndoOK BOOLEAN; - BEGIN - _EXEC2(_MSSQL(cad.)cad_SLNKPrePostUndo,Session_Id, UndoOK); - IF UndoOK=FALSE THEN - Dimensie := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'DIMENSION'); - IF Dimensie = 0 THEN - _EXEC1(_MSSQL(cad.)cad_SLNKPrePostDimensie0,Session_Id); - ELSIF Dimensie = 1 THEN - _EXEC1(_MSSQL(cad.)cad_SLNKPrePostDimensie1,Session_Id); - ELSIF Dimensie = 2 THEN - _EXEC1(_MSSQL(cad.)cad_SLNKPrePostDimensie2,Session_Id); --- ELSE --- NULL; - END IF; - END IF; - END cad_SLNKPrePostDraw; - - - PROCEDURE cad_SLNKpostdraw(Session_Id IN NUMBER) IS - LPNName cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LPNKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; - VeldKey NUMBER(10); - Oppervlak NUMBER(13,3); - Omtrek NUMBER(13,3); - Diepte NUMBER(8,2); - Volume NUMBER(12,4); - Datum DATE; - CheckDatum VARCHAR2(11); - varLPNAliasLinkO cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - varLPNKeyLinkO cad_slnkstruct.cad_slnkstruct_valint%TYPE; - LPNCondName cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LPNCondKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; - SeqNr cad_slnkstruct.cad_slnkstruct_valint%TYPE; - Dimensie ins_srtdeel.ins_srtdeel_dimensie%TYPE; - PlaatsDeel ins_deel.ins_alg_ruimte_type%TYPE; - PlaatsKey NUMBER(10); - RuimteKey prs_werkplek.prs_alg_ruimte_key%TYPE; - RuimteType VARCHAR2(1); - DoDeelUpdate BOOLEAN; - varLinkToRoom NUMBER; - LPNCondKeyOk BOOLEAN; - - BEGIN - LPNName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASINSO'); - LPNKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYINSO'); - LPNCondName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO'); - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYCONDO'); - - IF LPNNAME = 'LPN_INS_DEEL' THEN - varLPNAliasLinkO := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_Id, 'LPNALIASLINKO'); - IF varLPNAliasLinkO IS NOT NULL THEN - /* Aanmaken ins_deelkoppeling record voor elke LPNKEYLINKO */ - varLPNKeyLinkO := 1; /* NOT NULL */ - SeqNr := 1; -#ifndef MS_SQL - WHILE (varLPNKeyLinkO IS NOT NULL) LOOP -#else - WHILE (varLPNKeyLinkO IS NOT NULL) - BEGIN -#endif - varLPNKeyLinkO := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT2(Session_Id, 'LPNKEYLINKO', SeqNr); - IF varLPNKeyLinkO IS NOT NULL THEN - INSERT INTO ins_deelkoppeling(ins_deelkoppeling_van_key, ins_deelkoppeling_naar_key) - VALUES (LPNKey, varLPNKeyLinkO); - COMMIT; - SeqNr := SeqNr+1; - END IF; - END LOOP; - END IF; - BEGIN - SELECT ins_srtdeel_dimensie INTO Dimensie - FROM ins_srtdeel - WHERE ins_srtdeel_key = - (SELECT ins_srtdeel_key FROM ins_deel - WHERE ins_deel_key = LPNKey); - EXCEPTION - WHEN NO_DATA_FOUND THEN - Dimensie := NULL; /* Dimensie niet gevonden -> doe verder niets */ - END; - Omtrek := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'LENGTH'); - IF Omtrek IS NOT NULL AND Dimensie <> 0 THEN - UPDATE ins_deel - SET ins_deel_omtrek = Omtrek - WHERE ins_deel_key = LPNKey; - END IF; - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - IF Oppervlak IS NOT NULL AND Dimensie = 2 THEN - UPDATE ins_deel - SET ins_deel_oppervlak = Oppervlak - WHERE ins_deel_key = LPNKey; - END IF; - SELECT ins_alg_ruimte_type, ins_alg_ruimte_key INTO PlaatsDeel, PlaatsKey - FROM all_v_aanwezigdeel - WHERE ins_deel_key = LPNKey; - varLinkToRoom := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LINKTOROOM'); - _EXEC2(_MSSQL(cad.)cad_slnkstructdelete,Session_id, 'LINKTOROOM'); - DoDeelUpdate := TRUE; - IF LPNCondName = 'LPN_ALG_RUIMTE' THEN - /* Bij LPN_ALG_RUIMTE checken - of deel gekoppeld is aan een werkplek die zich in dezelfde - ruimte bevindt dan de opgegeven ruimte, zo ja dan GEEN update van de plaats v/h deel */ - IF PlaatsDeel = 'W' THEN - IF varLinkToRoom = 1 THEN - DoDeelUpdate := TRUE; - ELSE - SELECT prs_alg_ruimte_key INTO RuimteKey - FROM prs_werkplek - WHERE prs_werkplek_key = PlaatsKey; - IF Ruimtekey = LPNCondKey THEN - DoDeelUpdate := FALSE; - ELSE - DoDeelUpdate := TRUE; - END IF; - END IF; - END IF; - END IF; - IF DODeelUpdate=TRUE THEN - UPDATE ins_deel - SET ins_alg_ruimte_key = LPNCondKey, - ins_alg_ruimte_type = Plaatsdeel, - ins_deel_getekend = SYSDATE /* It's CAD */ - WHERE ins_deel_key = LPNKey; - END IF; - ELSIF LPNNAME = 'LPN_ALG_GEBOUW' THEN - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - Omtrek := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'LENGTH'); - UPDATE alg_gebouw - SET alg_gebouw_bruto_vloeropp = Oppervlak, - alg_gebouw_omtrek = Omtrek, - alg_gebouw_getekend = SYSDATE - WHERE alg_gebouw_key = LPNKey; - ELSIF LPNNAME = 'LPN_ALG_RUIMTE' THEN - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - Omtrek := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'LENGTH'); - UPDATE alg_ruimte - SET alg_ruimte_bruto_vloeropp = Oppervlak, - alg_ruimte_omtrek = Omtrek, - alg_ruimte_getekend = SYSDATE - WHERE alg_ruimte_key = LPNKey; - ELSIF LPNName = 'LPN_ALG_TERREINSECTOR' THEN - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - Omtrek := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'LENGTH'); - UPDATE alg_terreinsector - SET alg_terreinsector_oppervlak = Oppervlak, - alg_terreinsector_omtrek = Omtrek, - alg_terreinsector_getekend = SYSDATE - WHERE alg_terreinsector_key = LPNKey; - ELSIF LPNName = 'LPN_PRS_WERKPLEK' THEN - /* Bepaal de nieuwe ruimte v/d werkplek */ - LPNCondName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO'); - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYCONDO'); - IF LPNCondKey IS NOT NULL THEN - /* Check of key wel bestaat - kan zijn dat tekening niet helemaal up-to-date is */ - LPNCondKeyOk := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF LPNCondKeyOK=FALSE THEN - Seqnr := 2; - LOOP - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT2(Session_id, 'LPNKEYCONDO', Seqnr); - IF LPNCondKey IS NULL THEN - EXIT; - END IF; - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF LPNCondKeyOK=TRUE THEN - EXIT; - END IF; - Seqnr := Seqnr + 1; - END LOOP; - END IF; - IF LPNCondKeyOK=TRUE THEN - UPDATE prs_werkplek - SET prs_werkplek_getekend = SYSDATE /* IT's CAD */ - WHERE prs_werkplek_key = LPNKey; - END IF; - END IF; - #ifdef BIS - ELSIF LPNName = 'LPN_BIS_BORING' THEN - UPDATE bis_boring - SET bis_boring_getekend = 'TRUE' - WHERE bis_boring_key = LPNKey; - /* als het een veld betreft dan oppervlakte aanpassen in tabel bis_veld */ - SELECT bis_veld_key INTO VeldKey - FROM bis_boring - WHERE bis_boring_key = LPNKey; - IF VeldKey IS NOT NULL THEN - /* lees oppervlakte uit */ - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - UPDATE bis_veld - SET bis_veld_oppervlakte = Oppervlak - WHERE bis_veld_key = Veldkey; - END IF; - ELSIF LPNName = 'LPN_BIS_ONTGRAVINGSVAK' THEN - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - Diepte:= _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'DEPTH'); - Volume := Oppervlak * Diepte; - BEGIN - SELECT bis_ontgravingsvak_aanmaak INTO Datum - FROM bis_ontgravingsvak - WHERE bis_ontgravingsvak_key = LPNKey; - EXCEPTION - WHEN NO_DATA_FOUND THEN - Datum := SYSDATE; - END; - - UPDATE bis_ontgravingsvak - SET bis_ontgravingsvak_volume = Volume, - bis_ontgravingsvak_diepte = Diepte - WHERE bis_ontgravingsvak_key = LPNKey; - - /* "Onthoofden" van trajecten */ - _EXEC3(_MSSQL(cad.)cad_KILLtrajecten,Session_Id, Diepte, Datum); - ELSIF LPNName = 'LPN_BIS_PROJECT' THEN - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - UPDATE bis_project - SET bis_project_oppervlakte = Oppervlak - WHERE bis_project_key = LPNKey; - #endif //BIS - END IF; - COMMIT; - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); /* ORACLE is klaar */ - END cad_SLNKpostdraw; - - - PROCEDURE cad_SLNKpostErase(Session_Id IN NUMBER) IS - LPNName cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LPNKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; - SeqNr cad_slnkstruct.cad_slnkstruct_valint%TYPE; - CheckDatum VARCHAR2(10); - Datum DATE; - Eerste BOOLEAN; - WerkPlekFound BOOLEAN; - - BEGIN - CheckDatum := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'DATE'); - Datum := _TO_DATE2(CheckDatum, 'DD-MM-YYYY'); - LPNName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASDELO'); - LPNKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYDELO'); - IF LPNName = 'LPN_INS_DEEL' THEN - UPDATE ins_deel - SET ins_deel_verwijder = SYSDATE, - ins_deel_getekend = NULL /* It's CAD */ - WHERE ins_deel_key = LPNKey; - DELETE FROM ins_deelkoppeling - WHERE ins_deelkoppeling_van_key = LPNKEY - OR ins_deelkoppeling_naar_key = LPNKEY; - COMMIT; - ELSIF LPNName = 'LPN_ALG_GEBOUW' THEN - UPDATE alg_gebouw - SET alg_gebouw_verwijder = SYSDATE, - alg_gebouw_getekend = NULL /* It's CAD */ - WHERE alg_gebouw_key = LPNKey; - COMMIT; - ELSIF LPNName = 'LPN_ALG_RUIMTE' THEN - /* Geef aan AutoCAD de sleutels door van de werkplekken die zich in de te verwijderen ruimte bevinden */ - BEGIN - DECLARE - Cursor RuimteWerkplek IS - SELECT prs_werkplek_key - FROM prs_v_aanwezigwerkplek - WHERE prs_alg_ruimte_key = LPNKey; - BEGIN - Eerste := TRUE; - WerkPlekFound := FALSE; - FOR WerkplekRec IN RuimteWerkplek LOOP - IF Eerste=TRUE THEN - WerkPlekFound := TRUE; - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASDELA', 1,'LPN_PRS_WERKPLEK', 1); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, WerkplekRec.prs_werkplek_key, 1); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, WerkplekRec, 1); -#endif - Eerste := FALSE; - ELSE - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASDELA', 1,'LPN_PRS_WERKPLEK', 0); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, WerkplekRec.prs_werkplek_key, 0); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, WerkplekRec, 0); -#endif - END IF; - END LOOP; - END; - END; - /* Geef aan AutoCAD de sleutels door van de delen die zich in de te verwijderen ruimte bevinden EN - * de delen die zich op werkplekken bevinden binnen de te verwijderen ruimte... - */ - BEGIN - DECLARE - Cursor RuimteDeel IS - SELECT ins_deel_key - FROM all_v_aanwezigdeel - WHERE ins_alg_ruimte_key = LPNKey - AND ins_alg_ruimte_type = 'R' - OR (ins_alg_ruimte_type = 'W' AND - ins_alg_ruimte_key IN - (SELECT prs_werkplek_key from prs_v_aanwezigwerkplek - WHERE prs_alg_ruimte_key = LPNKey)); - BEGIN - Eerste := TRUE; - FOR DeelRec IN RuimteDeel LOOP - IF Eerste=TRUE AND WerkPlekFound=FALSE THEN - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASDELA', 1,'LPN_INS_DEEL', 1); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, DeelRec.ins_deel_key, 1); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, DeelRec, 1); -#endif - Eerste := FALSE; - ELSE - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASDELA', 1,'LPN_INS_DEEL', 0); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, DeelRec.ins_deel_key, 0); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, DeelRec, 0); -#endif - END IF; - END LOOP; - END; - END; - UPDATE alg_ruimte - SET alg_ruimte_verwijder = SYSDATE, - alg_ruimte_getekend = NULL /* It's CAD */ - WHERE alg_ruimte_key = LPNKey; - COMMIT; - ELSIF LPNName = 'LPN_PRS_WERKPLEK' THEN - /* Geef aan AutoCAD de sleutels door van de delen die zich op de te verwijderen werkplek bevinden... */ - BEGIN - DECLARE - Cursor WerkplekDeel IS - SELECT ins_deel_key - FROM all_v_aanwezigdeel - WHERE ins_alg_ruimte_type = 'W' - AND ins_alg_ruimte_key = LPNKey; - BEGIN - Eerste := TRUE; - FOR DeelRec IN WerkplekDeel LOOP - IF Eerste=TRUE THEN - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASDELA', 1,'LPN_INS_DEEL', 1); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, DeelRec.ins_deel_key, 1); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, DeelRec, 1); -#endif - Eerste := FALSE; - ELSE - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASDELA', 1,'LPN_INS_DEEL', 0); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, DeelRec.ins_deel_key, 0); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, DeelRec, 0); -#endif - END IF; - END LOOP; - END; - END; - UPDATE prs_werkplek - SET prs_werkplek_verwijder = SYSDATE, - prs_werkplek_getekend = NULL /* It's CAD */ - WHERE prs_werkplek_key = LPNKey; - COMMIT; - ELSIF LPNName = 'LPN_ALG_TERREINSECTOR' THEN - #ifdef BIS - BEGIN - DECLARE - CURSOR Sectorboring IS - SELECT bis_boring_key, alg_terreinsector_key - FROM bis_v_aanwezigboring - WHERE alg_terreinsector_key = LPNKey; - BEGIN - Eerste := TRUE; - FOR BoringRec IN Sectorboring LOOP - IF Eerste=TRUE THEN - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASDELA', 1,'LPN_BIS_BORING', 1); -#ifndef MS_SQL - _EXEC5(cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, BoringRec.bis_boring_key, 1); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, BoringRec, 1); -#endif - Eerste := FALSE; - ELSE - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASDELA', 1,'LPN_BIS_BORING', 0); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, BoringRec.bis_boring_key, 0); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, BoringRec, 0); -#endif - END IF; - /* Sublocatie grafisch verwijderd zet getekend veld van de boring op 'FALSE' */ - UPDATE bis_boring - SET bis_boring_getekend = 'FALSE' -#ifndef MS_SQL - WHERE bis_boring_key = BoringRec.bis_boring_key; -#else - WHERE bis_boring_key = BoringRec; -#endif - COMMIT; - END LOOP; - END; - END; - UPDATE alg_terreinsector - SET alg_terreinsector_verwijder = Datum, - alg_terreinsector_getekend = NULL /* It's CAD */ - WHERE alg_terreinsector_key = LPNKey; - COMMIT; - #else - BEGIN - DECLARE - CURSOR TerreinDeel IS - SELECT ins_deel_key - FROM all_v_aanwezigdeel - WHERE ins_alg_ruimte_key = LPNKey - AND ins_alg_ruimte_type = 'T'; - BEGIN - Eerste := TRUE; - FOR DeelRec IN TerreinDeel LOOP - IF Eerste=TRUE THEN - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASDELA', 1,'LPN_INS_DEEL', 1); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, DeelRec.ins_deel_key, 1); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, DeelRec, 1); -#endif - Eerste := FALSE; - ELSE - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'LPNALIASDELA', 1,'LPN_INS_DEEL', 0); -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, DeelRec.ins_deel_key, 0); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'LPNKEYDELA', 1, DeelRec, 0); -#endif - END IF; - END LOOP; - END; - END; - UPDATE alg_terreinsector - SET alg_terreinsector_verwijder = SYSDATE, - alg_terreinsector_getekend = NULL /* It's CAD */ - WHERE alg_terreinsector_key = LPNKey; - COMMIT; - #endif //NONBIS - #ifdef BIS - ELSIF LPNName = 'LPN_BIS_BORING' THEN - IF CheckDatum IS NOT NULL THEN - UPDATE bis_boring - SET bis_boring_verwijderdatum = Datum - WHERE bis_boring_key = LPNKey; - ELSE - UPDATE bis_boring - SET bis_boring_getekend = 'FALSE' - WHERE bis_boring_key = LPNKey; - - UPDATE bis_veld - SET bis_veld_oppervlakte = NULL - WHERE bis_veld_key IN - (SELECT bis_veld_key FROM bis_boring - WHERE bis_boring_key = LPNKey); - END IF; - ELSIF LPNName = 'LPN_BIS_PROJECT' THEN - UPDATE bis_project - SET bis_project_einddatum = Datum - WHERE bis_project_key = LPNKey; - COMMIT; - ELSIF LPNName = 'LPN_BIS_ONTGRAVINGSVAK' THEN - UPDATE bis_ontgravingsvak - SET bis_ontgravingsvak_verwijder = Datum - WHERE bis_ontgravingsvak_key = LPNKey; - COMMIT; - #endif //BIS - END IF; - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - END cad_SLNKpostErase; - - - PROCEDURE cad_SLNKpostModify(Session_Id IN NUMBER) IS - - LPNName cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LPNKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; - LPNCondName cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - LPNCondKey cad_slnkstruct.cad_slnkstruct_valint%TYPE; - VeldKey NUMBER(10); - Oppervlak NUMBER(13,3); - Diepte NUMBER(8,2); - Omtrek NUMBER(13,3); - Volume NUMBER(12,4); - Datum DATE; - Seqnr cad_slnkstruct.cad_slnkstruct_valint%TYPE; - LPNCondKeyOK BOOLEAN; - RuimteType VARCHAR2(1); - varLPNAliasLinkO cad_slnkstruct.cad_slnkstruct_valstr%TYPE; - varLPNKeyLinkO cad_slnkstruct.cad_slnkstruct_valint%TYPE; - Dimensie ins_srtdeel.ins_srtdeel_dimensie%TYPE; - PlaatsDeel ins_deel.ins_alg_ruimte_type%TYPE; - PlaatsKey NUMBER(10); - RuimteKey prs_werkplek.prs_alg_ruimte_key%TYPE; - WerkplekNr prs_werkplek.prs_werkplek_volgnr%TYPE; - DoDeelUpdate BOOLEAN; - varLinkToRoom NUMBER; - - BEGIN - LPNCondKeyOK := FALSE; - LPNName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASMODO'); - LPNKey :=_MSSQL(cad.) cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYMODO'); - IF LPNName = 'LPN_INS_DEEL' THEN - /* Bepaal nieuwe plek v/h deel */ - LPNCondName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO'); - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYCONDO'); - IF LPNCondKey IS NOT NULL THEN - /* Check of key wel bestaat - kan zijn dat tekening niet helemaal up-to-date is */ - LPNCondKeyOk := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF LPNCondKeyOK=FALSE THEN - Seqnr := 2; - LOOP - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT2(Session_id, 'LPNKEYCONDO', Seqnr); - IF LPNCondKey IS NULL THEN - EXIT; - END IF; - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF LPNCondKeyOK=TRUE THEN - EXIT; - END IF; - Seqnr := Seqnr + 1; - END LOOP; - END IF; - IF LPNCondKeyOK=TRUE THEN - IF LPNCondName = 'LPN_ALG_TERREINSECTOR' THEN - RuimteType := 'T'; - ELSIF LPNCondName = 'LPN_ALG_RUIMTE' THEN - RuimteType := 'R'; - ELSIF LPNCondName = 'LPN_PRS_WERKPLEK' THEN - RuimteType := 'W'; - END IF; - SELECT ins_alg_ruimte_type, ins_alg_ruimte_key INTO PlaatsDeel, PlaatsKey - FROM all_v_aanwezigdeel - WHERE ins_deel_key = LPNKey; - varLinkToRoom := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LINKTOROOM'); - _EXEC2(_MSSQL(cad.)cad_slnkstructdelete,Session_id, 'LINKTOROOM'); - DoDeelUpdate := TRUE; - IF LPNCondName = 'LPN_ALG_RUIMTE' THEN - /* Bij LPN_ALG_RUIMTE checken - of deel gekoppeld is aan een werkplek die zich in dezelfde - ruimte bevindt dan de opgegeven ruimte, zo ja dan GEEN update van de plaats v/h deel */ - IF PlaatsDeel = 'W' THEN - IF varLinkToRoom = 1 THEN - DoDeelUpdate := TRUE; - ELSE - SELECT prs_alg_ruimte_key INTO RuimteKey - FROM prs_werkplek - WHERE prs_werkplek_key = PlaatsKey; - IF Ruimtekey = LPNCondKey THEN - DoDeelUpdate := FALSE; - ELSE - DoDeelUpdate := TRUE; - END IF; - END IF; - END IF; - END IF; - IF DODeelUpdate=TRUE THEN - UPDATE ins_deel - SET ins_alg_ruimte_key = LPNCondKey, - ins_alg_ruimte_type = RuimteType, - ins_deel_getekend = SYSDATE /* It's CAD */ - WHERE ins_deel_key = LPNKey; - END IF; - END IF; - END IF; - varLPNAliasLinkO := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_Id, 'LPNALIASLINKO'); - varLPNKeyLinkO := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_Id, 'LPNKEYLINKO'); - /* Deelgegevens gewijzigd - deelkoppeling records aanpassen */ - DELETE ins_deelkoppeling - WHERE ins_deelkoppeling_van_key = LPNKey - OR ins_deelkoppeling_naar_key = LPNKey; - COMMIT; - IF varLPNAliasLinkO IS NOT NULL AND varLPNKeyLinkO IS NOT NULL THEN - varLPNKeyLinkO := 1; /* NOT NULL */ - SeqNr := 1; -#ifndef MS_SQL - WHILE (varLPNKeyLinkO IS NOT NULL) LOOP -#else - WHILE (varLPNKeyLinkO IS NOT NULL) - BEGIN -#endif - varLPNKeyLinkO := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT2(Session_Id, 'LPNKEYLINKO', SeqNr); - IF varLPNKeyLinkO IS NOT NULL THEN - BEGIN - INSERT INTO ins_deelkoppeling(ins_deelkoppeling_van_key, ins_deelkoppeling_naar_key) - VALUES (LPNKey, varLPNKeyLinkO); - COMMIT; - SeqNr := SeqNr+1; -#ifndef MS_SQL - EXCEPTION - WHEN DUP_VAL_ON_INDEX THEN - SeqNr := SeqNr+1; /* Record bestaat reeds -> ga gewoon verder met volgende */ -#endif - END; - END IF; - END LOOP; - END IF; - /* Zoek Dimensie van deel op */ - BEGIN - SELECT ins_srtdeel_dimensie INTO Dimensie - FROM ins_srtdeel - WHERE ins_srtdeel_key = - (SELECT ins_srtdeel_key FROM ins_deel - WHERE ins_deel_key = LPNKey); - EXCEPTION - WHEN NO_DATA_FOUND THEN - Dimensie := NULL; /* Dimensie niet gevonden -> doe verder niets */ - END; - /* Omtrek bijwerken ? */ - Omtrek := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'LENGTH'); - IF Omtrek IS NOT NULL AND Dimensie = 1 THEN - UPDATE ins_deel - SET ins_deel_omtrek = Omtrek - WHERE ins_deel_key = LPNKey; - END IF; - /* Oppervlak bijwerken */ - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - IF Oppervlak IS NOT NULL AND Dimensie = 2 THEN - UPDATE ins_deel - SET ins_deel_oppervlak = Oppervlak - WHERE ins_deel_key = LPNKey; - END IF; - ELSIF LPNName = 'LPN_ALG_GEBOUW' THEN - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - Omtrek := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'LENGTH'); - UPDATE alg_gebouw - SET alg_gebouw_bruto_vloeropp = Oppervlak, - alg_gebouw_omtrek = Omtrek, - alg_gebouw_getekend = SYSDATE - WHERE alg_gebouw_key = LPNKey; - ELSIF LPNName = 'LPN_ALG_RUIMTE' THEN - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - Omtrek := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'LENGTH'); - UPDATE alg_ruimte - SET alg_ruimte_bruto_vloeropp = Oppervlak, - alg_ruimte_omtrek = Omtrek, - alg_ruimte_getekend = SYSDATE - WHERE alg_ruimte_key = LPNKey; - ELSIF LPNName = 'LPN_PRS_WERKPLEK' THEN - /* Bepaal de nieuwe ruimte v/d werkplek */ - LPNCondName := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO'); - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYCONDO'); - IF LPNCondKey IS NOT NULL THEN - /* Check of key wel bestaat - kan zijn dat tekening niet helemaal up-to-date is */ - LPNCondKeyOk := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF LPNCondKeyOK=FALSE THEN - Seqnr := 2; - LOOP - LPNCondKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT2(Session_id, 'LPNKEYCONDO', Seqnr); - IF LPNCondKey IS NULL THEN - EXIT; - END IF; - LPNCondKeyOK := _MSSQL(cad.)CheckLPNCondKey(LPNCondName, LPNCondKey); - IF LPNCondKeyOK=TRUE THEN - EXIT; - END IF; - Seqnr := Seqnr + 1; - END LOOP; - END IF; - IF LPNCondKeyOK=TRUE THEN - BEGIN - UPDATE prs_werkplek - SET prs_alg_ruimte_key = LPNCondKey, - prs_werkplek_getekend = SYSDATE /* IT's CAD */ - WHERE prs_werkplek_key = LPNKey; -#ifndef MS_SQL - EXCEPTION - WHEN DUP_VAL_ON_INDEX THEN - SELECT MAX(prs_werkplek_volgnr) + 1 - INTO WerkplekNr - FROM all_v_aanwezigwerkplek - WHERE prs_alg_ruimte_key = LPNCondKey; - UPDATE prs_werkplek - SET prs_werkplek_volgnr = WerkplekNr, - prs_alg_ruimte_key = LPNCondKey, - prs_werkplek_getekend = SYSDATE /* It's CAD */ - WHERE prs_werkplek_key = LPNKey; -#endif - END; - END IF; - END IF; - ELSIF LPNName = 'LPN_ALG_TERREINSECTOR' THEN - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - Omtrek := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'LENGTH'); - UPDATE alg_terreinsector - SET alg_terreinsector_oppervlak = Oppervlak, - alg_terreinsector_omtrek = Omtrek - WHERE alg_terreinsector_key = LPNKey; - #ifdef BIS - ELSIF LPNName = 'LPN_BIS_BORING' THEN - /* als het een veld betreft dan oppervlakte aanpassen in tabel bis_veld */ - SELECT bis_veld_key INTO VeldKey - FROM bis_boring - WHERE bis_boring_key = LPNKey; - IF VeldKey IS NOT NULL THEN - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - UPDATE bis_veld - SET bis_veld_oppervlakte = Oppervlak - WHERE bis_veld_key = Veldkey; - END IF; - ELSIF LPNName = 'LPN_BIS_PROJECT' THEN - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - UPDATE bis_project - SET bis_project_oppervlakte = Oppervlak - WHERE bis_project_key = LPNKey; - ELSIF LPNName = 'LPN_BIS_ONTGRAVINGSVAK' THEN - Oppervlak := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'AREA'); - Diepte := _MSSQL(cad.)cad_SLNKSTRUCTreadVALREAL(Session_id, 'DEPTH'); - Volume := Oppervlak * Diepte; - UPDATE bis_ontgravingsvak - SET bis_ontgravingsvak_diepte = Diepte, - bis_ontgravingsvak_volume = Volume - WHERE bis_ontgravingsvak_key = LPNKey; - /* "Onthoofden" van trajecten */ - Datum := _TO_DATE2(_MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'DATE'), 'DD-MM-YYYY'); - _EXEC3(_MSSQL(cad.)cad_KILLtrajecten,Session_Id, Diepte, Datum); - #endif //BIS - END IF; - COMMIT; - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - END cad_SLNKpostModify; - - PROCEDURE cad_SLNKDelenbijWerkplek(Session_Id IN NUMBER) IS - LPNKey NUMBER(10); - Eerste BOOLEAN; - BEGIN - LPNKey := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'INFOI'); - BEGIN - DECLARE - Cursor WerkplekDelen IS - SELECT ins_deel_key - FROM all_v_aanwezigdeel - WHERE ins_alg_ruimte_key = LPNKey - AND ins_alg_ruimte_type = 'W'; - BEGIN - Eerste := TRUE; - FOR DelenRec IN WerkplekDelen LOOP - IF Eerste=TRUE THEN -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'INFOI', 1, DelenRec.ins_deel_key, 1); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'INFOI', 1, DelenRec, 1); -#endif - Eerste := FALSE; - ELSE -#ifndef MS_SQL - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'INFOI', 1, DelenRec.ins_deel_key, 0); -#else - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALINT,Session_Id, 'INFOI', 1, DelenRec, 0); -#endif - END IF; - END LOOP; - END; - END; - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - END cad_SLNKDelenbijWerkplek; - - PROCEDURE cad_getSymboolInfo(Session_Id IN NUMBER, Entry IN VARCHAR2) IS - LayerNaam cad_symbool.cad_symbool_layer%TYPE; - varLayerColor cad_symbool.cad_symbool_kleur%TYPE; - varLayerLineType cad_symbool.cad_symbool_linetype%TYPE; - Symbool cad_symbool.cad_symbool_symbool%TYPE; - BEGIN - BEGIN - SELECT cad_symbool_layer, cad_symbool_kleur, cad_symbool_linetype, cad_symbool_symbool - INTO LayerNaam, varLayerColor, varLayerLineType, Symbool - FROM cad_symbool - WHERE UPPER(cad_symbool_entry) = UPPER(Entry); - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'LAYER', 1, Layernaam, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALINT,Session_Id,'LAYERCOLOR', 1, varLayerColor, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'LAYERLINETYPE', 1, varLayerLinetype, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'BLOCK', 1, Symbool, 1); - EXCEPTION - WHEN NO_DATA_FOUND THEN - NULL; /* Entry niet gevonden -> geef AutoCAD niets terug */ - END; - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - END cad_getSymboolInfo; - - - PROCEDURE cad_SetKenmerkWaarde(DeelKey IN NUMBER, KenmerkKey IN NUMBER, KenmerkWaarde IN VARCHAR2) IS - BEGIN - _EXEC3(_MSSQL(WEB.)WriteKenmerkWaarde,DeelKey, KenmerkKey, KenmerkWaarde); - END cad_SetKenmerkWaarde; - - - PROCEDURE Cad_GetKenmerkWaarde(Session_Id IN NUMBER, DeelKey IN NUMBER, KenmerkKey IN NUMBER) IS - KenmerkWaarde ins_kenmerkdeel.ins_kenmerkdeel_waarde%TYPE; - BEGIN - KenmerkWaarde := _MSSQL(cad.)ReadKenmerkWaarde(DeelKey, KenmerkKey); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'INFOS', 1, KenmerkWaarde, 1); - _EXEC5(_MSSQL(cad.)cad_SLNKSTRUCTinsertVALSTR,Session_Id, 'SYNC', 1, 'AUTOCAD', 1); - END cad_GetKenmerkWaarde; -END cad; -/ -#endif // RETAIN_OBSOLETE_PARTS #endif // CAD diff --git a/CAD/CAD_SEQ.SRC b/CAD/CAD_SEQ.SRC index f6a0d543..aad7ae65 100644 --- a/CAD/CAD_SEQ.SRC +++ b/CAD/CAD_SEQ.SRC @@ -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 diff --git a/CAD/CAD_TAB.SRC b/CAD/CAD_TAB.SRC index 93fc1571..7d18b37a 100644 --- a/CAD/CAD_TAB.SRC +++ b/CAD/CAD_TAB.SRC @@ -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 diff --git a/CAD/CAD_TRI.SRC b/CAD/CAD_TRI.SRC index f5583db3..b54f60bc 100644 --- a/CAD/CAD_TRI.SRC +++ b/CAD/CAD_TRI.SRC @@ -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 @@ -11,12 +11,12 @@ BEGIN -- Deze trigger is ook gedefinieerd in PRJ !! UPDATE_PRIMARY_KEY(cad_tekening_key, cad_s_cad_tekening_key); UPDATE_AANMAAKDATUM(cad_tekening, cad_tekening_aanmaak); - BEGIN IF :new.alg_verdieping_key IS NOT NULL THEN - SELECT alg_locatie_key INTO :new.alg_locatie_key - FROM alg_gebouw G, alg_verdieping V - WHERE G.alg_gebouw_key=V.alg_gebouw_key + BEGIN IF :new.alg_verdieping_key IS NOT NULL THEN + SELECT alg_locatie_key INTO :new.alg_locatie_key + FROM alg_gebouw G, alg_verdieping V + WHERE G.alg_gebouw_key=V.alg_gebouw_key AND V.alg_verdieping_key=:new.alg_verdieping_key; - END IF; END; + END IF; END; END; / @@ -24,7 +24,7 @@ CREATE_TRIGGER(cad_t_cad_legenda_B_IU) BEFORE INSERT OR UPDATE ON cad_legenda FOR EACH ROW BEGIN - UPDATE_PRIMARY_KEY(cad_legenda_key, cad_s_cad_legenda_key); + UPDATE_PRIMARY_KEY(cad_legenda_key, cad_s_cad_legenda_key); END; / @@ -32,7 +32,7 @@ CREATE_TRIGGER(cad_t_cad_legendawaarde_B_IU) BEFORE INSERT OR UPDATE ON cad_legendawaarde FOR EACH ROW BEGIN - UPDATE_PRIMARY_KEY(cad_legendawaarde_key, cad_s_cad_legendawaarde_key); + UPDATE_PRIMARY_KEY(cad_legendawaarde_key, cad_s_cad_legendawaarde_key); END; / @@ -40,7 +40,7 @@ CREATE_TRIGGER(cad_t_cad_thema_B_IU) BEFORE INSERT OR UPDATE ON cad_thema FOR EACH ROW BEGIN - UPDATE_PRIMARY_KEY(cad_thema_key, cad_s_cad_thema_key); + UPDATE_PRIMARY_KEY(cad_thema_key, cad_s_cad_thema_key); END; / @@ -48,7 +48,7 @@ CREATE_TRIGGER(cad_t_cad_label_B_IU) BEFORE INSERT OR UPDATE ON cad_label FOR EACH ROW BEGIN - UPDATE_PRIMARY_KEY(cad_label_key, cad_s_cad_label_key); + UPDATE_PRIMARY_KEY(cad_label_key, cad_s_cad_label_key); END; / @@ -58,4 +58,8 @@ FOR EACH ROW BEGIN UPDATE_PRIMARY_KEY(cad_imp_contour_key,cad_s_cad_imp_contour_key); END; -/ \ No newline at end of file +/ + +REGISTERRUN('$Workfile: CAD_TRI.SRC $','$Revision: 9 $') + +#endif diff --git a/CAD/CAD_VIE.SRC b/CAD/CAD_VIE.SRC index 4ad8d4bc..437e9f1e 100644 --- a/CAD/CAD_VIE.SRC +++ b/CAD/CAD_VIE.SRC @@ -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 diff --git a/CNT/CNT_IND.SRC b/CNT/CNT_IND.SRC index 65f0aaf7..ce1a7b35 100644 --- a/CNT/CNT_IND.SRC +++ b/CNT/CNT_IND.SRC @@ -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 diff --git a/CNT/CNT_INI.SRC b/CNT/CNT_INI.SRC index 5937024e..e562b22a 100644 --- a/CNT/CNT_INI.SRC +++ b/CNT/CNT_INI.SRC @@ -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 diff --git a/CNT/CNT_PAC.SRC b/CNT/CNT_PAC.SRC index e7070d71..52a0702f 100644 --- a/CNT/CNT_PAC.SRC +++ b/CNT/CNT_PAC.SRC @@ -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 diff --git a/CNT/CNT_SEQ.SRC b/CNT/CNT_SEQ.SRC index f958a220..8fc60d94 100644 --- a/CNT/CNT_SEQ.SRC +++ b/CNT/CNT_SEQ.SRC @@ -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 diff --git a/CNT/CNT_TAB.SRC b/CNT/CNT_TAB.SRC index 90d7e194..7548ea8a 100644 --- a/CNT/CNT_TAB.SRC +++ b/CNT/CNT_TAB.SRC @@ -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 diff --git a/CNT/CNT_TRI.SRC b/CNT/CNT_TRI.SRC index 4e6704ce..6d65f7c2 100644 --- a/CNT/CNT_TRI.SRC +++ b/CNT/CNT_TRI.SRC @@ -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 diff --git a/CNT/CNT_VIE.SRC b/CNT/CNT_VIE.SRC index 1b3adaa4..3dfedc2c 100644 --- a/CNT/CNT_VIE.SRC +++ b/CNT/CNT_VIE.SRC @@ -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 diff --git a/FIN/FIN_IND.SRC b/FIN/FIN_IND.SRC index 329ac784..1ee2958b 100644 --- a/FIN/FIN_IND.SRC +++ b/FIN/FIN_IND.SRC @@ -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 diff --git a/FIN/FIN_INI.SRC b/FIN/FIN_INI.SRC index a9a8708e..ac14ea64 100644 --- a/FIN/FIN_INI.SRC +++ b/FIN/FIN_INI.SRC @@ -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 diff --git a/FIN/FIN_PAC.SRC b/FIN/FIN_PAC.SRC index 0b573e5d..b30abac4 100644 --- a/FIN/FIN_PAC.SRC +++ b/FIN/FIN_PAC.SRC @@ -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 diff --git a/FIN/FIN_SEQ.SRC b/FIN/FIN_SEQ.SRC index 51ea9964..67d484ef 100644 --- a/FIN/FIN_SEQ.SRC +++ b/FIN/FIN_SEQ.SRC @@ -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 diff --git a/FIN/FIN_TAB.SRC b/FIN/FIN_TAB.SRC index 4ed20b5e..2eaa3d98 100644 --- a/FIN/FIN_TAB.SRC +++ b/FIN/FIN_TAB.SRC @@ -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 diff --git a/FIN/FIN_TRI.SRC b/FIN/FIN_TRI.SRC index 5d6b09ef..3b06eab8 100644 --- a/FIN/FIN_TRI.SRC +++ b/FIN/FIN_TRI.SRC @@ -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 diff --git a/FIN/FIN_VIE.SRC b/FIN/FIN_VIE.SRC index 8a0c15cd..274e449e 100644 --- a/FIN/FIN_VIE.SRC +++ b/FIN/FIN_VIE.SRC @@ -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 - - - diff --git a/PRS/PRS_IND.SRC b/PRS/PRS_IND.SRC index def0a186..cabdf438 100644 --- a/PRS/PRS_IND.SRC +++ b/PRS/PRS_IND.SRC @@ -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 diff --git a/PRS/PRS_INI.SRC b/PRS/PRS_INI.SRC index bf8e8a57..a9b0be19 100644 --- a/PRS/PRS_INI.SRC +++ b/PRS/PRS_INI.SRC @@ -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 diff --git a/PRS/PRS_PAC.SRC b/PRS/PRS_PAC.SRC index 965d0b2c..43c93a0b 100644 --- a/PRS/PRS_PAC.SRC +++ b/PRS/PRS_PAC.SRC @@ -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 diff --git a/PRS/PRS_SEQ.SRC b/PRS/PRS_SEQ.SRC index 3561c9d2..4d07d53f 100644 --- a/PRS/PRS_SEQ.SRC +++ b/PRS/PRS_SEQ.SRC @@ -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 diff --git a/PRS/PRS_TAB.SRC b/PRS/PRS_TAB.SRC index 17baaac1..dc2a5d10 100644 --- a/PRS/PRS_TAB.SRC +++ b/PRS/PRS_TAB.SRC @@ -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 diff --git a/PRS/PRS_TRI.SRC b/PRS/PRS_TRI.SRC index 38791078..3d686921 100644 --- a/PRS/PRS_TRI.SRC +++ b/PRS/PRS_TRI.SRC @@ -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 \ No newline at end of file diff --git a/PRS/PRS_VIE.SRC b/PRS/PRS_VIE.SRC index 64bc9391..b08af8bb 100644 --- a/PRS/PRS_VIE.SRC +++ b/PRS/PRS_VIE.SRC @@ -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