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

FSN#650

Browse Source 
svn path=/Database/trunk/; revision=8505
This commit is contained in:
Jos Groot Lipman
2003-12-04 13:21:16 +00:00
parent 00306a6405
commit 19f16518f7
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
CAD/CAD_PAC.SRC
View File

@@ -1074,7 +1074,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
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');
SeqNr := _MSSQL(cad.)cad_SLNKSTRUCTreadVALINT(Session_id, 'SEQ'||'NR');
IF SeqNr IS NULL THEN
SeqNr := 1;
END IF;
@@ -2278,7 +2278,7 @@ cad_tekening_key,
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');
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
@@ -2529,7 +2529,7 @@ cad_tekening_key,
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');
LoadDwg := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LOA'||'DDWG');
/* Check of het een soortdeel is... */
/*
SELECT MIN(ins_srtdeel_key) INTO SrtDeelKey
@@ -2638,7 +2638,7 @@ cad_tekening_key,
RecordAdded := FALSE;
Dimensie := 2;
LayerNaam := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LAYER');
LoadDwg := _MSSQL(cad.)cad_SLNKSTRUCTreadVALSTR(Session_id, 'LOA'+'DDWG');
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');