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

'\\' vervangen door chr(92).

Browse Source 
svn path=/Database/trunk/; revision=8415
This commit is contained in:
Bert in het Veld
2003-10-22 11:36:12 +00:00
parent 3aa121506e
commit ab0edd2d11
1 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
CAD/CAD_PAC.SRC
View File

@@ -323,7 +323,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
SlashPositie INT;
#endif
BEGIN
SlashPositie := INSTR2(TekeningNaam,'\\');
SlashPositie := INSTR2(TekeningNaam,CHR(92));
LocatieCode := SUBSTR(TekeningNaam,1, SlashPositie-1);
RETURN LocatieCode;
END cad_getLocatieCode_Tekening;
@@ -344,13 +344,13 @@ CREATE OR REPLACE PACKAGE BODY cad AS
BEGIN
#endif
OneChar:=SUBSTR(LoadDwg,Teller,1);
IF OneChar='\\' THEN
IF OneChar= CHR(92) 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 */
@@ -370,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||CHR(92)||tekening;
RETURN Disciplinetekening;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -391,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||CHR(92)||tekening;
RETURN plattegrondtekening;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -411,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||CHR(92)||tekening;
RETURN plattegrondtekening;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -431,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||CHR(92)||tekening;
RETURN Contourtekening;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -451,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||CHR(92)||tekening;
RETURN Contourtekening;
EXCEPTION
WHEN NO_DATA_FOUND THEN
@@ -787,7 +787,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
tekeningnaam := NULL;
END;
END IF;
DwgString := LocCode||'\\'||tekeningnaam;
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;
@@ -1457,7 +1457,7 @@ cad_tekening_key,
#endif
LocatieKey, VerdiepingKey, DisciplineKey, TekeningNaam, SrtTekening);
COMMIT;
Tekeningnaam := LocatieCode||'\\'||TekeningNaam;
Tekeningnaam := LocatieCode||CHR(92)||TekeningNaam;
RETURN TekeningNaam;
END cad_MaakCadTekening;
@@ -1477,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||CHR(92)||SrcDwg;
ELSE
SrcDwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_INS_DEEL', LPNKey, 'D');
END IF;
@@ -1658,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||CHR(92)||Src_Dwg;
ELSE
Src_Dwg := _MSSQL(cad.)cad_MaakCadTekening('LPN_INS_DEEL', LPNKey, 'D');
END IF;
@@ -1703,9 +1703,9 @@ cad_tekening_key,
BEGIN
FOR TekenRec IN D_tekeningen LOOP
#ifndef MS_SQL
varTemp := LocatieCode||'\\'||Tekenrec.cad_tekening_filenaam;
varTemp := LocatieCode||CHR(92)||Tekenrec.cad_tekening_filenaam;
#else
varTemp := LocatieCode||'\\'||Tekenrec;
varTemp := LocatieCode||CHR(92)||Tekenrec;
#endif
_EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0);
END LOOP;
@@ -1722,9 +1722,9 @@ cad_tekening_key,
BEGIN
FOR TekenRec IN D_tekeningen LOOP
#ifndef MS_SQL
varTemp := LocatieCode||'\\'||Tekenrec.cad_tekening_filenaam;
varTemp := LocatieCode||CHR(92)||Tekenrec.cad_tekening_filenaam;
#else
varTemp := LocatieCode||'\\'||Tekenrec;
varTemp := LocatieCode||CHR(92)||Tekenrec;
#endif
_EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0);
END LOOP;
@@ -1777,9 +1777,9 @@ cad_tekening_key,
BEGIN
FOR TekenRec IN D_tekeningen LOOP
#ifndef MS_SQL
varTemp := LocatieCode||'\\'||Tekenrec.cad_tekening_filenaam;
varTemp := LocatieCode||CHR(92)||Tekenrec.cad_tekening_filenaam;
#else
varTemp := LocatieCode||'\\'||Tekenrec;
varTemp := LocatieCode||CHR(92)||Tekenrec;
#endif
_EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0);
END LOOP;
@@ -1832,9 +1832,9 @@ cad_tekening_key,
BEGIN
FOR TekenRec IN D_tekeningen LOOP
#ifndef MS_SQL
varTemp := LocatieCode||'\\'||Tekenrec.cad_tekening_filenaam;
varTemp := LocatieCode||CHR(92)||Tekenrec.cad_tekening_filenaam;
#else
varTemp := LocatieCode||'\\'||Tekenrec;
varTemp := LocatieCode||CHR(92)||Tekenrec;
#endif
_EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0);
END LOOP;
@@ -1902,9 +1902,9 @@ cad_tekening_key,
BEGIN
FOR TekenRec IN D_tekeningen LOOP
#ifndef MS_SQL
varTemp := LocatieCode||'\\'||Tekenrec.cad_tekening_filenaam;
varTemp := LocatieCode||CHR(92)||Tekenrec.cad_tekening_filenaam;
#else
varTemp := LocatieCode||'\\'||Tekenrec;
varTemp := LocatieCode||CHR(92)||Tekenrec;
#endif
_EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0);
END LOOP;
@@ -1960,9 +1960,9 @@ cad_tekening_key,
BEGIN
FOR TekenRec IN D_tekeningen LOOP
#ifndef MS_SQL
varTemp := LocatieCode||'\\'||Tekenrec.cad_tekening_filenaam;
varTemp := LocatieCode||CHR(92)||Tekenrec.cad_tekening_filenaam;
#else
varTemp := LocatieCode||'\\'||Tekenrec;
varTemp := LocatieCode||CHR(92)||Tekenrec;
#endif
_EXEC5(_MSSQL(cad.)cad_SLNKstructinsertVALSTR,Session_Id,'ATTACHDWG', SeqNr, varTemp, 0);
END LOOP;