From cebe5ab708ccb5ee44eda833417c9fdf1d9fdbbd Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Mon, 10 Nov 2008 19:38:27 +0000
Subject: [PATCH] =?UTF-8?q?Controladores=20->=20repaso=20general=20en=20la?=
 =?UTF-8?q?=20herencia=20de=20los=20controladores=20por=20problemas=20de?=
 =?UTF-8?q?=20liberaci=C3=B3n=20de=20memoria.?=
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@751 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Build/Build.fbp5                              |  34 +-
 Source/ApplicationBase/ApplicationBase.dpk    |   2 +-
 Source/ApplicationBase/ApplicationBase.dproj  |  62 +-
 .../uDatosBancariosEmpresaController.pas      |   9 +-
 .../Controller/uEmpresasController.pas        |   1 +
 .../Empresas/Views/uViewEmpresa.pas           |   1 -
 .../Controller/uUsuariosController.pas        |   2 +
 Source/Base/Base.dpk                          |   2 +-
 Source/Base/Base.dproj                        | 115 ++--
 Source/Base/uDataModuleBase.pas               |   6 +-
 Source/Cliente/FactuGES.dpr                   |   2 +-
 Source/Cliente/FactuGES.dproj                 |   4 +
 Source/Cliente/FactuGES.rc                    |   8 +-
 Source/Cliente/FactuGES.res                   | Bin 172184 -> 172184 bytes
 Source/GUIBase/GUIBase.dpk                    |   2 +-
 Source/GUIBase/GUIBase.dproj                  |  57 +-
 .../uAlbaranesClienteReportController.pas     |   1 +
 .../uAlbaranesProveedorReportController.pas   |   7 +-
 .../uBancaElectronicaController.pas           |   6 +-
 .../Controller/uContactosController.pas       |   1 +
 .../uEtiquetasContactosReportController.pas   |   1 +
 .../uFichasEmpleadoReportController.pas       |   1 +
 .../uFacturasClienteReportController.pas      |   1 +
 .../uFacturasProveedorReportController.pas    |   7 +-
 .../uFormasPagoPlazosController.pas           |   9 +-
 Source/Servidor/FactuGES_Server.RES           | Bin 23488 -> 23208 bytes
 Source/Servidor/FactuGES_Server.dproj         | 638 +++++++++---------
 Source/Servidor/FactuGES_Server.rc            |  10 +-
 28 files changed, 492 insertions(+), 497 deletions(-)

diff --git a/Build/Build.fbp5 b/Build/Build.fbp5
index f3fd76da..4a17812c 100644
--- a/Build/Build.fbp5
+++ b/Build/Build.fbp5
@@ -688,7 +688,7 @@ source_path
               <Property name="PauseInterval" type="Cardinal">0</Property>
               <Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Servidor\FactuGES_Server.dpr</Property>
               <Property name="RegenerateResource" type="WordBool">True</Property>
-              <Property name="ReleaseVersion" type="Integer">4</Property>
+              <Property name="ReleaseVersion" type="Integer">5</Property>
               <Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
               <Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
               <Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
@@ -703,15 +703,15 @@ source_path
               <Property name="UseVersionFromDOF" type="Boolean">True</Property>
               <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
 FileDescription=
-FileVersion=1.4.4.0
+FileVersion=1.4.5.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=1.4.4.0
+ProductVersion=1.4.5.0
 Comments=
-CompileDate=jueves, 06 de noviembre de 2008 11:20
+CompileDate=lunes, 10 de noviembre de 2008 14:07
 ]]>
                 </Property>
               <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
@@ -927,7 +927,7 @@ ProductVersion=1.0.0.0
                 <Property MultiValue="0" name="DCPOutputDir" type="WideString">%base_dcp_path%</Property>
                 <Property name="DebugInfo" type="WordBool">True</Property>
                 <Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
-                <Property name="DefinitionsOnly" type="WordBool">True</Property>
+                <Property name="DefinitionsOnly" type="WordBool">False</Property>
                 <Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
                 <Property name="ExportAllSymbols" type="WordBool">False</Property>
                 <Property name="ExtendedSyntax" type="WordBool">True</Property>
@@ -953,7 +953,7 @@ ProductVersion=1.0.0.0
                 <Property MultiValue="0" name="Packages" type="WideString"></Property>
                 <Property name="RangeChecking" type="WordBool">False</Property>
                 <Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
-                <Property name="ReferenceInfo" type="WordBool">True</Property>
+                <Property name="ReferenceInfo" type="WordBool">False</Property>
                 <Property name="SafeDivide" type="WordBool">False</Property>
                 <Property MultiValue="0" name="SearchPath" type="WideString"></Property>
                 <Property name="ShowHints" type="WordBool">True</Property>
@@ -1054,7 +1054,7 @@ Comments=
                 <Property MultiValue="0" name="DCPOutputDir" type="WideString">%base_dcp_path%</Property>
                 <Property name="DebugInfo" type="WordBool">True</Property>
                 <Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
-                <Property name="DefinitionsOnly" type="WordBool">True</Property>
+                <Property name="DefinitionsOnly" type="WordBool">False</Property>
                 <Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
                 <Property name="ExportAllSymbols" type="WordBool">False</Property>
                 <Property name="ExtendedSyntax" type="WordBool">True</Property>
@@ -1080,7 +1080,7 @@ Comments=
                 <Property MultiValue="0" name="Packages" type="WideString"></Property>
                 <Property name="RangeChecking" type="WordBool">False</Property>
                 <Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
-                <Property name="ReferenceInfo" type="WordBool">True</Property>
+                <Property name="ReferenceInfo" type="WordBool">False</Property>
                 <Property name="SafeDivide" type="WordBool">False</Property>
                 <Property MultiValue="0" name="SearchPath" type="WideString"></Property>
                 <Property name="ShowHints" type="WordBool">True</Property>
@@ -1181,7 +1181,7 @@ Comments=
                 <Property MultiValue="0" name="DCPOutputDir" type="WideString">%base_dcp_path%</Property>
                 <Property name="DebugInfo" type="WordBool">True</Property>
                 <Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
-                <Property name="DefinitionsOnly" type="WordBool">True</Property>
+                <Property name="DefinitionsOnly" type="WordBool">False</Property>
                 <Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
                 <Property name="ExportAllSymbols" type="WordBool">False</Property>
                 <Property name="ExtendedSyntax" type="WordBool">True</Property>
@@ -1191,7 +1191,7 @@ Comments=
                 <Property name="ImageBase" type="Cardinal">4194304</Property>
                 <Property name="IncludeNamespaces" type="WordBool">False</Property>
                 <Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
-                <Property name="IncludeTD32" type="WordBool">False</Property>
+                <Property name="IncludeTD32" type="WordBool">True</Property>
                 <Property name="IOChecking" type="WordBool">True</Property>
                 <Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
                 <Property name="LinkerOutput" type="Integer">0</Property>
@@ -1207,7 +1207,7 @@ Comments=
                 <Property MultiValue="0" name="Packages" type="WideString"></Property>
                 <Property name="RangeChecking" type="WordBool">False</Property>
                 <Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
-                <Property name="ReferenceInfo" type="WordBool">True</Property>
+                <Property name="ReferenceInfo" type="WordBool">False</Property>
                 <Property name="SafeDivide" type="WordBool">False</Property>
                 <Property MultiValue="0" name="SearchPath" type="WideString"></Property>
                 <Property name="ShowHints" type="WordBool">True</Property>
@@ -9121,7 +9121,7 @@ Comments=
                 <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
                 <Property MultiValue="1" name="Description" type="string"><![CDATA[Remesas de cliente MDC]]>
                   </Property>
-                <Property name="Enabled" type="WordBool">True</Property>
+                <Property name="Enabled" type="WordBool">False</Property>
                 <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
                 <Property name="IgnoreFailure" type="WordBool">False</Property>
                 <Property name="IsAction" type="Boolean">True</Property>
@@ -12661,7 +12661,7 @@ Comments=
                 <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
                 <Property MultiValue="1" name="Description" type="string"><![CDATA[Remesas de proveedor MDC]]>
                   </Property>
-                <Property name="Enabled" type="WordBool">True</Property>
+                <Property name="Enabled" type="WordBool">False</Property>
                 <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
                 <Property name="IgnoreFailure" type="WordBool">False</Property>
                 <Property name="IsAction" type="Boolean">True</Property>
@@ -18565,7 +18565,7 @@ Comments=
                 <Property name="DebugVersionNumbers" type="Boolean">False</Property>
                 <Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Banca electronica\Plugin\BancaElectronica_plugin.dpk]]>
                   </Property>
-                <Property name="Enabled" type="WordBool">True</Property>
+                <Property name="Enabled" type="WordBool">False</Property>
                 <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
                 <Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
                 <Property name="HintsAsError" type="Boolean">False</Property>
@@ -19246,7 +19246,7 @@ Comments=
               <Property name="PauseInterval" type="Cardinal">0</Property>
               <Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Cliente\FactuGES.dpr</Property>
               <Property name="RegenerateResource" type="WordBool">True</Property>
-              <Property name="ReleaseVersion" type="Integer">3</Property>
+              <Property name="ReleaseVersion" type="Integer">5</Property>
               <Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
               <Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
               <Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
@@ -19261,13 +19261,13 @@ Comments=
               <Property name="UseVersionFromDOF" type="Boolean">False</Property>
               <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=1.4.3.0
+FileVersion=1.4.5.0
 InternalName=FactuGES
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=FactuGES
-ProductVersion=1.4.3.0
+ProductVersion=1.4.5.0
 Comments=
 ]]>
                 </Property>
diff --git a/Source/ApplicationBase/ApplicationBase.dpk b/Source/ApplicationBase/ApplicationBase.dpk
index 42a40d40..85ff7b45 100644
--- a/Source/ApplicationBase/ApplicationBase.dpk
+++ b/Source/ApplicationBase/ApplicationBase.dpk
@@ -14,7 +14,7 @@ package ApplicationBase;
 {$OPTIMIZATION OFF}
 {$OVERFLOWCHECKS OFF}
 {$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
+{$REFERENCEINFO OFF}
 {$SAFEDIVIDE OFF}
 {$STACKFRAMES ON}
 {$TYPEDADDRESS OFF}
diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj
index ab629bee..c758bf6a 100644
--- a/Source/ApplicationBase/ApplicationBase.dproj
+++ b/Source/ApplicationBase/ApplicationBase.dproj
@@ -36,66 +36,29 @@
     <DCC_HppOutput>.\</DCC_HppOutput>
     <DCC_BplOutput>..\..\Output\Debug\Cliente</DCC_BplOutput>
     <DCC_DcpOutput>..\Lib</DCC_DcpOutput>
-    <DCC_UnitSearchPath>..\Lib</DCC_UnitSearchPath>
-    <DCC_ResourcePath>..\Lib</DCC_ResourcePath>
-    <DCC_ObjPath>..\Lib</DCC_ObjPath>
-    <DCC_IncludePath>..\Lib</DCC_IncludePath>
+    <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;..\Lib</DCC_IncludePath>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
+    <DCC_DebugVN>True</DCC_DebugVN>
   </PropertyGroup>
   <ProjectExtensions>
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <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="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 Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Source>
-      <Source Name="MainSource">ApplicationBase.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></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="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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">ApplicationBase.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Servidor\Base.dcp" />
-    <DCCReference Include="..\Servidor\GUIBase.dcp" />
-    <DCCReference Include="..\Servidor\JvJansD11R.dcp" />
-    <DCCReference Include="..\Servidor\PluginSDK_D10R.dcp" />
+    <DCCReference Include="..\Cliente\Base.dcp" />
+    <DCCReference Include="..\Cliente\GUIBase.dcp" />
+    <DCCReference Include="..\Cliente\JvJansD11R.dcp" />
+    <DCCReference Include="..\Cliente\PluginSDK_D10R.dcp" />
     <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
     <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
     <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
@@ -179,7 +142,6 @@
     </DCCReference>
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6011
diff --git a/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas b/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
index 935b6eb7..81e99409 100644
--- a/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
+++ b/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
@@ -4,20 +4,21 @@ interface
 
 uses
   Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
-  uBizEmpresas, uBizEmpresasDatosBancarios, uIDataModuleEmpresas;
+  uBizEmpresas, uBizEmpresasDatosBancarios, uIDataModuleEmpresas,
+  uControllerBase;
 
 type
-  IDatosBancariosEmpresaController = interface
+  IDatosBancariosEmpresaController = interface(IControllerBase)
   ['{E9B0313E-7B16-420A-B47E-20E42E96BAC6}']
     procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
   end;
 
-  TDatosBancariosEmpresaController = class(TInterfacedObject, IDatosBancariosEmpresaController)
+  TDatosBancariosEmpresaController = class(TControllerBase, IDatosBancariosEmpresaController)
   private
     FDataModule : IDataModuleEmpresas;
   public
     procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
-    constructor Create; virtual;
+    constructor Create; override;
     destructor Destroy; override;
   end;
 
diff --git a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
index 19fb3675..02dbf01f 100644
--- a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
+++ b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
@@ -76,6 +76,7 @@ end;
 
 constructor TEmpresasController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleEmpresas.Create(Nil);
 end;
 
diff --git a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
index 33bf579b..ceca730f 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
+++ b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
@@ -310,4 +310,3 @@ finalization
 
 end.
 
-
\ No newline at end of file
diff --git a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
index 565ad3e9..32cbd176 100644
--- a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
+++ b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
@@ -348,6 +348,7 @@ end;
 
 constructor TUsuariosController.Create;
 begin
+  inherited;
   AsignarDataModule;
   FCurrentUser := NIL;
   FUserControl := TUserControl.Create(nil);
@@ -410,6 +411,7 @@ destructor TUsuariosController.Destroy;
 begin
   FreeAndNIL(FUserControl);
   FDataModule := NIL;
+  FCurrentUser := NIL;
 
   inherited;
 end;
diff --git a/Source/Base/Base.dpk b/Source/Base/Base.dpk
index c319a3ab..d269a57c 100644
--- a/Source/Base/Base.dpk
+++ b/Source/Base/Base.dpk
@@ -14,7 +14,7 @@ package Base;
 {$OPTIMIZATION OFF}
 {$OVERFLOWCHECKS OFF}
 {$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
+{$REFERENCEINFO OFF}
 {$SAFEDIVIDE OFF}
 {$STACKFRAMES ON}
 {$TYPEDADDRESS OFF}
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 438c403b..18080ded 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -38,12 +38,25 @@
     <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp</DCC_IncludePath>
     <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
     <DCC_DebugVN>True</DCC_DebugVN>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
   </PropertyGroup>
   <ProjectExtensions>
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <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 +66,57 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
+    <DCCReference Include="..\Cliente\adortl.dcp" />
+    <DCCReference Include="..\Cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Cliente\cxExportD11.dcp" />
+    <DCCReference Include="..\Cliente\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Cliente\cxGridD11.dcp" />
+    <DCCReference Include="..\Cliente\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Cliente\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Cliente\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Cliente\designide.dcp" />
+    <DCCReference Include="..\Cliente\dsnap.dcp" />
+    <DCCReference Include="..\Cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Cliente\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Cliente\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Cliente\Jcl.dcp" />
+    <DCCReference Include="..\Cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Cliente\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="..\Cliente\rtl.dcp" />
+    <DCCReference Include="..\Cliente\TB2k_D10.dcp" />
+    <DCCReference Include="..\Cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Cliente\vcl.dcp" />
+    <DCCReference Include="..\Cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Cliente\vcldb.dcp" />
+    <DCCReference Include="..\Cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Cliente\vclx.dcp" />
+    <DCCReference Include="..\Cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
diff --git a/Source/Base/uDataModuleBase.pas b/Source/Base/uDataModuleBase.pas
index eb1c3176..5a1eddc2 100644
--- a/Source/Base/uDataModuleBase.pas
+++ b/Source/Base/uDataModuleBase.pas
@@ -6,7 +6,11 @@ uses
    Classes;
 
 type
-  TDataModuleBase = class(TDataModule)
+  IDataModuleBase = interface
+    ['{0377C83C-5C68-47CD-97A6-A764746CD2B1}']
+  end;
+
+  TDataModuleBase = class(TDataModule, IDataModuleBase)
   private
     FRefCount: Integer;
   protected
diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr
index 89e112a9..f5693134 100644
--- a/Source/Cliente/FactuGES.dpr
+++ b/Source/Cliente/FactuGES.dpr
@@ -29,7 +29,7 @@ begin
   // Luego, en el formulario principal cambio los paramátros para obligar a que aparezca el icono en la barra de tareas.
 
   uBootStrap.Initialize;
-  uBootStrap.Run;   // <- Aquí dentro esta Application.Run
+  uBootStrap.Run;   // <- Aquí dentro está Application.Run
   uBootStrap.Terminate;
 
   Application.Terminate; //<- No descomentar para así ver los Memory Leaks
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index c5d15dbf..6df4d44b 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -59,6 +59,10 @@
       
       
       
+      
+      
+      
+      
       <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>
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 92f8bf36..fe91af58 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,4,3,0
-PRODUCTVERSION 1,4,3,0
+FILEVERSION 1,4,5,0
+PRODUCTVERSION 1,4,5,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.4.3.0\0"
+              VALUE "FileVersion", "1.4.5.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "1.4.3.0\0"
+              VALUE "ProductVersion", "1.4.5.0\0"
          END
     END
     BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index aa9837b10887d67b66515bf5ec4125c5dab99d6f..b8198f4126d37992c74759d507daf3c644fbe2c0 100644
GIT binary patch
delta 200
zcmbPnkZZ<4u7(!IElezP>kS0Bco^V-k%5OnK!AaPkwJnXgB3)>c`OVJObikd5V;d<
z3=GV0UI!-w0}F$K0z_^F2Ll5uf(JB>jlsYGD#ypbz>eUlGMF%MFgQ3sBsH8E7&sX`
hJRrP|5C#S=hJ*yD#wiR8+zbs3VBYrabD1780RWby7VH23

delta 200
zcmX}lF%E(-6oBEswIEbtIx==Kab)lS#EAoV07h<M2L}$|z{1`Gm@u<>4R2zxjc<AR
z@+a?2tDaWv9^xg{d^bi{{6|n>3<wH_Y}-+mL4l;MV|(YYOR|h5D6Eam7my`ce7Kg=
oG^rh7pA_1OOL)|_TeO_7P||f#;|(-@ALXBLz`386WtJcL1#%=7%m4rY

diff --git a/Source/GUIBase/GUIBase.dpk b/Source/GUIBase/GUIBase.dpk
index 306494c6..691c4397 100644
--- a/Source/GUIBase/GUIBase.dpk
+++ b/Source/GUIBase/GUIBase.dpk
@@ -14,7 +14,7 @@ package GUIBase;
 {$OPTIMIZATION OFF}
 {$OVERFLOWCHECKS OFF}
 {$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
+{$REFERENCEINFO OFF}
 {$SAFEDIVIDE OFF}
 {$STACKFRAMES ON}
 {$TYPEDADDRESS OFF}
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index 52af4f43..63d77976 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -41,11 +41,12 @@
     <DCC_HppOutput>.\</DCC_HppOutput>
     <DCC_BplOutput>..\..\Output\Debug\Cliente</DCC_BplOutput>
     <DCC_DcpOutput>..\Lib</DCC_DcpOutput>
-    <DCC_UnitSearchPath>..\Lib</DCC_UnitSearchPath>
-    <DCC_ResourcePath>..\Lib</DCC_ResourcePath>
-    <DCC_ObjPath>..\Lib</DCC_ObjPath>
-    <DCC_IncludePath>..\Lib</DCC_IncludePath>
+    <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;..\Lib</DCC_IncludePath>
     <DCC_Define>DEBUG</DCC_Define>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
   </PropertyGroup>
   <ProjectExtensions>
     <Borland.Personality>Delphi.Personality</Borland.Personality>
@@ -58,30 +59,30 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Familias\Base.dcp" />
-    <DCCReference Include="..\Modulos\Familias\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\cxTreeListD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxBarExtItemsD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxComnD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxPsPrVwAdvD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Familias\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Familias\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Familias\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Familias\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Familias\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Familias\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Familias\vclx.dcp" />
+    <DCCReference Include="..\Cliente\Base.dcp" />
+    <DCCReference Include="..\Cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Cliente\cxTreeListD11.dcp" />
+    <DCCReference Include="..\Cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Cliente\dxBarD11.dcp" />
+    <DCCReference Include="..\Cliente\dxBarExtItemsD11.dcp" />
+    <DCCReference Include="..\Cliente\dxComnD11.dcp" />
+    <DCCReference Include="..\Cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Cliente\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Cliente\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Cliente\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\Cliente\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\Cliente\dxPsPrVwAdvD11.dcp" />
+    <DCCReference Include="..\Cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Cliente\frx11.dcp" />
+    <DCCReference Include="..\Cliente\frxe11.dcp" />
+    <DCCReference Include="..\Cliente\fs11.dcp" />
+    <DCCReference Include="..\Cliente\JvAppFrmD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Cliente\rtl.dcp" />
+    <DCCReference Include="..\Cliente\vcl.dcp" />
+    <DCCReference Include="..\Cliente\vcldb.dcp" />
+    <DCCReference Include="..\Cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Cliente\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
index e25747ee..2804b1c5 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas	
@@ -47,6 +47,7 @@ uses
 
 constructor TAlbaranesClienteReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleAlbaranesCliente.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas
index d8c36da4..fad9b88a 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas	
@@ -8,18 +8,18 @@ uses
   uBizAlbaranesProveedor;
 
 type
-  IAlbaranesProveedorReportController = interface
+  IAlbaranesProveedorReportController = interface(IControllerBase)
   ['{AAE252CE-D407-4FF4-AF2A-350C5A421C89}']
     procedure Preview(const AID : String);
     procedure Print(const AID : String);
   end;
 
-  TAlbaranesProveedorReportController = class(TInterfacedObject, IAlbaranesProveedorReportController)
+  TAlbaranesProveedorReportController = class(TControllerBase, IAlbaranesProveedorReportController)
   private
     FDataModule : IDataModuleAlbaranesProveedorReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
   public
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
 
     procedure Preview(const AID : String);
@@ -37,6 +37,7 @@ uses
 
 constructor TAlbaranesProveedorReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleAlbaranesProveedor.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas b/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas
index b6b3dcc5..099a9338 100644
--- a/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas	
+++ b/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas	
@@ -26,15 +26,15 @@ unit uBancaElectronicaController;
 interface
 
 uses
-  Classes, SysUtils, uDADataTable;
+  Classes, SysUtils, uDADataTable, uControllerBase;
 
 type
-  IBancaElectronicaController = interface
+  IBancaElectronicaController = interface(IControllerBase)
   ['{9E37DF46-D02C-47C4-BCBE-414FB97A7751}']
     procedure GenerarFicheroNorma19 (const IDRemesa : Integer);
   end;
 
-  TBancaElectronicaController = class(TInterfacedObject, IBancaElectronicaController)
+  TBancaElectronicaController = class(TControllerBase, IBancaElectronicaController)
   private
     function DarParametrosParaExportar(var Entidad : Integer; var Oficina : Integer;
               var AFechaCargo : TDateTime; var AFileName : String): Boolean;
diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas
index 24067f2f..fbd372a6 100644
--- a/Source/Modulos/Contactos/Controller/uContactosController.pas
+++ b/Source/Modulos/Contactos/Controller/uContactosController.pas
@@ -102,6 +102,7 @@ end;
 
 constructor TContactosController.Create;
 begin
+  inherited;
   FDataModule := NIL;
 end;
 
diff --git a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
index 4dcd3cb8..f963a076 100644
--- a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
+++ b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
@@ -36,6 +36,7 @@ uses
 
 constructor TEtiquetasContactosReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleContactos.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas b/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas
index e72eab1b..ac2f5026 100644
--- a/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas
+++ b/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas
@@ -36,6 +36,7 @@ uses
 
 constructor TFichasEmpleadoReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleEmpleados.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
index a1fa13d8..c9ea1aed 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas	
@@ -43,6 +43,7 @@ uses
 
 constructor TFacturasClienteReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleFacturasCliente.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas
index 40d4d2be..35dabf1c 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas	
@@ -7,18 +7,18 @@ uses
   uClientesController, uDetallesFacturaProveedorController, uBizFacturasProveedor;
 
 type
-  IFacturasProveedorReportController = interface
+  IFacturasProveedorReportController = interface(IControllerBase)
   ['{551F82DC-B8DC-482E-A20D-15003E845078}']
     procedure Preview(const AFacturaID : String);
     procedure Print(const AFacturaID : String);
   end;
 
-  TFacturasProveedorReportController = class(TInterfacedObject, IFacturasProveedorReportController)
+  TFacturasProveedorReportController = class(TControllerBase, IFacturasProveedorReportController)
   private
     FDataModule : IDataModuleFacturasProveedorReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
   public
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
 
     procedure Preview(const AFacturaID : String);
@@ -36,6 +36,7 @@ uses
 
 constructor TFacturasProveedorReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleFacturasProveedor.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas b/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas
index 6d40efd2..aba3e54f 100644
--- a/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas	
+++ b/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas	
@@ -4,17 +4,18 @@ interface
 
 uses
   Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
-  uBizFormasPago, uBizFormasPagoPlazos, uIDataModuleFormasPago;
+  uBizFormasPago, uBizFormasPagoPlazos, uIDataModuleFormasPago,
+  uControllerBase;
 type
-  IFormasPagoPlazosController = interface
+  IFormasPagoPlazosController = interface(IControllerBase)
   ['{3FCE2A31-9783-45F9-96D6-1157165AB8DB}']
   end;
 
-  TFormasPagoPlazosController = class(TInterfacedObject, IFormasPagoPlazosController)
+  TFormasPagoPlazosController = class(TControllerBase, IFormasPagoPlazosController)
   private
     FDataModule : IDataModuleFormasPago;
   public
-    constructor Create; virtual;
+    constructor Create; override;
     destructor Destroy; override;
   end;
 
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 1fecdb0a5447cb5a0c5afe6f1d73a863d8c0dd79..eb62fa981bee2f3d44a4a65dbf3e238e0558cc16 100644
GIT binary patch
delta 181
zcmX@GopHrh#tkJASq1`JJPdHa$iT)RAi%)D$RNRx!3v_`JQfB9CI$rsh};Se1_ovX
z52%BM!N342$H&0Hir}d-0L^4zSi?B^UW6PIkop(lA;JPQ85M9bPL7IHVtU3fxh_&{
b@{>q|$#<eAaT+lgFjz4dGFVP7kM;xr7}y($

delta 458
zcmY*U%SyvQ6g@L-rHV)v;!;AuE?h+v1h-1Dpw)$oq?-~{nyN7&#)TXGhBEjMS-L51
zEBGCLO7To)+L8-1hdbwS@03$9`xakC@ZdNbn^=~>8XN}@Xd`ZEG@XmM2}roE;mS79
zu$_yNjwXEHa$7*lcI5WJOyF0lzhGAq=E3>4R@TdtY7lyIF4TLtbLo*6I7NyC86rI6
z4SiyQ`=xEa(sVJ#6JO7GUT}+?eTIT}N>^2C5*~h-#2()YDsy5)Up=!^C0>vpRji($
zak9=FA*R!mnY_~7P!ZvdzJ!?Lk((^aXs^09WNZg7*4AsRK4q4?rZ#2VE5B3JS5!aY
Q=lTJTZ~`C4YB=cq0~o|YyZ`_I

diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index cb81c62e..4bf27029 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,323 +1,323 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <PropertyGroup>
-    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-    <MainSource>FactuGES_Server.dpr</MainSource>
-    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-    <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <Version>7.0</Version>
-    <DCC_DebugInformation>False</DCC_DebugInformation>
-    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-    <DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-    <DCC_Define>RELEASE</DCC_Define>
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <Version>7.0</Version>
-    <DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-    <DCC_Define>DEBUG;</DCC_Define>
-    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-    <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
-    <DCC_DebugVN>True</DCC_DebugVN>
-    <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
-    <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
-    <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
-    <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
-  </PropertyGroup>
-  <ProjectExtensions>
-    <Borland.Personality>Delphi.Personality</Borland.Personality>
-    <Borland.ProjectType />
-    <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">5</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.4.5.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.4.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 10 de noviembre de 2008 14:07</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-  </ProjectExtensions>
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
-  <ItemGroup>
-    <DelphiCompile Include="FactuGES_Server.dpr">
-      <MainSource>MainSource</MainSource>
-    </DelphiCompile>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
-    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-      <Form>srvEmpresas</Form>
-      <DesignClass>TDARemoteService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-      <Form>srvProvinciasPoblaciones_Impl</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
-      <Form>srvUsuarios</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Base\schBase_Intf.pas" />
-    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
-    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
-      <Form>RptAlbaranesCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
-      <Form>RptWordAlbaranCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-      <Form>srvAlbaranesCliente</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-      <Form>srvAlbaranesProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-      <Form>srvAlmacenes</Form>
-      <DesignClass>TDARemoteService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
-    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
-      <Form>srvArticulos</Form>
-      <DesignClass>TDARemoteService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-      <Form>RptEtiquetasContacto</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
-      <Form>RptFichasEmpleado</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-      <Form>srvContactos</Form>
-      <DesignClass>TDARemoteService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
-      <Form>srvFabricantes</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-      <Form>RptFacturasCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
-      <Form>RptWordFacturaCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-      <Form>srvFacturasCliente</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-      <Form>RptFacturasProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-      <Form>srvFacturasProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
-      <Form>srvFamilias</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
-      <Form>srvFormasPago</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-      <Form>srvGestorDocumentos</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-      <Form>srvGestorInformes</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-      <Form>srvHistoricoMovimientos</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-      <Form>srvInventario</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
-    <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
-      <Form>srvObras</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
-      <Form>RptPedidosProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
-      <Form>RptWordPedidoProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-      <Form>srvPedidosProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-      <Form>RptPresupuestosCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
-      <Form>RptWordCertificadoTrabajo</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
-      <Form>RptWordPresupuestoCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-      <Form>srvPresupuestosCliente</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-      <Form>RptRecibosCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-      <Form>srvRecibosCliente</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
-      <Form>RptRecibosProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-      <Form>srvRecibosProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-      <Form>srvReferencias</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-      <Form>srvRemesasCliente</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-      <Form>srvRemesasProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
-      <Form>srvTiposIVA</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-      <Form>srvUnidadesMedida</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
-    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-      <Form>srvConfiguracion</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="Configuracion\uConexionBD.pas">
-      <Form>frConexionBD</Form>
-      <DesignClass>TFrame</DesignClass>
-    </DCCReference>
-    <DCCReference Include="Configuracion\uConfGeneral.pas">
-      <Form>frConfGeneral</Form>
-      <DesignClass>TFrame</DesignClass>
-    </DCCReference>
-    <DCCReference Include="Configuracion\uConfiguracion.pas">
-      <Form>fConfiguracion</Form>
-      <DesignClass>TForm</DesignClass>
-    </DCCReference>
-    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-      <Form>FrameConfiguracion</Form>
-      <DesignClass>TFrame</DesignClass>
-    </DCCReference>
-    <DCCReference Include="srvLogin_Impl.pas">
-      <Form>srvLogin</Form>
-      <DesignClass>TDARemoteService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="uAcercaDe.pas">
-      <Form>fAcercaDe</Form>
-    </DCCReference>
-    <DCCReference Include="uDataModuleServer.pas">
-      <Form>dmServer</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="uServerMainForm.pas">
-      <Form>fServerForm</Form>
-    </DCCReference>
-    <DCCReference Include="Utiles\AHWord97.pas" />
-    <DCCReference Include="Utiles\RegExpr.pas" />
-    <DCCReference Include="Utiles\uBusinessUtils.pas" />
-    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
-    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
-    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
-    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
-    <DCCReference Include="Utiles\uServerAppUtils.pas" />
-    <DCCReference Include="Utiles\uSesionesUtils.pas" />
-  </ItemGroup>
+	<PropertyGroup>
+		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+		<MainSource>FactuGES_Server.dpr</MainSource>
+		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+		<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
+	</PropertyGroup>
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+		<Version>7.0</Version>
+		<DCC_DebugInformation>False</DCC_DebugInformation>
+		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+		<DCC_MapFile>3</DCC_MapFile>
+		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+		<DCC_Define>RELEASE</DCC_Define>
+	</PropertyGroup>
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+		<Version>7.0</Version>
+		<DCC_MapFile>3</DCC_MapFile>
+		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+		<DCC_Define>DEBUG;</DCC_Define>
+		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+		<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
+		<DCC_DebugVN>True</DCC_DebugVN>
+		<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
+		<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
+		<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
+		<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
+	</PropertyGroup>
+	<ProjectExtensions>
+		<Borland.Personality>Delphi.Personality</Borland.Personality>
+		<Borland.ProjectType/>
+		<BorlandProject>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">5</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.4.5.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.4.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 10 de noviembre de 2008 14:07</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+	</ProjectExtensions>
+	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+	<ItemGroup>
+		<DelphiCompile Include="FactuGES_Server.dpr">
+			<MainSource>MainSource</MainSource>
+		</DelphiCompile>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
+		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+			<Form>srvEmpresas</Form>
+			<DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
+			<Form>srvProvinciasPoblaciones_Impl</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
+			<Form>srvUsuarios</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
+		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
+			<Form>RptAlbaranesCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
+			<Form>RptWordAlbaranCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+			<Form>srvAlbaranesCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+			<Form>srvAlbaranesProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+			<Form>srvAlmacenes</Form>
+			<DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
+		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
+			<Form>srvArticulos</Form>
+			<DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+			<Form>RptEtiquetasContacto</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
+			<Form>RptFichasEmpleado</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+			<Form>srvContactos</Form>
+			<DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
+			<Form>srvFabricantes</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+			<Form>RptFacturasCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
+			<Form>RptWordFacturaCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+			<Form>srvFacturasCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
+			<Form>RptFacturasProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+			<Form>srvFacturasProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
+			<Form>srvFamilias</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
+			<Form>srvFormasPago</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
+			<Form>srvGestorDocumentos</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
+			<Form>srvGestorInformes</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+			<Form>srvHistoricoMovimientos</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+			<Form>srvInventario</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
+		<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
+			<Form>srvObras</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
+			<Form>RptPedidosProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
+			<Form>RptWordPedidoProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+			<Form>srvPedidosProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+			<Form>RptPresupuestosCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
+			<Form>RptWordCertificadoTrabajo</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
+			<Form>RptWordPresupuestoCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+			<Form>srvPresupuestosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+			<Form>RptRecibosCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+			<Form>srvRecibosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
+			<Form>RptRecibosProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+			<Form>srvRecibosProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+			<Form>srvReferencias</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+			<Form>srvRemesasCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+			<Form>srvRemesasProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
+			<Form>srvTiposIVA</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+			<Form>srvUnidadesMedida</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+			<Form>srvConfiguracion</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="Configuracion\uConexionBD.pas">
+			<Form>frConexionBD</Form>
+			<DesignClass>TFrame</DesignClass>
+		</DCCReference>
+		<DCCReference Include="Configuracion\uConfGeneral.pas">
+			<Form>frConfGeneral</Form>
+			<DesignClass>TFrame</DesignClass>
+		</DCCReference>
+		<DCCReference Include="Configuracion\uConfiguracion.pas">
+			<Form>fConfiguracion</Form>
+			<DesignClass>TForm</DesignClass>
+		</DCCReference>
+		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+			<Form>FrameConfiguracion</Form>
+			<DesignClass>TFrame</DesignClass>
+		</DCCReference>
+		<DCCReference Include="srvLogin_Impl.pas">
+			<Form>srvLogin</Form>
+			<DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="uAcercaDe.pas">
+			<Form>fAcercaDe</Form>
+		</DCCReference>
+		<DCCReference Include="uDataModuleServer.pas">
+			<Form>dmServer</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="uServerMainForm.pas">
+			<Form>fServerForm</Form>
+		</DCCReference>
+		<DCCReference Include="Utiles\AHWord97.pas"/>
+		<DCCReference Include="Utiles\RegExpr.pas"/>
+		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+	</ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 36b3c860..6854455b 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,4,4,0
-PRODUCTVERSION 1,4,4,0
+FILEVERSION 1,4,5,0
+PRODUCTVERSION 1,4,5,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
     BEGIN
          BLOCK "0C0A04E4"
          BEGIN
-              VALUE "FileVersion", "1.4.4.0\0"
-              VALUE "ProductVersion", "1.4.4.0\0"
-              VALUE "CompileDate", "lunes, 10 de noviembre de 2008 14:07\0"
+              VALUE "FileVersion", "1.4.5.0\0"
+              VALUE "ProductVersion", "1.4.5.0\0"
+              VALUE "CompileDate", "lunes, 10 de noviembre de 2008 20:19\0"
          END
     END
     BLOCK "VarFileInfo"