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