From fe415459696cd26e85234d25cbae757abddd108d Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 27 Mar 2008 17:01:26 +0000
Subject: [PATCH] General en cliente: escribir ficheros ini y log dentro de las
 carpetas de usuarios (C:\Documents and Settings)

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@361 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/ApplicationBase/uFactuGES_App.pas      |  19 +-
 Source/Base/Base.dpk                          |   3 +-
 Source/Base/Base.dproj                        | 183 +++++++++++++-----
 .../uDataModuleConfiguracion.pas              |  15 +-
 Source/Base/Utiles/uAppInfoUtils.pas          |  52 +++++
 Source/Base/Utiles/uSistemaFunc.pas           |  19 +-
 Source/Base/uDMBase.pas                       |  15 +-
 Source/Cliente/FactuGES.dproj                 |  11 +-
 Source/Cliente/FactuGES.rc                    |   8 +-
 Source/Cliente/FactuGES.res                   | Bin 172156 -> 172184 bytes
 Source/Cliente/uBootStrap.pas                 |   1 +
 Source/Servicios/RODLFILE.res                 | Bin 25261 -> 26132 bytes
 Source/Servidor/FactuGES_Server.RES           | Bin 23480 -> 23200 bytes
 Source/Servidor/FactuGES_Server.rc            |  10 +-
 14 files changed, 256 insertions(+), 80 deletions(-)
 create mode 100644 Source/Base/Utiles/uAppInfoUtils.pas

diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas
index f56290e2..7580cae7 100644
--- a/Source/ApplicationBase/uFactuGES_App.pas
+++ b/Source/ApplicationBase/uFactuGES_App.pas
@@ -4,7 +4,7 @@ interface
 
 uses
   SysUtils, Classes, Forms, uBizUsuarios, uBizEmpresas, uControllerBase,
-  uEmpresasController, JclFileUtils, uUsuariosController, uHostManager;
+  uEmpresasController, uUsuariosController, uHostManager;
 
 type
   TDoLoadModulesEvent = procedure;
@@ -57,20 +57,19 @@ type
     property EmpresaActiva : IBizEmpresa read GetEmpresaActiva;
     property UsuarioActivo : IBizUsuario read GetUsuarioActivo;
     property EmpresasController : IEmpresasController read GetEmpresasController;
-    property UsuariosController : IUsuariosController read GetUsuariosController;   
+    property UsuariosController : IUsuariosController read GetUsuariosController;
     property AppSplashForm : IAppSplashForm read GetAppSplashForm write SetAppSplashForm;
     property ModuleManager : THostManager read GetModuleManager;
     property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent;
     property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent;
     property Terminated : Boolean read GetTerminated;
-    
+
     procedure ShowCapado;
   end;
 
 
   TAppFactuGES = class(TInterfacedObject, IAppFactuGES)
   private
-    FAppInfo : TJclFileVersionInfo;
     FEmpresasController : IEmpresasController;
     FUsuariosController: IUsuariosController;
     FEmpresaActiva: IBizEmpresa;
@@ -143,7 +142,7 @@ implementation
 
 uses
   Dialogs, uDialogUtils, cxControls, uUsuariosViewRegister,
-  uEmpresasViewRegister;
+  uEmpresasViewRegister, uAppInfoUtils;
 
 procedure TAppFactuGES.CambiarEmpresa(const AIDEmpresa: Integer);
 var
@@ -177,13 +176,12 @@ begin
  
   FEmpresasController := NIL; // Se crea la primera vez que se usa
 
-  FAppInfo := TJclFileVersionInfo.Create(Application.ExeName);
   FHostManager := THostManager.Create(NIL);
   with FHostManager do
   begin
     OnAfterLoad := AfterLoadModule;
     // Ruta por defecto de los módulos
-    BPLPath := ExtractFilePath(Application.ExeName) + '\';
+    BPLPath := ExtractFilePath(Application.ExeName) + PathDelim;
   end;
 end;
 
@@ -198,7 +196,6 @@ begin
   FUsuariosController := NIL;
   FEmpresasController := NIL;
 
-  FreeAndNIL(FAppInfo);
   inherited;
 end;
 
@@ -222,12 +219,12 @@ end;
 
 function TAppFactuGES.GetAppFullName: String;
 begin
-  Result := GetAppName + ' ' + GetAppVersion;
+  Result := uAppInfoUtils.GetAppFullName;
 end;
 
 function TAppFactuGES.GetAppName: String;
 begin
-  Result := FAppInfo.ProductName;
+  Result := uAppInfoUtils.GetAppName;
 end;
 
 function TAppFactuGES.GetAppSplashForm: IAppSplashForm;
@@ -237,7 +234,7 @@ end;
 
 function TAppFactuGES.GetAppVersion: String;
 begin
-  Result := FAppInfo.ProductVersion;
+  Result := uAppInfoUtils.GetAppVersion;
 end;
 
 function TAppFactuGES.GetEmpresaActiva: IBizEmpresa;
diff --git a/Source/Base/Base.dpk b/Source/Base/Base.dpk
index 5b05879f..d377d839 100644
--- a/Source/Base/Base.dpk
+++ b/Source/Base/Base.dpk
@@ -105,6 +105,7 @@ contains
   uControllerDetallesBase in 'Controladores\uControllerDetallesBase.pas',
   schBase_Intf in 'schBase_Intf.pas',
   uDataModuleBase in 'uDataModuleBase.pas' {DataModuleBase: TDataModule},
-  uStringsUtils in 'Utiles\uStringsUtils.pas';
+  uStringsUtils in 'Utiles\uStringsUtils.pas',
+  uAppInfoUtils in 'Utiles\uAppInfoUtils.pas';
 
 end.
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index eb4d0e9e..78cf166f 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,86 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@@ -53,57 +133,6 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Almacenes\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\designide.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Almacenes\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
@@ -128,10 +157,55 @@
       <Form>dmBase</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
+    <DCCReference Include="Utiles\adortl.dcp" />
     <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
+    <DCCReference Include="Utiles\cxDataD11.dcp" />
+    <DCCReference Include="Utiles\cxEditorsD11.dcp" />
+    <DCCReference Include="Utiles\cxExportD11.dcp" />
+    <DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
+    <DCCReference Include="Utiles\cxGridD11.dcp" />
+    <DCCReference Include="Utiles\cxIntl6D11.dcp" />
+    <DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="Utiles\cxLibraryD11.dcp" />
+    <DCCReference Include="Utiles\cxPageControlD11.dcp" />
+    <DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="Utiles\dbrtl.dcp" />
+    <DCCReference Include="Utiles\dclIndyCore.dcp" />
+    <DCCReference Include="Utiles\designide.dcp" />
+    <DCCReference Include="Utiles\dsnap.dcp" />
+    <DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
+    <DCCReference Include="Utiles\dxPSCoreD11.dcp" />
+    <DCCReference Include="Utiles\dxThemeD11.dcp" />
+    <DCCReference Include="Utiles\GUISDK_D11.dcp" />
+    <DCCReference Include="Utiles\IndyCore.dcp" />
+    <DCCReference Include="Utiles\IndyProtocols.dcp" />
+    <DCCReference Include="Utiles\IndySystem.dcp" />
+    <DCCReference Include="Utiles\Jcl.dcp" />
+    <DCCReference Include="Utiles\JclVcl.dcp" />
+    <DCCReference Include="Utiles\JSDialog100.dcp" />
+    <DCCReference Include="Utiles\JvCmpD11R.dcp" />
+    <DCCReference Include="Utiles\JvCoreD11R.dcp" />
+    <DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
+    <DCCReference Include="Utiles\JvDlgsD11R.dcp" />
+    <DCCReference Include="Utiles\JvMMD11R.dcp" />
+    <DCCReference Include="Utiles\JvNetD11R.dcp" />
+    <DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
+    <DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="Utiles\JvSystemD11R.dcp" />
+    <DCCReference Include="Utiles\pckMD5.dcp" />
+    <DCCReference Include="Utiles\pckUCDataConnector.dcp" />
+    <DCCReference Include="Utiles\pckUserControl_RT.dcp" />
+    <DCCReference Include="Utiles\PngComponentsD10.dcp" />
+    <DCCReference Include="Utiles\PNG_D10.dcp" />
+    <DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="Utiles\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="Utiles\rtl.dcp" />
+    <DCCReference Include="Utiles\TB2k_D10.dcp" />
+    <DCCReference Include="Utiles\tbx_d10.dcp" />
+    <DCCReference Include="Utiles\uAppInfoUtils.pas" />
     <DCCReference Include="Utiles\uCalculosUtils.pas" />
     <DCCReference Include="Utiles\uDataTableUtils.pas" />
     <DCCReference Include="Utiles\uDateUtils.pas" />
@@ -145,6 +219,13 @@
     <DCCReference Include="Utiles\uPasswordUtils.pas" />
     <DCCReference Include="Utiles\uSistemaFunc.pas" />
     <DCCReference Include="Utiles\uStringsUtils.pas" />
+    <DCCReference Include="Utiles\vcl.dcp" />
+    <DCCReference Include="Utiles\vclactnband.dcp" />
+    <DCCReference Include="Utiles\vcldb.dcp" />
+    <DCCReference Include="Utiles\vcljpg.dcp" />
+    <DCCReference Include="Utiles\VclSmp.dcp" />
+    <DCCReference Include="Utiles\vclx.dcp" />
+    <DCCReference Include="Utiles\xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Base/Configuracion/uDataModuleConfiguracion.pas b/Source/Base/Configuracion/uDataModuleConfiguracion.pas
index b867d96c..6585de94 100644
--- a/Source/Base/Configuracion/uDataModuleConfiguracion.pas
+++ b/Source/Base/Configuracion/uDataModuleConfiguracion.pas
@@ -31,15 +31,26 @@ implementation
 {$R *.dfm}
 
 uses
-  Forms, FactuGES_Intf, Variants, uDataModuleConexion;
+  Forms, FactuGES_Intf, Variants, uDataModuleConexion,
+  uSistemaFunc, SHFolder, uAppInfoUtils;
 
+const
+  CONFIG_INI_FILE = 'config.ini';
 
 { TdmConfiguracion }
 
 constructor TdmConfiguracion.Create(AOwner: TComponent);
+var
+  AIniFile : String;
 begin
   inherited;
-  FIniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini' ) );
+  AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
+  AIniFile := AIniFile + PathDelim + GetAppName + PathDelim;
+
+  if not DirectoryExists(AIniFile) then
+    CreateDir(AIniFile);
+    
+  FIniFile := TIniFile.Create(AIniFile + CONFIG_INI_FILE);
 end;
 
 function TdmConfiguracion.DarValor(const CODIGO: String): Variant;
diff --git a/Source/Base/Utiles/uAppInfoUtils.pas b/Source/Base/Utiles/uAppInfoUtils.pas
new file mode 100644
index 00000000..d44909e0
--- /dev/null
+++ b/Source/Base/Utiles/uAppInfoUtils.pas
@@ -0,0 +1,52 @@
+unit uAppInfoUtils;
+
+interface
+
+function GetAppName: String;
+function GetAppVersion: String;
+function GetAppFullName: String;
+
+implementation
+
+uses
+  Forms, SysUtils, JclFileUtils;
+
+function GetAppName: String;
+var
+  FAppInfo : TJclFileVersionInfo;
+begin
+  FAppInfo := TJclFileVersionInfo.Create(Application.ExeName);
+  try
+    Result := FAppInfo.ProductName;
+  finally
+    FreeANDNil(FAppInfo);
+  end;
+end;
+
+
+function GetAppVersion: String;
+var
+  FAppInfo : TJclFileVersionInfo;
+begin
+  FAppInfo := TJclFileVersionInfo.Create(Application.ExeName);
+  try
+    Result := FAppInfo.ProductVersion;
+  finally
+    FreeANDNil(FAppInfo);
+  end;
+end;
+
+function GetAppFullName: String;
+var
+  FAppInfo : TJclFileVersionInfo;
+begin
+  FAppInfo := TJclFileVersionInfo.Create(Application.ExeName);
+  try
+    Result := FAppInfo.ProductName + ' ' + FAppInfo.ProductVersion;
+  finally
+    FreeANDNil(FAppInfo);
+  end;
+end;
+
+
+end.
diff --git a/Source/Base/Utiles/uSistemaFunc.pas b/Source/Base/Utiles/uSistemaFunc.pas
index e47008ec..fcce8117 100644
--- a/Source/Base/Utiles/uSistemaFunc.pas
+++ b/Source/Base/Utiles/uSistemaFunc.pas
@@ -39,14 +39,27 @@ function DarFechaFichero (Executable : String) : String;
 procedure CopiarFichero(const Origen, Destino: string);
 procedure DoDelTree( TheDir : String);
 procedure Deltree(DirToKill : String; KillChoosenDir : Boolean);
-
+function GetSpecialFolderPath(folder : integer) : string;
 
 implementation
 
 uses
   SysUtils, Windows, Dialogs, JclFileUtils,
-  Messages, Classes, Graphics, Controls, Forms, 
-  StdCtrls;
+  Messages, Classes, Graphics, Controls, Forms,
+  StdCtrls, SHFolder;
+
+
+function GetSpecialFolderPath(folder : integer) : string;
+const
+  SHGFP_TYPE_CURRENT = 0;
+var
+  path: array [0..MAX_PATH] of char;
+begin
+  if SUCCEEDED(SHGetFolderPath(0, folder, 0, SHGFP_TYPE_CURRENT, @path[0])) then
+    Result := path
+  else
+    Result := '';
+end;
 
 procedure EscribirEnFichero (NombreFichero, Texto : string);
 var
diff --git a/Source/Base/uDMBase.pas b/Source/Base/uDMBase.pas
index 918a1791..5d382b2c 100644
--- a/Source/Base/uDMBase.pas
+++ b/Source/Base/uDMBase.pas
@@ -42,7 +42,8 @@ implementation
 
 uses
   uDataModuleConexion, Dialogs, TBX, TBXThemes, Forms, Windows,
-  JclFileUtils, cxControls, SysUtils, uDataModuleConfiguracion;
+  JclFileUtils, cxControls, SysUtils, uDataModuleConfiguracion,
+  SHFolder, uSistemaFunc, uAppInfoUtils;
 
 {
 *********************************** TdmBase ************************************
@@ -58,16 +59,26 @@ begin
 end;
 
 procedure TdmBase.IniciarLog;
+var
+  AIniFile : String;
 begin
+  inherited;
   FEscribirLog := TCriticalSection.Create;
 
+  AIniFile := GetSpecialFolderPath(CSIDL_LOCAL_APPDATA); //[All Users]\Application Data
+  AIniFile := AIniFile + PathDelim + GetAppName + PathDelim;
+
+  if not DirectoryExists(AIniFile) then
+    CreateDir(AIniFile);
+
   JvLogFile.Active := False;
-  JvLogFile.FileName := ExtractFilePath(Application.ExeName) + 'ClientLog.txt';
+  JvLogFile.FileName := AIniFile + 'ClientLog.txt';
   JvLogFile.AutoSave := True;
   JvLogFile.Active := True;
   JvLogFile.Clear;
 end;
 
+
 procedure TdmBase.InitStyleManager;
 begin
   if not USE_THEMES then
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index c728b654..baa4c9ee 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -48,6 +48,7 @@
     <DCC_Define>DEBUG;</DCC_Define>
     <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
     <DCC_DebugVN>True</DCC_DebugVN>
+    <DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo>
   </PropertyGroup>
   <ProjectExtensions>
     <Borland.Personality>Delphi.Personality</Borland.Personality>
@@ -58,6 +59,14 @@
       
       
       
+      
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
@@ -240,7 +249,7 @@ boSaveCompressedCopyInCaseOfError=0
 boHandleSafeCallExceptions=1
 boCallRTLExceptionEvent=0
 boCatchHandledExceptions=0
-loCatchLeaks=1
+loCatchLeaks=0
 loGroupsSonLeaks=1
 loHideBorlandLeaks=0
 loFreeAllLeaks=1
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index b92ede00..72176d90 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 1,0,2,0
-PRODUCTVERSION 1,0,2,0
+FILEVERSION 1,0,3,0
+PRODUCTVERSION 1,0,3,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "1.0.2.0\0"
+              VALUE "FileVersion", "1.0.3.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "1.0.2.0\0"
+              VALUE "ProductVersion", "1.0.3.0\0"
          END
     END
     BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index de8aea73658042d2db83d3d4d98d92ade7040342..30cfbd319b4ffedfba0a4b62189913432e8509f0 100644
GIT binary patch
delta 74
zcmex!fNRD<u7(!IEldaIGVYjua4wTPka{?mDVj-)X}aA!CMCvC+Y{$8U1yY(VqgS9
ZXNG)+Tp&zk$YUsBC}seH>81;q+yVQR7N7tC

delta 48
zcmbPnkn7I@u7(!IEldaIGR~QPa4wTPka{?mDVpgI<8-@uOiGM5wkOVGy3RN~WC4>4
E00Qk3)Bpeg

diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas
index f3f4ad1c..15daafcc 100644
--- a/Source/Cliente/uBootStrap.pas
+++ b/Source/Cliente/uBootStrap.pas
@@ -60,6 +60,7 @@ end;
 
 procedure Initialize;
 begin
+
   dmConexion := TdmConexion.Create(NIL);
   dmConfiguracion := TdmConfiguracion.Create(NIL);
   dmBase := TdmBase.Create(NIL);
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index e60f6e2c4533e01907af65f036a0aa144bf79126..3e649eb0046752db24371e4f22664b7965b6a552 100644
GIT binary patch
delta 279
zcmZ2`lyS-##t8~cM^ZN`xiP95I~g0hI2*X>x;k5$=$aTCyXsn+J38yS7+4y(nOQhF
zyP7%HPBxIV-+YE~8@H)@YKco?Nuq0ol0vAbi>*?%fsv`BnX7?|u7#<Ev95`Uv$?K?
zo2i?wnWKxVp}DE6iHVup<b__jldE~IPi_zwRB)-xOU%to4$nv}N{#UKQBnYz7gAY}
zYO55UnUY#O*-<WFb3LyJ<K%i?K|O>;MiwS+MwVvIx{elRPP!(B2Cljmj+TbH=0+|c
h`$3|XlQ#;PO}6E*oLs}>LzG36?=!P+p2a5|0svTzQn~;D

delta 76
zcmbPohH>pt#t8~cu}K@1+!$5O4J=J8EM1LtjUC-wbxll6EOjkRoPk^eQ)eR!Gb1Ns
f6N}o(38MC!&oFM|-dxWw$T;~vGy7&nA>j}JJzEt!

diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 8da1f9c19b78dec99bd130b9c44d235f34ef1fac..040d84584c1a3dfb4a9567a9372dd6f40bd584ee 100644
GIT binary patch
delta 203
zcmdn7opHfd#tkJASq1`JJPdHa$iT)RAi%)D$RNRx!3v_`JQfB9CI$rsh};Se1_ovX
z52%BM!N342$H&0Hir}d-0L^4zSi(5@UW6PIkop(lA;JPQ85OWFPL7IHVtT+Zxh_&{
v@{>q|$#<ecgtHh*8B!U_fVh}Jhe3hCh{1fabF@0UF@qI@F@y2s!f1B@j2s`7

delta 480
zcmY*U%SyvQ6g@MxT0|tExDpu(DyWNA5sKSNRq(YCOtK3qP1Tr?#)X^u4KhFAvP(Cj
z3pf6V-{DF;lSx~0AvxSRk9+UyyZHPNZ<%}RIJ0vYm%ua}2N0+stQxePLRbMLl(O8g
z222&5!jO&%8jXUR2dYI!ZWYV~zNG$fS0v%jJzO-(axF{kdv*CM^uSv>sgoCIBSwS-
z0Uq##Q(}ahv27#QbkM^+U-$X-afOt9f{g!|uDtY%xASZhkNB2RnGyr~%9(3<;xYMd
z&YJlNC!5SJLON~P$rIfL6#=g4i-;-ixXGxj_N-Hc^oqfwwaprnqwJFB)W(c^<T+V+
gMg8qvF4!UFj6SxYu#H{4>95bUu!km^+Vc<o0lLUWrvLx|

diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index c54d3bc8..71acae1b 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 1,0,2,0
-PRODUCTVERSION 1,0,2,0
+FILEVERSION 1,0,3,0
+PRODUCTVERSION 1,0,3,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
     BEGIN
          BLOCK "0C0A04E4"
          BEGIN
-              VALUE "FileVersion", "1.0.2.0\0"
-              VALUE "ProductVersion", "1.0.2.0\0"
-              VALUE "CompileDate", "martes, 25 de marzo de 2008 18:11\0"
+              VALUE "FileVersion", "1.0.3.0\0"
+              VALUE "ProductVersion", "1.0.3.0\0"
+              VALUE "CompileDate", "jueves, 27 de marzo de 2008 13:33\0"
          END
     END
     BLOCK "VarFileInfo"