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;
|
||||
Intf : IInterface;
|
||||
AClientID : TGUID;
|
||||
Ruta: String;
|
||||
|
||||
begin
|
||||
CreateGUID(AClientID);
|
||||
|
||||
@ -52,7 +52,6 @@ end;
|
||||
function TsrvConfiguracion.DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): String;
|
||||
var
|
||||
ADataSet : IDADataset;
|
||||
ASchema : TDASchema;
|
||||
ACurrentConn : IDAConnection;
|
||||
ACommand : IDASQLCommand;
|
||||
begin
|
||||
|
||||
@ -27,7 +27,7 @@ object dmServer: TdmServer
|
||||
DriverDirectory = '%SYSTEM%\'
|
||||
AutoLoad = True
|
||||
TraceActive = True
|
||||
TraceFlags = [toPrepare, toExecute, toError, toStmt, toConnect, toTransact, toMisc]
|
||||
TraceFlags = [toExecute, toError, toStmt, toConnect, toTransact, toMisc]
|
||||
OnTraceEvent = DriverManagerTraceEvent
|
||||
Left = 136
|
||||
Top = 80
|
||||
|
||||
Loading…
Reference in New Issue
Block a user