From f26e64bd060564bbf73ed2c1c8491325d5905e5a Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Mon, 1 Dec 2008 10:38:04 +0000
Subject: [PATCH] Servidor -> Devolver las conexiones abiertas.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@787 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Servidor/uDataModuleServer.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Source/Servidor/uDataModuleServer.pas b/Source/Servidor/uDataModuleServer.pas
index 60e4c70f..21de8c69 100644
--- a/Source/Servidor/uDataModuleServer.pas
+++ b/Source/Servidor/uDataModuleServer.pas
@@ -158,6 +158,8 @@ function TdmServer.DarNuevaConexion: IDAConnection;
 begin
   with ConnectionManager do
     Result := NewConnection(GetDefaultConnectionName, False);
+  if not Result.isAlive then
+    Result.Open;
 end;
 
 procedure TdmServer.IniciarLog;