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

include comsql.h weer verwijderd en '\' vervangen door '\\' aangezien '\' door de make voor newline wordt aangezien.

Browse Source 
svn path=/Database/trunk/; revision=8412
This commit is contained in:
Bert in het Veld
2003-10-22 10:16:12 +00:00
parent e57dc10b06
commit a6b5e8e47c
1 changed files with 24 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
CAD/CAD_PAC.SRC
View File

@@ -82,7 +82,6 @@
* 22-05-1998 KTH Aangemaakt
*/
#include "comsql.h"
CREATE OR REPLACE PACKAGE cad AS
FUNCTION cad_f_deel_get_locatie(key IN NUMBER) RETURN NUMBER;
@@ -324,7 +323,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
SlashPositie INT;
#endif
BEGIN
SlashPositie := INSTR2(TekeningNaam,'\');
SlashPositie := INSTR2(TekeningNaam,'\\');
LocatieCode := SUBSTR(TekeningNaam,1, SlashPositie-1);
RETURN LocatieCode;
END cad_getLocatieCode_Tekening;
@@ -345,13 +344,13 @@ CREATE OR REPLACE PACKAGE BODY cad AS
BEGIN
#endif
OneChar:=SUBSTR(LoadDwg,Teller,1);
IF OneChar='\' THEN
IF OneChar='\\' THEN
EXIT;
END IF;
teller :=teller-1;
END LOOP;
IF teller = 0 THEN
/* geen '\' gevonden */
/* geen '\\' gevonden */
RETURN LoadDwg;
ELSE
/* return tekeningnaam zonder pad terug */
@@ -371,7 +370,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
FROM cad_v_discipline
WHERE alg_locatie_key = Locatie_key
AND ins_discipline_key = Discipline_key;
Disciplinetekening := locatie_code||'\'||tekening;
Disciplinetekening := locatie_code||'\\'||tekening;
RETURN Disciplinetekening;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -392,7 +391,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
FROM cad_v_plattegrond
WHERE alg_locatie_key = Locatie_key
AND alg_verdieping_key IS NULL;
plattegrondtekening := locatie_code||'\'||tekening;
plattegrondtekening := locatie_code||'\\'||tekening;
RETURN plattegrondtekening;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -412,7 +411,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
FROM cad_v_plattegrond
WHERE alg_locatie_key = LocatieKey
AND alg_verdieping_key = Verdiepingkey;
plattegrondtekening := locatie_code||'\'||tekening;
plattegrondtekening := locatie_code||'\\'||tekening;
RETURN plattegrondtekening;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -432,7 +431,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
FROM cad_v_contour
WHERE alg_locatie_key = Locatie_key
AND alg_verdieping_key IS NULL;
Contourtekening := locatie_code||'\'||tekening;
Contourtekening := locatie_code||'\\'||tekening;
RETURN Contourtekening;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -452,7 +451,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
FROM cad_v_contour
WHERE alg_locatie_key = LocatieKey
AND alg_verdieping_key = Verdiepingkey;
Contourtekening := locatie_code||'\'||tekening;
Contourtekening := locatie_code||'\\'||tekening;
RETURN Contourtekening;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -788,7 +787,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
tekeningnaam := NULL;
END;
END IF;
DwgString := LocCode||'\'||tekeningnaam;
DwgString := LocCode||'\\'||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;
@@ -1458,7 +1457,7 @@ cad_tekening_key,
#endif
LocatieKey, VerdiepingKey, DisciplineKey, TekeningNaam, SrtTekening);
COMMIT;
Tekeningnaam := LocatieCode||'\'||TekeningNaam;
Tekeningnaam := LocatieCode||'\\'||TekeningNaam;
RETURN TekeningNaam;
END cad_MaakCadTekening;
@@ -1478,7 +1477,7 @@ cad_tekening_key,
WHERE ins_deel_key = LPNKey;
Locatiecode := _MSSQL(cad.)Bepaal_locatiecode(LocatieKey);
IF SrcDwg IS NOT NULL THEN
SrcDwg := Locatiecode||'\'||SrcDwg;
SrcDwg := Locatiecode||'\\'||SrcDwg;
ELSE
SrcDwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_INS_DEEL', LPNKey, 'D');
END IF;
@@ -1659,7 +1658,7 @@ cad_tekening_key,
/*
Src_Dwg := _MSSQL(cad.)cad_f_deel_get_tekeningnaam(LPNKey);
IF Src_Dwg IS NOT NULL THEN
Src_Dwg := Locatiecode||'\'||Src_Dwg;
Src_Dwg := Locatiecode||'\\'||Src_Dwg;
ELSE
Src_Dwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_INS_DEEL', LPNKey, 'D');
END IF;
@@ -1704,9 +1703,9 @@ cad_tekening_key,
BEGIN
FOR TekenRec IN D_tekeningen LOOP
#ifndef MS_SQL
varTemp := LocatieCode||'\'||Tekenrec.cad_tekening_filenaam;
varTemp := LocatieCode||'\\'||Tekenrec.cad_tekening_filenaam;
#else
varTemp := LocatieCode||'\'||Tekenrec;
varTemp := LocatieCode||'\\'||Tekenrec;
#endif
_EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0);
END LOOP;
@@ -1723,9 +1722,9 @@ cad_tekening_key,
BEGIN
FOR TekenRec IN D_tekeningen LOOP
#ifndef MS_SQL
varTemp := LocatieCode||'\'||Tekenrec.cad_tekening_filenaam;
varTemp := LocatieCode||'\\'||Tekenrec.cad_tekening_filenaam;
#else
varTemp := LocatieCode||'\'||Tekenrec;
varTemp := LocatieCode||'\\'||Tekenrec;
#endif
_EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0);
END LOOP;
@@ -1778,9 +1777,9 @@ cad_tekening_key,
BEGIN
FOR TekenRec IN D_tekeningen LOOP
#ifndef MS_SQL
varTemp := LocatieCode||'\'||Tekenrec.cad_tekening_filenaam;
varTemp := LocatieCode||'\\'||Tekenrec.cad_tekening_filenaam;
#else
varTemp := LocatieCode||'\'||Tekenrec;
varTemp := LocatieCode||'\\'||Tekenrec;
#endif
_EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0);
END LOOP;
@@ -1833,9 +1832,9 @@ cad_tekening_key,
BEGIN
FOR TekenRec IN D_tekeningen LOOP
#ifndef MS_SQL
varTemp := LocatieCode||'\'||Tekenrec.cad_tekening_filenaam;
varTemp := LocatieCode||'\\'||Tekenrec.cad_tekening_filenaam;
#else
varTemp := LocatieCode||'\'||Tekenrec;
varTemp := LocatieCode||'\\'||Tekenrec;
#endif
_EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0);
END LOOP;
@@ -1903,9 +1902,9 @@ cad_tekening_key,
BEGIN
FOR TekenRec IN D_tekeningen LOOP
#ifndef MS_SQL
varTemp := LocatieCode||'\'||Tekenrec.cad_tekening_filenaam;
varTemp := LocatieCode||'\\'||Tekenrec.cad_tekening_filenaam;
#else
varTemp := LocatieCode||'\'||Tekenrec;
varTemp := LocatieCode||'\\'||Tekenrec;
#endif
_EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0);
END LOOP;
@@ -1961,9 +1960,9 @@ cad_tekening_key,
BEGIN
FOR TekenRec IN D_tekeningen LOOP
#ifndef MS_SQL
varTemp := LocatieCode||'\'||Tekenrec.cad_tekening_filenaam;
varTemp := LocatieCode||'\\'||Tekenrec.cad_tekening_filenaam;
#else
varTemp := LocatieCode||'\'||Tekenrec;
varTemp := LocatieCode||'\\'||Tekenrec;
#endif
_EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0);
END LOOP;