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
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.