From e312159c0061ed21e37df59385f8973203695ef9 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 24 Sep 2008 14:19:07 +0000
Subject: [PATCH] Limpieza de warnings

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@614 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas | 1 -
 Source/Servidor/Configuracion/srvConfiguracion_Impl.pas         | 1 -
 Source/Servidor/uDataModuleServer.dfm                           | 2 +-
 3 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas b/Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas
index d37745d4..56d18c84 100644
--- a/Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas	
+++ b/Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas	
@@ -99,7 +99,6 @@ var
   AConfiguracionService : IsrvConfiguracion;
   Intf : IInterface;
   AClientID : TGUID;
-  Ruta: String;
 
 begin
   CreateGUID(AClientID);
diff --git a/Source/Servidor/Configuracion/srvConfiguracion_Impl.pas b/Source/Servidor/Configuracion/srvConfiguracion_Impl.pas
index 5ec37ded..10cd8e43 100644
--- a/Source/Servidor/Configuracion/srvConfiguracion_Impl.pas
+++ b/Source/Servidor/Configuracion/srvConfiguracion_Impl.pas
@@ -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
diff --git a/Source/Servidor/uDataModuleServer.dfm b/Source/Servidor/uDataModuleServer.dfm
index d0038068..7f637cc1 100644
--- a/Source/Servidor/uDataModuleServer.dfm
+++ b/Source/Servidor/uDataModuleServer.dfm
@@ -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