Version 2.6.8

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@117 93f398dd-4eb6-7a46-baf6-13f46f578da2

Source/Base/Base.dproj

@@ -51,6 +51,13 @@
       
       
       
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -65,55 +72,55 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxGridD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\PluginSDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-    <DCCReference Include="..\Servidor\adortl.dcp" />
-    <DCCReference Include="..\Servidor\cxDataD11.dcp" />
-    <DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Servidor\cxGridD11.dcp" />
-    <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Servidor\dbrtl.dcp" />
-    <DCCReference Include="..\Servidor\dclIndyCore.dcp" />
-    <DCCReference Include="..\Servidor\designide.dcp" />
-    <DCCReference Include="..\Servidor\dsnap.dcp" />
-    <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
-    <DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Servidor\IndyCore.dcp" />
-    <DCCReference Include="..\Servidor\IndyProtocols.dcp" />
-    <DCCReference Include="..\Servidor\IndySystem.dcp" />
-    <DCCReference Include="..\Servidor\Jcl.dcp" />
-    <DCCReference Include="..\Servidor\JclVcl.dcp" />
-    <DCCReference Include="..\Servidor\JSDialog100.dcp" />
-    <DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Servidor\JvMMD11R.dcp" />
-    <DCCReference Include="..\Servidor\JvNetD11R.dcp" />
-    <DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Servidor\pckMD5.dcp" />
-    <DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Servidor\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Servidor\PNG_D10.dcp" />
-    <DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Servidor\rtl.dcp" />
-    <DCCReference Include="..\Servidor\TB2k_D10.dcp" />
-    <DCCReference Include="..\Servidor\tbx_d10.dcp" />
-    <DCCReference Include="..\Servidor\vcl.dcp" />
-    <DCCReference Include="..\Servidor\vclactnband.dcp" />
-    <DCCReference Include="..\Servidor\vcldb.dcp" />
-    <DCCReference Include="..\Servidor\vcljpg.dcp" />
-    <DCCReference Include="..\Servidor\VclSmp.dcp" />
-    <DCCReference Include="..\Servidor\vclx.dcp" />
-    <DCCReference Include="..\Servidor\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas

@@ -195,7 +195,7 @@ end;
 
 procedure TfrViewDetallesContratoCliente.actCapituloVariosExecute(Sender: TObject);
 begin
-  AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ');
+  AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true);
 end;
 
 function TfrViewDetallesContratoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas

@@ -3,7 +3,7 @@ unit schPresupuestosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -257,7 +257,7 @@ type
   end;
 
   { TValoresDataTableRules }
-  TValoresDataTableRules = class(TDADataTableRules, IValores)
+  TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
   private
   protected
     { Property getters and setters }
@@ -328,7 +328,7 @@ type
   end;
 
   { TPropiedadesDataTableRules }
-  TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
+  TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
   private
   protected
     { Property getters and setters }
@@ -369,7 +369,7 @@ type
   end;
 
   { TListaAnosPresupuestosDataTableRules }
-  TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
+  TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos)
   private
   protected
     { Property getters and setters }
@@ -652,7 +652,7 @@ type
   end;
 
   { TPresupuestosClienteDataTableRules }
-  TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
+  TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
   private
     f_FORMA_PAGO: IROStrings;
     f_PLAZO_ENTREGA: IROStrings;
@@ -1009,7 +1009,7 @@ type
   end;
 
   { TCapitulosPresupuestoDataTableRules }
-  TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
+  TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
   private
   protected
     { Property getters and setters }
@@ -1206,7 +1206,7 @@ type
   end;
 
   { TPresupuestosCliente_DetallesDataTableRules }
-  TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
+  TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
   private
   protected
     { Property getters and setters }

Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj

@@ -17,6 +17,7 @@
     <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
     <Projects Include="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" />
+    <Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
     <Projects Include="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" />
     <Projects Include="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" />
     <Projects Include="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" />
@@ -221,14 +222,23 @@
   <Target Name="FactuGES_Server:Make">
     <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
   </Target>
+  <Target Name="ContratosCliente_view">
+    <MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="" />
+  </Target>
+  <Target Name="ContratosCliente_view:Clean">
+    <MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ContratosCliente_view:Make">
+    <MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;ContratosCliente_controller;PreCli_ConCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;ContratosCliente_controller;PreCli_ConCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server;ContratosCliente_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;ContratosCliente_controller:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;ContratosCliente_controller:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;ContratosCliente_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;ContratosCliente_controller:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;ContratosCliente_controller:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;ContratosCliente_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dproj

@@ -49,8 +49,8 @@
     <DelphiCompile Include="RecibosCliente_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
-    <DCCReference Include="..\RecibosCliente_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_model.dcp" />
     <DCCReference Include="uDataModuleRecibosCliente.pas">
       <Form>DataModuleRecibosCliente</Form>
       <DesignClass>TDAClientDataModule</DesignClass>

Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm

@@ -194,6 +194,11 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         DataType = datInteger
         DictionaryEntry = 'RecibosCliente_ID_FACTURA'
       end
+      item
+        Name = 'REFERENCIA_FACTURA'
+        DataType = datString
+        Size = 255
+      end
       item
         Name = 'FECHA_FACTURA'
         DataType = datDateTime
@@ -285,6 +290,11 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         DataType = datInteger
         DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
       end
+      item
+        Name = 'REFERENCIA_CLIENTE'
+        DataType = datString
+        Size = 255
+      end
       item
         Name = 'NOMBRE_CLIENTE'
         DataType = datString
@@ -436,6 +446,11 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         Name = 'ID_FACTURA'
         DataType = datInteger
       end
+      item
+        Name = 'REFERENCIA_FACTURA'
+        DataType = datString
+        Size = 255
+      end
       item
         Name = 'FECHA_FACTURA'
         DataType = datDateTime
@@ -507,6 +522,11 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         Name = 'ID_CLIENTE'
         DataType = datInteger
       end
+      item
+        Name = 'REFERENCIA_CLIENTE'
+        DataType = datString
+        Size = 255
+      end
       item
         Name = 'NOMBRE_CLIENTE'
         DataType = datString
@@ -585,6 +605,10 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         Name = 'TIENDA'
         DataType = datString
         Size = 255
+      end
+      item
+        Name = 'CUENTA_CONTABLE'
+        DataType = datString
       end>
     Params = <>
     MasterMappingMode = mmWhere

Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas

@@ -9,10 +9,10 @@ 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_ListaAnosRecibos = '{4E5198B9-A3EA-41ED-876A-F20E75C77CFA}';
+  RID_ListaAnosRecibos = '{9AD56FB9-67A7-486D-97A3-F97769F49FBE}';
-  RID_RecibosCliente = '{47FD8329-5BE1-4334-971C-9F5BEB6F6D6E}';
+  RID_RecibosCliente = '{A6B99CCC-1F59-46D1-9E40-CDA699F5DBDE}';
-  RID_PagosCliente = '{8F0C7790-8AF6-4F0F-BB5A-54C49E8FEB37}';
+  RID_PagosCliente = '{95D516A8-1FAC-4A03-8CE4-0D6CB5390369}';
-  RID_RecibosCompensadosCli = '{3645D510-70D1-4184-9DDC-96D4CF5A1288}';
+  RID_RecibosCompensadosCli = '{2617D7C0-DF3B-4791-8CB7-3E57E1C4E48A}';
 
   { Data table names }
   nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -33,6 +33,7 @@ const
   fld_RecibosClienteREFERENCIA = 'REFERENCIA';
   fld_RecibosClienteSITUACION = 'SITUACION';
   fld_RecibosClienteID_FACTURA = 'ID_FACTURA';
+  fld_RecibosClienteREFERENCIA_FACTURA = 'REFERENCIA_FACTURA';
   fld_RecibosClienteFECHA_FACTURA = 'FECHA_FACTURA';
   fld_RecibosClienteFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
   fld_RecibosClienteIMPORTE_FACTURA = 'IMPORTE_FACTURA';
@@ -49,6 +50,7 @@ const
   fld_RecibosClienteIMPORTE_SIN_COMPENSAR = 'IMPORTE_SIN_COMPENSAR';
   fld_RecibosClienteID_EMPRESA = 'ID_EMPRESA';
   fld_RecibosClienteID_CLIENTE = 'ID_CLIENTE';
+  fld_RecibosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
   fld_RecibosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
   fld_RecibosClienteENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE';
   fld_RecibosClienteSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE';
@@ -74,39 +76,41 @@ const
   idx_RecibosClienteREFERENCIA = 3;
   idx_RecibosClienteSITUACION = 4;
   idx_RecibosClienteID_FACTURA = 5;
-  idx_RecibosClienteFECHA_FACTURA = 6;
+  idx_RecibosClienteREFERENCIA_FACTURA = 6;
-  idx_RecibosClienteFORMA_PAGO_FACTURA = 7;
+  idx_RecibosClienteFECHA_FACTURA = 7;
-  idx_RecibosClienteIMPORTE_FACTURA = 8;
+  idx_RecibosClienteFORMA_PAGO_FACTURA = 8;
-  idx_RecibosClienteID_REMESA = 9;
+  idx_RecibosClienteIMPORTE_FACTURA = 9;
-  idx_RecibosClienteREFERENCIA_REMESA = 10;
+  idx_RecibosClienteID_REMESA = 10;
-  idx_RecibosClienteFECHA_EMISION = 11;
+  idx_RecibosClienteREFERENCIA_REMESA = 11;
-  idx_RecibosClienteFECHA_VENCIMIENTO = 12;
+  idx_RecibosClienteFECHA_EMISION = 12;
-  idx_RecibosClienteDESCRIPCION = 13;
+  idx_RecibosClienteFECHA_VENCIMIENTO = 13;
-  idx_RecibosClienteOBSERVACIONES = 14;
+  idx_RecibosClienteDESCRIPCION = 14;
-  idx_RecibosClienteIMPORTE = 15;
+  idx_RecibosClienteOBSERVACIONES = 15;
-  idx_RecibosClienteOTROS_GASTOS = 16;
+  idx_RecibosClienteIMPORTE = 16;
-  idx_RecibosClienteIMPORTE_TOTAL = 17;
+  idx_RecibosClienteOTROS_GASTOS = 17;
-  idx_RecibosClienteIMPORTE_COMPENSADO = 18;
+  idx_RecibosClienteIMPORTE_TOTAL = 18;
-  idx_RecibosClienteIMPORTE_SIN_COMPENSAR = 19;
+  idx_RecibosClienteIMPORTE_COMPENSADO = 19;
-  idx_RecibosClienteID_EMPRESA = 20;
+  idx_RecibosClienteIMPORTE_SIN_COMPENSAR = 20;
-  idx_RecibosClienteID_CLIENTE = 21;
+  idx_RecibosClienteID_EMPRESA = 21;
-  idx_RecibosClienteNOMBRE_CLIENTE = 22;
+  idx_RecibosClienteID_CLIENTE = 22;
-  idx_RecibosClienteENTIDAD_CLIENTE = 23;
+  idx_RecibosClienteREFERENCIA_CLIENTE = 23;
-  idx_RecibosClienteSUCURSAL_CLIENTE = 24;
+  idx_RecibosClienteNOMBRE_CLIENTE = 24;
-  idx_RecibosClienteDC_CLIENTE = 25;
+  idx_RecibosClienteENTIDAD_CLIENTE = 25;
-  idx_RecibosClienteCUENTA_CLIENTE = 26;
+  idx_RecibosClienteSUCURSAL_CLIENTE = 26;
-  idx_RecibosClienteNIF_CIF = 27;
+  idx_RecibosClienteDC_CLIENTE = 27;
-  idx_RecibosClienteNOMBRE = 28;
+  idx_RecibosClienteCUENTA_CLIENTE = 28;
-  idx_RecibosClienteCALLE = 29;
+  idx_RecibosClienteNIF_CIF = 29;
-  idx_RecibosClientePOBLACION = 30;
+  idx_RecibosClienteNOMBRE = 30;
-  idx_RecibosClienteCODIGO_POSTAL = 31;
+  idx_RecibosClienteCALLE = 31;
-  idx_RecibosClientePROVINCIA = 32;
+  idx_RecibosClientePOBLACION = 32;
-  idx_RecibosClienteFECHA_ALTA = 33;
+  idx_RecibosClienteCODIGO_POSTAL = 33;
-  idx_RecibosClienteFECHA_MODIFICACION = 34;
+  idx_RecibosClientePROVINCIA = 34;
-  idx_RecibosClienteUSUARIO = 35;
+  idx_RecibosClienteFECHA_ALTA = 35;
-  idx_RecibosClienteID_TIENDA = 36;
+  idx_RecibosClienteFECHA_MODIFICACION = 36;
-  idx_RecibosClienteTIENDA = 37;
+  idx_RecibosClienteUSUARIO = 37;
-  idx_RecibosClienteCUENTA_CONTABLE = 38;
+  idx_RecibosClienteID_TIENDA = 38;
+  idx_RecibosClienteTIENDA = 39;
+  idx_RecibosClienteCUENTA_CONTABLE = 40;
 
   { PagosCliente fields }
   fld_PagosClienteID = 'ID';
@@ -155,6 +159,7 @@ const
   fld_RecibosCompensadosCliREFERENCIA = 'REFERENCIA';
   fld_RecibosCompensadosCliSITUACION = 'SITUACION';
   fld_RecibosCompensadosCliID_FACTURA = 'ID_FACTURA';
+  fld_RecibosCompensadosCliREFERENCIA_FACTURA = 'REFERENCIA_FACTURA';
   fld_RecibosCompensadosCliFECHA_FACTURA = 'FECHA_FACTURA';
   fld_RecibosCompensadosCliFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
   fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA';
@@ -171,6 +176,7 @@ const
   fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR = 'IMPORTE_SIN_COMPENSAR';
   fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA';
   fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE';
+  fld_RecibosCompensadosCliREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
   fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
   fld_RecibosCompensadosCliENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE';
   fld_RecibosCompensadosCliSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE';
@@ -187,6 +193,7 @@ const
   fld_RecibosCompensadosCliUSUARIO = 'USUARIO';
   fld_RecibosCompensadosCliID_TIENDA = 'ID_TIENDA';
   fld_RecibosCompensadosCliTIENDA = 'TIENDA';
+  fld_RecibosCompensadosCliCUENTA_CONTABLE = 'CUENTA_CONTABLE';
 
   { RecibosCompensadosCli field indexes }
   idx_RecibosCompensadosCliID = 0;
@@ -195,43 +202,46 @@ const
   idx_RecibosCompensadosCliREFERENCIA = 3;
   idx_RecibosCompensadosCliSITUACION = 4;
   idx_RecibosCompensadosCliID_FACTURA = 5;
-  idx_RecibosCompensadosCliFECHA_FACTURA = 6;
+  idx_RecibosCompensadosCliREFERENCIA_FACTURA = 6;
-  idx_RecibosCompensadosCliFORMA_PAGO_FACTURA = 7;
+  idx_RecibosCompensadosCliFECHA_FACTURA = 7;
-  idx_RecibosCompensadosCliIMPORTE_FACTURA = 8;
+  idx_RecibosCompensadosCliFORMA_PAGO_FACTURA = 8;
-  idx_RecibosCompensadosCliID_REMESA = 9;
+  idx_RecibosCompensadosCliIMPORTE_FACTURA = 9;
-  idx_RecibosCompensadosCliREFERENCIA_REMESA = 10;
+  idx_RecibosCompensadosCliID_REMESA = 10;
-  idx_RecibosCompensadosCliFECHA_EMISION = 11;
+  idx_RecibosCompensadosCliREFERENCIA_REMESA = 11;
-  idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 12;
+  idx_RecibosCompensadosCliFECHA_EMISION = 12;
-  idx_RecibosCompensadosCliDESCRIPCION = 13;
+  idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 13;
-  idx_RecibosCompensadosCliOBSERVACIONES = 14;
+  idx_RecibosCompensadosCliDESCRIPCION = 14;
-  idx_RecibosCompensadosCliIMPORTE = 15;
+  idx_RecibosCompensadosCliOBSERVACIONES = 15;
-  idx_RecibosCompensadosCliOTROS_GASTOS = 16;
+  idx_RecibosCompensadosCliIMPORTE = 16;
-  idx_RecibosCompensadosCliIMPORTE_TOTAL = 17;
+  idx_RecibosCompensadosCliOTROS_GASTOS = 17;
-  idx_RecibosCompensadosCliIMPORTE_COMPENSADO = 18;
+  idx_RecibosCompensadosCliIMPORTE_TOTAL = 18;
-  idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR = 19;
+  idx_RecibosCompensadosCliIMPORTE_COMPENSADO = 19;
-  idx_RecibosCompensadosCliID_EMPRESA = 20;
+  idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR = 20;
-  idx_RecibosCompensadosCliID_CLIENTE = 21;
+  idx_RecibosCompensadosCliID_EMPRESA = 21;
-  idx_RecibosCompensadosCliNOMBRE_CLIENTE = 22;
+  idx_RecibosCompensadosCliID_CLIENTE = 22;
-  idx_RecibosCompensadosCliENTIDAD_CLIENTE = 23;
+  idx_RecibosCompensadosCliREFERENCIA_CLIENTE = 23;
-  idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 24;
+  idx_RecibosCompensadosCliNOMBRE_CLIENTE = 24;
-  idx_RecibosCompensadosCliDC_CLIENTE = 25;
+  idx_RecibosCompensadosCliENTIDAD_CLIENTE = 25;
-  idx_RecibosCompensadosCliCUENTA_CLIENTE = 26;
+  idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 26;
-  idx_RecibosCompensadosCliNIF_CIF = 27;
+  idx_RecibosCompensadosCliDC_CLIENTE = 27;
-  idx_RecibosCompensadosCliNOMBRE = 28;
+  idx_RecibosCompensadosCliCUENTA_CLIENTE = 28;
-  idx_RecibosCompensadosCliCALLE = 29;
+  idx_RecibosCompensadosCliNIF_CIF = 29;
-  idx_RecibosCompensadosCliPOBLACION = 30;
+  idx_RecibosCompensadosCliNOMBRE = 30;
-  idx_RecibosCompensadosCliCODIGO_POSTAL = 31;
+  idx_RecibosCompensadosCliCALLE = 31;
-  idx_RecibosCompensadosCliPROVINCIA = 32;
+  idx_RecibosCompensadosCliPOBLACION = 32;
-  idx_RecibosCompensadosCliFECHA_ALTA = 33;
+  idx_RecibosCompensadosCliCODIGO_POSTAL = 33;
-  idx_RecibosCompensadosCliFECHA_MODIFICACION = 34;
+  idx_RecibosCompensadosCliPROVINCIA = 34;
-  idx_RecibosCompensadosCliUSUARIO = 35;
+  idx_RecibosCompensadosCliFECHA_ALTA = 35;
-  idx_RecibosCompensadosCliID_TIENDA = 36;
+  idx_RecibosCompensadosCliFECHA_MODIFICACION = 36;
-  idx_RecibosCompensadosCliTIENDA = 37;
+  idx_RecibosCompensadosCliUSUARIO = 37;
+  idx_RecibosCompensadosCliID_TIENDA = 38;
+  idx_RecibosCompensadosCliTIENDA = 39;
+  idx_RecibosCompensadosCliCUENTA_CONTABLE = 40;
 
 type
   { IListaAnosRecibos }
   IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
-  ['{FEEAB5C2-E5E2-4D30-8C71-0DCC065B480F}']
+  ['{6EE69FF4-C573-4C84-ABB8-AADD20CB1C97}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -266,7 +276,7 @@ type
 
   { IRecibosCliente }
   IRecibosCliente = interface(IDAStronglyTypedDataTable)
-  ['{AFADC16A-65C2-4FF7-881E-7326C4760D9C}']
+  ['{FA997C06-FA56-476C-A2C8-9C14645F12AD}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -292,6 +302,10 @@ type
     procedure SetID_FACTURAValue(const aValue: Integer);
     function GetID_FACTURAIsNull: Boolean;
     procedure SetID_FACTURAIsNull(const aValue: Boolean);
+    function GetREFERENCIA_FACTURAValue: String;
+    procedure SetREFERENCIA_FACTURAValue(const aValue: String);
+    function GetREFERENCIA_FACTURAIsNull: Boolean;
+    procedure SetREFERENCIA_FACTURAIsNull(const aValue: Boolean);
     function GetFECHA_FACTURAValue: DateTime;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime);
     function GetFECHA_FACTURAIsNull: Boolean;
@@ -356,6 +370,10 @@ type
     procedure SetID_CLIENTEValue(const aValue: Integer);
     function GetID_CLIENTEIsNull: Boolean;
     procedure SetID_CLIENTEIsNull(const aValue: Boolean);
+    function GetREFERENCIA_CLIENTEValue: String;
+    procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
+    function GetREFERENCIA_CLIENTEIsNull: Boolean;
+    procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
     function GetNOMBRE_CLIENTEValue: String;
     procedure SetNOMBRE_CLIENTEValue(const aValue: String);
     function GetNOMBRE_CLIENTEIsNull: Boolean;
@@ -439,6 +457,8 @@ type
     property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
     property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
     property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+    property REFERENCIA_FACTURA: String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
+    property REFERENCIA_FACTURAIsNull: Boolean read GetREFERENCIA_FACTURAIsNull write SetREFERENCIA_FACTURAIsNull;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
     property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
@@ -471,6 +491,8 @@ type
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
     property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+    property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+    property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
     property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
     property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
     property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
@@ -536,6 +558,10 @@ type
     procedure SetID_FACTURAValue(const aValue: Integer); virtual;
     function GetID_FACTURAIsNull: Boolean; virtual;
     procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_FACTURAValue: String; virtual;
+    procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual;
+    function GetREFERENCIA_FACTURAIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_FACTURAIsNull(const aValue: Boolean); virtual;
     function GetFECHA_FACTURAValue: DateTime; virtual;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
     function GetFECHA_FACTURAIsNull: Boolean; virtual;
@@ -600,6 +626,10 @@ type
     procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
     function GetID_CLIENTEIsNull: Boolean; virtual;
     procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_CLIENTEValue: String; virtual;
+    procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
+    function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
     function GetNOMBRE_CLIENTEValue: String; virtual;
     procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
     function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
@@ -682,6 +712,8 @@ type
     property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
     property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
     property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+    property REFERENCIA_FACTURA: String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
+    property REFERENCIA_FACTURAIsNull: Boolean read GetREFERENCIA_FACTURAIsNull write SetREFERENCIA_FACTURAIsNull;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
     property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
@@ -714,6 +746,8 @@ type
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
     property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+    property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+    property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
     property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
     property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
     property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
@@ -757,7 +791,7 @@ type
 
   { IPagosCliente }
   IPagosCliente = interface(IDAStronglyTypedDataTable)
-  ['{A92479D7-E796-4338-99B5-B712D903564D}']
+  ['{F52B261A-56AB-4702-9FA4-F06407A2A66E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -996,7 +1030,7 @@ type
 
   { IRecibosCompensadosCli }
   IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
-  ['{9A3F6FE8-550A-4465-80AD-33C323C9C9BB}']
+  ['{4FA8D8AA-25E8-4B7A-972A-1E6491B96D5B}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1022,6 +1056,10 @@ type
     procedure SetID_FACTURAValue(const aValue: Integer);
     function GetID_FACTURAIsNull: Boolean;
     procedure SetID_FACTURAIsNull(const aValue: Boolean);
+    function GetREFERENCIA_FACTURAValue: String;
+    procedure SetREFERENCIA_FACTURAValue(const aValue: String);
+    function GetREFERENCIA_FACTURAIsNull: Boolean;
+    procedure SetREFERENCIA_FACTURAIsNull(const aValue: Boolean);
     function GetFECHA_FACTURAValue: DateTime;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime);
     function GetFECHA_FACTURAIsNull: Boolean;
@@ -1086,6 +1124,10 @@ type
     procedure SetID_CLIENTEValue(const aValue: Integer);
     function GetID_CLIENTEIsNull: Boolean;
     procedure SetID_CLIENTEIsNull(const aValue: Boolean);
+    function GetREFERENCIA_CLIENTEValue: String;
+    procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
+    function GetREFERENCIA_CLIENTEIsNull: Boolean;
+    procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
     function GetNOMBRE_CLIENTEValue: String;
     procedure SetNOMBRE_CLIENTEValue(const aValue: String);
     function GetNOMBRE_CLIENTEIsNull: Boolean;
@@ -1150,6 +1192,10 @@ type
     procedure SetTIENDAValue(const aValue: String);
     function GetTIENDAIsNull: Boolean;
     procedure SetTIENDAIsNull(const aValue: Boolean);
+    function GetCUENTA_CONTABLEValue: String;
+    procedure SetCUENTA_CONTABLEValue(const aValue: String);
+    function GetCUENTA_CONTABLEIsNull: Boolean;
+    procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -1165,6 +1211,8 @@ type
     property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
     property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
     property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+    property REFERENCIA_FACTURA: String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
+    property REFERENCIA_FACTURAIsNull: Boolean read GetREFERENCIA_FACTURAIsNull write SetREFERENCIA_FACTURAIsNull;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
     property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
@@ -1197,6 +1245,8 @@ type
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
     property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+    property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+    property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
     property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
     property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
     property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
@@ -1229,6 +1279,8 @@ type
     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 CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
+    property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
   end;
 
   { TRecibosCompensadosCliDataTableRules }
@@ -1260,6 +1312,10 @@ type
     procedure SetID_FACTURAValue(const aValue: Integer); virtual;
     function GetID_FACTURAIsNull: Boolean; virtual;
     procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_FACTURAValue: String; virtual;
+    procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual;
+    function GetREFERENCIA_FACTURAIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_FACTURAIsNull(const aValue: Boolean); virtual;
     function GetFECHA_FACTURAValue: DateTime; virtual;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
     function GetFECHA_FACTURAIsNull: Boolean; virtual;
@@ -1324,6 +1380,10 @@ type
     procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
     function GetID_CLIENTEIsNull: Boolean; virtual;
     procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_CLIENTEValue: String; virtual;
+    procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
+    function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
     function GetNOMBRE_CLIENTEValue: String; virtual;
     procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
     function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
@@ -1388,6 +1448,10 @@ type
     procedure SetTIENDAValue(const aValue: String); virtual;
     function GetTIENDAIsNull: Boolean; virtual;
     procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+    function GetCUENTA_CONTABLEValue: String; virtual;
+    procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
+    function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
+    procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -1402,6 +1466,8 @@ type
     property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
     property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
     property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+    property REFERENCIA_FACTURA: String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
+    property REFERENCIA_FACTURAIsNull: Boolean read GetREFERENCIA_FACTURAIsNull write SetREFERENCIA_FACTURAIsNull;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
     property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
@@ -1434,6 +1500,8 @@ type
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
     property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+    property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+    property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
     property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
     property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
     property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
@@ -1466,6 +1534,8 @@ type
     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 CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
+    property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1647,6 +1717,27 @@ begin
     DataTable.Fields[idx_RecibosClienteID_FACTURA].AsVariant := Null;
 end;
 
+function TRecibosClienteDataTableRules.GetREFERENCIA_FACTURAValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClienteREFERENCIA_FACTURA].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIA_FACTURAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClienteREFERENCIA_FACTURA].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetREFERENCIA_FACTURAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteREFERENCIA_FACTURA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIA_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteREFERENCIA_FACTURA].AsVariant := Null;
+end;
+
 function TRecibosClienteDataTableRules.GetFECHA_FACTURAValue: DateTime;
 begin
   result := DataTable.Fields[idx_RecibosClienteFECHA_FACTURA].AsDateTime;
@@ -1983,6 +2074,27 @@ begin
     DataTable.Fields[idx_RecibosClienteID_CLIENTE].AsVariant := Null;
 end;
 
+function TRecibosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosClienteREFERENCIA_CLIENTE].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosClienteREFERENCIA_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteREFERENCIA_CLIENTE].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteREFERENCIA_CLIENTE].AsVariant := Null;
+end;
+
 function TRecibosClienteDataTableRules.GetNOMBRE_CLIENTEValue: String;
 begin
   result := DataTable.Fields[idx_RecibosClienteNOMBRE_CLIENTE].AsString;
@@ -2868,6 +2980,27 @@ begin
     DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsVariant := Null;
 end;
 
+function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_FACTURAValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_FACTURA].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_FACTURAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_FACTURA].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_FACTURAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_FACTURA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_FACTURA].AsVariant := Null;
+end;
+
 function TRecibosCompensadosCliDataTableRules.GetFECHA_FACTURAValue: DateTime;
 begin
   result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsDateTime;
@@ -3204,6 +3337,27 @@ begin
     DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsVariant := Null;
 end;
 
+function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_CLIENTE].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_CLIENTE].AsVariant := Null;
+end;
+
 function TRecibosCompensadosCliDataTableRules.GetNOMBRE_CLIENTEValue: String;
 begin
   result := DataTable.Fields[idx_RecibosCompensadosCliNOMBRE_CLIENTE].AsString;
@@ -3540,6 +3694,27 @@ begin
     DataTable.Fields[idx_RecibosCompensadosCliTIENDA].AsVariant := Null;
 end;
 
+function TRecibosCompensadosCliDataTableRules.GetCUENTA_CONTABLEValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CONTABLE].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CONTABLEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CONTABLE].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetCUENTA_CONTABLEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CONTABLE].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CONTABLE].AsVariant := Null;
+end;
+
 
 initialization
   RegisterDataTableRules(RID_ListaAnosRecibos, TListaAnosRecibosDataTableRules);

Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas

@@ -9,15 +9,15 @@ 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_ListaAnosRecibosDelta = '{1A6567E7-3DB1-46E6-9E5D-0D4A1E82284F}';
+  RID_ListaAnosRecibosDelta = '{9E586155-C30C-4C3D-969F-4C5A8A34C00E}';
-  RID_RecibosClienteDelta = '{DBBA25D7-E0BA-4585-8B15-C55CE4E34723}';
+  RID_RecibosClienteDelta = '{D8BC8C31-56C2-45FC-AB7B-063313B4B910}';
-  RID_PagosClienteDelta = '{968C3D29-8DDA-43CA-A2DE-75706146ECC9}';
+  RID_PagosClienteDelta = '{056195E0-7C3A-4CAD-A6F3-3E2FD306D365}';
-  RID_RecibosCompensadosCliDelta = '{0EC94848-6B9E-4404-AF44-E604C7182106}';
+  RID_RecibosCompensadosCliDelta = '{6642E0AE-04ED-48EA-B0C7-E82AEB48769A}';
 
 type
   { IListaAnosRecibosDelta }
   IListaAnosRecibosDelta = interface(IListaAnosRecibos)
-  ['{1A6567E7-3DB1-46E6-9E5D-0D4A1E82284F}']
+  ['{9E586155-C30C-4C3D-969F-4C5A8A34C00E}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -51,7 +51,7 @@ type
 
   { IRecibosClienteDelta }
   IRecibosClienteDelta = interface(IRecibosCliente)
-  ['{DBBA25D7-E0BA-4585-8B15-C55CE4E34723}']
+  ['{D8BC8C31-56C2-45FC-AB7B-063313B4B910}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -59,6 +59,7 @@ type
     function GetOldREFERENCIAValue : String;
     function GetOldSITUACIONValue : String;
     function GetOldID_FACTURAValue : Integer;
+    function GetOldREFERENCIA_FACTURAValue : String;
     function GetOldFECHA_FACTURAValue : DateTime;
     function GetOldFORMA_PAGO_FACTURAValue : String;
     function GetOldIMPORTE_FACTURAValue : Currency;
@@ -75,6 +76,7 @@ type
     function GetOldIMPORTE_SIN_COMPENSARValue : Currency;
     function GetOldID_EMPRESAValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
+    function GetOldREFERENCIA_CLIENTEValue : String;
     function GetOldNOMBRE_CLIENTEValue : String;
     function GetOldENTIDAD_CLIENTEValue : String;
     function GetOldSUCURSAL_CLIENTEValue : String;
@@ -100,6 +102,7 @@ type
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldSITUACION : String read GetOldSITUACIONValue;
     property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+    property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
     property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
     property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
@@ -116,6 +119,7 @@ type
     property OldIMPORTE_SIN_COMPENSAR : Currency read GetOldIMPORTE_SIN_COMPENSARValue;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
     property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
+    property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
     property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
     property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
@@ -176,6 +180,12 @@ type
     function GetOldID_FACTURAIsNull: Boolean; virtual;
     procedure SetID_FACTURAValue(const aValue: Integer); virtual;
     procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_FACTURAValue: String; virtual;
+    function GetREFERENCIA_FACTURAIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_FACTURAValue: String; virtual;
+    function GetOldREFERENCIA_FACTURAIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_FACTURAIsNull(const aValue: Boolean); virtual;
     function GetFECHA_FACTURAValue: DateTime; virtual;
     function GetFECHA_FACTURAIsNull: Boolean; virtual;
     function GetOldFECHA_FACTURAValue: DateTime; virtual;
@@ -272,6 +282,12 @@ type
     function GetOldID_CLIENTEIsNull: Boolean; virtual;
     procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
     procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_CLIENTEValue: String; virtual;
+    function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_CLIENTEValue: String; virtual;
+    function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
     function GetNOMBRE_CLIENTEValue: String; virtual;
     function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
     function GetOldNOMBRE_CLIENTEValue: String; virtual;
@@ -400,6 +416,10 @@ type
     property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
     property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
     property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
+    property REFERENCIA_FACTURA : String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
+    property REFERENCIA_FACTURAIsNull : Boolean read GetREFERENCIA_FACTURAIsNull write SetREFERENCIA_FACTURAIsNull;
+    property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
+    property OldREFERENCIA_FACTURAIsNull : Boolean read GetOldREFERENCIA_FACTURAIsNull;
     property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
@@ -464,6 +484,10 @@ type
     property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
     property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
     property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
+    property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+    property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
+    property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
+    property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
     property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
     property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
@@ -541,7 +565,7 @@ type
 
   { IPagosClienteDelta }
   IPagosClienteDelta = interface(IPagosCliente)
-  ['{968C3D29-8DDA-43CA-A2DE-75706146ECC9}']
+  ['{056195E0-7C3A-4CAD-A6F3-3E2FD306D365}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -779,7 +803,7 @@ type
 
   { IRecibosCompensadosCliDelta }
   IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
-  ['{0EC94848-6B9E-4404-AF44-E604C7182106}']
+  ['{6642E0AE-04ED-48EA-B0C7-E82AEB48769A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -787,6 +811,7 @@ type
     function GetOldREFERENCIAValue : String;
     function GetOldSITUACIONValue : String;
     function GetOldID_FACTURAValue : Integer;
+    function GetOldREFERENCIA_FACTURAValue : String;
     function GetOldFECHA_FACTURAValue : DateTime;
     function GetOldFORMA_PAGO_FACTURAValue : String;
     function GetOldIMPORTE_FACTURAValue : Currency;
@@ -803,6 +828,7 @@ type
     function GetOldIMPORTE_SIN_COMPENSARValue : Currency;
     function GetOldID_EMPRESAValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
+    function GetOldREFERENCIA_CLIENTEValue : String;
     function GetOldNOMBRE_CLIENTEValue : String;
     function GetOldENTIDAD_CLIENTEValue : String;
     function GetOldSUCURSAL_CLIENTEValue : String;
@@ -819,6 +845,7 @@ type
     function GetOldUSUARIOValue : String;
     function GetOldID_TIENDAValue : Integer;
     function GetOldTIENDAValue : String;
+    function GetOldCUENTA_CONTABLEValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -827,6 +854,7 @@ type
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldSITUACION : String read GetOldSITUACIONValue;
     property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+    property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
     property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
     property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
@@ -843,6 +871,7 @@ type
     property OldIMPORTE_SIN_COMPENSAR : Currency read GetOldIMPORTE_SIN_COMPENSARValue;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
     property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
+    property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
     property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
     property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
@@ -859,6 +888,7 @@ type
     property OldUSUARIO : String read GetOldUSUARIOValue;
     property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
     property OldTIENDA : String read GetOldTIENDAValue;
+    property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
   end;
 
   { TRecibosCompensadosCliBusinessProcessorRules }
@@ -902,6 +932,12 @@ type
     function GetOldID_FACTURAIsNull: Boolean; virtual;
     procedure SetID_FACTURAValue(const aValue: Integer); virtual;
     procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_FACTURAValue: String; virtual;
+    function GetREFERENCIA_FACTURAIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_FACTURAValue: String; virtual;
+    function GetOldREFERENCIA_FACTURAIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_FACTURAIsNull(const aValue: Boolean); virtual;
     function GetFECHA_FACTURAValue: DateTime; virtual;
     function GetFECHA_FACTURAIsNull: Boolean; virtual;
     function GetOldFECHA_FACTURAValue: DateTime; virtual;
@@ -998,6 +1034,12 @@ type
     function GetOldID_CLIENTEIsNull: Boolean; virtual;
     procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
     procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_CLIENTEValue: String; virtual;
+    function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_CLIENTEValue: String; virtual;
+    function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
     function GetNOMBRE_CLIENTEValue: String; virtual;
     function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
     function GetOldNOMBRE_CLIENTEValue: String; virtual;
@@ -1094,6 +1136,12 @@ type
     function GetOldTIENDAIsNull: Boolean; virtual;
     procedure SetTIENDAValue(const aValue: String); virtual;
     procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+    function GetCUENTA_CONTABLEValue: String; virtual;
+    function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
+    function GetOldCUENTA_CONTABLEValue: String; virtual;
+    function GetOldCUENTA_CONTABLEIsNull: Boolean; virtual;
+    procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
+    procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -1120,6 +1168,10 @@ type
     property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
     property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
     property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
+    property REFERENCIA_FACTURA : String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
+    property REFERENCIA_FACTURAIsNull : Boolean read GetREFERENCIA_FACTURAIsNull write SetREFERENCIA_FACTURAIsNull;
+    property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
+    property OldREFERENCIA_FACTURAIsNull : Boolean read GetOldREFERENCIA_FACTURAIsNull;
     property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
@@ -1184,6 +1236,10 @@ type
     property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
     property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
     property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
+    property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+    property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
+    property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
+    property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
     property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
     property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
@@ -1248,6 +1304,10 @@ type
     property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
     property OldTIENDA : String read GetOldTIENDAValue;
     property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
+    property CUENTA_CONTABLE : String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
+    property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
+    property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
+    property OldCUENTA_CONTABLEIsNull : Boolean read GetOldCUENTA_CONTABLEIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1500,6 +1560,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_FACTURA] := Null;
 end;
 
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_FACTURAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_FACTURA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_FACTURAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_FACTURA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_FACTURA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_FACTURAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_FACTURA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_FACTURA] := Null;
+end;
+
 function TRecibosClienteBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_FACTURA];
@@ -1996,6 +2087,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CLIENTE] := Null;
 end;
 
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CLIENTE]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CLIENTE];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CLIENTE]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CLIENTE] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CLIENTE] := Null;
+end;
+
 function TRecibosClienteBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNOMBRE_CLIENTE];
@@ -3291,6 +3413,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := Null;
 end;
 
+function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_FACTURAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_FACTURA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_FACTURAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_FACTURA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_FACTURAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_FACTURA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_FACTURA] := Null;
+end;
+
 function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
@@ -3787,6 +3940,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE] := Null;
 end;
 
+function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_CLIENTE]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_CLIENTE]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_CLIENTE] := Null;
+end;
+
 function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE];
@@ -4283,6 +4467,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA] := Null;
 end;
 
+function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CONTABLEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CONTABLE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CONTABLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CONTABLE]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CONTABLEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CONTABLE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CONTABLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CONTABLE]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CONTABLEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CONTABLE] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CONTABLE] := Null;
+end;
+
 
 initialization
   RegisterBusinessProcessorRules(RID_ListaAnosRecibosDelta, TListaAnosRecibosBusinessProcessorRules);

Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm

@@ -204,6 +204,14 @@ object srvRecibosCliente: TsrvRecibosCliente
               item
                 DatasetField = 'CUENTA_CONTABLE'
                 TableField = 'CUENTA_CONTABLE'
+              end
+              item
+                DatasetField = 'REFERENCIA_FACTURA'
+                TableField = 'REFERENCIA_FACTURA'
+              end
+              item
+                DatasetField = 'REFERENCIA_CLIENTE'
+                TableField = 'REFERENCIA_CLIENTE'
               end>
           end>
         Name = 'RecibosCliente'
@@ -244,6 +252,11 @@ object srvRecibosCliente: TsrvRecibosCliente
             DataType = datInteger
             DictionaryEntry = 'RecibosCliente_ID_FACTURA'
           end
+          item
+            Name = 'REFERENCIA_FACTURA'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'FECHA_FACTURA'
             DataType = datDateTime
@@ -327,6 +340,11 @@ object srvRecibosCliente: TsrvRecibosCliente
             DataType = datInteger
             DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
           end
+          item
+            Name = 'REFERENCIA_CLIENTE'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'NOMBRE_CLIENTE'
             DataType = datString
@@ -766,6 +784,18 @@ object srvRecibosCliente: TsrvRecibosCliente
               item
                 DatasetField = 'IMPORTE_SIN_COMPENSAR'
                 TableField = 'IMPORTE_SIN_COMPENSAR'
+              end
+              item
+                DatasetField = 'REFERENCIA_FACTURA'
+                TableField = 'REFERENCIA_FACTURA'
+              end
+              item
+                DatasetField = 'REFERENCIA_CLIENTE'
+                TableField = 'REFERENCIA_CLIENTE'
+              end
+              item
+                DatasetField = 'CUENTA_CONTABLE'
+                TableField = 'CUENTA_CONTABLE'
               end>
           end>
         Name = 'RecibosCompensadosCli'
@@ -798,6 +828,11 @@ object srvRecibosCliente: TsrvRecibosCliente
             Name = 'ID_FACTURA'
             DataType = datInteger
           end
+          item
+            Name = 'REFERENCIA_FACTURA'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'FECHA_FACTURA'
             DataType = datDateTime
@@ -868,6 +903,11 @@ object srvRecibosCliente: TsrvRecibosCliente
             Name = 'ID_CLIENTE'
             DataType = datInteger
           end
+          item
+            Name = 'REFERENCIA_CLIENTE'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'NOMBRE_CLIENTE'
             DataType = datString
@@ -946,6 +986,10 @@ object srvRecibosCliente: TsrvRecibosCliente
             Name = 'TIENDA'
             DataType = datString
             Size = 255
+          end
+          item
+            Name = 'CUENTA_CONTABLE'
+            DataType = datString
           end>
       end>
     JoinDataTables = <>

Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm

@@ -120,6 +120,10 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
         Visible = False
         BestFitMaxWidth = 150
       end
+      object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
+        Caption = 'Ref. Cliente'
+        DataBinding.FieldName = 'REFERENCIA_CLIENTE'
+      end
       object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
         Caption = 'Cliente'
         DataBinding.FieldName = 'NOMBRE_CLIENTE'

Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas

@@ -60,6 +60,7 @@ type
     cxGridViewCUENTA_CONTABLE: TcxGridDBColumn;
     cxGridViewIMPORTE_COMPENSADO: TcxGridDBColumn;
     cxGridViewIMPORTE_SIN_COMPENSAR: TcxGridDBColumn;
+    cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);

Source/Servidor/FactuGES_Server.dproj

@@ -29,7 +29,6 @@
     <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">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">8</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 11 de abril de 2016 13:37</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>