diff --git a/Build/Build.fbp5 b/Build/Build.fbp5
index 7cfca2bf..5086d692 100644
--- a/Build/Build.fbp5
+++ b/Build/Build.fbp5
@@ -18924,95 +18924,6 @@ Comments=
                 </Object>
               </Object>
             </Object>
-          <Object Class="TGroupAction" XMLID="{B6FF24D6-FAF7-4A2C-A3DD-82476DA27DD2}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
-            <Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Comprimir ejecutables]]>
-              </Property>
-            <Property name="ActionTextColor" type="Cardinal">0</Property>
-            <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
-            <Property MultiValue="1" name="Description" type="string"><![CDATA[Comprimir ejecutables]]>
-              </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>
-            <Property name="IsBreakPoint" type="WordBool">False</Property>
-            <Property MultiValue="0" name="LogToVariable" type="string"></Property>
-            <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
-            <Property name="NodeCollapsed" type="Boolean">False</Property>
-            <Property name="PauseInterval" type="Cardinal">0</Property>
-            <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
-            <Property name="SuppressStatusMessages" type="Boolean">False</Property>
-            <Object Class="TFBScriptBasedAction" XMLID="{3954C05B-1763-404E-8EE5-5A12E36C5594}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
-              <Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Comprimir servidor]]>
-                </Property>
-              <Property name="ActionTextColor" type="Cardinal">0</Property>
-              <Property MultiValue="0" name="ActionTypeID" type="string">{A78530B0-8E25-4ACF-BCD0-410E385473A0}</Property>
-              <Property MultiValue="1" name="CustomActionName" type="string"><![CDATA[ASPack Compress Executable]]>
-                </Property>
-              <Property MultiValue="1" name="Description" type="string"><![CDATA[Comprimir servidor]]>
-                </Property>
-              <Property name="Enabled" type="WordBool">True</Property>
-              <Property name="EnableTimeout" type="Boolean">False</Property>
-              <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
-              <Property name="IgnoreFailure" type="WordBool">False</Property>
-              <Property name="IsAction" type="Boolean">True</Property>
-              <Property name="IsBreakPoint" type="WordBool">False</Property>
-              <Property MultiValue="0" name="LogToVariable" type="string"></Property>
-              <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
-              <Property name="NodeCollapsed" type="Boolean">False</Property>
-              <Property name="PauseInterval" type="Cardinal">0</Property>
-              <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
-              <Property name="SuppressStatusMessages" type="Boolean">False</Property>
-              <Property name="TerminateOnTimeout" type="Boolean">True</Property>
-              <Property name="TimeoutLength" type="Cardinal">2</Property>
-              <CustomProperty MultiValue="0" name="Executable" type="ptString">%output_path%\Debug\Servidor\FactuGES_Server.exe</CustomProperty>
-              <CustomProperty MultiValue="0" name="OutputFile" type="ptString"></CustomProperty>
-              <CustomProperty name="CompressResources" type="ptBoolean">True</CustomProperty>
-              <CustomProperty name="MakeBackup" type="ptBoolean">True</CustomProperty>
-              <CustomProperty name="PreserveExtraData" type="ptBoolean">False</CustomProperty>
-              <CustomProperty name="UseWindowsDLLLoader" type="ptBoolean">True</CustomProperty>
-              <CustomProperty name="Quiet" type="ptBoolean">True</CustomProperty>
-              <CustomProperty name="MaxCompression" type="ptBoolean">True</CustomProperty>
-              <CustomProperty name="Recurse" type="ptBoolean">False</CustomProperty>
-              <CustomProperty name="CompressExport" type="ptBoolean">False</CustomProperty>
-              <CustomProperty name="useOutputFile" type="ptBoolean">False</CustomProperty>
-              </Object>
-            <Object Class="TFBScriptBasedAction" XMLID="{B26171C9-990D-46D9-AFE2-53DE6B43730E}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
-              <Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Comprimir cliente]]>
-                </Property>
-              <Property name="ActionTextColor" type="Cardinal">0</Property>
-              <Property MultiValue="0" name="ActionTypeID" type="string">{A78530B0-8E25-4ACF-BCD0-410E385473A0}</Property>
-              <Property MultiValue="1" name="CustomActionName" type="string"><![CDATA[ASPack Compress Executable]]>
-                </Property>
-              <Property MultiValue="1" name="Description" type="string"><![CDATA[Comprimir cliente]]>
-                </Property>
-              <Property name="Enabled" type="WordBool">True</Property>
-              <Property name="EnableTimeout" type="Boolean">False</Property>
-              <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
-              <Property name="IgnoreFailure" type="WordBool">False</Property>
-              <Property name="IsAction" type="Boolean">True</Property>
-              <Property name="IsBreakPoint" type="WordBool">False</Property>
-              <Property MultiValue="0" name="LogToVariable" type="string"></Property>
-              <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
-              <Property name="NodeCollapsed" type="Boolean">False</Property>
-              <Property name="PauseInterval" type="Cardinal">0</Property>
-              <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
-              <Property name="SuppressStatusMessages" type="Boolean">False</Property>
-              <Property name="TerminateOnTimeout" type="Boolean">True</Property>
-              <Property name="TimeoutLength" type="Cardinal">2</Property>
-              <CustomProperty MultiValue="0" name="Executable" type="ptString">%output_path%\Debug\Cliente\FactuGES.exe</CustomProperty>
-              <CustomProperty MultiValue="0" name="OutputFile" type="ptString"></CustomProperty>
-              <CustomProperty name="CompressResources" type="ptBoolean">True</CustomProperty>
-              <CustomProperty name="MakeBackup" type="ptBoolean">True</CustomProperty>
-              <CustomProperty name="PreserveExtraData" type="ptBoolean">False</CustomProperty>
-              <CustomProperty name="UseWindowsDLLLoader" type="ptBoolean">True</CustomProperty>
-              <CustomProperty name="Quiet" type="ptBoolean">True</CustomProperty>
-              <CustomProperty name="MaxCompression" type="ptBoolean">True</CustomProperty>
-              <CustomProperty name="Recurse" type="ptBoolean">False</CustomProperty>
-              <CustomProperty name="CompressExport" type="ptBoolean">False</CustomProperty>
-              <CustomProperty name="useOutputFile" type="ptBoolean">False</CustomProperty>
-              </Object>
-            </Object>
           <Object Class="TGroupAction" XMLID="{27621115-749D-4B57-AE1E-1D94E6557259}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
             <Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Copiar los informes al directorio de salida]]>
               </Property>
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
index 3086aa81..c46e3017 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas	
@@ -23,7 +23,7 @@ type
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
 
   public
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
 
     procedure Preview(const AListaID : TIntegerList);
@@ -45,6 +45,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 5b17507b..fad9b88a 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas	
@@ -19,7 +19,7 @@ type
     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/Comisiones/Controller/uComisionesReportController.pas b/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas
index dd715b68..d723698b 100644
--- a/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas
+++ b/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas
@@ -19,7 +19,7 @@ type
     FDataModule : IDataModuleComisionesReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
   public
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
 
     procedure Preview(const AComisionID : String);
@@ -37,6 +37,7 @@ uses
 
 constructor TComisionesReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleComisiones.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas
index 45cb140b..337c16b1 100644
--- a/Source/Modulos/Contactos/Controller/uContactosController.pas
+++ b/Source/Modulos/Contactos/Controller/uContactosController.pas
@@ -40,7 +40,7 @@ type
     function _Vacio : IBizContacto; virtual;
     function ValidarContacto(AContacto : IBizContacto): Boolean; virtual;
   public
-    constructor Create; virtual;
+    constructor Create; override;
     destructor Destroy; override;
 
     procedure Eliminar(const ID : Integer); overload; virtual;
@@ -105,6 +105,7 @@ end;
 
 constructor TContactosController.Create;
 begin
+  inherited;
   FDataModule := NIL;
 end;
 
diff --git a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
index 2a4544df..e8d11ec2 100644
--- a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
+++ b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
@@ -22,7 +22,7 @@ type
     procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
     procedure Ver(ADireccion : IBizDireccionesContacto);
     function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
-    constructor Create; virtual;
+    constructor Create; override;
     destructor Destroy; override;
   end;
 
diff --git a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
index 8ff823a6..f7effbd9 100644
--- a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
+++ b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
@@ -18,7 +18,7 @@ type
     FDataModule : IDataModuleEtiquetasContactosReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
   public
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
 
     procedure Preview(const AContactosID : String);
@@ -36,6 +36,7 @@ uses
 
 constructor TEtiquetasContactosReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleContactos.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
index dcb02ee3..a7abd7ba 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas	
@@ -19,7 +19,7 @@ type
     FDataModule : IDataModuleFacturasClienteReport;
     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);
@@ -37,6 +37,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 1d6507c3..35dabf1c 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas	
@@ -18,7 +18,7 @@ type
     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/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas
index 71501c1a..f7bd47c3 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas	
@@ -19,7 +19,7 @@ type
     FDataModule : IDataModulePedidosProveedorReport;
     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 TPedidosProveedorReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModulePedidosProveedor.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
index eb646b64..d9d50df0 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas	
@@ -20,7 +20,7 @@ type
     FDataModule : IDataModulePresupuestosClienteReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
   public
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
 
     procedure Preview(const AListaID : TIntegerList);
@@ -40,6 +40,7 @@ uses
 
 constructor TPresupuestosClienteReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModulePresupuestosCliente.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas
index 6725f2e1..f2937aed 100644
--- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas	
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas	
@@ -18,7 +18,7 @@ type
     FDataModule : IDataModuleRecibosClienteReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
   public
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
 
     procedure Preview(const ID : String);
@@ -36,6 +36,7 @@ uses
 
 constructor TRecibosClienteReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleRecibosCliente.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas
index cc026e8b..413f0014 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas	
+++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas	
@@ -18,7 +18,7 @@ type
     FDataModule : IDataModuleRecibosProveedorReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
   public
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
   
     procedure Preview(const ID : integer);
@@ -36,6 +36,7 @@ uses
 
 constructor TRecibosProveedorReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleRecibosProveedor.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas
index f4743ae8..73293542 100644
--- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas	
+++ b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas	
@@ -18,7 +18,7 @@ type
     FDataModule : IDataModuleRemesasClienteReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
   public
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
 
     procedure Preview(const ID : String);
@@ -36,6 +36,7 @@ uses
 
 constructor TRemesasClienteReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleRemesasCliente.Create(Nil);
 end;
 
diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas
index 2e28d2ee..fd8b5e8d 100644
--- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas	
+++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas	
@@ -18,7 +18,7 @@ type
     FDataModule : IDataModuleRemesasProveedorReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
   public
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
 
     procedure Preview(const ID : String);
@@ -36,6 +36,7 @@ uses
 
 constructor TRemesasProveedorReportController.Create;
 begin
+  inherited;
   FDataModule := TDataModuleRemesasProveedor.Create(Nil);
 end;