From ab0edd2d1116dbc6969dabc5c4a3908fc9d6f27a Mon Sep 17 00:00:00 2001 From: Bert in het Veld Date: Wed, 22 Oct 2003 11:36:12 +0000 Subject: [PATCH] '\\' vervangen door chr(92). svn path=/Database/trunk/; revision=8415 --- CAD/CAD_PAC.SRC | 48 ++++++++++++++++++++++++------------------------ 1 file changed, 24 insertions(+), 24 deletions(-) diff --git a/CAD/CAD_PAC.SRC b/CAD/CAD_PAC.SRC index fcaab660..8b39f1eb 100644 --- a/CAD/CAD_PAC.SRC +++ b/CAD/CAD_PAC.SRC @@ -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;