Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ticket #273 -> Al lanzar 2 aplicaciones clientes sale un mensaje de error porque el fichero de log está en uso.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1006 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2010-06-24 18:11:49 +00:00
parent f2fe24b6bc
commit bf4f4a17f0
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Source/Base/uDMBase.pas
View File

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