Todo listo para version 2.4.9

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

Database/scripts/factuges.sql

@@ -2514,22 +2514,36 @@ ON (RECIBOS_CLIENTE.ID_FACTURA = FACTURAS_CLIENTE.ID)
 GROUP BY FACTURAS_CLIENTE.ID;
 ;
 
-/* Create view: V_REC_CLI_SITUACION */
+CREATE VIEW V_REC_CLI_PAGOS(
-CREATE VIEW V_REC_CLI_SITUACION(
+    ID_REC,
-ID_RECIBO,
+    ID_PAG)
-SITUACION)
+AS
- AS 
 SELECT RECIBOS_CLIENTE.ID,
-CASE WHEN (COUNT(PAGOS_CLIENTE.ID_RECIBO)=0) THEN 'PENDIENTE'
+CASE WHEN RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO IS NULL THEN PAGOS_CLIENTE.ID_RECIBO
-     WHEN (MOD(COUNT(PAGOS_CLIENTE.ID_RECIBO), 2)=0) THEN 'DEVUELTO'
+     ELSE PAGOS_COMPENSADOS.ID_RECIBO
-     ELSE 'COBRADO'
 END
 FROM RECIBOS_CLIENTE
-LEFT JOIN PAGOS_CLIENTE
+LEFT JOIN PAGOS_CLIENTE ON (PAGOS_CLIENTE.ID_RECIBO = RECIBOS_CLIENTE.ID)
-ON (PAGOS_CLIENTE.ID_RECIBO = RECIBOS_CLIENTE.ID)
+LEFT JOIN PAGOS_CLIENTE PAGOS_COMPENSADOS ON (PAGOS_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
-GROUP BY RECIBOS_CLIENTE.ID;
 ;
 
+/* Create view: V_REC_CLI_SITUACION */
+CREATE VIEW V_REC_CLI_SITUACION(
+    ID_RECIBO,
+    SITUACION)
+AS
+SELECT RECIBOS_CLIENTE.ID,
+
+     CASE WHEN (COUNT(V_REC_CLI_PAGOS.ID_PAG)=0) THEN 'PENDIENTE'
+          WHEN (MOD(COUNT(V_REC_CLI_PAGOS.ID_PAG), 2)=0) THEN 'DEVUELTO'
+          ELSE 'COBRADO'
+     END
+
+FROM RECIBOS_CLIENTE
+LEFT JOIN V_REC_CLI_PAGOS
+ON (V_REC_CLI_PAGOS.ID_REC = RECIBOS_CLIENTE.ID)
+GROUP BY RECIBOS_CLIENTE.ID;
+
 /* Create view: V_REC_FAC_CLI_COBRADOS */
 CREATE VIEW V_REC_FAC_CLI_COBRADOS(
 ID_FACTURA,
@@ -3848,6 +3862,8 @@ OBSERVACIONES,
 IMPORTE,
 OTROS_GASTOS,
 IMPORTE_TOTAL,
+IMPORTE_COMPENSADO,
+IMPORTE_SIN_COMPENSAR,
 ID_EMPRESA,
 ID_CLIENTE,
 NOMBRE_CLIENTE,
@@ -3883,7 +3899,12 @@ SELECT RECIBOS_CLIENTE.ID,
        RECIBOS_CLIENTE.ID_REMESA, REMESAS_CLIENTE.REFERENCIA as REFERENCIA_REMESA,
        RECIBOS_CLIENTE.FECHA_EMISION, RECIBOS_CLIENTE.FECHA_VENCIMIENTO, RECIBOS_CLIENTE.DESCRIPCION,
        RECIBOS_CLIENTE.OBSERVACIONES, RECIBOS_CLIENTE.IMPORTE, RECIBOS_CLIENTE.OTROS_GASTOS,
-       COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0),
+       COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) as IMPORTE_TOTAL,
+       COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0) as IMPORTE_COMPENSADO,
+       CASE
+       WHEN V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO > 0 THEN COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) - COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0)
+       ELSE 0
+       END AS IMPORTE_SIN_COMPENSAR,
        RECIBOS_CLIENTE.ID_EMPRESA,
        RECIBOS_CLIENTE.ID_CLIENTE,
        CONTACTOS.NOMBRE,
@@ -3923,11 +3944,10 @@ 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);
+ON (EMPRESAS_TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA)
 ;
 
 
-
 /* Create view: V_RECIBOS_PROVEEDOR (ViwData.CreateDependDef) */
 CREATE VIEW V_RECIBOS_PROVEEDOR(
 ID,
@@ -4743,10 +4763,11 @@ begin
   SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, RECIBOS_CLIENTE.ID_EMPRESA, RECIBOS_CLIENTE.ID_CLIENTE,
   RECIBOS_CLIENTE.REFERENCIA || ': ' || RECIBOS_CLIENTE.NOMBRE,
   PAGOS_CLIENTE.FECHA_PAGO, PAGOS_CLIENTE.TIPO,
-  PAGOS_CLIENTE.TIPO || ': ' || COALESCE(RECIBOS_CLIENTE.DESCRIPCION, 'No hay descripción'),
+  PAGOS_CLIENTE.TIPO || ' ' || RECIBOS_CLIENTE.NOMBRE || '(' || CONTACTOS.REFERENCIA || ') ' || COALESCE(RECIBOS_CLIENTE.DESCRIPCION, 'No hay descripción'),
   RECIBOS_CLIENTE.IMPORTE
   FROM PAGOS_CLIENTE
   LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO)
+  LEFT JOIN CONTACTOS ON (CONTACTOS.ID = RECIBOS_CLIENTE.ID_CLIENTE)
   WHERE PAGOS_CLIENTE.ID = :IDPAGO
   INTO :IGNORARCONTABILIDAD, :IDEMPRESA, :IDCONTACTO, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :CONCEPTO, :IMPORTE;
 

Source/Cliente/FactuGES.dproj

@@ -51,7 +51,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">7</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.4.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">9</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.4.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></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.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

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

@@ -268,6 +268,14 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         ServerAutoRefresh = True
         DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
       end
+      item
+        Name = 'IMPORTE_COMPENSADO'
+        DataType = datCurrency
+      end
+      item
+        Name = 'IMPORTE_SIN_COMPENSAR'
+        DataType = datCurrency
+      end
       item
         Name = 'ID_EMPRESA'
         DataType = datInteger
@@ -371,7 +379,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         Name = 'ID_TIENDA'
         DataType = datInteger
         DisplayLabel = 'RecibosCliente_ID_TIENDA'
-        ServerAutoRefresh = True
         DictionaryEntry = 'RecibosCliente_ID_TIENDA'
       end
       item
@@ -379,7 +386,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'RecibosCliente_TIENDA'
-        ServerAutoRefresh = True
         DictionaryEntry = 'RecibosCliente_TIENDA'
       end
       item
@@ -387,7 +393,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'Cuenta contable'
-        ServerAutoRefresh = True
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -489,6 +494,14 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         ServerAutoRefresh = True
         DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
       end
+      item
+        Name = 'IMPORTE_COMPENSADO'
+        DataType = datCurrency
+      end
+      item
+        Name = 'IMPORTE_SIN_COMPENSAR'
+        DataType = datCurrency
+      end
       item
         Name = 'ID_EMPRESA'
         DataType = datInteger

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

@@ -3,16 +3,16 @@ unit schRecibosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDAInterfaces, 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_ListaAnosRecibos = '{83EE4B73-468E-4522-9045-EB32E8876743}';
+  RID_ListaAnosRecibos = '{F97192B5-288D-4BAD-92D0-882E4CCD91E9}';
-  RID_RecibosCliente = '{5A7D52CC-AC14-459B-8FFC-2EBB710C20FA}';
+  RID_RecibosCliente = '{6E6629F5-CE00-41EB-B3A0-6D61FCA5A3EE}';
-  RID_PagosCliente = '{BA9CFF7F-552C-47D4-BB2C-75A68BB06A1C}';
+  RID_PagosCliente = '{2B8F4076-A36D-4E86-B56B-1F8050DDF161}';
-  RID_RecibosCompensadosCli = '{A1FB671D-EA16-4357-92F7-2C9F7D2C4433}';
+  RID_RecibosCompensadosCli = '{7940AA47-2B1B-476C-9D5F-BC8207E6E6B6}';
 
   { Data table names }
   nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -45,6 +45,8 @@ const
   fld_RecibosClienteIMPORTE = 'IMPORTE';
   fld_RecibosClienteOTROS_GASTOS = 'OTROS_GASTOS';
   fld_RecibosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+  fld_RecibosClienteIMPORTE_COMPENSADO = 'IMPORTE_COMPENSADO';
+  fld_RecibosClienteIMPORTE_SIN_COMPENSAR = 'IMPORTE_SIN_COMPENSAR';
   fld_RecibosClienteID_EMPRESA = 'ID_EMPRESA';
   fld_RecibosClienteID_CLIENTE = 'ID_CLIENTE';
   fld_RecibosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
@@ -84,25 +86,27 @@ const
   idx_RecibosClienteIMPORTE = 15;
   idx_RecibosClienteOTROS_GASTOS = 16;
   idx_RecibosClienteIMPORTE_TOTAL = 17;
-  idx_RecibosClienteID_EMPRESA = 18;
+  idx_RecibosClienteIMPORTE_COMPENSADO = 18;
-  idx_RecibosClienteID_CLIENTE = 19;
+  idx_RecibosClienteIMPORTE_SIN_COMPENSAR = 19;
-  idx_RecibosClienteNOMBRE_CLIENTE = 20;
+  idx_RecibosClienteID_EMPRESA = 20;
-  idx_RecibosClienteENTIDAD_CLIENTE = 21;
+  idx_RecibosClienteID_CLIENTE = 21;
-  idx_RecibosClienteSUCURSAL_CLIENTE = 22;
+  idx_RecibosClienteNOMBRE_CLIENTE = 22;
-  idx_RecibosClienteDC_CLIENTE = 23;
+  idx_RecibosClienteENTIDAD_CLIENTE = 23;
-  idx_RecibosClienteCUENTA_CLIENTE = 24;
+  idx_RecibosClienteSUCURSAL_CLIENTE = 24;
-  idx_RecibosClienteNIF_CIF = 25;
+  idx_RecibosClienteDC_CLIENTE = 25;
-  idx_RecibosClienteNOMBRE = 26;
+  idx_RecibosClienteCUENTA_CLIENTE = 26;
-  idx_RecibosClienteCALLE = 27;
+  idx_RecibosClienteNIF_CIF = 27;
-  idx_RecibosClientePOBLACION = 28;
+  idx_RecibosClienteNOMBRE = 28;
-  idx_RecibosClienteCODIGO_POSTAL = 29;
+  idx_RecibosClienteCALLE = 29;
-  idx_RecibosClientePROVINCIA = 30;
+  idx_RecibosClientePOBLACION = 30;
-  idx_RecibosClienteFECHA_ALTA = 31;
+  idx_RecibosClienteCODIGO_POSTAL = 31;
-  idx_RecibosClienteFECHA_MODIFICACION = 32;
+  idx_RecibosClientePROVINCIA = 32;
-  idx_RecibosClienteUSUARIO = 33;
+  idx_RecibosClienteFECHA_ALTA = 33;
-  idx_RecibosClienteID_TIENDA = 34;
+  idx_RecibosClienteFECHA_MODIFICACION = 34;
-  idx_RecibosClienteTIENDA = 35;
+  idx_RecibosClienteUSUARIO = 35;
-  idx_RecibosClienteCUENTA_CONTABLE = 36;
+  idx_RecibosClienteID_TIENDA = 36;
+  idx_RecibosClienteTIENDA = 37;
+  idx_RecibosClienteCUENTA_CONTABLE = 38;
 
   { PagosCliente fields }
   fld_PagosClienteID = 'ID';
@@ -163,6 +167,8 @@ const
   fld_RecibosCompensadosCliIMPORTE = 'IMPORTE';
   fld_RecibosCompensadosCliOTROS_GASTOS = 'OTROS_GASTOS';
   fld_RecibosCompensadosCliIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+  fld_RecibosCompensadosCliIMPORTE_COMPENSADO = 'IMPORTE_COMPENSADO';
+  fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR = 'IMPORTE_SIN_COMPENSAR';
   fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA';
   fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE';
   fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
@@ -201,29 +207,31 @@ const
   idx_RecibosCompensadosCliIMPORTE = 15;
   idx_RecibosCompensadosCliOTROS_GASTOS = 16;
   idx_RecibosCompensadosCliIMPORTE_TOTAL = 17;
-  idx_RecibosCompensadosCliID_EMPRESA = 18;
+  idx_RecibosCompensadosCliIMPORTE_COMPENSADO = 18;
-  idx_RecibosCompensadosCliID_CLIENTE = 19;
+  idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR = 19;
-  idx_RecibosCompensadosCliNOMBRE_CLIENTE = 20;
+  idx_RecibosCompensadosCliID_EMPRESA = 20;
-  idx_RecibosCompensadosCliENTIDAD_CLIENTE = 21;
+  idx_RecibosCompensadosCliID_CLIENTE = 21;
-  idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 22;
+  idx_RecibosCompensadosCliNOMBRE_CLIENTE = 22;
-  idx_RecibosCompensadosCliDC_CLIENTE = 23;
+  idx_RecibosCompensadosCliENTIDAD_CLIENTE = 23;
-  idx_RecibosCompensadosCliCUENTA_CLIENTE = 24;
+  idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 24;
-  idx_RecibosCompensadosCliNIF_CIF = 25;
+  idx_RecibosCompensadosCliDC_CLIENTE = 25;
-  idx_RecibosCompensadosCliNOMBRE = 26;
+  idx_RecibosCompensadosCliCUENTA_CLIENTE = 26;
-  idx_RecibosCompensadosCliCALLE = 27;
+  idx_RecibosCompensadosCliNIF_CIF = 27;
-  idx_RecibosCompensadosCliPOBLACION = 28;
+  idx_RecibosCompensadosCliNOMBRE = 28;
-  idx_RecibosCompensadosCliCODIGO_POSTAL = 29;
+  idx_RecibosCompensadosCliCALLE = 29;
-  idx_RecibosCompensadosCliPROVINCIA = 30;
+  idx_RecibosCompensadosCliPOBLACION = 30;
-  idx_RecibosCompensadosCliFECHA_ALTA = 31;
+  idx_RecibosCompensadosCliCODIGO_POSTAL = 31;
-  idx_RecibosCompensadosCliFECHA_MODIFICACION = 32;
+  idx_RecibosCompensadosCliPROVINCIA = 32;
-  idx_RecibosCompensadosCliUSUARIO = 33;
+  idx_RecibosCompensadosCliFECHA_ALTA = 33;
-  idx_RecibosCompensadosCliID_TIENDA = 34;
+  idx_RecibosCompensadosCliFECHA_MODIFICACION = 34;
-  idx_RecibosCompensadosCliTIENDA = 35;
+  idx_RecibosCompensadosCliUSUARIO = 35;
+  idx_RecibosCompensadosCliID_TIENDA = 36;
+  idx_RecibosCompensadosCliTIENDA = 37;
 
 type
   { IListaAnosRecibos }
   IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
-  ['{79193CD1-BBC0-4BEE-9525-6395209D7766}']
+  ['{E9816692-FFD0-4F6F-8608-A2720C2071F0}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -237,7 +245,7 @@ type
   end;
 
   { TListaAnosRecibosDataTableRules }
-  TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos)
+  TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
   private
   protected
     { Property getters and setters }
@@ -258,7 +266,7 @@ type
 
   { IRecibosCliente }
   IRecibosCliente = interface(IDAStronglyTypedDataTable)
-  ['{E8C9C142-DC49-4341-8819-3FC9FFB74C3C}']
+  ['{8CE3943C-E100-4DFA-8185-3751474DA592}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -332,6 +340,14 @@ type
     procedure SetIMPORTE_TOTALValue(const aValue: Currency);
     function GetIMPORTE_TOTALIsNull: Boolean;
     procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+    function GetIMPORTE_COMPENSADOValue: Currency;
+    procedure SetIMPORTE_COMPENSADOValue(const aValue: Currency);
+    function GetIMPORTE_COMPENSADOIsNull: Boolean;
+    procedure SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean);
+    function GetIMPORTE_SIN_COMPENSARValue: Currency;
+    procedure SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency);
+    function GetIMPORTE_SIN_COMPENSARIsNull: Boolean;
+    procedure SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean);
     function GetID_EMPRESAValue: Integer;
     procedure SetID_EMPRESAValue(const aValue: Integer);
     function GetID_EMPRESAIsNull: Boolean;
@@ -447,6 +463,10 @@ type
     property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
     property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
     property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+    property IMPORTE_COMPENSADO: Currency read GetIMPORTE_COMPENSADOValue write SetIMPORTE_COMPENSADOValue;
+    property IMPORTE_COMPENSADOIsNull: Boolean read GetIMPORTE_COMPENSADOIsNull write SetIMPORTE_COMPENSADOIsNull;
+    property IMPORTE_SIN_COMPENSAR: Currency read GetIMPORTE_SIN_COMPENSARValue write SetIMPORTE_SIN_COMPENSARValue;
+    property IMPORTE_SIN_COMPENSARIsNull: Boolean read GetIMPORTE_SIN_COMPENSARIsNull write SetIMPORTE_SIN_COMPENSARIsNull;
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@@ -488,7 +508,7 @@ type
   end;
 
   { TRecibosClienteDataTableRules }
-  TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
+  TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
   private
   protected
     { Property getters and setters }
@@ -564,6 +584,14 @@ type
     procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
     function GetIMPORTE_TOTALIsNull: Boolean; virtual;
     procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+    function GetIMPORTE_COMPENSADOValue: Currency; virtual;
+    procedure SetIMPORTE_COMPENSADOValue(const aValue: Currency); virtual;
+    function GetIMPORTE_COMPENSADOIsNull: Boolean; virtual;
+    procedure SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); virtual;
+    function GetIMPORTE_SIN_COMPENSARValue: Currency; virtual;
+    procedure SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); virtual;
+    function GetIMPORTE_SIN_COMPENSARIsNull: Boolean; virtual;
+    procedure SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); virtual;
     function GetID_EMPRESAValue: Integer; virtual;
     procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
     function GetID_EMPRESAIsNull: Boolean; virtual;
@@ -678,6 +706,10 @@ type
     property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
     property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
     property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+    property IMPORTE_COMPENSADO: Currency read GetIMPORTE_COMPENSADOValue write SetIMPORTE_COMPENSADOValue;
+    property IMPORTE_COMPENSADOIsNull: Boolean read GetIMPORTE_COMPENSADOIsNull write SetIMPORTE_COMPENSADOIsNull;
+    property IMPORTE_SIN_COMPENSAR: Currency read GetIMPORTE_SIN_COMPENSARValue write SetIMPORTE_SIN_COMPENSARValue;
+    property IMPORTE_SIN_COMPENSARIsNull: Boolean read GetIMPORTE_SIN_COMPENSARIsNull write SetIMPORTE_SIN_COMPENSARIsNull;
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@@ -725,7 +757,7 @@ type
 
   { IPagosCliente }
   IPagosCliente = interface(IDAStronglyTypedDataTable)
-  ['{B0DE3F8D-7057-49AC-91D0-719C2C24E338}']
+  ['{3568AB0B-1F68-4567-A683-0C401D8D7173}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -841,7 +873,7 @@ type
   end;
 
   { TPagosClienteDataTableRules }
-  TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
+  TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
   private
   protected
     { Property getters and setters }
@@ -964,7 +996,7 @@ type
 
   { IRecibosCompensadosCli }
   IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
-  ['{AC077764-D35C-477D-8FD8-2F68644F812C}']
+  ['{32A4B6A0-1926-478A-B23E-06F3D0054723}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1038,6 +1070,14 @@ type
     procedure SetIMPORTE_TOTALValue(const aValue: Currency);
     function GetIMPORTE_TOTALIsNull: Boolean;
     procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+    function GetIMPORTE_COMPENSADOValue: Currency;
+    procedure SetIMPORTE_COMPENSADOValue(const aValue: Currency);
+    function GetIMPORTE_COMPENSADOIsNull: Boolean;
+    procedure SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean);
+    function GetIMPORTE_SIN_COMPENSARValue: Currency;
+    procedure SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency);
+    function GetIMPORTE_SIN_COMPENSARIsNull: Boolean;
+    procedure SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean);
     function GetID_EMPRESAValue: Integer;
     procedure SetID_EMPRESAValue(const aValue: Integer);
     function GetID_EMPRESAIsNull: Boolean;
@@ -1149,6 +1189,10 @@ type
     property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
     property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
     property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+    property IMPORTE_COMPENSADO: Currency read GetIMPORTE_COMPENSADOValue write SetIMPORTE_COMPENSADOValue;
+    property IMPORTE_COMPENSADOIsNull: Boolean read GetIMPORTE_COMPENSADOIsNull write SetIMPORTE_COMPENSADOIsNull;
+    property IMPORTE_SIN_COMPENSAR: Currency read GetIMPORTE_SIN_COMPENSARValue write SetIMPORTE_SIN_COMPENSARValue;
+    property IMPORTE_SIN_COMPENSARIsNull: Boolean read GetIMPORTE_SIN_COMPENSARIsNull write SetIMPORTE_SIN_COMPENSARIsNull;
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@@ -1188,7 +1232,7 @@ type
   end;
 
   { TRecibosCompensadosCliDataTableRules }
-  TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
+  TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
   private
   protected
     { Property getters and setters }
@@ -1264,6 +1308,14 @@ type
     procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
     function GetIMPORTE_TOTALIsNull: Boolean; virtual;
     procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+    function GetIMPORTE_COMPENSADOValue: Currency; virtual;
+    procedure SetIMPORTE_COMPENSADOValue(const aValue: Currency); virtual;
+    function GetIMPORTE_COMPENSADOIsNull: Boolean; virtual;
+    procedure SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); virtual;
+    function GetIMPORTE_SIN_COMPENSARValue: Currency; virtual;
+    procedure SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); virtual;
+    function GetIMPORTE_SIN_COMPENSARIsNull: Boolean; virtual;
+    procedure SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); virtual;
     function GetID_EMPRESAValue: Integer; virtual;
     procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
     function GetID_EMPRESAIsNull: Boolean; virtual;
@@ -1374,6 +1426,10 @@ type
     property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull;
     property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
     property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+    property IMPORTE_COMPENSADO: Currency read GetIMPORTE_COMPENSADOValue write SetIMPORTE_COMPENSADOValue;
+    property IMPORTE_COMPENSADOIsNull: Boolean read GetIMPORTE_COMPENSADOIsNull write SetIMPORTE_COMPENSADOIsNull;
+    property IMPORTE_SIN_COMPENSAR: Currency read GetIMPORTE_SIN_COMPENSARValue write SetIMPORTE_SIN_COMPENSARValue;
+    property IMPORTE_SIN_COMPENSARIsNull: Boolean read GetIMPORTE_SIN_COMPENSARIsNull write SetIMPORTE_SIN_COMPENSARIsNull;
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@@ -1843,6 +1899,48 @@ begin
     DataTable.Fields[idx_RecibosClienteIMPORTE_TOTAL].AsVariant := Null;
 end;
 
+function TRecibosClienteDataTableRules.GetIMPORTE_COMPENSADOValue: Currency;
+begin
+  result := DataTable.Fields[idx_RecibosClienteIMPORTE_COMPENSADO].AsCurrency;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIMPORTE_COMPENSADOValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_RecibosClienteIMPORTE_COMPENSADO].AsCurrency := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetIMPORTE_COMPENSADOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteIMPORTE_COMPENSADO].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteIMPORTE_COMPENSADO].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetIMPORTE_SIN_COMPENSARValue: Currency;
+begin
+  result := DataTable.Fields[idx_RecibosClienteIMPORTE_SIN_COMPENSAR].AsCurrency;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_RecibosClienteIMPORTE_SIN_COMPENSAR].AsCurrency := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetIMPORTE_SIN_COMPENSARIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosClienteIMPORTE_SIN_COMPENSAR].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosClienteIMPORTE_SIN_COMPENSAR].AsVariant := Null;
+end;
+
 function TRecibosClienteDataTableRules.GetID_EMPRESAValue: Integer;
 begin
   result := DataTable.Fields[idx_RecibosClienteID_EMPRESA].AsInteger;
@@ -3022,6 +3120,48 @@ begin
     DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_TOTAL].AsVariant := Null;
 end;
 
+function TRecibosCompensadosCliDataTableRules.GetIMPORTE_COMPENSADOValue: Currency;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_COMPENSADO].AsCurrency;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_COMPENSADOValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_COMPENSADO].AsCurrency := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIMPORTE_COMPENSADOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_COMPENSADO].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_COMPENSADO].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIMPORTE_SIN_COMPENSARValue: Currency;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR].AsCurrency;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR].AsCurrency := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetIMPORTE_SIN_COMPENSARIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR].AsVariant := Null;
+end;
+
 function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAValue: Integer;
 begin
   result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger;

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 = '{0101D983-84D7-4B01-B359-32BE7D3A9CBE}';
+  RID_ListaAnosRecibosDelta = '{62F79392-9571-4D2E-B294-B386CF58E304}';
-  RID_RecibosClienteDelta = '{3A483FF6-4CAD-45BC-9638-78C3A876344F}';
+  RID_RecibosClienteDelta = '{54B16B97-FAA9-49A4-BE11-0C9268888052}';
-  RID_PagosClienteDelta = '{0BE77245-6A46-42CA-A074-48D3C835D089}';
+  RID_PagosClienteDelta = '{8E95B332-93DA-4BBD-8629-84E7691AC0A4}';
-  RID_RecibosCompensadosCliDelta = '{EC39A7E1-7D7C-4F17-8C59-29D1E8BBB1C4}';
+  RID_RecibosCompensadosCliDelta = '{54163948-6ADC-433C-983E-65C944FA2E1E}';
 
 type
   { IListaAnosRecibosDelta }
   IListaAnosRecibosDelta = interface(IListaAnosRecibos)
-  ['{0101D983-84D7-4B01-B359-32BE7D3A9CBE}']
+  ['{62F79392-9571-4D2E-B294-B386CF58E304}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -51,7 +51,7 @@ type
 
   { IRecibosClienteDelta }
   IRecibosClienteDelta = interface(IRecibosCliente)
-  ['{3A483FF6-4CAD-45BC-9638-78C3A876344F}']
+  ['{54B16B97-FAA9-49A4-BE11-0C9268888052}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -71,6 +71,8 @@ type
     function GetOldIMPORTEValue : Currency;
     function GetOldOTROS_GASTOSValue : Currency;
     function GetOldIMPORTE_TOTALValue : Currency;
+    function GetOldIMPORTE_COMPENSADOValue : Currency;
+    function GetOldIMPORTE_SIN_COMPENSARValue : Currency;
     function GetOldID_EMPRESAValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
     function GetOldNOMBRE_CLIENTEValue : String;
@@ -110,6 +112,8 @@ type
     property OldIMPORTE : Currency read GetOldIMPORTEValue;
     property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+    property OldIMPORTE_COMPENSADO : Currency read GetOldIMPORTE_COMPENSADOValue;
+    property OldIMPORTE_SIN_COMPENSAR : Currency read GetOldIMPORTE_SIN_COMPENSARValue;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
     property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
@@ -244,6 +248,18 @@ type
     function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
     procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
     procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+    function GetIMPORTE_COMPENSADOValue: Currency; virtual;
+    function GetIMPORTE_COMPENSADOIsNull: Boolean; virtual;
+    function GetOldIMPORTE_COMPENSADOValue: Currency; virtual;
+    function GetOldIMPORTE_COMPENSADOIsNull: Boolean; virtual;
+    procedure SetIMPORTE_COMPENSADOValue(const aValue: Currency); virtual;
+    procedure SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); virtual;
+    function GetIMPORTE_SIN_COMPENSARValue: Currency; virtual;
+    function GetIMPORTE_SIN_COMPENSARIsNull: Boolean; virtual;
+    function GetOldIMPORTE_SIN_COMPENSARValue: Currency; virtual;
+    function GetOldIMPORTE_SIN_COMPENSARIsNull: Boolean; virtual;
+    procedure SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); virtual;
+    procedure SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); virtual;
     function GetID_EMPRESAValue: Integer; virtual;
     function GetID_EMPRESAIsNull: Boolean; virtual;
     function GetOldID_EMPRESAValue: Integer; virtual;
@@ -432,6 +448,14 @@ type
     property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
     property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
+    property IMPORTE_COMPENSADO : Currency read GetIMPORTE_COMPENSADOValue write SetIMPORTE_COMPENSADOValue;
+    property IMPORTE_COMPENSADOIsNull : Boolean read GetIMPORTE_COMPENSADOIsNull write SetIMPORTE_COMPENSADOIsNull;
+    property OldIMPORTE_COMPENSADO : Currency read GetOldIMPORTE_COMPENSADOValue;
+    property OldIMPORTE_COMPENSADOIsNull : Boolean read GetOldIMPORTE_COMPENSADOIsNull;
+    property IMPORTE_SIN_COMPENSAR : Currency read GetIMPORTE_SIN_COMPENSARValue write SetIMPORTE_SIN_COMPENSARValue;
+    property IMPORTE_SIN_COMPENSARIsNull : Boolean read GetIMPORTE_SIN_COMPENSARIsNull write SetIMPORTE_SIN_COMPENSARIsNull;
+    property OldIMPORTE_SIN_COMPENSAR : Currency read GetOldIMPORTE_SIN_COMPENSARValue;
+    property OldIMPORTE_SIN_COMPENSARIsNull : Boolean read GetOldIMPORTE_SIN_COMPENSARIsNull;
     property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
     property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
@@ -517,7 +541,7 @@ type
 
   { IPagosClienteDelta }
   IPagosClienteDelta = interface(IPagosCliente)
-  ['{0BE77245-6A46-42CA-A074-48D3C835D089}']
+  ['{8E95B332-93DA-4BBD-8629-84E7691AC0A4}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -755,7 +779,7 @@ type
 
   { IRecibosCompensadosCliDelta }
   IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
-  ['{EC39A7E1-7D7C-4F17-8C59-29D1E8BBB1C4}']
+  ['{54163948-6ADC-433C-983E-65C944FA2E1E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -775,6 +799,8 @@ type
     function GetOldIMPORTEValue : Currency;
     function GetOldOTROS_GASTOSValue : Currency;
     function GetOldIMPORTE_TOTALValue : Currency;
+    function GetOldIMPORTE_COMPENSADOValue : Currency;
+    function GetOldIMPORTE_SIN_COMPENSARValue : Currency;
     function GetOldID_EMPRESAValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
     function GetOldNOMBRE_CLIENTEValue : String;
@@ -813,6 +839,8 @@ type
     property OldIMPORTE : Currency read GetOldIMPORTEValue;
     property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+    property OldIMPORTE_COMPENSADO : Currency read GetOldIMPORTE_COMPENSADOValue;
+    property OldIMPORTE_SIN_COMPENSAR : Currency read GetOldIMPORTE_SIN_COMPENSARValue;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
     property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
@@ -946,6 +974,18 @@ type
     function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
     procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
     procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+    function GetIMPORTE_COMPENSADOValue: Currency; virtual;
+    function GetIMPORTE_COMPENSADOIsNull: Boolean; virtual;
+    function GetOldIMPORTE_COMPENSADOValue: Currency; virtual;
+    function GetOldIMPORTE_COMPENSADOIsNull: Boolean; virtual;
+    procedure SetIMPORTE_COMPENSADOValue(const aValue: Currency); virtual;
+    procedure SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); virtual;
+    function GetIMPORTE_SIN_COMPENSARValue: Currency; virtual;
+    function GetIMPORTE_SIN_COMPENSARIsNull: Boolean; virtual;
+    function GetOldIMPORTE_SIN_COMPENSARValue: Currency; virtual;
+    function GetOldIMPORTE_SIN_COMPENSARIsNull: Boolean; virtual;
+    procedure SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); virtual;
+    procedure SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); virtual;
     function GetID_EMPRESAValue: Integer; virtual;
     function GetID_EMPRESAIsNull: Boolean; virtual;
     function GetOldID_EMPRESAValue: Integer; virtual;
@@ -1128,6 +1168,14 @@ type
     property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
     property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
+    property IMPORTE_COMPENSADO : Currency read GetIMPORTE_COMPENSADOValue write SetIMPORTE_COMPENSADOValue;
+    property IMPORTE_COMPENSADOIsNull : Boolean read GetIMPORTE_COMPENSADOIsNull write SetIMPORTE_COMPENSADOIsNull;
+    property OldIMPORTE_COMPENSADO : Currency read GetOldIMPORTE_COMPENSADOValue;
+    property OldIMPORTE_COMPENSADOIsNull : Boolean read GetOldIMPORTE_COMPENSADOIsNull;
+    property IMPORTE_SIN_COMPENSAR : Currency read GetIMPORTE_SIN_COMPENSARValue write SetIMPORTE_SIN_COMPENSARValue;
+    property IMPORTE_SIN_COMPENSARIsNull : Boolean read GetIMPORTE_SIN_COMPENSARIsNull write SetIMPORTE_SIN_COMPENSARIsNull;
+    property OldIMPORTE_SIN_COMPENSAR : Currency read GetOldIMPORTE_SIN_COMPENSARValue;
+    property OldIMPORTE_SIN_COMPENSARIsNull : Boolean read GetOldIMPORTE_SIN_COMPENSARIsNull;
     property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
     property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
@@ -1824,6 +1872,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL] := Null;
 end;
 
+function TRecibosClienteBusinessProcessorRules.GetIMPORTE_COMPENSADOValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_COMPENSADO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIMPORTE_COMPENSADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_COMPENSADO]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_COMPENSADOValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_COMPENSADO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_COMPENSADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_COMPENSADO]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_COMPENSADOValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_COMPENSADO] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_COMPENSADO] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIMPORTE_SIN_COMPENSARValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_SIN_COMPENSAR];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetIMPORTE_SIN_COMPENSARIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_SIN_COMPENSAR]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_SIN_COMPENSARValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_SIN_COMPENSAR];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_SIN_COMPENSARIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_SIN_COMPENSAR]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_SIN_COMPENSAR] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_SIN_COMPENSAR] := Null;
+end;
+
 function TRecibosClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA];
@@ -3553,6 +3663,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL] := Null;
 end;
 
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_COMPENSADOValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_COMPENSADO];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_COMPENSADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_COMPENSADO]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_COMPENSADOValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_COMPENSADO];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_COMPENSADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_COMPENSADO]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_COMPENSADOValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_COMPENSADO] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_COMPENSADO] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_SIN_COMPENSARValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_SIN_COMPENSARIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_SIN_COMPENSARValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_SIN_COMPENSARIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR] := Null;
+end;
+
 function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA];

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

@@ -205,6 +205,14 @@ object srvRecibosCliente: TsrvRecibosCliente
                 DatasetField = 'CUENTA_CONTABLE'
                 TableField = '<unknown>'
                 SQLOrigin = 'CUENTA_CONTABLE'
+              end
+              item
+                DatasetField = 'IMPORTE_COMPENSADO'
+                TableField = 'IMPORTE_COMPENSADO'
+              end
+              item
+                DatasetField = 'IMPORTE_SIN_COMPENSAR'
+                TableField = 'IMPORTE_SIN_COMPENSAR'
               end>
           end>
         Name = 'RecibosCliente'
@@ -311,6 +319,14 @@ object srvRecibosCliente: TsrvRecibosCliente
             ServerAutoRefresh = True
             DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
           end
+          item
+            Name = 'IMPORTE_COMPENSADO'
+            DataType = datCurrency
+          end
+          item
+            Name = 'IMPORTE_SIN_COMPENSAR'
+            DataType = datCurrency
+          end
           item
             Name = 'ID_EMPRESA'
             DataType = datInteger
@@ -754,6 +770,14 @@ object srvRecibosCliente: TsrvRecibosCliente
               item
                 DatasetField = 'PROVINCIA'
                 TableField = 'PROVINCIA'
+              end
+              item
+                DatasetField = 'IMPORTE_COMPENSADO'
+                TableField = 'IMPORTE_COMPENSADO'
+              end
+              item
+                DatasetField = 'IMPORTE_SIN_COMPENSAR'
+                TableField = 'IMPORTE_SIN_COMPENSAR'
               end>
           end>
         Name = 'RecibosCompensadosCli'
@@ -840,6 +864,14 @@ object srvRecibosCliente: TsrvRecibosCliente
             ServerAutoRefresh = True
             DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
           end
+          item
+            Name = 'IMPORTE_COMPENSADO'
+            DataType = datCurrency
+          end
+          item
+            Name = 'IMPORTE_SIN_COMPENSAR'
+            DataType = datCurrency
+          end
           item
             Name = 'ID_EMPRESA'
             DataType = datInteger

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

@@ -165,6 +165,20 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
         HeaderAlignmentHorz = taRightJustify
         Width = 117
       end
+      object cxGridViewIMPORTE_COMPENSADO: TcxGridDBColumn
+        Caption = 'Imp. Compensado'
+        DataBinding.FieldName = 'IMPORTE_COMPENSADO'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
+      end
+      object cxGridViewIMPORTE_SIN_COMPENSAR: TcxGridDBColumn
+        Caption = 'Imp. sin compensar'
+        DataBinding.FieldName = 'IMPORTE_SIN_COMPENSAR'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
+      end
       object cxGridViewREFERENCIA_REMESA: TcxGridDBColumn
         Caption = 'Ref. remesa'
         DataBinding.FieldName = 'REFERENCIA_REMESA'

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

@@ -58,6 +58,8 @@ type
     cxGridViewPROVINCIA: TcxGridDBColumn;
     cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
     cxGridViewCUENTA_CONTABLE: TcxGridDBColumn;
+    cxGridViewIMPORTE_COMPENSADO: TcxGridDBColumn;
+    cxGridViewIMPORTE_SIN_COMPENSAR: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);

Source/Servidor/FactuGES_Server.dpr

@@ -131,12 +131,12 @@ uses
   schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
   schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
   schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
-  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
-  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
   schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
   schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
   schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
-  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
+  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.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}

Source/Servidor/FactuGES_Server.dproj

@@ -28,11 +28,7 @@
     <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">2</VersionInfo><VersionInfo Name="MinorVer">4</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.4.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.4.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 16 de enero de 2012 10:45</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<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">4</VersionInfo><VersionInfo Name="Release">9</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.4.9.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.4.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 18 de enero de 2012 15:13</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>