Limpieza de warnings
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@614 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
0407570b5d
commit
e312159c00
@ -99,7 +99,6 @@ var
|
|||||||
AConfiguracionService : IsrvConfiguracion;
|
AConfiguracionService : IsrvConfiguracion;
|
||||||
Intf : IInterface;
|
Intf : IInterface;
|
||||||
AClientID : TGUID;
|
AClientID : TGUID;
|
||||||
Ruta: String;
|
|
||||||
|
|
||||||
begin
|
begin
|
||||||
CreateGUID(AClientID);
|
CreateGUID(AClientID);
|
||||||
|
|||||||
@ -52,7 +52,6 @@ end;
|
|||||||
function TsrvConfiguracion.DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): String;
|
function TsrvConfiguracion.DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): String;
|
||||||
var
|
var
|
||||||
ADataSet : IDADataset;
|
ADataSet : IDADataset;
|
||||||
ASchema : TDASchema;
|
|
||||||
ACurrentConn : IDAConnection;
|
ACurrentConn : IDAConnection;
|
||||||
ACommand : IDASQLCommand;
|
ACommand : IDASQLCommand;
|
||||||
begin
|
begin
|
||||||
|
|||||||
@ -27,7 +27,7 @@ object dmServer: TdmServer
|
|||||||
DriverDirectory = '%SYSTEM%\'
|
DriverDirectory = '%SYSTEM%\'
|
||||||
AutoLoad = True
|
AutoLoad = True
|
||||||
TraceActive = True
|
TraceActive = True
|
||||||
TraceFlags = [toPrepare, toExecute, toError, toStmt, toConnect, toTransact, toMisc]
|
TraceFlags = [toExecute, toError, toStmt, toConnect, toTransact, toMisc]
|
||||||
OnTraceEvent = DriverManagerTraceEvent
|
OnTraceEvent = DriverManagerTraceEvent
|
||||||
Left = 136
|
Left = 136
|
||||||
Top = 80
|
Top = 80
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user