From b9812693f34d3de82f6753fe3ac9f2d8d60b5e86 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Tue, 26 Feb 2008 15:04:26 +0000
Subject: [PATCH] Subida para compilar david

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@147 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Database/scripts/factuges.sql                 |  17 +-
 .../Controller/uFacturasClienteController.pas |   3 +-
 .../Data/uDataModuleRecibosCliente.dfm        |  25 +
 .../Model/schRecibosClienteClient_Intf.pas    | 195 ++++++-
 .../Model/schRecibosClienteServer_Intf.pas    | 227 +++++++-
 .../Servidor/srvRecibosCliente_Impl.dfm       |  45 ++
 .../Views/uEditorReciboCliente.dfm            |  77 +--
 .../Views/uViewReciboCliente.dfm              |   2 -
 Source/Servidor/FactuGES_Server.dpr           |   6 +-
 Source/Servidor/FactuGES_Server.dproj         | 493 +++++++++---------
 10 files changed, 756 insertions(+), 334 deletions(-)

diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 7d912e77..4a4a2046 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -3337,7 +3337,12 @@ CREATE VIEW V_RECIBOS_CLIENTE(
     FECHA_ALTA,
     FECHA_MODIFICACION,
     USUARIO,
-    ID_TIENDA)
+    ID_TIENDA,
+    TIENDA,
+    CALLE_CLIENTE,
+    POBLACION_CLIENTE,
+    CODIGO_POSTAL_CLIENTE,
+    PROVINCIA_CLIENTE)
 AS
 SELECT RECIBOS_CLIENTE.ID,
        RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
@@ -3363,7 +3368,12 @@ SELECT RECIBOS_CLIENTE.ID,
        RECIBOS_CLIENTE.FECHA_ALTA,
        RECIBOS_CLIENTE.FECHA_MODIFICACION,
        RECIBOS_CLIENTE.USUARIO,
-       RECIBOS_CLIENTE.ID_TIENDA
+       RECIBOS_CLIENTE.ID_TIENDA,
+       EMPRESAS_TIENDAS.NOMBRE AS TIENDA,
+       CONTACTOS.CALLE,
+       CONTACTOS.POBLACION,
+       CONTACTOS.CODIGO_POSTAL,
+       CONTACTOS.PROVINCIA
 
 FROM RECIBOS_CLIENTE
 LEFT JOIN V_REC_CLI_SITUACION
@@ -3384,10 +3394,11 @@ LEFT JOIN RECIBOS_CLIENTE RECIBO_COMPENSADO1
 ON (RECIBO_COMPENSADO1.ID = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
 LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2
 ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
+LEFT JOIN EMPRESAS_TIENDAS
+ON (EMPRESAS_TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA)
 ;
 
 
-
 /* View: V_RECIBOS_PROVEEDOR */
 CREATE VIEW V_RECIBOS_PROVEEDOR(
     ID,
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 033f89fd..548577e5 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
@@ -116,7 +116,7 @@ type
 implementation
 
 uses
-  Windows, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasClienteClient_Intf,
+  Windows, uNumUtils, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasClienteClient_Intf,
   uBizContactos, uIEditorFacturasCliente, uIEditorFacturaCliente, uFactuGES_App,
   uDataModuleFacturasCliente, uBizDetallesFacturaCliente, uControllerDetallesBase,
   uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils,
@@ -1112,6 +1112,7 @@ begin
       ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
 
       ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
+      ARecibos.DESCRIPCION := 'RECIBO ' + ARecibos.REFERENCIA + ' - ' + CifraToLetras(ARecibos.IMPORTE);
       ARecibosClienteController.Guardar(ARecibos);
       Inc(i);
       Next;
diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
index be3563a7..251e2243 100644
--- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm	
+++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm	
@@ -307,6 +307,31 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
       item
         Name = 'ID_TIENDA'
         DataType = datInteger
+      end
+      item
+        Name = 'TIENDA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CALLE_CLIENTE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'POBLACION_CLIENTE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CODIGO_POSTAL_CLIENTE'
+        DataType = datString
+        Size = 10
+      end
+      item
+        Name = 'PROVINCIA_CLIENTE'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
index 0e01b47e..529b52e7 100644
--- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas	
+++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas	
@@ -3,15 +3,15 @@ unit schRecibosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_RecibosCliente = '{7A055B0C-024A-4296-BEFF-634E1169F389}';
-  RID_PagosCliente = '{99182515-443D-46E2-B64A-567FECC2F0C6}';
-  RID_RecibosCompensadosCli = '{DAB1DFE3-FD78-4B4E-89AC-9C28047797BA}';
+  RID_RecibosCliente = '{91CA9E3C-BE22-44DB-A0E9-AE7277D5F2C3}';
+  RID_PagosCliente = '{48EEDB2E-4FAD-4E9D-8894-1C4FB7AFEAF7}';
+  RID_RecibosCompensadosCli = '{2C3B8C04-214A-4671-BC94-B23432C7C64A}';
 
   { Data table names }
   nme_RecibosCliente = 'RecibosCliente';
@@ -49,6 +49,11 @@ const
   fld_RecibosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
   fld_RecibosClienteUSUARIO = 'USUARIO';
   fld_RecibosClienteID_TIENDA = 'ID_TIENDA';
+  fld_RecibosClienteTIENDA = 'TIENDA';
+  fld_RecibosClienteCALLE_CLIENTE = 'CALLE_CLIENTE';
+  fld_RecibosClientePOBLACION_CLIENTE = 'POBLACION_CLIENTE';
+  fld_RecibosClienteCODIGO_POSTAL_CLIENTE = 'CODIGO_POSTAL_CLIENTE';
+  fld_RecibosClientePROVINCIA_CLIENTE = 'PROVINCIA_CLIENTE';
 
   { RecibosCliente field indexes }
   idx_RecibosClienteID = 0;
@@ -81,6 +86,11 @@ const
   idx_RecibosClienteFECHA_MODIFICACION = 27;
   idx_RecibosClienteUSUARIO = 28;
   idx_RecibosClienteID_TIENDA = 29;
+  idx_RecibosClienteTIENDA = 30;
+  idx_RecibosClienteCALLE_CLIENTE = 31;
+  idx_RecibosClientePOBLACION_CLIENTE = 32;
+  idx_RecibosClienteCODIGO_POSTAL_CLIENTE = 33;
+  idx_RecibosClientePROVINCIA_CLIENTE = 34;
 
   { PagosCliente fields }
   fld_PagosClienteID = 'ID';
@@ -177,7 +187,7 @@ const
 type
   { IRecibosCliente }
   IRecibosCliente = interface(IDAStronglyTypedDataTable)
-  ['{A3E27870-5581-46F4-82B4-7B83E1642BF9}']
+  ['{25116AB8-EA3C-435E-9B0A-FC5ED921649F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -299,6 +309,26 @@ type
     procedure SetID_TIENDAValue(const aValue: Integer);
     function GetID_TIENDAIsNull: Boolean;
     procedure SetID_TIENDAIsNull(const aValue: Boolean);
+    function GetTIENDAValue: String;
+    procedure SetTIENDAValue(const aValue: String);
+    function GetTIENDAIsNull: Boolean;
+    procedure SetTIENDAIsNull(const aValue: Boolean);
+    function GetCALLE_CLIENTEValue: String;
+    procedure SetCALLE_CLIENTEValue(const aValue: String);
+    function GetCALLE_CLIENTEIsNull: Boolean;
+    procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean);
+    function GetPOBLACION_CLIENTEValue: String;
+    procedure SetPOBLACION_CLIENTEValue(const aValue: String);
+    function GetPOBLACION_CLIENTEIsNull: Boolean;
+    procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
+    function GetCODIGO_POSTAL_CLIENTEValue: String;
+    procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
+    function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean;
+    procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
+    function GetPROVINCIA_CLIENTEValue: String;
+    procedure SetPROVINCIA_CLIENTEValue(const aValue: String);
+    function GetPROVINCIA_CLIENTEIsNull: Boolean;
+    procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -362,10 +392,20 @@ type
     property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
     property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
     property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
+    property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
+    property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+    property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
+    property CALLE_CLIENTEIsNull: Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull;
+    property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
+    property POBLACION_CLIENTEIsNull: Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull;
+    property CODIGO_POSTAL_CLIENTE: String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue;
+    property CODIGO_POSTAL_CLIENTEIsNull: Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull;
+    property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
+    property PROVINCIA_CLIENTEIsNull: Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull;
   end;
 
   { TRecibosClienteDataTableRules }
-  TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
+  TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
   private
   protected
     { Property getters and setters }
@@ -489,6 +529,26 @@ type
     procedure SetID_TIENDAValue(const aValue: Integer); virtual;
     function GetID_TIENDAIsNull: Boolean; virtual;
     procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
+    function GetTIENDAValue: String; virtual;
+    procedure SetTIENDAValue(const aValue: String); virtual;
+    function GetTIENDAIsNull: Boolean; virtual;
+    procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+    function GetCALLE_CLIENTEValue: String; virtual;
+    procedure SetCALLE_CLIENTEValue(const aValue: String); virtual;
+    function GetCALLE_CLIENTEIsNull: Boolean; virtual;
+    procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetPOBLACION_CLIENTEValue: String; virtual;
+    procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual;
+    function GetPOBLACION_CLIENTEIsNull: Boolean; virtual;
+    procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetCODIGO_POSTAL_CLIENTEValue: String; virtual;
+    procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); virtual;
+    function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual;
+    procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetPROVINCIA_CLIENTEValue: String; virtual;
+    procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual;
+    function GetPROVINCIA_CLIENTEIsNull: Boolean; virtual;
+    procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -551,6 +611,16 @@ type
     property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
     property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
     property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
+    property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
+    property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+    property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
+    property CALLE_CLIENTEIsNull: Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull;
+    property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
+    property POBLACION_CLIENTEIsNull: Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull;
+    property CODIGO_POSTAL_CLIENTE: String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue;
+    property CODIGO_POSTAL_CLIENTEIsNull: Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull;
+    property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
+    property PROVINCIA_CLIENTEIsNull: Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -560,7 +630,7 @@ type
 
   { IPagosCliente }
   IPagosCliente = interface(IDAStronglyTypedDataTable)
-  ['{E7CE898E-3C5F-4CE5-90C5-27D8F0307938}']
+  ['{8AF523A8-91F6-4D75-B589-B3BCCA79EA44}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -646,7 +716,7 @@ type
   end;
 
   { TPagosClienteDataTableRules }
-  TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
+  TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
   private
   protected
     { Property getters and setters }
@@ -739,7 +809,7 @@ type
 
   { IRecibosCompensadosCli }
   IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
-  ['{B605691F-6F27-4081-8D8F-8D0904CFD103}']
+  ['{7CECD5C0-F95A-489B-9C0C-26CD6BC05208}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -921,7 +991,7 @@ type
   end;
 
   { TRecibosCompensadosCliDataTableRules }
-  TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
+  TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
   private
   protected
     { Property getters and setters }
@@ -1753,6 +1823,111 @@ begin
     DataTable.Fields[idx_RecibosClienteID_TIENDA].AsVariant := Null;
 end;
 
+function TRecibosClienteDataTableRules.GetTIENDAValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClienteTIENDA].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetTIENDAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClienteTIENDA].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetTIENDAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteTIENDA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetTIENDAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteTIENDA].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetCALLE_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetCALLE_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetCALLE_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteCALLE_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetPOBLACION_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetPOBLACION_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetPOBLACION_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClientePOBLACION_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetCODIGO_POSTAL_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetCODIGO_POSTAL_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteCODIGO_POSTAL_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetPROVINCIA_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetPROVINCIA_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClientePROVINCIA_CLIENTE].AsVariant := Null;
+end;
+
 
 { TPagosClienteDataTableRules }
 constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
index 72bf9b18..b39c23d3 100644
--- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas	
+++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas	
@@ -9,14 +9,14 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_RecibosClienteDelta = '{F6A6EE27-AC85-4EB3-91FC-F60E7A7F60CE}';
-  RID_PagosClienteDelta = '{33802118-3685-400C-8464-916D54DF6FB6}';
-  RID_RecibosCompensadosCliDelta = '{51FD7C5D-49D0-477F-8720-4C91AD9E3497}';
+  RID_RecibosClienteDelta = '{D1DBED73-ADE4-40B1-A9A0-91CD4EC447F8}';
+  RID_PagosClienteDelta = '{DF4CEE8D-E9A4-44D7-9932-177455BDC2E1}';
+  RID_RecibosCompensadosCliDelta = '{A88C5F91-7C18-4D89-90BE-196929D75E71}';
 
 type
   { IRecibosClienteDelta }
   IRecibosClienteDelta = interface(IRecibosCliente)
-  ['{F6A6EE27-AC85-4EB3-91FC-F60E7A7F60CE}']
+  ['{D1DBED73-ADE4-40B1-A9A0-91CD4EC447F8}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -48,6 +48,11 @@ type
     function GetOldFECHA_MODIFICACIONValue : DateTime;
     function GetOldUSUARIOValue : String;
     function GetOldID_TIENDAValue : Integer;
+    function GetOldTIENDAValue : String;
+    function GetOldCALLE_CLIENTEValue : String;
+    function GetOldPOBLACION_CLIENTEValue : String;
+    function GetOldCODIGO_POSTAL_CLIENTEValue : String;
+    function GetOldPROVINCIA_CLIENTEValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -80,6 +85,11 @@ type
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property OldUSUARIO : String read GetOldUSUARIOValue;
     property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
+    property OldTIENDA : String read GetOldTIENDAValue;
+    property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue;
+    property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue;
+    property OldCODIGO_POSTAL_CLIENTE : String read GetOldCODIGO_POSTAL_CLIENTEValue;
+    property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue;
   end;
 
   { TRecibosClienteBusinessProcessorRules }
@@ -267,6 +277,36 @@ type
     function GetOldID_TIENDAIsNull: Boolean; virtual;
     procedure SetID_TIENDAValue(const aValue: Integer); virtual;
     procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
+    function GetTIENDAValue: String; virtual;
+    function GetTIENDAIsNull: Boolean; virtual;
+    function GetOldTIENDAValue: String; virtual;
+    function GetOldTIENDAIsNull: Boolean; virtual;
+    procedure SetTIENDAValue(const aValue: String); virtual;
+    procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+    function GetCALLE_CLIENTEValue: String; virtual;
+    function GetCALLE_CLIENTEIsNull: Boolean; virtual;
+    function GetOldCALLE_CLIENTEValue: String; virtual;
+    function GetOldCALLE_CLIENTEIsNull: Boolean; virtual;
+    procedure SetCALLE_CLIENTEValue(const aValue: String); virtual;
+    procedure SetCALLE_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetPOBLACION_CLIENTEValue: String; virtual;
+    function GetPOBLACION_CLIENTEIsNull: Boolean; virtual;
+    function GetOldPOBLACION_CLIENTEValue: String; virtual;
+    function GetOldPOBLACION_CLIENTEIsNull: Boolean; virtual;
+    procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual;
+    procedure SetPOBLACION_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetCODIGO_POSTAL_CLIENTEValue: String; virtual;
+    function GetCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual;
+    function GetOldCODIGO_POSTAL_CLIENTEValue: String; virtual;
+    function GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean; virtual;
+    procedure SetCODIGO_POSTAL_CLIENTEValue(const aValue: String); virtual;
+    procedure SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetPROVINCIA_CLIENTEValue: String; virtual;
+    function GetPROVINCIA_CLIENTEIsNull: Boolean; virtual;
+    function GetOldPROVINCIA_CLIENTEValue: String; virtual;
+    function GetOldPROVINCIA_CLIENTEIsNull: Boolean; virtual;
+    procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual;
+    procedure SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -389,6 +429,26 @@ type
     property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
     property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
     property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
+    property TIENDA : String read GetTIENDAValue write SetTIENDAValue;
+    property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+    property OldTIENDA : String read GetOldTIENDAValue;
+    property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
+    property CALLE_CLIENTE : String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
+    property CALLE_CLIENTEIsNull : Boolean read GetCALLE_CLIENTEIsNull write SetCALLE_CLIENTEIsNull;
+    property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue;
+    property OldCALLE_CLIENTEIsNull : Boolean read GetOldCALLE_CLIENTEIsNull;
+    property POBLACION_CLIENTE : String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
+    property POBLACION_CLIENTEIsNull : Boolean read GetPOBLACION_CLIENTEIsNull write SetPOBLACION_CLIENTEIsNull;
+    property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue;
+    property OldPOBLACION_CLIENTEIsNull : Boolean read GetOldPOBLACION_CLIENTEIsNull;
+    property CODIGO_POSTAL_CLIENTE : String read GetCODIGO_POSTAL_CLIENTEValue write SetCODIGO_POSTAL_CLIENTEValue;
+    property CODIGO_POSTAL_CLIENTEIsNull : Boolean read GetCODIGO_POSTAL_CLIENTEIsNull write SetCODIGO_POSTAL_CLIENTEIsNull;
+    property OldCODIGO_POSTAL_CLIENTE : String read GetOldCODIGO_POSTAL_CLIENTEValue;
+    property OldCODIGO_POSTAL_CLIENTEIsNull : Boolean read GetOldCODIGO_POSTAL_CLIENTEIsNull;
+    property PROVINCIA_CLIENTE : String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
+    property PROVINCIA_CLIENTEIsNull : Boolean read GetPROVINCIA_CLIENTEIsNull write SetPROVINCIA_CLIENTEIsNull;
+    property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue;
+    property OldPROVINCIA_CLIENTEIsNull : Boolean read GetOldPROVINCIA_CLIENTEIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -398,7 +458,7 @@ type
 
   { IPagosClienteDelta }
   IPagosClienteDelta = interface(IPagosCliente)
-  ['{33802118-3685-400C-8464-916D54DF6FB6}']
+  ['{DF4CEE8D-E9A4-44D7-9932-177455BDC2E1}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -576,7 +636,7 @@ type
 
   { IRecibosCompensadosCliDelta }
   IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
-  ['{51FD7C5D-49D0-477F-8720-4C91AD9E3497}']
+  ['{A88C5F91-7C18-4D89-90BE-196929D75E71}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -1890,6 +1950,161 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_TIENDA] := Null;
 end;
 
+function TRecibosClienteBusinessProcessorRules.GetTIENDAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetTIENDAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldTIENDAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteTIENDA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteTIENDA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetTIENDAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetCALLE_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetCALLE_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldCALLE_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCALLE_CLIENTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetCALLE_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCALLE_CLIENTE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetPOBLACION_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetPOBLACION_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldPOBLACION_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePOBLACION_CLIENTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetPOBLACION_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePOBLACION_CLIENTE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetCODIGO_POSTAL_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldCODIGO_POSTAL_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetCODIGO_POSTAL_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCODIGO_POSTAL_CLIENTE] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetPROVINCIA_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetPROVINCIA_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldPROVINCIA_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClientePROVINCIA_CLIENTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetPROVINCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClientePROVINCIA_CLIENTE] := Null;
+end;
+
 
 { TPagosClienteBusinessProcessorRules }
 constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
index 5ff83245..ce10a4ad 100644
--- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm	
+++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm	
@@ -141,6 +141,26 @@ object srvRecibosCliente: TsrvRecibosCliente
               item
                 DatasetField = 'ID_TIENDA'
                 TableField = 'ID_TIENDA'
+              end
+              item
+                DatasetField = 'TIENDA'
+                TableField = 'TIENDA'
+              end
+              item
+                DatasetField = 'CALLE_CLIENTE'
+                TableField = 'CALLE_CLIENTE'
+              end
+              item
+                DatasetField = 'POBLACION_CLIENTE'
+                TableField = 'POBLACION_CLIENTE'
+              end
+              item
+                DatasetField = 'CODIGO_POSTAL_CLIENTE'
+                TableField = 'CODIGO_POSTAL_CLIENTE'
+              end
+              item
+                DatasetField = 'PROVINCIA_CLIENTE'
+                TableField = 'PROVINCIA_CLIENTE'
               end>
           end>
         Name = 'RecibosCliente'
@@ -308,6 +328,31 @@ object srvRecibosCliente: TsrvRecibosCliente
           item
             Name = 'ID_TIENDA'
             DataType = datInteger
+          end
+          item
+            Name = 'TIENDA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CALLE_CLIENTE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'POBLACION_CLIENTE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CODIGO_POSTAL_CLIENTE'
+            DataType = datString
+            Size = 10
+          end
+          item
+            Name = 'PROVINCIA_CLIENTE'
+            DataType = datString
+            Size = 255
           end>
       end
       item
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
index 302fda56..9b890cca 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm	
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm	
@@ -85,26 +85,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
             677
             335)
           inherited eReferencia: TcxDBTextEdit
-            Top = -112
-            ExplicitTop = -112
             ExplicitWidth = 217
             Width = 217
           end
           inherited eSituacion: TcxDBTextEdit
-            Top = -31
-            ExplicitTop = -31
             ExplicitWidth = 217
             Width = 217
           end
           inherited edtFechaVencimiento: TcxDBDateEdit
-            Top = -58
-            ExplicitTop = -58
             ExplicitWidth = 217
             Width = 217
           end
           inherited memObservaciones: TcxDBMemo
-            Top = 98
-            ExplicitTop = 98
             ExplicitWidth = 293
             ExplicitHeight = 44
             Height = 44
@@ -112,125 +104,74 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
           end
           inherited eFechaEmision: TcxDBTextEdit
             Left = 441
-            Top = -112
             ExplicitLeft = 441
-            ExplicitTop = -112
             ExplicitWidth = 253
             Width = 253
           end
           inherited eFormaPago: TcxDBTextEdit
             Left = 441
-            Top = -85
             ExplicitLeft = 441
-            ExplicitTop = -85
             ExplicitWidth = 253
             Width = 253
           end
           inherited eImporteTotal: TcxDBCurrencyEdit
             Left = 441
-            Top = -58
             Style.IsFontAssigned = True
             ExplicitLeft = 441
-            ExplicitTop = -58
             ExplicitWidth = 253
             Width = 253
           end
           inherited eNombreCliente: TcxDBTextEdit
             Left = 441
-            Top = 25
             ExplicitLeft = 441
-            ExplicitTop = 25
             ExplicitWidth = 286
             Width = 286
           end
           inherited eNifCif: TcxDBTextEdit
             Left = 441
-            Top = -2
             ExplicitLeft = 441
-            ExplicitTop = -2
             ExplicitWidth = 286
             Width = 286
           end
           inherited eEntidad: TcxDBTextEdit
             Left = 441
-            Top = 52
             ExplicitLeft = 441
-            ExplicitTop = 52
             ExplicitWidth = 84
             Width = 84
           end
           inherited eSucursal: TcxDBTextEdit
             Left = 531
-            Top = 52
             ExplicitLeft = 531
-            ExplicitTop = 52
             ExplicitWidth = 81
             Width = 81
           end
           inherited eDC: TcxDBTextEdit
             Left = 602
-            Top = 52
             ExplicitLeft = 602
-            ExplicitTop = 52
             ExplicitWidth = 37
             Width = 37
           end
           inherited eCuenta: TcxDBTextEdit
             Left = 441
-            Top = 79
             ExplicitLeft = 441
-            ExplicitTop = 79
             ExplicitWidth = 286
             Width = 286
           end
           inherited eRemesa: TcxDBTextEdit
-            Top = -4
-            ExplicitTop = -4
             ExplicitWidth = 217
             Width = 217
           end
           inherited edtFechaEmision: TcxDBDateEdit
-            Top = -85
             DataBinding.DataField = 'FECHA_EMISION'
-            ExplicitTop = -85
             ExplicitWidth = 217
             Width = 217
           end
-          inherited rRefReciboCompensado: TcxDBTextEdit
-            Top = 47
-            ExplicitTop = 47
-            ExplicitWidth = 191
-            Width = 191
-          end
           inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente
             Left = 365
-            Top = 130
-            Width = 350
+            Top = 272
             ExplicitLeft = 365
-            ExplicitTop = 130
-            ExplicitWidth = 350
+            ExplicitTop = 272
             inherited dxLayoutControl1: TdxLayoutControl
-              Width = 350
-              inherited edtlNombre: TcxDBTextEdit
-                ExplicitWidth = 224
-                Width = 224
-              end
-              inherited edtNIFCIF: TcxDBTextEdit
-                ExplicitWidth = 562
-                Width = 562
-              end
-              inherited edtCalle: TcxDBTextEdit
-                ExplicitWidth = 562
-                Width = 562
-              end
-              inherited edtPoblacion: TcxDBTextEdit
-                ExplicitWidth = 177
-                Width = 177
-              end
-              inherited edtProvincia: TcxDBTextEdit
-                ExplicitWidth = 327
-                Width = 327
-              end
               inherited edtCodigoPostal: TcxDBTextEdit
                 Left = 192
                 ExplicitLeft = 192
@@ -343,6 +284,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         inherited ToolBar1: TToolBar
           Width = 677
           ExplicitWidth = 677
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
           inherited ToolButton3: TToolButton
             ExplicitWidth = 98
           end
@@ -385,8 +338,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
       inherited eImporte: TcxDBCurrencyEdit
         DataBinding.DataSource = dsDataTable
         Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
-        ExplicitWidth = 150
-        Width = 150
       end
       inherited eOtrosGastos: TcxDBCurrencyEdit
         DataBinding.DataSource = dsDataTable
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
index 8a291c0a..990dd44c 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm	
+++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm	
@@ -13,8 +13,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitWidth = 690
-    ExplicitHeight = 307
     DesignSize = (
       899
       509)
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 3d429bc9..16d7fe20 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -89,8 +89,6 @@ uses
   schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
   schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
   uBizPagosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas',
-  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
-  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
   schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
   schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
   uRptFichasEmpleado_Server in '..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas' {RptFichasEmpleado: TDataModule},
@@ -115,7 +113,9 @@ uses
   schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
   schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
-  uBizRecibosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas';
+  uBizRecibosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas',
+  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
+  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 13243bb1..584e04cb 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,250 +1,251 @@
-<?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>
-	</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>
-	</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><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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-						<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
-					</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\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
-			<Form>srvEjercicios</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-			<Form>srvEmpresas</Form>
-			<DesignClass>TDARemoteService</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"/>
-		<DCCReference Include="..\Base\schBase_Intf.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\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\Servidor\srvArticulos_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
-			<Form>srvContabilidad</Form>
-			<DesignClass>TDataAbstractService</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\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\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\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"/>
-		<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"/>
-		<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\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\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>
-		</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\Model\uBizPagosClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.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\Model\uBizPagosProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-			<Form>srvRecibosProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<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"/>
-		<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\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>
+  </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>
+  </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><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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
+    </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\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
+      <Form>srvEjercicios</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+      <Form>srvEmpresas</Form>
+      <DesignClass>TDARemoteService</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" />
+    <DCCReference Include="..\Base\schBase_Intf.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\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\Servidor\srvArticulos_Impl.pas" />
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
+      <Form>srvContabilidad</Form>
+      <DesignClass>TDataAbstractService</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\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\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\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" />
+    <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" />
+    <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\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\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>
+    </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\Model\uBizPagosClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.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\Model\uBizPagosProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+      <Form>srvRecibosProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <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" />
+    <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\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]