From bf4f4a17f0cae632c0952c59d2ff792c55d4b714 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 24 Jun 2010 18:11:49 +0000
Subject: [PATCH] =?UTF-8?q?Ticket=20#273=20->=20Al=20lanzar=202=20aplicaci?=
 =?UTF-8?q?ones=20clientes=20sale=20un=20mensaje=20de=20error=20porque=20e?=
 =?UTF-8?q?l=20fichero=20de=20log=20est=C3=A1=20en=20uso.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1006 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Base/uDMBase.pas | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/Source/Base/uDMBase.pas b/Source/Base/uDMBase.pas
index 2e2e2344..50dc4af9 100644
--- a/Source/Base/uDMBase.pas
+++ b/Source/Base/uDMBase.pas
@@ -24,13 +24,13 @@ type
   private
     FOnThemeChange: TNotifyEvent;
     FEscribirLog : TCriticalSection;
-    procedure IniciarLog;
-    procedure DetenerLog;
+    {procedure IniciarLog;
+    procedure DetenerLog;}
     procedure InitStyleManager;
     procedure OnTBXThemeChange(Sender: TObject);
     procedure LeerConfiguracion;
   public
-    procedure EscribirLog(const AMensaje : String);  
+    {procedure EscribirLog(const AMensaje : String);}  
     procedure SalvarConfiguracion;
     property OnThemeChange: TNotifyEvent read FOnThemeChange write
             FOnThemeChange;
@@ -53,7 +53,7 @@ uses
 }
 procedure TdmBase.DAClientDataModuleCreate(Sender: TObject);
 begin
-  IniciarLog;
+  //IniciarLog; <- NO SE USA
 
   TBXSwitcher.OnThemeChange := OnTBXThemeChange;
   TBXSetTheme('Office2003');
@@ -61,7 +61,7 @@ begin
   LeerConfiguracion;
 end;
 
-procedure TdmBase.IniciarLog;
+{procedure TdmBase.IniciarLog;
 var
   AIniFile : String;
 begin
@@ -79,7 +79,7 @@ begin
   JvLogFile.AutoSave := True;
   JvLogFile.Active := True;
   JvLogFile.Clear;
-end;
+end;}
 
 
 procedure TdmBase.InitStyleManager;
@@ -128,10 +128,10 @@ end;
 
 procedure TdmBase.DataModuleDestroy(Sender: TObject);
 begin
-  DetenerLog;
+  // DetenerLog; <- NO SE USA
 end;
 
-procedure TdmBase.DetenerLog;
+{procedure TdmBase.DetenerLog;
 begin
   FreeAndNIL(FEscribirLog);
 end;
@@ -146,6 +146,6 @@ begin
   finally
     FEscribirLog.Release;
   end;
-end;
+end;}
 
 end.