Poder compensar recibos de proveedor

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@85 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Database/VISTAS.SQL

@@ -1,4 +1,3 @@
-DROP VIEW V_REMESAS_PROVEEDOR;
 DROP VIEW V_VENTAS_ARTICULOS;
 
 /*
@@ -69,6 +68,8 @@ DROP VIEW V_RECIBOS_CLIENTE;
 DROP VIEW V_REMESAS_CLIENTE;
 DROP VIEW V_REC_CLI_COMPENSADOS;
 DROP VIEW V_RECIBOS_PROVEEDOR;
+DROP VIEW V_REMESAS_PROVEEDOR;
+DROP VIEW V_REC_PRO_COMPENSADOS;
 DROP VIEW V_REC_CLI_SITUACION;
 DROP VIEW V_REC_PRO_SITUACION;
 DROP VIEW V_REC_FAC_CLI;
@@ -457,8 +458,20 @@ ON (PAGOS_CLIENTE.ID_RECIBO = RECIBOS_CLIENTE.ID)
 GROUP BY RECIBOS_CLIENTE.ID;
 
 
+CREATE VIEW V_REC_PRO_COMPENSADOS (
+ID_RECIBO, 
+IMPORTE_TOTAL_COMPENSADO
+) as
+select ID_RECIBO_COMPENSADO, SUM((IMPORTE + OTROS_GASTOS)) as IMPORTE_TOTAL
+from RECIBOS_PROVEEDOR
+where ID_RECIBO_COMPENSADO is not null
+group by ID_RECIBO_COMPENSADO;
+
+
 CREATE VIEW V_RECIBOS_PROVEEDOR(
     ID,
+    ID_RECIBO_COMPENSADO,
+    REFERENCIA_REC_COMPENSADO,
     REFERENCIA,
     REFERENCIA_PROVEEDOR,
     SITUACION,
@@ -488,13 +501,21 @@ CREATE VIEW V_RECIBOS_PROVEEDOR(
     FECHA_MODIFICACION,
     USUARIO)
 AS
-SELECT RECIBOS_PROVEEDOR.ID, RECIBOS_PROVEEDOR.REFERENCIA, RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR,
+SELECT RECIBOS_PROVEEDOR.ID, 
-       V_REC_PRO_SITUACION.SITUACION,
+       RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO,
+       RECIBO_COMPENSADO1.REFERENCIA,
+       RECIBOS_PROVEEDOR.REFERENCIA, 
+       RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR,
+       CASE
+       WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL
+       THEN V_REC_PRO_SITUACION.SITUACION
+       ELSE RECIBO_COMPENSADO2.SITUACION
+       END,
        RECIBOS_PROVEEDOR.ID_FACTURA,
        RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA,
        RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION,
        RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS,
-       RECIBOS_PROVEEDOR.IMPORTE + RECIBOS_PROVEEDOR.OTROS_GASTOS,
+       COALESCE(RECIBOS_PROVEEDOR.IMPORTE, 0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS, 0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0),       
 
        FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA,
        FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
@@ -519,7 +540,13 @@ ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
 LEFT JOIN CONTACTOS_DATOS_BANCO
 ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID)
 LEFT JOIN REMESAS_PROVEEDOR
-ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA);
+ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA)
+LEFT JOIN V_REC_PRO_COMPENSADOS
+ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
+LEFT JOIN RECIBOS_PROVEEDOR RECIBO_COMPENSADO1
+ON (RECIBO_COMPENSADO1.ID = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO)
+LEFT JOIN V_REC_PRO_SITUACION RECIBO_COMPENSADO2
+ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO);
 
 
 CREATE VIEW V_REC_CLI_COMPENSADOS (
@@ -2238,12 +2265,13 @@ SELECT
   EMPRESAS_DATOS_BANCO.CUENTA,
   EMPRESAS_DATOS_BANCO.SUFIJO_N19,
   EMPRESAS_DATOS_BANCO.SUFIJO_N58,
-  SUM(RECIBOS_PROVEEDOR.IMPORTE + RECIBOS_PROVEEDOR.OTROS_GASTOS) as IMPORTE_TOTAL
+  SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL  
 
 FROM
   REMESAS_PROVEEDOR
   LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO)
   LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID)
+  LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)  
 GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16;
 
 

Source/Base/GUIBase/uViewBarraSeleccion.pas

@@ -5,7 +5,7 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, uViewBase, StdCtrls, ActnList, ExtCtrls, JvExStdCtrls, JvButton,
-  JvCtrls, JvFooter, JvExExtCtrls, JvComponent;
+  JvCtrls, JvFooter, JvExExtCtrls, JvComponent, JvExtComponent;
 
 type
   TfrViewBarraSeleccion = class(TfrViewBase)

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 2,1,1,0
+FILEVERSION 2,1,0,0
-PRODUCTVERSION 2,1,1,0
+PRODUCTVERSION 2,1,0,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,7 +13,7 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.1.1.0\0"
+              VALUE "FileVersion", "2.1.0.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
               VALUE "ProductVersion", "2.0.6\0"

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas

@@ -913,7 +913,7 @@ begin
   //Eliminamos todos los recibos que tuviera la factura porque sabemos que todos
   //estarán pendientes (solo permitiremos modificar y eliminar facturas pendientes,
   //parcialmente pagadas o pagadas no
-  ARecibos := ARecibosProveedorController.BuscarTodosFactura(AFactura.ID);
+  ARecibos := ARecibosProveedorController.BuscarRecibosFactura(AFactura.ID);
   ARecibosProveedorController.EliminarTodo(ARecibos);
 
   //Vamos a generar todos los recibos necesarios para la factura

Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.pas

@@ -52,7 +52,6 @@ function TsrvInfVentasArticulo.GetData(const DatasetName: String;
 var
   ds : IDADataset;
   i : integer;
-  f:TextFile;
 begin
   result := Binary.Create;
   try
@@ -74,11 +73,6 @@ begin
     for i := 0 to (Params.Count-1) do
       ds.ParamByName(Params[i].Name).Value := Params[i].Value;
 
-    AssignFile(f,'sql.txt');
-    Append (f);
-    Writeln(f, ds.SQL);
-    CloseFile(f);
-
     ds.Open;
     ServiceAdapter.WriteDataset(Result, ds, [woRows], MaxRecords);
   except

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

@@ -806,7 +806,7 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente
     Left = 384
     Top = 112
   end
-  object tbl_RecibosCompensados: TDACDSDataTable
+  object tbl_RecibosCompensadosCli: TDACDSDataTable
     RemoteUpdatesOptions = []
     Fields = <
       item
@@ -1101,13 +1101,13 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente
     DetailFields = 'ID_RECIBO_COMPENSADO'
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
-    LogicalName = 'RecibosCompensados'
+    LogicalName = 'RecibosCompensadosCli'
     IndexDefs = <>
     Left = 336
     Top = 304
   end
-  object ds_RecibosCompensados: TDADataSource
+  object ds_RecibosCompensadosCli: TDADataSource
-    DataTable = tbl_RecibosCompensados
+    DataTable = tbl_RecibosCompensadosCli
     Left = 336
     Top = 248
   end

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

@@ -46,14 +46,14 @@ type
     ds_RecibosCliente: TDADataSource;
     tbl_PagosCliente: TDACDSDataTable;
     ds_PagosCliente: TDADataSource;
-    tbl_RecibosCompensados: TDACDSDataTable;
+    tbl_RecibosCompensadosCli: TDACDSDataTable;
-    ds_RecibosCompensados: TDADataSource;
+    ds_RecibosCompensadosCli: TDADataSource;
     procedure DAClientDataModuleCreate(Sender: TObject);
   protected
     function DarNombreGenerador(DataSetName: String): String; virtual;
     function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
     function _GetPagos: IBizPagosCliente;
-    function _GetRecibosCompensados : IBizRecibosCompensados;
+    function _GetRecibosCompensados : IBizRecibosCompensadosCli;
   public
     function GetNextID(const DataSetName : String) : Integer;
     function GetItems: IBizRecibosCliente;
@@ -132,20 +132,20 @@ begin
    end;
 end;
 
-function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensados;
+function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensadosCli;
 var
   ARecibosCompensados : TDACDSDataTable;
 begin
   ShowHourglassCursor;
   try
-    ARecibosCompensados := _CloneDataTable(tbl_RecibosCompensados);
+    ARecibosCompensados := _CloneDataTable(tbl_RecibosCompensadosCli);
     with ARecibosCompensados do
     begin
-      BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOS;
+      BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSCLI;
       DetailOptions := DetailOptions -
         [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
     end;
-    Result := (ARecibosCompensados as IBizRecibosCompensados);
+    Result := (ARecibosCompensados as IBizRecibosCompensadosCli);
   finally
     HideHourglassCursor;
   end;

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

@@ -9,16 +9,16 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_RecibosCliente = '{FD980379-FB92-4C95-BE21-ED95A7016410}';
+  RID_RecibosCliente = '{776FD400-E6B9-4576-9F25-00B597720267}';
-  RID_RecibosCliente_Refresh = '{E53D88F8-4685-45B7-A311-F127B59B66D3}';
+  RID_RecibosCliente_Refresh = '{89591B66-A8AE-46A9-AC71-AB0AB81A492F}';
-  RID_PagosCliente = '{AE00696F-314E-474C-9214-B46E7E252D02}';
+  RID_PagosCliente = '{C68E4866-2A58-4CE5-BBA0-1EDB8646170C}';
-  RID_RecibosCompensados = '{8428AEC0-0D77-4FE7-87FF-21D267278BC4}';
+  RID_RecibosCompensadosCli = '{B4FBAFB5-6C87-40F3-9BF9-D477D59971DA}';
 
   { Data table names }
   nme_RecibosCliente = 'RecibosCliente';
   nme_RecibosCliente_Refresh = 'RecibosCliente_Refresh';
   nme_PagosCliente = 'PagosCliente';
-  nme_RecibosCompensados = 'RecibosCompensados';
+  nme_RecibosCompensadosCli = 'RecibosCompensadosCli';
 
   { RecibosCliente fields }
   fld_RecibosClienteID = 'ID';
@@ -172,46 +172,46 @@ const
   idx_PagosClienteFECHA_MODIFICACION = 10;
   idx_PagosClienteUSUARIO = 11;
 
-  { RecibosCompensados fields }
+  { RecibosCompensadosCli fields }
-  fld_RecibosCompensadosID = 'ID';
+  fld_RecibosCompensadosCliID = 'ID';
-  fld_RecibosCompensadosID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO';
+  fld_RecibosCompensadosCliID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO';
-  fld_RecibosCompensadosREFERENCIA = 'REFERENCIA';
+  fld_RecibosCompensadosCliREFERENCIA = 'REFERENCIA';
-  fld_RecibosCompensadosSITUACION = 'SITUACION';
+  fld_RecibosCompensadosCliSITUACION = 'SITUACION';
-  fld_RecibosCompensadosID_FACTURA = 'ID_FACTURA';
+  fld_RecibosCompensadosCliID_FACTURA = 'ID_FACTURA';
-  fld_RecibosCompensadosFECHA_EMISION = 'FECHA_EMISION';
+  fld_RecibosCompensadosCliFECHA_EMISION = 'FECHA_EMISION';
-  fld_RecibosCompensadosFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
+  fld_RecibosCompensadosCliFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
-  fld_RecibosCompensadosIMPORTE = 'IMPORTE';
+  fld_RecibosCompensadosCliIMPORTE = 'IMPORTE';
-  fld_RecibosCompensadosOTROS_GASTOS = 'OTROS_GASTOS';
+  fld_RecibosCompensadosCliOTROS_GASTOS = 'OTROS_GASTOS';
-  fld_RecibosCompensadosIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+  fld_RecibosCompensadosCliIMPORTE_TOTAL = 'IMPORTE_TOTAL';
-  fld_RecibosCompensadosFECHA_FACTURA = 'FECHA_FACTURA';
+  fld_RecibosCompensadosCliFECHA_FACTURA = 'FECHA_FACTURA';
-  fld_RecibosCompensadosIMPORTE_FACTURA = 'IMPORTE_FACTURA';
+  fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA';
-  fld_RecibosCompensadosID_CLIENTE = 'ID_CLIENTE';
+  fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE';
-  fld_RecibosCompensadosNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
+  fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
-  fld_RecibosCompensadosNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
+  fld_RecibosCompensadosCliNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
-  fld_RecibosCompensadosID_EMPRESA = 'ID_EMPRESA';
+  fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA';
 
-  { RecibosCompensados field indexes }
+  { RecibosCompensadosCli field indexes }
-  idx_RecibosCompensadosID = 0;
+  idx_RecibosCompensadosCliID = 0;
-  idx_RecibosCompensadosID_RECIBO_COMPENSADO = 1;
+  idx_RecibosCompensadosCliID_RECIBO_COMPENSADO = 1;
-  idx_RecibosCompensadosREFERENCIA = 2;
+  idx_RecibosCompensadosCliREFERENCIA = 2;
-  idx_RecibosCompensadosSITUACION = 3;
+  idx_RecibosCompensadosCliSITUACION = 3;
-  idx_RecibosCompensadosID_FACTURA = 4;
+  idx_RecibosCompensadosCliID_FACTURA = 4;
-  idx_RecibosCompensadosFECHA_EMISION = 5;
+  idx_RecibosCompensadosCliFECHA_EMISION = 5;
-  idx_RecibosCompensadosFECHA_VENCIMIENTO = 6;
+  idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 6;
-  idx_RecibosCompensadosIMPORTE = 7;
+  idx_RecibosCompensadosCliIMPORTE = 7;
-  idx_RecibosCompensadosOTROS_GASTOS = 8;
+  idx_RecibosCompensadosCliOTROS_GASTOS = 8;
-  idx_RecibosCompensadosIMPORTE_TOTAL = 9;
+  idx_RecibosCompensadosCliIMPORTE_TOTAL = 9;
-  idx_RecibosCompensadosFECHA_FACTURA = 10;
+  idx_RecibosCompensadosCliFECHA_FACTURA = 10;
-  idx_RecibosCompensadosIMPORTE_FACTURA = 11;
+  idx_RecibosCompensadosCliIMPORTE_FACTURA = 11;
-  idx_RecibosCompensadosID_CLIENTE = 12;
+  idx_RecibosCompensadosCliID_CLIENTE = 12;
-  idx_RecibosCompensadosNOMBRE_CLIENTE = 13;
+  idx_RecibosCompensadosCliNOMBRE_CLIENTE = 13;
-  idx_RecibosCompensadosNIF_CIF_CLIENTE = 14;
+  idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 14;
-  idx_RecibosCompensadosID_EMPRESA = 15;
+  idx_RecibosCompensadosCliID_EMPRESA = 15;
 
 type
   { IRecibosCliente }
   IRecibosCliente = interface(IDAStronglyTypedDataTable)
-  ['{83CC449F-496C-4FBB-9BB6-9C10149C97AB}']
+  ['{C690E544-36BE-450C-8CA2-C453C7D6A23D}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -408,7 +408,7 @@ type
 
   { IRecibosCliente_Refresh }
   IRecibosCliente_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{9A071F92-FF7C-49CC-8137-1B2B247A73E3}']
+  ['{989F96EE-C6AE-403E-9A56-B01C4716E6B6}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -605,7 +605,7 @@ type
 
   { IPagosCliente }
   IPagosCliente = interface(IDAStronglyTypedDataTable)
-  ['{E9F875A0-3C24-4E16-92DB-66F7A125F1AD}']
+  ['{50466FF1-7C4F-4294-98B1-39DC7589D8A8}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -698,9 +698,9 @@ type
 
   end;
 
-  { IRecibosCompensados }
+  { IRecibosCompensadosCli }
-  IRecibosCompensados = interface(IDAStronglyTypedDataTable)
+  IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
-  ['{5EDE9B26-684C-49A4-8403-36159CB4587C}']
+  ['{D2E38DD6-E307-40E0-8B4A-C72B9F8D86D0}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -755,8 +755,8 @@ type
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
   end;
 
-  { TRecibosCompensadosDataTableRules }
+  { TRecibosCompensadosCliDataTableRules }
-  TRecibosCompensadosDataTableRules = class(TDADataTableRules, IRecibosCompensados)
+  TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
   private
   protected
     { Property getters and setters }
@@ -1557,175 +1557,175 @@ begin
 end;
 
 
-{ TRecibosCompensadosDataTableRules }
+{ TRecibosCompensadosCliDataTableRules }
-constructor TRecibosCompensadosDataTableRules.Create(aDataTable: TDADataTable);
+constructor TRecibosCompensadosCliDataTableRules.Create(aDataTable: TDADataTable);
 begin
   inherited;
 end;
 
-destructor TRecibosCompensadosDataTableRules.Destroy;
+destructor TRecibosCompensadosCliDataTableRules.Destroy;
 begin
   inherited;
 end;
 
-function TRecibosCompensadosDataTableRules.GetIDValue: Integer;
+function TRecibosCompensadosCliDataTableRules.GetIDValue: Integer;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosID].AsInteger;
+  result := DataTable.Fields[idx_RecibosCompensadosCliID].AsInteger;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetIDValue(const aValue: Integer);
+procedure TRecibosCompensadosCliDataTableRules.SetIDValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_RecibosCompensadosID].AsInteger := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliID].AsInteger := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer;
+function TRecibosCompensadosCliDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosID_RECIBO_COMPENSADO].AsInteger;
+  result := DataTable.Fields[idx_RecibosCompensadosCliID_RECIBO_COMPENSADO].AsInteger;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+procedure TRecibosCompensadosCliDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_RecibosCompensadosID_RECIBO_COMPENSADO].AsInteger := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliID_RECIBO_COMPENSADO].AsInteger := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetREFERENCIAValue: String;
+function TRecibosCompensadosCliDataTableRules.GetREFERENCIAValue: String;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosREFERENCIA].AsString;
+  result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA].AsString;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetREFERENCIAValue(const aValue: String);
+procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIAValue(const aValue: String);
 begin
-  DataTable.Fields[idx_RecibosCompensadosREFERENCIA].AsString := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA].AsString := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetSITUACIONValue: String;
+function TRecibosCompensadosCliDataTableRules.GetSITUACIONValue: String;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosSITUACION].AsString;
+  result := DataTable.Fields[idx_RecibosCompensadosCliSITUACION].AsString;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetSITUACIONValue(const aValue: String);
+procedure TRecibosCompensadosCliDataTableRules.SetSITUACIONValue(const aValue: String);
 begin
-  DataTable.Fields[idx_RecibosCompensadosSITUACION].AsString := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliSITUACION].AsString := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetID_FACTURAValue: Integer;
+function TRecibosCompensadosCliDataTableRules.GetID_FACTURAValue: Integer;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosID_FACTURA].AsInteger;
+  result := DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsInteger;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetID_FACTURAValue(const aValue: Integer);
+procedure TRecibosCompensadosCliDataTableRules.SetID_FACTURAValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_RecibosCompensadosID_FACTURA].AsInteger := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsInteger := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetFECHA_EMISIONValue: DateTime;
+function TRecibosCompensadosCliDataTableRules.GetFECHA_EMISIONValue: DateTime;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosFECHA_EMISION].AsDateTime;
+  result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_EMISION].AsDateTime;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime);
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime);
 begin
-  DataTable.Fields[idx_RecibosCompensadosFECHA_EMISION].AsDateTime := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliFECHA_EMISION].AsDateTime := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
+function TRecibosCompensadosCliDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosFECHA_VENCIMIENTO].AsDateTime;
+  result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_VENCIMIENTO].AsDateTime;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
 begin
-  DataTable.Fields[idx_RecibosCompensadosFECHA_VENCIMIENTO].AsDateTime := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliFECHA_VENCIMIENTO].AsDateTime := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetIMPORTEValue: Currency;
+function TRecibosCompensadosCliDataTableRules.GetIMPORTEValue: Currency;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosIMPORTE].AsCurrency;
+  result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE].AsCurrency;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetIMPORTEValue(const aValue: Currency);
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTEValue(const aValue: Currency);
 begin
-  DataTable.Fields[idx_RecibosCompensadosIMPORTE].AsCurrency := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliIMPORTE].AsCurrency := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetOTROS_GASTOSValue: Currency;
+function TRecibosCompensadosCliDataTableRules.GetOTROS_GASTOSValue: Currency;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosOTROS_GASTOS].AsCurrency;
+  result := DataTable.Fields[idx_RecibosCompensadosCliOTROS_GASTOS].AsCurrency;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetOTROS_GASTOSValue(const aValue: Currency);
+procedure TRecibosCompensadosCliDataTableRules.SetOTROS_GASTOSValue(const aValue: Currency);
 begin
-  DataTable.Fields[idx_RecibosCompensadosOTROS_GASTOS].AsCurrency := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliOTROS_GASTOS].AsCurrency := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetIMPORTE_TOTALValue: Currency;
+function TRecibosCompensadosCliDataTableRules.GetIMPORTE_TOTALValue: Currency;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosIMPORTE_TOTAL].AsCurrency;
+  result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_TOTAL].AsCurrency;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
 begin
-  DataTable.Fields[idx_RecibosCompensadosIMPORTE_TOTAL].AsCurrency := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_TOTAL].AsCurrency := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetFECHA_FACTURAValue: DateTime;
+function TRecibosCompensadosCliDataTableRules.GetFECHA_FACTURAValue: DateTime;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosFECHA_FACTURA].AsDateTime;
+  result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsDateTime;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
 begin
-  DataTable.Fields[idx_RecibosCompensadosFECHA_FACTURA].AsDateTime := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsDateTime := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetIMPORTE_FACTURAValue: Currency;
+function TRecibosCompensadosCliDataTableRules.GetIMPORTE_FACTURAValue: Currency;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosIMPORTE_FACTURA].AsCurrency;
+  result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
+procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
 begin
-  DataTable.Fields[idx_RecibosCompensadosIMPORTE_FACTURA].AsCurrency := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetID_CLIENTEValue: Integer;
+function TRecibosCompensadosCliDataTableRules.GetID_CLIENTEValue: Integer;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosID_CLIENTE].AsInteger;
+  result := DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsInteger;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
+procedure TRecibosCompensadosCliDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_RecibosCompensadosID_CLIENTE].AsInteger := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsInteger := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetNOMBRE_CLIENTEValue: String;
+function TRecibosCompensadosCliDataTableRules.GetNOMBRE_CLIENTEValue: String;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosNOMBRE_CLIENTE].AsString;
+  result := DataTable.Fields[idx_RecibosCompensadosCliNOMBRE_CLIENTE].AsString;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String);
+procedure TRecibosCompensadosCliDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String);
 begin
-  DataTable.Fields[idx_RecibosCompensadosNOMBRE_CLIENTE].AsString := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliNOMBRE_CLIENTE].AsString := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetNIF_CIF_CLIENTEValue: String;
+function TRecibosCompensadosCliDataTableRules.GetNIF_CIF_CLIENTEValue: String;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosNIF_CIF_CLIENTE].AsString;
+  result := DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsString;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
+procedure TRecibosCompensadosCliDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
 begin
-  DataTable.Fields[idx_RecibosCompensadosNIF_CIF_CLIENTE].AsString := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsString := aValue;
 end;
 
-function TRecibosCompensadosDataTableRules.GetID_EMPRESAValue: Integer;
+function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAValue: Integer;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosID_EMPRESA].AsInteger;
+  result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger;
 end;
 
-procedure TRecibosCompensadosDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_RecibosCompensadosID_EMPRESA].AsInteger := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger := aValue;
 end;
 
 
@@ -1733,6 +1733,6 @@ initialization
   RegisterDataTableRules(RID_RecibosCliente, TRecibosClienteDataTableRules);
   RegisterDataTableRules(RID_RecibosCliente_Refresh, TRecibosCliente_RefreshDataTableRules);
   RegisterDataTableRules(RID_PagosCliente, TPagosClienteDataTableRules);
-  RegisterDataTableRules(RID_RecibosCompensados, TRecibosCompensadosDataTableRules);
+  RegisterDataTableRules(RID_RecibosCompensadosCli, TRecibosCompensadosCliDataTableRules);
 
 end.

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_RecibosClienteDelta = '{7A5E3980-065D-4A44-81E9-FEAF2A9517B0}';
+  RID_RecibosClienteDelta = '{09AF765A-9893-4609-B0F9-5AA658615091}';
-  RID_RecibosCliente_RefreshDelta = '{230B49D3-C4EF-4C00-8E40-01BD41E95CE4}';
+  RID_RecibosCliente_RefreshDelta = '{20A20E0C-0EA9-4A41-B4D1-E0186CA8FC52}';
-  RID_PagosClienteDelta = '{B4C052F8-CA65-4803-877C-195E8157E026}';
+  RID_PagosClienteDelta = '{7ACA6F74-1324-4784-A37A-599EF8940690}';
-  RID_RecibosCompensadosDelta = '{60128DBB-E8CE-4940-994C-31429569D3E3}';
+  RID_RecibosCompensadosCliDelta = '{BA198B66-278F-4056-B312-5D0476D48275}';
 
 type
   { IRecibosClienteDelta }
   IRecibosClienteDelta = interface(IRecibosCliente)
-  ['{7A5E3980-065D-4A44-81E9-FEAF2A9517B0}']
+  ['{09AF765A-9893-4609-B0F9-5AA658615091}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -242,7 +242,7 @@ type
 
   { IRecibosCliente_RefreshDelta }
   IRecibosCliente_RefreshDelta = interface(IRecibosCliente_Refresh)
-  ['{230B49D3-C4EF-4C00-8E40-01BD41E95CE4}']
+  ['{20A20E0C-0EA9-4A41-B4D1-E0186CA8FC52}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -467,7 +467,7 @@ type
 
   { IPagosClienteDelta }
   IPagosClienteDelta = interface(IPagosCliente)
-  ['{B4C052F8-CA65-4803-877C-195E8157E026}']
+  ['{7ACA6F74-1324-4784-A37A-599EF8940690}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -571,9 +571,9 @@ type
 
   end;
 
-  { IRecibosCompensadosDelta }
+  { IRecibosCompensadosCliDelta }
-  IRecibosCompensadosDelta = interface(IRecibosCompensados)
+  IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
-  ['{60128DBB-E8CE-4940-994C-31429569D3E3}']
+  ['{BA198B66-278F-4056-B312-5D0476D48275}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -611,8 +611,8 @@ type
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
   end;
 
-  { TRecibosCompensadosBusinessProcessorRules }
+  { TRecibosCompensadosCliBusinessProcessorRules }
-  TRecibosCompensadosBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensados, IRecibosCompensadosDelta)
+  TRecibosCompensadosCliBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensadosCli, IRecibosCompensadosCliDelta)
   private
   protected
     { Property getters and setters }
@@ -1796,255 +1796,255 @@ begin
 end;
 
 
-{ TRecibosCompensadosBusinessProcessorRules }
+{ TRecibosCompensadosCliBusinessProcessorRules }
-constructor TRecibosCompensadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+constructor TRecibosCompensadosCliBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
 begin
   inherited;
 end;
 
-destructor TRecibosCompensadosBusinessProcessorRules.Destroy;
+destructor TRecibosCompensadosCliBusinessProcessorRules.Destroy;
 begin
   inherited;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetIDValue: Integer;
+function TRecibosCompensadosCliBusinessProcessorRules.GetIDValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldIDValue: Integer;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIDValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetIDValue(const aValue: Integer);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIDValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_RECIBO_COMPENSADO];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID_RECIBO_COMPENSADO];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_RECIBO_COMPENSADO] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetREFERENCIAValue: String;
+function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIAValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosREFERENCIA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldREFERENCIAValue: String;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIAValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosREFERENCIA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosREFERENCIA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetSITUACIONValue: String;
+function TRecibosCompensadosCliBusinessProcessorRules.GetSITUACIONValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosSITUACION];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldSITUACIONValue: String;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldSITUACIONValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosSITUACION];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSITUACION];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosSITUACION] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetID_FACTURAValue: Integer;
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_FACTURAValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_FACTURA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID_FACTURA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_FACTURA];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_FACTURA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_EMISION];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosFECHA_EMISION];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_EMISION];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_EMISION] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_VENCIMIENTO];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosFECHA_VENCIMIENTO];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_VENCIMIENTO] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetIMPORTEValue: Currency;
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTEValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldIMPORTEValue: Currency;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTEValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosIMPORTE];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosOTROS_GASTOS];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosOTROS_GASTOS];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOTROS_GASTOS];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosOTROS_GASTOS] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE_TOTAL];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosIMPORTE_TOTAL];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE_TOTAL] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_FACTURA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosFECHA_FACTURA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_FACTURA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
+function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE_FACTURA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosIMPORTE_FACTURA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE_FACTURA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetID_CLIENTEValue: Integer;
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_CLIENTE];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID_CLIENTE];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CLIENTE];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_CLIENTE] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
+function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosNOMBRE_CLIENTE];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosNOMBRE_CLIENTE];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosNOMBRE_CLIENTE] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
+function TRecibosCompensadosCliBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosNIF_CIF_CLIENTE];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosNIF_CIF_CLIENTE];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosNIF_CIF_CLIENTE] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := aValue;
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_EMPRESA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA];
 end;
 
-function TRecibosCompensadosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID_EMPRESA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA];
 end;
 
-procedure TRecibosCompensadosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_EMPRESA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := aValue;
 end;
 
 
@@ -2052,6 +2052,6 @@ initialization
   RegisterBusinessProcessorRules(RID_RecibosClienteDelta, TRecibosClienteBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_RecibosCliente_RefreshDelta, TRecibosCliente_RefreshBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_PagosClienteDelta, TPagosClienteBusinessProcessorRules);
-  RegisterBusinessProcessorRules(RID_RecibosCompensadosDelta, TRecibosCompensadosBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_RecibosCompensadosCliDelta, TRecibosCompensadosCliBusinessProcessorRules);
 
 end.

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

@@ -31,14 +31,14 @@ uses
 
 const
   BIZ_CLIENT_IBIZRECIBOSCLIENTE = 'Client.IBizRecibosCliente';
-  BIZ_CLIENT_RECIBOS_COMPENSADOS = 'Client.RecibosCompensados';
+  BIZ_CLIENT_RECIBOS_COMPENSADOSCLI = 'Client.RecibosCompensadosCli';
 
   CTE_PENDIENTE = 'PENDIENTE';
   CTE_COBRADO = 'COBRADO';
   CTE_DEVUELTO = 'DEVUELTO';
 
 type
-  IBizRecibosCompensados = interface(IRecibosCompensados)
+  IBizRecibosCompensadosCli = interface(IRecibosCompensadosCli)
   ['{F9C18EAC-6769-428C-ABFB-AD6639F413D9}']
   end;
 
@@ -60,19 +60,19 @@ type
     function GetPagos : IBizPagosCliente;
     property Pagos : IBizPagosCliente read GetPagos write SetPagos;
 
-    function GetRecibosCompensados: IBizRecibosCompensados;
+    function GetRecibosCompensados: IBizRecibosCompensadosCli;
-    procedure SetRecibosCompensados(const Value: IBizRecibosCompensados);
+    procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosCli);
-    property RecibosCompensados: IBizRecibosCompensados read GetRecibosCompensados write SetRecibosCompensados;
+    property RecibosCompensados: IBizRecibosCompensadosCli read GetRecibosCompensados write SetRecibosCompensados;
   end;
 
-  TBizRecibosCompensados = class(TRecibosCompensadosDataTableRules, IBizRecibosCompensados)
+  TBizRecibosCompensadosCli = class(TRecibosCompensadosCliDataTableRules, IBizRecibosCompensadosCli)
   end;
 
   TBizRecibosCliente = class(TRecibosClienteDataTableRules, IBizRecibosCliente, ISeleccionable)
   protected
     FPagos : IBizPagosCliente;
     FPagosLink : TDADataSource;
-    FRecibosCompensados: IBizRecibosCompensados;
+    FRecibosCompensados: IBizRecibosCompensadosCli;
     FRecibosCompensadosLink : TDADataSource;
     FCliente : IBizCliente;
     FSeleccionableInterface : ISeleccionable;
@@ -90,14 +90,14 @@ type
     procedure SetPagos(AValue : IBizPagosCliente);
     function GetPagos : IBizPagosCliente;
 
-    function GetRecibosCompensados: IBizRecibosCompensados;
+    function GetRecibosCompensados: IBizRecibosCompensadosCli;
-    procedure SetRecibosCompensados(const Value: IBizRecibosCompensados);
+    procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosCli);
 
     procedure OnNewRecord(Sender: TDADataTable); override;
     procedure SetID_REMESAValue(const aValue: Integer); override;
 
   public
-    property RecibosCompensados: IBizRecibosCompensados read GetRecibosCompensados write SetRecibosCompensados;
+    property RecibosCompensados: IBizRecibosCompensadosCli read GetRecibosCompensados write SetRecibosCompensados;
     property Pagos : IBizPagosCliente read GetPagos write SetPagos;
     property SeleccionableInterface : ISeleccionable	read FSeleccionableInterface
     					write FSeleccionableInterface
@@ -127,7 +127,7 @@ begin
    Result := FPagos;
 end;
 
-function TBizRecibosCliente.GetRecibosCompensados: IBizRecibosCompensados;
+function TBizRecibosCliente.GetRecibosCompensados: IBizRecibosCompensadosCli;
 begin
   Result := FRecibosCompensados;
 end;
@@ -146,7 +146,7 @@ procedure TBizRecibosCliente.SetPagos(AValue: IBizPagosCliente);
    EnlazarMaestroDetalle(FPagosLink, FPagos);
  end;
 
-procedure TBizRecibosCliente.SetRecibosCompensados(const Value: IBizRecibosCompensados);
+procedure TBizRecibosCliente.SetRecibosCompensados(const Value: IBizRecibosCompensadosCli);
 begin
   FRecibosCompensados := Value;
   EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados);
@@ -212,7 +212,7 @@ end;
 
 initialization
   RegisterDataTableRules(BIZ_CLIENT_IBIZRECIBOSCLIENTE, TBizRecibosCliente);
-  RegisterDataTableRules(BIZ_CLIENT_RECIBOS_COMPENSADOS, TBizRecibosCompensados);
+  RegisterDataTableRules(BIZ_CLIENT_RECIBOS_COMPENSADOSCLI, TBizRecibosCompensadosCli);
 
 finalization
 

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

@@ -1208,7 +1208,7 @@ object srvRecibosCliente: TsrvRecibosCliente
                 TableField = 'ID'
               end>
           end>
-        Name = 'RecibosCompensados'
+        Name = 'RecibosCompensadosCli'
         Fields = <
           item
             Name = 'ID'
@@ -1804,7 +1804,7 @@ object srvRecibosCliente: TsrvRecibosCliente
             StatementType = stSQL
             ColumnMappings = <>
           end>
-        Name = 'Insert_RecibosCompensados'
+        Name = 'Insert_RecibosCompensadosCli'
       end
       item
         Params = <
@@ -1825,7 +1825,7 @@ object srvRecibosCliente: TsrvRecibosCliente
             StatementType = stSQL
             ColumnMappings = <>
           end>
-        Name = 'Delete_RecibosCompensados'
+        Name = 'Delete_RecibosCompensadosCli'
       end
       item
         Params = <
@@ -1853,7 +1853,7 @@ object srvRecibosCliente: TsrvRecibosCliente
             StatementType = stSQL
             ColumnMappings = <>
           end>
-        Name = 'Update_RecibosCompensados'
+        Name = 'Update_RecibosCompensadosCli'
       end>
     RelationShips = <>
     UpdateRules = <
@@ -2477,10 +2477,10 @@ object srvRecibosCliente: TsrvRecibosCliente
   end
   object bpRecibosCompensados: TDABusinessProcessor
     Schema = schRecibosCliente
-    InsertCommandName = 'Insert_RecibosCompensados'
+    InsertCommandName = 'Insert_RecibosCompensadosCli'
-    DeleteCommandName = 'Delete_RecibosCompensados'
+    DeleteCommandName = 'Delete_RecibosCompensadosCli'
-    UpdateCommandName = 'Update_RecibosCompensados'
+    UpdateCommandName = 'Update_RecibosCompensadosCli'
-    ReferencedDataset = 'RecibosCompensados'
+    ReferencedDataset = 'RecibosCompensadosCli'
     ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 192

Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk

@@ -96,7 +96,7 @@ contains
   uEditorElegirRecibosCliente in 'uEditorElegirRecibosCliente.pas' {fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente},
   uEditorFechaPago in 'uEditorFechaPago.pas' {fEditorFechaPago},
   uEditorReciboClienteReport in 'uEditorReciboClienteReport.pas' {fEditorReciboClienteReport: TfEditorReciboClienteReport},
-  uViewRecibosCompensados in 'uViewRecibosCompensados.pas' {frViewRecibosCompensados: TFrame},
+  uViewRecibosCliCompensados in 'uViewRecibosCliCompensados.pas' {frViewRecibosCliCompensados: TFrame},
-  uViewReciboImportes in 'uViewReciboImportes.pas' {frViewReciboImportes: TFrame};
+  uViewReciboCliImportes in 'uViewReciboCliImportes.pas' {frViewReciboCliImportes: TFrame};
 
 end.

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

@@ -3,7 +3,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
   ClientHeight = 530
   ClientWidth = 691
   OnClose = CustomEditorClose
-  ExplicitLeft = -64
+  ExplicitTop = -89
   ExplicitWidth = 699
   ExplicitHeight = 564
   PixelsPerInch = 96
@@ -238,7 +238,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
     object pagCompensados: TTabSheet
       Caption = 'Recibos compensados'
       ImageIndex = 1
-      inline frViewRecibosCompensados1: TfrViewRecibosCompensados
+      inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
         Left = 0
         Top = 0
         Width = 683
@@ -264,7 +264,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
               item
                 Format = ',0.00 '#8364';-,0.00 '#8364
                 Kind = skSum
-                Column = frViewRecibosCompensados1.cxGridViewIMPORTE_TOTAL
+                Column = frViewRecibosCliCompensados1.cxGridViewIMPORTE_TOTAL
               end>
             DataController.Summary.OnAfterSummary = frViewRecibosCompensados1cxGridViewDataControllerSummaryAfterSummary
           end
@@ -272,6 +272,24 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         inherited ToolBar1: TToolBar
           Width = 683
           ExplicitWidth = 683
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton3: TToolButton
+            ExplicitWidth = 98
+          end
+          inherited ToolButton8: TToolButton
+            ExplicitWidth = 99
+          end
         end
       end
     end
@@ -286,7 +304,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
     ExplicitTop = 511
     ExplicitWidth = 691
   end
-  inline frViewReciboImportes1: TfrViewReciboImportes [4]
+  inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
     Left = 0
     Top = 411
     Width = 691
@@ -306,15 +324,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
       Width = 691
       ExplicitWidth = 691
       inherited eImporte: TcxDBCurrencyEdit
-        DataBinding.DataSource = dsDataTable
+        Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
-        Properties.OnEditValueChanged = frViewReciboImportes1eImportePropertiesEditValueChanged
         ExplicitWidth = 150
         Width = 150
       end
-      inherited eOtrosGastos: TcxDBCurrencyEdit
-        DataBinding.DataSource = dsDataTable
-        Properties.OnEditValueChanged = frViewReciboImportes1eImportePropertiesEditValueChanged
-      end
       inherited eImporteTotalRecibo: TcxCurrencyEdit
         ExplicitWidth = 183
         Width = 183

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

@@ -10,7 +10,7 @@ uses
   pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboCliente,
   uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController,
   uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData,
-  uViewDetallesGenerico, uViewRecibosCompensados, uViewReciboImportes;
+  uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados;
 
 type
   TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente)
@@ -19,8 +19,8 @@ type
     pagCompensados: TTabSheet;
     pagPagos: TTabSheet;
     frViewPagosCliente1: TfrViewPagosCliente;
-    frViewReciboImportes1: TfrViewReciboImportes;
+    frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados;
-    frViewRecibosCompensados1: TfrViewRecibosCompensados;
+    frViewReciboCliImportes1: TfrViewReciboCliImportes;
     procedure FormShow(Sender: TObject);
     procedure dsDataTableDataChange(Sender: TObject; Field: TField);
     procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@@ -37,7 +37,7 @@ type
     procedure DeshabilitarRecibo;
     procedure JvFormStorageRestorePlacement(Sender: TObject);
     procedure JvFormStorageSavePlacement(Sender: TObject);
-    procedure frViewReciboImportes1eImportePropertiesEditValueChanged(Sender: TObject);
+    procedure frViewReciboCliImportes1eImportePropertiesEditValueChanged(Sender: TObject);
     procedure frViewRecibosCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
     procedure frViewPagosCliente1actAnadirUpdate(Sender: TObject);
 
@@ -80,10 +80,10 @@ var
 begin
 
   ImporteAux := 0;
-  if not VarIsNull(frViewRecibosCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]) then
+  if not VarIsNull(frViewRecibosCliCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]) then
-     ImporteAux := frViewRecibosCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0];
+     ImporteAux := frViewRecibosCliCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0];
 
-  frViewReciboImportes1.eImporteTotalRecibo.Value := frViewReciboImportes1.eImporte.Value + frViewReciboImportes1.eOtrosGastos.Value + ImporteAux;
+  frViewReciboCliImportes1.eImporteTotalRecibo.Value := frViewReciboCliImportes1.eImporte.Value + frViewReciboCliImportes1.eOtrosGastos.Value + ImporteAux;
 end;
 
 constructor TfEditorReciboCliente.Create(AOwner: TComponent);
@@ -106,8 +106,8 @@ end;
 procedure TfEditorReciboCliente.DeshabilitarRecibo;
 begin
   frViewReciboCliente1.edtFechaVencimiento.Enabled := False;
-  frViewReciboImportes1.eImporte.Enabled := False;
+  frViewReciboCliImportes1.eImporte.Enabled := False;
-  frViewReciboImportes1.eOtrosGastos.Enabled := False;  
+  frViewReciboCliImportes1.eOtrosGastos.Enabled := False;  
 end;
 
 procedure TfEditorReciboCliente.dsDataTableDataChange(Sender: TObject; Field: TField);
@@ -207,15 +207,15 @@ procedure TfEditorReciboCliente.frViewReciboCliente1eImportePropertiesValidate(
 begin
   inherited;
 
-  if (DisplayValue > frViewReciboImportes1.eImporte.DataBinding.Field.Value) then
+  if (DisplayValue > frViewReciboCliImportes1.eImporte.DataBinding.Field.Value) then
   begin
-     DisplayValue := frViewReciboImportes1.eImporte.DataBinding.Field.Value;
+     DisplayValue := frViewReciboCliImportes1.eImporte.DataBinding.Field.Value;
      ErrorText := 'El importe debe ser menor o igual que el actual';
      Error := True;
   end;
 end;
 
-procedure TfEditorReciboCliente.frViewReciboImportes1eImportePropertiesEditValueChanged(
+procedure TfEditorReciboCliente.frViewReciboCliImportes1eImportePropertiesEditValueChanged(
   Sender: TObject);
 begin
   inherited;
@@ -256,8 +256,8 @@ begin
   if (Length(FRecibo.REFERENCIA_REMESA) = 0) then
   begin
     frViewReciboCliente1.edtFechaVencimiento.Enabled := True;
-    frViewReciboImportes1.eImporte.Enabled := True;
+    frViewReciboCliImportes1.eImporte.Enabled := True;
-    frViewReciboImportes1.eOtrosGastos.Enabled := True;
+    frViewReciboCliImportes1.eOtrosGastos.Enabled := True;
   end;
 end;
 
@@ -310,7 +310,7 @@ procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteContro
 begin
   FController := Value;
   if Assigned(FController) then
-     frViewRecibosCompensados1.Controller := FController;
+     frViewRecibosCliCompensados1.Controller := FController;
 //    (ViewRecibo as IViewReciboCliente).Controller := (FController as IRecibosClienteController);
 end;
 
@@ -323,7 +323,7 @@ begin
   begin
     FViewRecibo.Recibo := Recibo;
     frViewPagosCliente1.Pagos := Recibo.Pagos;
-    frViewRecibosCompensados1.ReciboCliente := FRecibo;
+    frViewRecibosCliCompensados1.ReciboCliente := FRecibo;
 
     if (FRecibo.SITUACION = CTE_COBRADO) then
       DeshabilitarRecibo

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

@@ -189,7 +189,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
       object dxLayoutControl2Group1: TdxLayoutGroup
         AutoAligns = [aaHorizontal]
         AlignVert = avClient
-        Caption = 'Lista de pagos'
+        Caption = 'Pagos y devoluciones del recibo'
         object dxLayoutControl2Item1: TdxLayoutItem
           Caption = 'New Item'
           ShowCaption = False

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

@@ -1,5 +1,5 @@
-inherited frViewReciboImportes: TfrViewReciboImportes
+inherited frViewReciboCliImportes: TfrViewReciboCliImportes
-  Width = 558
+  Width = 451
   Height = 100
   Align = alBottom
   ExplicitWidth = 451
@@ -8,7 +8,7 @@ inherited frViewReciboImportes: TfrViewReciboImportes
     AlignWithMargins = True
     Left = 0
     Top = 0
-    Width = 558
+    Width = 451
     Height = 217
     Margins.Left = 0
     Margins.Top = 0
@@ -18,7 +18,6 @@ inherited frViewReciboImportes: TfrViewReciboImportes
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
-    ExplicitWidth = 451
     object eImporte: TcxDBCurrencyEdit
       Left = 93
       Top = 28

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

@@ -1,4 +1,4 @@
-unit uViewReciboImportes;
+unit uViewReciboCliImportes;
 
 interface
 
@@ -11,7 +11,7 @@ uses
   cxDBLookupComboBox, cxCheckBox;
 
 type
-  TfrViewReciboImportes = class(TfrViewBase)
+  TfrViewReciboCliImportes = class(TfrViewBase)
     dxLayoutControl1Group_Root: TdxLayoutGroup;
     dxLayoutControl1: TdxLayoutControl;
     dxLayoutControl1Group1: TdxLayoutGroup;

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

@@ -1,4 +1,4 @@
-inherited frViewRecibosCompensados: TfrViewRecibosCompensados
+inherited frViewRecibosCliCompensados: TfrViewRecibosCliCompensados
   Width = 549
   Height = 376
   OnShow = CustomViewShow

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

@@ -1,4 +1,4 @@
-unit uViewRecibosCompensados;
+unit uViewRecibosCliCompensados;
 
 interface
 
@@ -24,7 +24,7 @@ type
     property Controller : IRecibosClienteController read GetController write SetController;
   end;
 
-  TfrViewRecibosCompensados = class(TfrViewDetallesGenerico, IViewRecibosCompensados)
+  TfrViewRecibosCliCompensados = class(TfrViewDetallesGenerico, IViewRecibosCompensados)
     actExpandir: TAction;
     actContraer: TAction;
     ToolButton3: TToolButton;
@@ -80,25 +80,25 @@ uses
 
 { TfrViewFacturasReciboCliente }
 
-procedure TfrViewRecibosCompensados.actAnadirUpdate(Sender: TObject);
+procedure TfrViewRecibosCliCompensados.actAnadirUpdate(Sender: TObject);
 begin
   inherited;
   (Sender as TAction).Enabled := (ReciboCliente.SITUACION <> CTE_COBRADO);
 end;
 
-procedure TfrViewRecibosCompensados.actContraerExecute(Sender: TObject);
+procedure TfrViewRecibosCliCompensados.actContraerExecute(Sender: TObject);
 begin
   inherited;
   cxGridView.ViewData.Collapse(True);
 end;
 
-procedure TfrViewRecibosCompensados.actContraerUpdate(Sender: TObject);
+procedure TfrViewRecibosCliCompensados.actContraerUpdate(Sender: TObject);
 begin
   inherited;
   (Sender as TAction).Enabled := HayDatos;
 end;
 
-procedure TfrViewRecibosCompensados.actEliminarUpdate(Sender: TObject);
+procedure TfrViewRecibosCliCompensados.actEliminarUpdate(Sender: TObject);
 begin
   inherited;
   (Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0)
@@ -106,43 +106,43 @@ begin
                               and (ReciboCliente.SITUACION <> CTE_COBRADO));
 end;
 
-procedure TfrViewRecibosCompensados.actExpandirExecute(Sender: TObject);
+procedure TfrViewRecibosCliCompensados.actExpandirExecute(Sender: TObject);
 begin
   inherited;
   cxGridView.ViewData.Expand(True);
 end;
 
-procedure TfrViewRecibosCompensados.actExpandirUpdate(Sender: TObject);
+procedure TfrViewRecibosCliCompensados.actExpandirUpdate(Sender: TObject);
 begin
   inherited;
   (Sender as TAction).Enabled := HayDatos;
 end;
 
-procedure TfrViewRecibosCompensados.AnadirInterno;
+procedure TfrViewRecibosCliCompensados.AnadirInterno;
 begin
   //inherited;  // No hacer el comportamiento normal
   if FController.ElegirRecibosCompensados(ReciboCliente) then
      Modified := True;
 end;
 
-constructor TfrViewRecibosCompensados.Create(AOwner: TComponent);
+constructor TfrViewRecibosCliCompensados.Create(AOwner: TComponent);
 begin
   inherited;
   FHayCambios := False;
 end;
 
-procedure TfrViewRecibosCompensados.CustomViewShow(Sender: TObject);
+procedure TfrViewRecibosCliCompensados.CustomViewShow(Sender: TObject);
 begin
   inherited;
   cxGridView.OptionsSelection.MultiSelect := False;
 end;
 
-destructor TfrViewRecibosCompensados.Destroy;
+destructor TfrViewRecibosCliCompensados.Destroy;
 begin
   inherited;
 end;
 
-procedure TfrViewRecibosCompensados.EliminarInterno;
+procedure TfrViewRecibosCliCompensados.EliminarInterno;
 begin
   if cxGridView.Controller.SelectedRowCount > 0 then
      if cxGridView.Controller.SelectedRows[0].HasCells then
@@ -151,34 +151,34 @@ begin
   Modified := True;
 end;
 
-function TfrViewRecibosCompensados.GetController: IRecibosClienteController;
+function TfrViewRecibosCliCompensados.GetController: IRecibosClienteController;
 begin
   Result := FController;
 end;
 
-function TfrViewRecibosCompensados.GetModified: Boolean;
+function TfrViewRecibosCliCompensados.GetModified: Boolean;
 begin
   Result := FHayCambios or inherited GetModified;
 end;
 
-function TfrViewRecibosCompensados.GetReciboCliente: IBizRecibosCliente;
+function TfrViewRecibosCliCompensados.GetReciboCliente: IBizRecibosCliente;
 begin
   Result := FReciboCliente;
 end;
 
-procedure TfrViewRecibosCompensados.SetController(
+procedure TfrViewRecibosCliCompensados.SetController(
   const Value: IRecibosClienteController);
 begin
   FController := Value;
 end;
 
-procedure TfrViewRecibosCompensados.SetModified(const Value: Boolean);
+procedure TfrViewRecibosCliCompensados.SetModified(const Value: Boolean);
 begin
   FHayCambios := Value;
   inherited;
 end;
 
-procedure TfrViewRecibosCompensados.SetReciboCliente(const Value: IBizRecibosCliente);
+procedure TfrViewRecibosCliCompensados.SetReciboCliente(const Value: IBizRecibosCliente);
 begin
   FReciboCliente := Value;
   FHayCambios := False;

Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas

@@ -50,14 +50,15 @@ type
     function Nuevo : IBizRecibosProveedor;
     procedure RecuperarCliente(AReciboProveedor : IBizRecibosProveedor);
     function Buscar(const ID: Integer): IBizRecibosProveedor;
-    function BuscarTodosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;
-  	function BuscarTodosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
   	function BuscarTodos: IBizRecibosProveedor;
-  	function BuscarTodosPendientesDevueltos: IBizRecibosProveedor;
+
+    function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;
+  	function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
+    function BuscarRecibosACompensar(const Recibo: IBizRecibosProveedor): IBizRecibosProveedor;
+  	function BuscarRecibosARemesar: IBizRecibosProveedor;
+
     procedure VerTodos(ARecibosProveedor: IBizRecibosProveedor);
     procedure Ver(ARecibosProveedor: IBizRecibosProveedor);
-    function Localizar(ARecibosProveedor: IBizRecibosProveedor; ADescripcion:String): Boolean;
-    function DarListaRecibosProveedor: TStringList;
     function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor;
 
     procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer);
@@ -65,6 +66,9 @@ type
     procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False);
     function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
 
+    function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean;
+    procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
+
     procedure Preview(ARecibosProveedor : IBizRecibosProveedor);
     procedure Print(ARecibosProveedor : IBizRecibosProveedor);
   end;
@@ -104,21 +108,27 @@ type
     procedure DescartarCambios(ARecibosProveedor : IBizRecibosProveedor);
     function Duplicar(ARecibosProveedor: IBizRecibosProveedor): IBizRecibosProveedor;
     function Nuevo : IBizRecibosProveedor;
+
   	function Buscar(const ID: Integer): IBizRecibosProveedor;
-    function BuscarTodosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;    
-  	function BuscarTodosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
     function BuscarTodos: IBizRecibosProveedor;
-  	function BuscarTodosPendientesDevueltos: IBizRecibosProveedor;
+
+    function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;
+  	function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
+    function BuscarRecibosACompensar(const Recibo: IBizRecibosProveedor): IBizRecibosProveedor;
+  	function BuscarRecibosARemesar: IBizRecibosProveedor;
+
     procedure VerTodos(ARecibosProveedor: IBizRecibosProveedor);
     procedure Ver(ARecibosProveedor: IBizRecibosProveedor);
-    function Localizar(ARecibosProveedor: IBizRecibosProveedor; ADescripcion:String): Boolean;
+
-    function DarListaRecibosProveedor: TStringList;
     function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor;
+    function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
+    function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean;
 
     procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer);
     procedure QuitarRemesa(ARecibos : IBizRecibosProveedor);
+    procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
+
     procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False);
-    function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
 
     procedure Preview(ARecibosProveedor : IBizRecibosProveedor);
     procedure Print(ARecibosProveedor : IBizRecibosProveedor);
@@ -258,7 +268,7 @@ begin
   Result := (FDataModule as IDataModuleRecibosProveedor).GetItem(ID);
 end;
 
-function TRecibosProveedorController.BuscarTodosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
+function TRecibosProveedorController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
 begin
   ShowHourglassCursor;
   try
@@ -276,7 +286,33 @@ begin
   end;
 end;
 
-function TRecibosProveedorController.BuscarTodosPendientesDevueltos: IBizRecibosProveedor;
+function TRecibosProveedorController.BuscarRecibosACompensar(
+  const Recibo: IBizRecibosProveedor): IBizRecibosProveedor;
+begin
+  ShowHourglassCursor;
+  try
+    Result := BuscarTodos;
+    with Result.DataTable.Where do
+    begin
+      if NotEmpty then
+         AddOperator(opAND);
+
+      //Omitimos los recibos compensados
+      OpenBraket;
+      AddText(fld_RecibosProveedorID_RECIBO_COMPENSADO + ' IS NULL ');
+      CloseBraket;
+      AddOperator(opAND);
+      //Solo dejaremos remesar aquellos recibos que no esten cobrados (Pendientes/Devueltos)
+      OpenBraket;
+      AddText(fld_RecibosProveedorSITUACION + ' <> ''' + CTE_PAGADO + '''');
+      CloseBraket;
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+function TRecibosProveedorController.BuscarRecibosARemesar: IBizRecibosProveedor;
 begin
   ShowHourglassCursor;
   try
@@ -295,7 +331,7 @@ begin
   end;
 end;
 
-function TRecibosProveedorController.BuscarTodosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;
+function TRecibosProveedorController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;
 begin
   ShowHourglassCursor;
   try
@@ -318,28 +354,6 @@ begin
   Result := Buscar(ID_NULO);
 end;
 
-function TRecibosProveedorController.DarListaRecibosProveedor: TStringList;
-var
-  ARecibosProveedor: IBizRecibosProveedor;
-begin
-  ARecibosProveedor := BuscarTodos;
-  ARecibosProveedor.DataTable.Active := True;
-  Result := TStringList.Create;
-  try
-    with Result do
-    begin
-      ARecibosProveedor.DataTable.First;
-      while not ARecibosProveedor.DataTable.EOF do
-      begin
-        Add(ARecibosProveedor.DESCRIPCION);
-        ARecibosProveedor.DataTable.Next;
-      end;
-    end;
-  finally
-    ARecibosProveedor := NIL;
-  end;
-end;
-
 function TRecibosProveedorController.DarNuevaReferencia(ID_FACTURA: Integer; REFERENCIA: String): String;
 var
   ARecibosProveedor: IBizRecibosProveedor;
@@ -347,7 +361,7 @@ var
   Cadena : String;
 begin
   try
-    ARecibosProveedor := BuscarTodosFactura(ID_FACTURA);
+    ARecibosProveedor := BuscarRecibosFactura(ID_FACTURA);
     ARecibosProveedor.DataTable.Active := True;
     NumReferencia := ARecibosProveedor.DataTable.RecordCount;
     Cadena := Copy(REFERENCIA, 0, Pos('-', REFERENCIA));
@@ -521,6 +535,25 @@ begin
   end;
 end;
 
+function TRecibosProveedorController.ElegirRecibosCompensados(ARecibo: IBizRecibosProveedor): Boolean;
+var
+  ARecibosACompensar: IBizRecibosProveedor;
+begin
+  ARecibosACompensar := Self.ElegirRecibos(BuscarRecibosACompensar(ARecibo), 'Elija los recibos que desea compensar', True);
+
+  if Assigned(ARecibosACompensar) then
+  begin
+     ShowHourglassCursor;
+     try
+      DuplicarRegistros(ARecibosACompensar.DataTable, ARecibo.RecibosCompensados.DataTable, mdrTodos, True, True, False);
+      Result := True;
+     finally
+       HideHourglassCursor;
+       ARecibosACompensar := Nil;
+     end;
+  end;
+end;
+
 function TRecibosProveedorController.Eliminar(ARecibosProveedor: IBizRecibosProveedor): Boolean;
 begin
   Result := False;
@@ -664,24 +697,6 @@ begin
   end;
 end;
 
-function TRecibosProveedorController.Localizar(ARecibosProveedor: IBizRecibosProveedor; ADescripcion: String): Boolean;
-begin
-  Result := True;
-  ShowHourglassCursor;
-  try
-    with ARecibosProveedor.DataTable do
-    begin
-      DisableControls;
-      First;
-      if not Locate(fld_RecibosProveedorDESCRIPCION, ADescripcion, []) then
-         Result := False;
-      EnableControls;
-    end;
-  finally
-    HideHourglassCursor;
-  end;
-end;
-
 procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor);
 var
   AEditor : IEditorFechaPagoProveedor;
@@ -746,6 +761,20 @@ begin
   end;
 end;
 
+procedure TRecibosProveedorController.QuitarReciboCompensado(ARecibo: IBizRecibosProveedor);
+var
+  IdRecibo: Variant;
+begin
+  IdRecibo := ARecibo.RecibosCompensados.ID;
+
+  ARecibo.RecibosCompensados.DataTable.First;
+  while ARecibo.RecibosCompensados.DataTable.Locate('ID', IdRecibo,[]) do
+  begin
+    ARecibo.RecibosCompensados.DataTable.Delete;
+    ARecibo.RecibosCompensados.DataTable.First;
+  end;
+end;
+
 procedure TRecibosProveedorController.QuitarRemesa(ARecibos: IBizRecibosProveedor);
 begin
   if Assigned(ARecibos) then

Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm

@@ -66,7 +66,7 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor
     ProbeServers = False
     ProbeFrequency = 60000
     UserAgent = 'RemObjects SDK'
-    TargetURL = 'http://localhost:8099/bin'
+    TargetURL = 'http://localhost:8090/bin'
     Left = 48
     Top = 272
   end
@@ -360,6 +360,33 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'ID_RECIBO_COMPENSADO'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'RecibosProveedor_ID_RECIBO_COMPENSADO'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RecibosProveedor_ID_RECIBO_COMPENSADO'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'REFERENCIA_REC_COMPENSADO'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'REFERENCIA'
         DataType = datString
@@ -815,4 +842,292 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor
     Left = 232
     Top = 136
   end
+  object tbl_RecibosCompensadosProv: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ID_RECIBO_COMPENSADO'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'SITUACION'
+        DataType = datString
+        Size = 9
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ID_FACTURA'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FECHA_EMISION'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FECHA_VENCIMIENTO'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'IMPORTE'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'OTROS_GASTOS'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'IMPORTE_TOTAL'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FECHA_FACTURA'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'IMPORTE_FACTURA'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ID_PROVEEDOR'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'NOMBRE_PROVEEDOR'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'NIF_CIF_PROVEEDOR'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ID_EMPRESA'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <
+      item
+        Name = 'ID'
+        BlobType = dabtUnknown
+        Value = ''
+        ParamType = daptInput
+      end>
+    MasterMappingMode = mmParams
+    MasterParamsMappings.Strings = (
+      'ID=ID')
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    SchemaCall.MethodName = 'GetDatasetSchema'
+    SchemaCall.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBinary
+      end
+      item
+        Name = 'aDatasetName'
+        ParamType = fIn
+        DataType = rtString
+        Value = 'RecibosCompensadosProv'
+      end>
+    DataRequestCall.MethodName = 'GetDatasetDataEx'
+    DataRequestCall.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBinary
+      end
+      item
+        Name = 'DatasetName'
+        ParamType = fIn
+        DataType = rtString
+        Value = 'RecibosCompensadosProv'
+      end
+      item
+        Name = 'Params'
+        ParamType = fIn
+        DataType = rtUserDefined
+        UserClassName = 'TDADatasetParamArray'
+      end
+      item
+        Name = 'UserFilter'
+        ParamType = fIn
+        DataType = rtString
+        Value = ''
+      end
+      item
+        Name = 'IncludeSchema'
+        ParamType = fIn
+        DataType = rtBoolean
+        Value = False
+      end
+      item
+        Name = 'MaxRecords'
+        ParamType = fIn
+        DataType = rtInteger
+        Value = -1
+      end>
+    DataUpdateCall.MethodName = 'UpdateData'
+    DataUpdateCall.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBinary
+      end
+      item
+        Name = 'Delta'
+        ParamType = fIn
+        DataType = rtBinary
+      end>
+    ScriptCall.MethodName = 'GetDatasetScripts'
+    ScriptCall.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtString
+        Value = ''
+      end
+      item
+        Name = 'DatasetNames'
+        ParamType = fIn
+        DataType = rtString
+        Value = 'RecibosCompensadosProv'
+      end>
+    ReadOnly = False
+    RemoteService = RORemoteService
+    Adapter = DABinAdapter
+    MasterSource = ds_RecibosProveedor
+    MasterFields = 'ID'
+    DetailFields = 'ID_RECIBO_COMPENSADO'
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'RecibosCompensadosProv'
+    IndexDefs = <>
+    Left = 320
+    Top = 312
+  end
+  object ds_RecibosCompensadosProv: TDADataSource
+    DataTable = tbl_RecibosCompensadosProv
+    Left = 320
+    Top = 256
+  end
 end

Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.pas

@@ -46,11 +46,14 @@ type
     ds_PagosProveedor: TDADataSource;
     tbl_RecibosProveedor: TDACDSDataTable;
     ds_RecibosProveedor: TDADataSource;
+    tbl_RecibosCompensadosProv: TDACDSDataTable;
+    ds_RecibosCompensadosProv: TDADataSource;
     procedure DAClientDataModuleCreate(Sender: TObject);
   protected
     function DarNombreGenerador(DataSetName: String): String; virtual;
     function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
     function _GetPagos: IBizPagosProveedor;
+    function _GetRecibosCompensados : IBizRecibosCompensadosProv;    
   public
     function GetNextID(const DataSetName : String) : Integer;
     function GetItems: IBizRecibosProveedor;
@@ -129,6 +132,25 @@ begin
    end;
 end;
 
+function TDataModuleRecibosProveedor._GetRecibosCompensados: IBizRecibosCompensadosProv;
+var
+  ARecibosCompensados : TDACDSDataTable;
+begin
+  ShowHourglassCursor;
+  try
+    ARecibosCompensados := _CloneDataTable(tbl_RecibosCompensadosProv);
+    with ARecibosCompensados do
+    begin
+      BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSPROV;
+      DetailOptions := DetailOptions -
+        [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
+    end;
+    Result := (ARecibosCompensados as IBizRecibosCompensadosProv);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 function TDataModuleRecibosProveedor.GetItems: IBizRecibosProveedor;
 var
   AIBizRecibosProveedor : TDACDSDataTable;
@@ -141,6 +163,9 @@ begin
     with TBizRecibosProveedor(AIBizRecibosProveedor.BusinessEventsObj) do
          Pagos := _GetPagos;
 
+    with TBizRecibosProveedor(AIBizRecibosProveedor.BusinessEventsObj) do
+         RecibosCompensados := _GetRecibosCompensados;
+
     Result := (AIBizRecibosProveedor as IBizRecibosProveedor);
   finally
     HideHourglassCursor;

Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas

@@ -9,17 +9,57 @@ 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_RecibosProveedor = '{2FD8CE2A-3931-4327-8A27-7B090B6260DD}';
+  RID_RecibosCompensadosProv = '{63570371-F94E-4DAD-A5D6-3615FADEBAD4}';
-  RID_RecibosProveedor_Refresh = '{93C0F413-C971-469C-BD3A-6B4895AAB0F6}';
+  RID_RecibosProveedor = '{01D52742-DC1E-482F-A9A8-772A8B7FD75D}';
-  RID_PagosProveedor = '{C13001E4-337A-4CAF-8ACF-25094F0F36FD}';
+  RID_RecibosProveedor_Refresh = '{5F724DAB-29AB-4E61-BDC2-C3F476CF30F0}';
+  RID_PagosProveedor = '{6B536629-405F-46A8-9008-9871D317EE04}';
 
   { Data table names }
+  nme_RecibosCompensadosProv = 'RecibosCompensadosProv';
   nme_RecibosProveedor = 'RecibosProveedor';
   nme_RecibosProveedor_Refresh = 'RecibosProveedor_Refresh';
   nme_PagosProveedor = 'PagosProveedor';
 
+  { RecibosCompensadosProv fields }
+  fld_RecibosCompensadosProvID = 'ID';
+  fld_RecibosCompensadosProvID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO';
+  fld_RecibosCompensadosProvREFERENCIA = 'REFERENCIA';
+  fld_RecibosCompensadosProvSITUACION = 'SITUACION';
+  fld_RecibosCompensadosProvID_FACTURA = 'ID_FACTURA';
+  fld_RecibosCompensadosProvFECHA_EMISION = 'FECHA_EMISION';
+  fld_RecibosCompensadosProvFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
+  fld_RecibosCompensadosProvIMPORTE = 'IMPORTE';
+  fld_RecibosCompensadosProvOTROS_GASTOS = 'OTROS_GASTOS';
+  fld_RecibosCompensadosProvIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+  fld_RecibosCompensadosProvFECHA_FACTURA = 'FECHA_FACTURA';
+  fld_RecibosCompensadosProvIMPORTE_FACTURA = 'IMPORTE_FACTURA';
+  fld_RecibosCompensadosProvID_PROVEEDOR = 'ID_PROVEEDOR';
+  fld_RecibosCompensadosProvNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
+  fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR';
+  fld_RecibosCompensadosProvID_EMPRESA = 'ID_EMPRESA';
+
+  { RecibosCompensadosProv field indexes }
+  idx_RecibosCompensadosProvID = 0;
+  idx_RecibosCompensadosProvID_RECIBO_COMPENSADO = 1;
+  idx_RecibosCompensadosProvREFERENCIA = 2;
+  idx_RecibosCompensadosProvSITUACION = 3;
+  idx_RecibosCompensadosProvID_FACTURA = 4;
+  idx_RecibosCompensadosProvFECHA_EMISION = 5;
+  idx_RecibosCompensadosProvFECHA_VENCIMIENTO = 6;
+  idx_RecibosCompensadosProvIMPORTE = 7;
+  idx_RecibosCompensadosProvOTROS_GASTOS = 8;
+  idx_RecibosCompensadosProvIMPORTE_TOTAL = 9;
+  idx_RecibosCompensadosProvFECHA_FACTURA = 10;
+  idx_RecibosCompensadosProvIMPORTE_FACTURA = 11;
+  idx_RecibosCompensadosProvID_PROVEEDOR = 12;
+  idx_RecibosCompensadosProvNOMBRE_PROVEEDOR = 13;
+  idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 14;
+  idx_RecibosCompensadosProvID_EMPRESA = 15;
+
   { RecibosProveedor fields }
   fld_RecibosProveedorID = 'ID';
+  fld_RecibosProveedorID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO';
+  fld_RecibosProveedorREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO';
   fld_RecibosProveedorREFERENCIA = 'REFERENCIA';
   fld_RecibosProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
   fld_RecibosProveedorSITUACION = 'SITUACION';
@@ -51,37 +91,41 @@ const
 
   { RecibosProveedor field indexes }
   idx_RecibosProveedorID = 0;
-  idx_RecibosProveedorREFERENCIA = 1;
+  idx_RecibosProveedorID_RECIBO_COMPENSADO = 1;
-  idx_RecibosProveedorREFERENCIA_PROVEEDOR = 2;
+  idx_RecibosProveedorREFERENCIA_REC_COMPENSADO = 2;
-  idx_RecibosProveedorSITUACION = 3;
+  idx_RecibosProveedorREFERENCIA = 3;
-  idx_RecibosProveedorID_FACTURA = 4;
+  idx_RecibosProveedorREFERENCIA_PROVEEDOR = 4;
-  idx_RecibosProveedorID_REMESA = 5;
+  idx_RecibosProveedorSITUACION = 5;
-  idx_RecibosProveedorREFERENCIA_REMESA = 6;
+  idx_RecibosProveedorID_FACTURA = 6;
-  idx_RecibosProveedorFECHA_EMISION = 7;
+  idx_RecibosProveedorID_REMESA = 7;
-  idx_RecibosProveedorFECHA_VENCIMIENTO = 8;
+  idx_RecibosProveedorREFERENCIA_REMESA = 8;
-  idx_RecibosProveedorDESCRIPCION = 9;
+  idx_RecibosProveedorFECHA_EMISION = 9;
-  idx_RecibosProveedorOBSERVACIONES = 10;
+  idx_RecibosProveedorFECHA_VENCIMIENTO = 10;
-  idx_RecibosProveedorIMPORTE = 11;
+  idx_RecibosProveedorDESCRIPCION = 11;
-  idx_RecibosProveedorOTROS_GASTOS = 12;
+  idx_RecibosProveedorOBSERVACIONES = 12;
-  idx_RecibosProveedorIMPORTE_TOTAL = 13;
+  idx_RecibosProveedorIMPORTE = 13;
-  idx_RecibosProveedorFECHA_FACTURA = 14;
+  idx_RecibosProveedorOTROS_GASTOS = 14;
-  idx_RecibosProveedorREFERENCIA_FACTURA_PROV = 15;
+  idx_RecibosProveedorIMPORTE_TOTAL = 15;
-  idx_RecibosProveedorFORMA_PAGO_FACTURA = 16;
+  idx_RecibosProveedorFECHA_FACTURA = 16;
-  idx_RecibosProveedorIMPORTE_FACTURA = 17;
+  idx_RecibosProveedorREFERENCIA_FACTURA_PROV = 17;
-  idx_RecibosProveedorID_PROVEEDOR = 18;
+  idx_RecibosProveedorFORMA_PAGO_FACTURA = 18;
-  idx_RecibosProveedorNOMBRE_PROVEEDOR = 19;
+  idx_RecibosProveedorIMPORTE_FACTURA = 19;
-  idx_RecibosProveedorNIF_CIF_PROVEEDOR = 20;
+  idx_RecibosProveedorID_PROVEEDOR = 20;
-  idx_RecibosProveedorENTIDAD_PROVEEDOR = 21;
+  idx_RecibosProveedorNOMBRE_PROVEEDOR = 21;
-  idx_RecibosProveedorSUCURSAL_PROVEEDOR = 22;
+  idx_RecibosProveedorNIF_CIF_PROVEEDOR = 22;
-  idx_RecibosProveedorDC_PROVEEDOR = 23;
+  idx_RecibosProveedorENTIDAD_PROVEEDOR = 23;
-  idx_RecibosProveedorCUENTA_PROVEEDOR = 24;
+  idx_RecibosProveedorSUCURSAL_PROVEEDOR = 24;
-  idx_RecibosProveedorID_EMPRESA = 25;
+  idx_RecibosProveedorDC_PROVEEDOR = 25;
-  idx_RecibosProveedorFECHA_ALTA = 26;
+  idx_RecibosProveedorCUENTA_PROVEEDOR = 26;
-  idx_RecibosProveedorFECHA_MODIFICACION = 27;
+  idx_RecibosProveedorID_EMPRESA = 27;
-  idx_RecibosProveedorUSUARIO = 28;
+  idx_RecibosProveedorFECHA_ALTA = 28;
+  idx_RecibosProveedorFECHA_MODIFICACION = 29;
+  idx_RecibosProveedorUSUARIO = 30;
 
   { RecibosProveedor_Refresh fields }
   fld_RecibosProveedor_RefreshID = 'ID';
+  fld_RecibosProveedor_RefreshID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO';
+  fld_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO';
   fld_RecibosProveedor_RefreshREFERENCIA = 'REFERENCIA';
   fld_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
   fld_RecibosProveedor_RefreshSITUACION = 'SITUACION';
@@ -113,34 +157,36 @@ const
 
   { RecibosProveedor_Refresh field indexes }
   idx_RecibosProveedor_RefreshID = 0;
-  idx_RecibosProveedor_RefreshREFERENCIA = 1;
+  idx_RecibosProveedor_RefreshID_RECIBO_COMPENSADO = 1;
-  idx_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR = 2;
+  idx_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO = 2;
-  idx_RecibosProveedor_RefreshSITUACION = 3;
+  idx_RecibosProveedor_RefreshREFERENCIA = 3;
-  idx_RecibosProveedor_RefreshID_FACTURA = 4;
+  idx_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR = 4;
-  idx_RecibosProveedor_RefreshID_REMESA = 5;
+  idx_RecibosProveedor_RefreshSITUACION = 5;
-  idx_RecibosProveedor_RefreshREFERENCIA_REMESA = 6;
+  idx_RecibosProveedor_RefreshID_FACTURA = 6;
-  idx_RecibosProveedor_RefreshFECHA_EMISION = 7;
+  idx_RecibosProveedor_RefreshID_REMESA = 7;
-  idx_RecibosProveedor_RefreshFECHA_VENCIMIENTO = 8;
+  idx_RecibosProveedor_RefreshREFERENCIA_REMESA = 8;
-  idx_RecibosProveedor_RefreshDESCRIPCION = 9;
+  idx_RecibosProveedor_RefreshFECHA_EMISION = 9;
-  idx_RecibosProveedor_RefreshOBSERVACIONES = 10;
+  idx_RecibosProveedor_RefreshFECHA_VENCIMIENTO = 10;
-  idx_RecibosProveedor_RefreshIMPORTE = 11;
+  idx_RecibosProveedor_RefreshDESCRIPCION = 11;
-  idx_RecibosProveedor_RefreshOTROS_GASTOS = 12;
+  idx_RecibosProveedor_RefreshOBSERVACIONES = 12;
-  idx_RecibosProveedor_RefreshIMPORTE_TOTAL = 13;
+  idx_RecibosProveedor_RefreshIMPORTE = 13;
-  idx_RecibosProveedor_RefreshFECHA_FACTURA = 14;
+  idx_RecibosProveedor_RefreshOTROS_GASTOS = 14;
-  idx_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV = 15;
+  idx_RecibosProveedor_RefreshIMPORTE_TOTAL = 15;
-  idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 16;
+  idx_RecibosProveedor_RefreshFECHA_FACTURA = 16;
-  idx_RecibosProveedor_RefreshIMPORTE_FACTURA = 17;
+  idx_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV = 17;
-  idx_RecibosProveedor_RefreshID_PROVEEDOR = 18;
+  idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 18;
-  idx_RecibosProveedor_RefreshNOMBRE_PROVEEDOR = 19;
+  idx_RecibosProveedor_RefreshIMPORTE_FACTURA = 19;
-  idx_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR = 20;
+  idx_RecibosProveedor_RefreshID_PROVEEDOR = 20;
-  idx_RecibosProveedor_RefreshENTIDAD_PROVEEDOR = 21;
+  idx_RecibosProveedor_RefreshNOMBRE_PROVEEDOR = 21;
-  idx_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR = 22;
+  idx_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR = 22;
-  idx_RecibosProveedor_RefreshDC_PROVEEDOR = 23;
+  idx_RecibosProveedor_RefreshENTIDAD_PROVEEDOR = 23;
-  idx_RecibosProveedor_RefreshCUENTA_PROVEEDOR = 24;
+  idx_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR = 24;
-  idx_RecibosProveedor_RefreshID_EMPRESA = 25;
+  idx_RecibosProveedor_RefreshDC_PROVEEDOR = 25;
-  idx_RecibosProveedor_RefreshFECHA_ALTA = 26;
+  idx_RecibosProveedor_RefreshCUENTA_PROVEEDOR = 26;
-  idx_RecibosProveedor_RefreshFECHA_MODIFICACION = 27;
+  idx_RecibosProveedor_RefreshID_EMPRESA = 27;
-  idx_RecibosProveedor_RefreshUSUARIO = 28;
+  idx_RecibosProveedor_RefreshFECHA_ALTA = 28;
+  idx_RecibosProveedor_RefreshFECHA_MODIFICACION = 29;
+  idx_RecibosProveedor_RefreshUSUARIO = 30;
 
   { PagosProveedor fields }
   fld_PagosProveedorID = 'ID';
@@ -171,12 +217,135 @@ const
   idx_PagosProveedorUSUARIO = 11;
 
 type
-  { IRecibosProveedor }
+  { IRecibosCompensadosProv }
-  IRecibosProveedor = interface(IDAStronglyTypedDataTable)
+  IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
-  ['{0CE8E633-6E52-482D-BB17-F2001AC7B6FE}']
+  ['{A73311E9-6383-4A33-B880-1E50E74E7119}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
+    function GetID_RECIBO_COMPENSADOValue: Integer;
+    procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+    function GetREFERENCIAValue: String;
+    procedure SetREFERENCIAValue(const aValue: String);
+    function GetSITUACIONValue: String;
+    procedure SetSITUACIONValue(const aValue: String);
+    function GetID_FACTURAValue: Integer;
+    procedure SetID_FACTURAValue(const aValue: Integer);
+    function GetFECHA_EMISIONValue: DateTime;
+    procedure SetFECHA_EMISIONValue(const aValue: DateTime);
+    function GetFECHA_VENCIMIENTOValue: DateTime;
+    procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+    function GetIMPORTEValue: Float;
+    procedure SetIMPORTEValue(const aValue: Float);
+    function GetOTROS_GASTOSValue: Float;
+    procedure SetOTROS_GASTOSValue(const aValue: Float);
+    function GetIMPORTE_TOTALValue: Float;
+    procedure SetIMPORTE_TOTALValue(const aValue: Float);
+    function GetFECHA_FACTURAValue: DateTime;
+    procedure SetFECHA_FACTURAValue(const aValue: DateTime);
+    function GetIMPORTE_FACTURAValue: Float;
+    procedure SetIMPORTE_FACTURAValue(const aValue: Float);
+    function GetID_PROVEEDORValue: Integer;
+    procedure SetID_PROVEEDORValue(const aValue: Integer);
+    function GetNOMBRE_PROVEEDORValue: String;
+    procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
+    function GetNIF_CIF_PROVEEDORValue: String;
+    procedure SetNIF_CIF_PROVEEDORValue(const aValue: String);
+    function GetID_EMPRESAValue: Integer;
+    procedure SetID_EMPRESAValue(const aValue: Integer);
+
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
+    property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+    property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
+    property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+    property IMPORTE: Float read GetIMPORTEValue write SetIMPORTEValue;
+    property OTROS_GASTOS: Float read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
+    property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+    property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+    property IMPORTE_FACTURA: Float read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+    property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
+    property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+  end;
+
+  { TRecibosCompensadosProvDataTableRules }
+  TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetID_RECIBO_COMPENSADOValue: Integer; virtual;
+    procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    function GetSITUACIONValue: String; virtual;
+    procedure SetSITUACIONValue(const aValue: String); virtual;
+    function GetID_FACTURAValue: Integer; virtual;
+    procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+    function GetFECHA_EMISIONValue: DateTime; virtual;
+    procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
+    function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
+    procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
+    function GetIMPORTEValue: Float; virtual;
+    procedure SetIMPORTEValue(const aValue: Float); virtual;
+    function GetOTROS_GASTOSValue: Float; virtual;
+    procedure SetOTROS_GASTOSValue(const aValue: Float); virtual;
+    function GetIMPORTE_TOTALValue: Float; virtual;
+    procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
+    function GetFECHA_FACTURAValue: DateTime; virtual;
+    procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+    function GetIMPORTE_FACTURAValue: Float; virtual;
+    procedure SetIMPORTE_FACTURAValue(const aValue: Float); virtual;
+    function GetID_PROVEEDORValue: Integer; virtual;
+    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
+    function GetNOMBRE_PROVEEDORValue: String; virtual;
+    procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
+    function GetNIF_CIF_PROVEEDORValue: String; virtual;
+    procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
+    property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+    property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
+    property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+    property IMPORTE: Float read GetIMPORTEValue write SetIMPORTEValue;
+    property OTROS_GASTOS: Float read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
+    property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+    property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+    property IMPORTE_FACTURA: Float read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+    property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
+    property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
+  { IRecibosProveedor }
+  IRecibosProveedor = interface(IDAStronglyTypedDataTable)
+  ['{BBBE2FC9-D743-448A-A741-C9C1919A0618}']
+    { Property getters and setters }
+    function GetIDValue: Integer;
+    procedure SetIDValue(const aValue: Integer);
+    function GetID_RECIBO_COMPENSADOValue: Integer;
+    procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+    function GetREFERENCIA_REC_COMPENSADOValue: String;
+    procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
     function GetREFERENCIAValue: String;
     procedure SetREFERENCIAValue(const aValue: String);
     function GetREFERENCIA_PROVEEDORValue: String;
@@ -237,6 +406,8 @@ type
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
+    property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+    property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
@@ -274,6 +445,10 @@ type
     { Property getters and setters }
     function GetIDValue: Integer; virtual;
     procedure SetIDValue(const aValue: Integer); virtual;
+    function GetID_RECIBO_COMPENSADOValue: Integer; virtual;
+    procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
+    function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
+    procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
     function GetREFERENCIAValue: String; virtual;
     procedure SetREFERENCIAValue(const aValue: String); virtual;
     function GetREFERENCIA_PROVEEDORValue: String; virtual;
@@ -333,6 +508,8 @@ type
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
+    property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+    property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
@@ -370,10 +547,14 @@ type
 
   { IRecibosProveedor_Refresh }
   IRecibosProveedor_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{233ADE04-FF94-41EE-BD3A-BDAE0997F3AC}']
+  ['{B98899CB-80FA-49C3-A650-463AEA8A49A6}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
+    function GetID_RECIBO_COMPENSADOValue: Integer;
+    procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+    function GetREFERENCIA_REC_COMPENSADOValue: String;
+    procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
     function GetREFERENCIAValue: String;
     procedure SetREFERENCIAValue(const aValue: String);
     function GetREFERENCIA_PROVEEDORValue: String;
@@ -434,6 +615,8 @@ type
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
+    property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+    property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
@@ -471,6 +654,10 @@ type
     { Property getters and setters }
     function GetIDValue: Integer; virtual;
     procedure SetIDValue(const aValue: Integer); virtual;
+    function GetID_RECIBO_COMPENSADOValue: Integer; virtual;
+    procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
+    function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
+    procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
     function GetREFERENCIAValue: String; virtual;
     procedure SetREFERENCIAValue(const aValue: String); virtual;
     function GetREFERENCIA_PROVEEDORValue: String; virtual;
@@ -530,6 +717,8 @@ type
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
+    property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+    property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
@@ -567,7 +756,7 @@ type
 
   { IPagosProveedor }
   IPagosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{9CFCAC9F-4BF4-4D76-A613-413B38BC549C}']
+  ['{81F0AAB6-D43A-4832-9A2F-D4F8C013F6FA}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -664,6 +853,178 @@ implementation
 
 uses Variants;
 
+{ TRecibosCompensadosProvDataTableRules }
+constructor TRecibosCompensadosProvDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TRecibosCompensadosProvDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvID].AsInteger;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvID].AsInteger := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvID_RECIBO_COMPENSADO].AsInteger;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvID_RECIBO_COMPENSADO].AsInteger := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetREFERENCIAValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA].AsString;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA].AsString := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetSITUACIONValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvSITUACION].AsString;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetSITUACIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvSITUACION].AsString := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetID_FACTURAValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvID_FACTURA].AsInteger;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetID_FACTURAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvID_FACTURA].AsInteger := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetFECHA_EMISIONValue: DateTime;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_EMISION].AsDateTime;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvFECHA_EMISION].AsDateTime := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_VENCIMIENTO].AsDateTime;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvFECHA_VENCIMIENTO].AsDateTime := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetIMPORTEValue: Float;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvIMPORTE].AsFloat;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetIMPORTEValue(const aValue: Float);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvIMPORTE].AsFloat := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetOTROS_GASTOSValue: Float;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvOTROS_GASTOS].AsFloat;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetOTROS_GASTOSValue(const aValue: Float);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvOTROS_GASTOS].AsFloat := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetIMPORTE_TOTALValue: Float;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_TOTAL].AsFloat;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_TOTAL].AsFloat := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetFECHA_FACTURAValue: DateTime;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_FACTURA].AsDateTime;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvFECHA_FACTURA].AsDateTime := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetIMPORTE_FACTURAValue: Float;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_FACTURA].AsFloat;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Float);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_FACTURA].AsFloat := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetID_PROVEEDORValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvID_PROVEEDOR].AsInteger;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvID_PROVEEDOR].AsInteger := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetNOMBRE_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvNOMBRE_PROVEEDOR].AsString;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvNOMBRE_PROVEEDOR].AsString := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetNIF_CIF_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].AsString;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetNIF_CIF_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].AsString := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetID_EMPRESAValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvID_EMPRESA].AsInteger;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvID_EMPRESA].AsInteger := aValue;
+end;
+
+
 { TRecibosProveedorDataTableRules }
 constructor TRecibosProveedorDataTableRules.Create(aDataTable: TDADataTable);
 begin
@@ -685,6 +1046,26 @@ begin
   DataTable.Fields[idx_RecibosProveedorID].AsInteger := aValue;
 end;
 
+function TRecibosProveedorDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorID_RECIBO_COMPENSADO].AsInteger;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosProveedorID_RECIBO_COMPENSADO].AsInteger := aValue;
+end;
+
+function TRecibosProveedorDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_REC_COMPENSADO].AsString;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosProveedorREFERENCIA_REC_COMPENSADO].AsString := aValue;
+end;
+
 function TRecibosProveedorDataTableRules.GetREFERENCIAValue: String;
 begin
   result := DataTable.Fields[idx_RecibosProveedorREFERENCIA].AsString;
@@ -987,6 +1368,26 @@ begin
   DataTable.Fields[idx_RecibosProveedor_RefreshID].AsInteger := aValue;
 end;
 
+function TRecibosProveedor_RefreshDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosProveedor_RefreshID_RECIBO_COMPENSADO].AsInteger;
+end;
+
+procedure TRecibosProveedor_RefreshDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosProveedor_RefreshID_RECIBO_COMPENSADO].AsInteger := aValue;
+end;
+
+function TRecibosProveedor_RefreshDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO].AsString;
+end;
+
+procedure TRecibosProveedor_RefreshDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO].AsString := aValue;
+end;
+
 function TRecibosProveedor_RefreshDataTableRules.GetREFERENCIAValue: String;
 begin
   result := DataTable.Fields[idx_RecibosProveedor_RefreshREFERENCIA].AsString;
@@ -1401,6 +1802,7 @@ end;
 
 
 initialization
+  RegisterDataTableRules(RID_RecibosCompensadosProv, TRecibosCompensadosProvDataTableRules);
   RegisterDataTableRules(RID_RecibosProveedor, TRecibosProveedorDataTableRules);
   RegisterDataTableRules(RID_RecibosProveedor_Refresh, TRecibosProveedor_RefreshDataTableRules);
   RegisterDataTableRules(RID_PagosProveedor, TPagosProveedorDataTableRules);

Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas

@@ -9,16 +9,153 @@ 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_RecibosProveedorDelta = '{D758EEB0-54E0-464F-9706-C3B67B7B979B}';
+  RID_RecibosCompensadosProvDelta = '{BA2DCF11-7070-4929-857C-AB7731AF7924}';
-  RID_RecibosProveedor_RefreshDelta = '{A892FE0C-5CDC-4ECA-BCA0-993A28E283E1}';
+  RID_RecibosProveedorDelta = '{4C7167E6-9FB3-46CC-9733-EDC6BB1778BA}';
-  RID_PagosProveedorDelta = '{DEFC89B6-401B-4DD7-9BDD-D060C059ACCB}';
+  RID_RecibosProveedor_RefreshDelta = '{3C6253BF-134D-4B04-97C7-A02E2933935D}';
+  RID_PagosProveedorDelta = '{1BDCAA45-F48F-47E8-947D-8D70E87FF7A3}';
 
 type
-  { IRecibosProveedorDelta }
+  { IRecibosCompensadosProvDelta }
-  IRecibosProveedorDelta = interface(IRecibosProveedor)
+  IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
-  ['{D758EEB0-54E0-464F-9706-C3B67B7B979B}']
+  ['{BA2DCF11-7070-4929-857C-AB7731AF7924}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
+    function GetOldID_RECIBO_COMPENSADOValue : Integer;
+    function GetOldREFERENCIAValue : String;
+    function GetOldSITUACIONValue : String;
+    function GetOldID_FACTURAValue : Integer;
+    function GetOldFECHA_EMISIONValue : DateTime;
+    function GetOldFECHA_VENCIMIENTOValue : DateTime;
+    function GetOldIMPORTEValue : Float;
+    function GetOldOTROS_GASTOSValue : Float;
+    function GetOldIMPORTE_TOTALValue : Float;
+    function GetOldFECHA_FACTURAValue : DateTime;
+    function GetOldIMPORTE_FACTURAValue : Float;
+    function GetOldID_PROVEEDORValue : Integer;
+    function GetOldNOMBRE_PROVEEDORValue : String;
+    function GetOldNIF_CIF_PROVEEDORValue : String;
+    function GetOldID_EMPRESAValue : Integer;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldSITUACION : String read GetOldSITUACIONValue;
+    property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+    property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
+    property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
+    property OldIMPORTE : Float read GetOldIMPORTEValue;
+    property OldOTROS_GASTOS : Float read GetOldOTROS_GASTOSValue;
+    property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
+    property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+    property OldIMPORTE_FACTURA : Float read GetOldIMPORTE_FACTURAValue;
+    property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
+    property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
+    property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+  end;
+
+  { TRecibosCompensadosProvBusinessProcessorRules }
+  TRecibosCompensadosProvBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensadosProv, IRecibosCompensadosProvDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetOldIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetID_RECIBO_COMPENSADOValue: Integer; virtual;
+    function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual;
+    procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    function GetOldREFERENCIAValue: String; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    function GetSITUACIONValue: String; virtual;
+    function GetOldSITUACIONValue: String; virtual;
+    procedure SetSITUACIONValue(const aValue: String); virtual;
+    function GetID_FACTURAValue: Integer; virtual;
+    function GetOldID_FACTURAValue: Integer; virtual;
+    procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+    function GetFECHA_EMISIONValue: DateTime; virtual;
+    function GetOldFECHA_EMISIONValue: DateTime; virtual;
+    procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
+    function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
+    function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
+    procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
+    function GetIMPORTEValue: Float; virtual;
+    function GetOldIMPORTEValue: Float; virtual;
+    procedure SetIMPORTEValue(const aValue: Float); virtual;
+    function GetOTROS_GASTOSValue: Float; virtual;
+    function GetOldOTROS_GASTOSValue: Float; virtual;
+    procedure SetOTROS_GASTOSValue(const aValue: Float); virtual;
+    function GetIMPORTE_TOTALValue: Float; virtual;
+    function GetOldIMPORTE_TOTALValue: Float; virtual;
+    procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
+    function GetFECHA_FACTURAValue: DateTime; virtual;
+    function GetOldFECHA_FACTURAValue: DateTime; virtual;
+    procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+    function GetIMPORTE_FACTURAValue: Float; virtual;
+    function GetOldIMPORTE_FACTURAValue: Float; virtual;
+    procedure SetIMPORTE_FACTURAValue(const aValue: Float); virtual;
+    function GetID_PROVEEDORValue: Integer; virtual;
+    function GetOldID_PROVEEDORValue: Integer; virtual;
+    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
+    function GetNOMBRE_PROVEEDORValue: String; virtual;
+    function GetOldNOMBRE_PROVEEDORValue: String; virtual;
+    procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
+    function GetNIF_CIF_PROVEEDORValue: String; virtual;
+    function GetOldNIF_CIF_PROVEEDORValue: String; virtual;
+    procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    function GetOldID_EMPRESAValue: Integer; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+
+    { Properties }
+    property ID : Integer read GetIDValue write SetIDValue;
+    property OldID : Integer read GetOldIDValue;
+    property ID_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+    property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
+    property OldSITUACION : String read GetOldSITUACIONValue;
+    property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+    property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+    property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
+    property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
+    property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+    property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
+    property IMPORTE : Float read GetIMPORTEValue write SetIMPORTEValue;
+    property OldIMPORTE : Float read GetOldIMPORTEValue;
+    property OTROS_GASTOS : Float read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
+    property OldOTROS_GASTOS : Float read GetOldOTROS_GASTOSValue;
+    property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+    property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
+    property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+    property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+    property IMPORTE_FACTURA : Float read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
+    property OldIMPORTE_FACTURA : Float read GetOldIMPORTE_FACTURAValue;
+    property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+    property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
+    property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
+    property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
+    property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
+    property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
+    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+  { IRecibosProveedorDelta }
+  IRecibosProveedorDelta = interface(IRecibosProveedor)
+  ['{4C7167E6-9FB3-46CC-9733-EDC6BB1778BA}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldID_RECIBO_COMPENSADOValue : Integer;
+    function GetOldREFERENCIA_REC_COMPENSADOValue : String;
     function GetOldREFERENCIAValue : String;
     function GetOldREFERENCIA_PROVEEDORValue : String;
     function GetOldSITUACIONValue : String;
@@ -50,6 +187,8 @@ type
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
+    property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+    property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
     property OldSITUACION : String read GetOldSITUACIONValue;
@@ -88,6 +227,12 @@ type
     function GetIDValue: Integer; virtual;
     function GetOldIDValue: Integer; virtual;
     procedure SetIDValue(const aValue: Integer); virtual;
+    function GetID_RECIBO_COMPENSADOValue: Integer; virtual;
+    function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual;
+    procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
+    function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
+    function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual;
+    procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
     function GetREFERENCIAValue: String; virtual;
     function GetOldREFERENCIAValue: String; virtual;
     procedure SetREFERENCIAValue(const aValue: String); virtual;
@@ -176,6 +321,10 @@ type
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
     property OldID : Integer read GetOldIDValue;
+    property ID_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+    property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+    property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
+    property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
     property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
@@ -241,9 +390,11 @@ type
 
   { IRecibosProveedor_RefreshDelta }
   IRecibosProveedor_RefreshDelta = interface(IRecibosProveedor_Refresh)
-  ['{A892FE0C-5CDC-4ECA-BCA0-993A28E283E1}']
+  ['{3C6253BF-134D-4B04-97C7-A02E2933935D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
+    function GetOldID_RECIBO_COMPENSADOValue : Integer;
+    function GetOldREFERENCIA_REC_COMPENSADOValue : String;
     function GetOldREFERENCIAValue : String;
     function GetOldREFERENCIA_PROVEEDORValue : String;
     function GetOldSITUACIONValue : String;
@@ -275,6 +426,8 @@ type
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
+    property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+    property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
     property OldSITUACION : String read GetOldSITUACIONValue;
@@ -313,6 +466,12 @@ type
     function GetIDValue: Integer; virtual;
     function GetOldIDValue: Integer; virtual;
     procedure SetIDValue(const aValue: Integer); virtual;
+    function GetID_RECIBO_COMPENSADOValue: Integer; virtual;
+    function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual;
+    procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
+    function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
+    function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual;
+    procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
     function GetREFERENCIAValue: String; virtual;
     function GetOldREFERENCIAValue: String; virtual;
     procedure SetREFERENCIAValue(const aValue: String); virtual;
@@ -401,6 +560,10 @@ type
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
     property OldID : Integer read GetOldIDValue;
+    property ID_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
+    property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+    property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
+    property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
     property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
@@ -466,7 +629,7 @@ type
 
   { IPagosProveedorDelta }
   IPagosProveedorDelta = interface(IPagosProveedor)
-  ['{DEFC89B6-401B-4DD7-9BDD-D060C059ACCB}']
+  ['{1BDCAA45-F48F-47E8-947D-8D70E87FF7A3}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -575,6 +738,258 @@ implementation
 uses
   Variants, uROBinaryHelpers;
 
+{ TRecibosCompensadosProvBusinessProcessorRules }
+constructor TRecibosCompensadosProvBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TRecibosCompensadosProvBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetSITUACIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldSITUACIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSITUACION];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetID_FACTURAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_FACTURA];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_EMISION];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTEValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTEValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTEValue(const aValue: Float);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOTROS_GASTOSValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldOTROS_GASTOSValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvOTROS_GASTOS];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Float);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_FACTURA];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_FACTURAValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Float);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_PROVEEDOR];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := aValue;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_EMPRESA];
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA] := aValue;
+end;
+
+
 { TRecibosProveedorBusinessProcessorRules }
 constructor TRecibosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
 begin
@@ -601,6 +1016,36 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID] := aValue;
 end;
 
+function TRecibosProveedorBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO];
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO] := aValue;
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO];
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO] := aValue;
+end;
+
 function TRecibosProveedorBusinessProcessorRules.GetREFERENCIAValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA];
@@ -1048,6 +1493,36 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID] := aValue;
 end;
 
+function TRecibosProveedor_RefreshBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_RECIBO_COMPENSADO];
+end;
+
+function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID_RECIBO_COMPENSADO];
+end;
+
+procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_RECIBO_COMPENSADO] := aValue;
+end;
+
+function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO];
+end;
+
+function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO];
+end;
+
+procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO] := aValue;
+end;
+
 function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA];
@@ -1662,6 +2137,7 @@ end;
 
 
 initialization
+  RegisterBusinessProcessorRules(RID_RecibosCompensadosProvDelta, TRecibosCompensadosProvBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_RecibosProveedorDelta, TRecibosProveedorBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_RecibosProveedor_RefreshDelta, TRecibosProveedor_RefreshBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_PagosProveedorDelta, TPagosProveedorBusinessProcessorRules);

Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas

@@ -31,12 +31,18 @@ uses
 
 const
   BIZ_CLIENT_IBIZRECIBOSPROVEEDOR = 'Client.IBizRecibosProveedor';
+  BIZ_CLIENT_RECIBOS_COMPENSADOSPROV = 'Client.RecibosCompensadosProv';
 
   CTE_PENDIENTE = 'PENDIENTE';
   CTE_PAGADO = 'PAGADO';
   CTE_DEVUELTO = 'DEVUELTO';
 
 type
+
+  IBizRecibosCompensadosProv = interface(IRecibosCompensadosProv)
+  ['{64F55788-08FC-473D-A5CA-5F99509C2529}']
+  end;
+
   IBizRecibosProveedor = interface(IRecibosProveedor)
   ['{FEE753DF-0471-4754-A86C-58BF615929CF}']
     function EsNuevo : Boolean;
@@ -54,12 +60,21 @@ type
     procedure SetPagos(AValue : IBizPagosProveedor);
     function GetPagos : IBizPagosProveedor;
     property Pagos : IBizPagosProveedor read GetPagos write SetPagos;
+
+    function GetRecibosCompensados: IBizRecibosCompensadosProv;
+    procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosProv);
+    property RecibosCompensados: IBizRecibosCompensadosProv read GetRecibosCompensados write SetRecibosCompensados;
+  end;
+
+  TBizRecibosCompensadosProv = class(TRecibosCompensadosProvDataTableRules, IBizRecibosCompensadosProv)
   end;
 
   TBizRecibosProveedor = class(TRecibosProveedorDataTableRules, IBizRecibosProveedor, ISeleccionable)
   protected
     FPagos : IBizPagosProveedor;
     FPagosLink : TDADataSource;
+    FRecibosCompensados: IBizRecibosCompensadosProv;
+    FRecibosCompensadosLink : TDADataSource;
     FProveedor : IBizProveedor;
     FSeleccionableInterface : ISeleccionable;
 
@@ -77,9 +92,13 @@ type
     function GetPagos : IBizPagosProveedor;
     procedure OnNewRecord(Sender: TDADataTable); override;
 
+    function GetRecibosCompensados: IBizRecibosCompensadosProv;
+    procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosProv);
+
     procedure SetID_REMESAValue(const aValue: Integer); override;
 
   public
+    property RecibosCompensados: IBizRecibosCompensadosProv read GetRecibosCompensados write SetRecibosCompensados;
     property Pagos : IBizPagosProveedor read GetPagos write SetPagos;
     property SeleccionableInterface : ISeleccionable	read FSeleccionableInterface
     					write FSeleccionableInterface
@@ -103,6 +122,11 @@ begin
   Result := FProveedor;
 end;
 
+function TBizRecibosProveedor.GetRecibosCompensados: IBizRecibosCompensadosProv;
+begin
+  Result := FRecibosCompensados;
+end;
+
 function TBizRecibosProveedor.GetPagos: IBizPagosProveedor;
 begin
    Result := FPagos;
@@ -122,6 +146,16 @@ procedure TBizRecibosProveedor.SetPagos(AValue: IBizPagosProveedor);
    EnlazarMaestroDetalle(FPagosLink, FPagos);
  end;
 
+procedure TBizRecibosProveedor.SetRecibosCompensados(const Value: IBizRecibosCompensadosProv);
+begin
+  FRecibosCompensados := Value;
+  EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados);
+
+  if Assigned(FRecibosCompensados) then
+     if not FRecibosCompensados.DataTable.Active then
+        FRecibosCompensados.DataTable.Active := True;
+end;
+
 function TBizRecibosProveedor._GetProveedor: IBizProveedor;
 begin
   Result := FProveedor;
@@ -136,15 +170,23 @@ constructor TBizRecibosProveedor.Create(aDataTable: TDADataTable);
 begin
   inherited;
   FProveedor := Nil;
+  FPagos := Nil;
+  FRecibosCompensados := Nil;
+
   FPagosLink := TDADataSource.Create(NIL);
   FPagosLink.DataTable := aDataTable;
+  FRecibosCompensadosLink := TDADataSource.Create(NIL);
+  FRecibosCompensadosLink.DataTable := aDataTable;
+
 	FSeleccionableInterface := TSeleccionable.Create(aDataTable);
 end;
 
 destructor TBizRecibosProveedor.Destroy;
 begin
   FPagos := NIL;
+  FRecibosCompensados := Nil;
   FreeAndNIL(FPagosLink);
+  FreeAndNIL(FRecibosCompensadosLink);
   FSeleccionableInterface := NIL;
   inherited;
 end;
@@ -170,6 +212,7 @@ end;
 
 initialization
   RegisterDataTableRules(BIZ_CLIENT_IBIZRECIBOSPROVEEDOR, TBizRecibosProveedor);
+  RegisterDataTableRules(BIZ_CLIENT_RECIBOS_COMPENSADOSPROV, TBizRecibosCompensadosProv);
 
 finalization
 

Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm

@@ -15,6 +15,278 @@ object srvRecibosProveedor: TsrvRecibosProveedor
     ConnectionManager = dmServer.ConnectionManager
     DataDictionary = DADataDictionary
     Datasets = <
+      item
+        Params = <
+          item
+            Name = 'ID'
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'V_RECIBOS_PROVEEDOR'
+            SQL = 
+              'SELECT ID,'#10'       ID_RECIBO_COMPENSADO,'#10'       REFERENCIA,'#10'     ' +
+              '  SITUACION,'#10'       ID_FACTURA,'#10'       FECHA_EMISION,'#10'       FEC' +
+              'HA_VENCIMIENTO,'#10'       IMPORTE,'#10'       OTROS_GASTOS,'#10'       IMPO' +
+              'RTE_TOTAL,'#10'       FECHA_FACTURA,'#10'       IMPORTE_FACTURA,'#10'       ' +
+              'ID_PROVEEDOR,'#10'       NOMBRE_PROVEEDOR,'#10'       NIF_CIF_PROVEEDOR,' +
+              #10'       ID_EMPRESA'#10#10'FROM V_RECIBOS_PROVEEDOR'#10'WHERE ID_RECIBO_COM' +
+              'PENSADO = :ID'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'ID_RECIBO_COMPENSADO'
+                TableField = 'ID_RECIBO_COMPENSADO'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'SITUACION'
+                TableField = 'SITUACION'
+              end
+              item
+                DatasetField = 'ID_FACTURA'
+                TableField = 'ID_FACTURA'
+              end
+              item
+                DatasetField = 'FECHA_EMISION'
+                TableField = 'FECHA_EMISION'
+              end
+              item
+                DatasetField = 'FECHA_VENCIMIENTO'
+                TableField = 'FECHA_VENCIMIENTO'
+              end
+              item
+                DatasetField = 'IMPORTE'
+                TableField = 'IMPORTE'
+              end
+              item
+                DatasetField = 'OTROS_GASTOS'
+                TableField = 'OTROS_GASTOS'
+              end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
+              item
+                DatasetField = 'FECHA_FACTURA'
+                TableField = 'FECHA_FACTURA'
+              end
+              item
+                DatasetField = 'IMPORTE_FACTURA'
+                TableField = 'IMPORTE_FACTURA'
+              end
+              item
+                DatasetField = 'ID_PROVEEDOR'
+                TableField = 'ID_PROVEEDOR'
+              end
+              item
+                DatasetField = 'NOMBRE_PROVEEDOR'
+                TableField = 'NOMBRE_PROVEEDOR'
+              end
+              item
+                DatasetField = 'NIF_CIF_PROVEEDOR'
+                TableField = 'NIF_CIF_PROVEEDOR'
+              end
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end>
+          end>
+        Name = 'RecibosCompensadosProv'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ID_RECIBO_COMPENSADO'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'SITUACION'
+            DataType = datString
+            Size = 9
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ID_FACTURA'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'FECHA_EMISION'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'FECHA_VENCIMIENTO'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'IMPORTE'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'OTROS_GASTOS'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'IMPORTE_TOTAL'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'FECHA_FACTURA'
+            DataType = datDateTime
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'IMPORTE_FACTURA'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ID_PROVEEDOR'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'NOMBRE_PROVEEDOR'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'NIF_CIF_PROVEEDOR'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ID_EMPRESA'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
       item
         Params = <>
         Statements = <
@@ -22,17 +294,18 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Connection = 'IBX'
             TargetTable = 'V_RECIBOS_PROVEEDOR'
             SQL = 
-              'SELECT ID,'#10'       REFERENCIA,'#10'       REFERENCIA_PROVEEDOR,'#10'     ' +
+              'SELECT ID,'#10'       ID_RECIBO_COMPENSADO,'#10'       REFERENCIA_REC_CO' +
-              '  SITUACION,'#10'       ID_FACTURA,'#10'       ID_REMESA,'#10'       REFEREN' +
+              'MPENSADO,'#10'       REFERENCIA,'#10'       REFERENCIA_PROVEEDOR,'#10'      ' +
-              'CIA_REMESA,'#10'       FECHA_EMISION,'#10'       FECHA_VENCIMIENTO,'#10'    ' +
+              ' SITUACION,'#10'       ID_FACTURA,'#10'       ID_REMESA,'#10'       REFERENC' +
-              '   DESCRIPCION,'#10'       OBSERVACIONES,'#10'       IMPORTE,'#10'       OTR' +
+              'IA_REMESA,'#10'       FECHA_EMISION,'#10'       FECHA_VENCIMIENTO,'#10'     ' +
-              'OS_GASTOS,'#10'       IMPORTE_TOTAL,'#10'       FECHA_FACTURA,'#10'       RE' +
+              '  DESCRIPCION,'#10'       OBSERVACIONES,'#10'       IMPORTE,'#10'       OTRO' +
-              'FERENCIA_FACTURA_PROV,'#10'       FORMA_PAGO_FACTURA,'#10'       IMPORTE' +
+              'S_GASTOS,'#10'       IMPORTE_TOTAL,'#10'       FECHA_FACTURA,'#10'       REF' +
-              '_FACTURA,'#10'       ID_PROVEEDOR,'#10'       NOMBRE_PROVEEDOR,'#10'       N' +
+              'ERENCIA_FACTURA_PROV,'#10'       FORMA_PAGO_FACTURA,'#10'       IMPORTE_' +
-              'IF_CIF_PROVEEDOR,'#10'       ENTIDAD_PROVEEDOR,'#10'       SUCURSAL_PROV' +
+              'FACTURA,'#10'       ID_PROVEEDOR,'#10'       NOMBRE_PROVEEDOR,'#10'       NI' +
-              'EEDOR,'#10'       DC_PROVEEDOR,'#10'       CUENTA_PROVEEDOR,'#10'       ID_E' +
+              'F_CIF_PROVEEDOR,'#10'       ENTIDAD_PROVEEDOR,'#10'       SUCURSAL_PROVE' +
-              'MPRESA,'#10'       FECHA_ALTA,'#10'       FECHA_MODIFICACION,'#10'       USU' +
+              'EDOR,'#10'       DC_PROVEEDOR,'#10'       CUENTA_PROVEEDOR,'#10'       ID_EM' +
-              'ARIO'#10#10'FROM V_RECIBOS_PROVEEDOR'
+              'PRESA,'#10'       FECHA_ALTA,'#10'       FECHA_MODIFICACION,'#10'       USUA' +
+              'RIO'#10#10'FROM V_RECIBOS_PROVEEDOR'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -150,6 +423,14 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               item
                 DatasetField = 'REFERENCIA_FACTURA_PROV'
                 TableField = 'REFERENCIA_FACTURA_PROV'
+              end
+              item
+                DatasetField = 'ID_RECIBO_COMPENSADO'
+                TableField = 'ID_RECIBO_COMPENSADO'
+              end
+              item
+                DatasetField = 'REFERENCIA_REC_COMPENSADO'
+                TableField = 'REFERENCIA_REC_COMPENSADO'
               end>
           end>
         Name = 'RecibosProveedor'
@@ -164,6 +445,27 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'ID_RECIBO_COMPENSADO'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DictionaryEntry = 'RecibosProveedor_ID_RECIBO_COMPENSADO'
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'REFERENCIA_REC_COMPENSADO'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DictionaryEntry = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO'
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'REFERENCIA'
             DataType = datString
@@ -476,17 +778,18 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Connection = 'IBX'
             TargetTable = 'V_RECIBOS_PROVEEDOR'
             SQL = 
-              'SELECT ID,'#10'       REFERENCIA,'#10'       REFERENCIA_PROVEEDOR,'#10'     ' +
+              'SELECT ID,'#10'       ID_RECIBO_COMPENSADO,'#10'       REFERENCIA_REC_CO' +
-              '  SITUACION,'#10'       ID_FACTURA,'#10'       ID_REMESA,'#10'       REFEREN' +
+              'MPENSADO,'#10'       REFERENCIA,'#10'       REFERENCIA_PROVEEDOR,'#10'      ' +
-              'CIA_REMESA,'#10'       FECHA_EMISION,'#10'       FECHA_VENCIMIENTO,'#10'    ' +
+              ' SITUACION,'#10'       ID_FACTURA,'#10'       ID_REMESA,'#10'       REFERENC' +
-              '   DESCRIPCION,'#10'       OBSERVACIONES,'#10'       IMPORTE,'#10'       OTR' +
+              'IA_REMESA,'#10'       FECHA_EMISION,'#10'       FECHA_VENCIMIENTO,'#10'     ' +
-              'OS_GASTOS,'#10'       IMPORTE_TOTAL,'#10'       FECHA_FACTURA,'#10'       RE' +
+              '  DESCRIPCION,'#10'       OBSERVACIONES,'#10'       IMPORTE,'#10'       OTRO' +
-              'FERENCIA_FACTURA_PROV,'#10'       FORMA_PAGO_FACTURA,'#10'       IMPORTE' +
+              'S_GASTOS,'#10'       IMPORTE_TOTAL,'#10'       FECHA_FACTURA,'#10'       REF' +
-              '_FACTURA,'#10'       ID_PROVEEDOR,'#10'       NOMBRE_PROVEEDOR,'#10'       N' +
+              'ERENCIA_FACTURA_PROV,'#10'       FORMA_PAGO_FACTURA,'#10'       IMPORTE_' +
-              'IF_CIF_PROVEEDOR,'#10'       ENTIDAD_PROVEEDOR,'#10'       SUCURSAL_PROV' +
+              'FACTURA,'#10'       ID_PROVEEDOR,'#10'       NOMBRE_PROVEEDOR,'#10'       NI' +
-              'EEDOR,'#10'       DC_PROVEEDOR,'#10'       CUENTA_PROVEEDOR,'#10'       ID_E' +
+              'F_CIF_PROVEEDOR,'#10'       ENTIDAD_PROVEEDOR,'#10'       SUCURSAL_PROVE' +
-              'MPRESA,'#10'       FECHA_ALTA,'#10'       FECHA_MODIFICACION,'#10'       USU' +
+              'EDOR,'#10'       DC_PROVEEDOR,'#10'       CUENTA_PROVEEDOR,'#10'       ID_EM' +
-              'ARIO'#10#10'FROM V_RECIBOS_PROVEEDOR'#10'WHERE'#10'     ID = :ID'
+              'PRESA,'#10'       FECHA_ALTA,'#10'       FECHA_MODIFICACION,'#10'       USUA' +
+              'RIO'#10#10'FROM V_RECIBOS_PROVEEDOR'#10'WHERE'#10'     ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -604,6 +907,14 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               item
                 DatasetField = 'REFERENCIA_FACTURA_PROV'
                 TableField = 'REFERENCIA_FACTURA_PROV'
+              end
+              item
+                DatasetField = 'ID_RECIBO_COMPENSADO'
+                TableField = 'ID_RECIBO_COMPENSADO'
+              end
+              item
+                DatasetField = 'REFERENCIA_REC_COMPENSADO'
+                TableField = 'REFERENCIA_REC_COMPENSADO'
               end>
           end>
         Name = 'RecibosProveedor_Refresh'
@@ -618,6 +929,27 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'ID_RECIBO_COMPENSADO'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DictionaryEntry = 'RecibosProveedor_ID_RECIBO_COMPENSADO'
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'REFERENCIA_REC_COMPENSADO'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DictionaryEntry = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO'
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'REFERENCIA'
             DataType = datString
@@ -1536,6 +1868,90 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             ColumnMappings = <>
           end>
         Name = 'Update_PagosProveedor'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_RECIBO_COMPENSADO'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end
+          item
+            Name = 'ID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'V_RECIBOS_PROVEEDOR'
+            SQL = 
+              'UPDATE RECIBOS_PROVEEDOR'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_C' +
+              'OMPENSADO'#10'WHERE (ID = :ID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_RecibosCompensadosProv'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_RECIBO_COMPENSADO'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end
+          item
+            Name = 'OLD_ID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'V_RECIBOS_PROVEEDOR'
+            SQL = 
+              'UPDATE RECIBOS_PROVEEDOR'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_C' +
+              'OMPENSADO'#10'WHERE (ID = :OLD_ID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_RecibosCompensadosProv'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_RECIBO_COMPENSADO'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end
+          item
+            Name = 'OLD_ID'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'V_RECIBOS_PROVEEDOR'
+            SQL = 
+              'UPDATE RECIBOS_PROVEEDOR'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_C' +
+              'OMPENSADO'#10'WHERE (ID = :OLD_ID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_RecibosCompensadosProv'
       end>
     RelationShips = <>
     UpdateRules = <
@@ -2022,6 +2438,21 @@ object srvRecibosProveedor: TsrvRecibosProveedor
         DisplayWidth = 0
         DisplayLabel = 'Ref. factura prov.'
         Alignment = taLeftJustify
+      end
+      item
+        Name = 'RecibosProveedor_ID_RECIBO_COMPENSADO'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+      end
+      item
+        Name = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
       end>
     Left = 48
     Top = 152
@@ -2037,4 +2468,15 @@ object srvRecibosProveedor: TsrvRecibosProveedor
     Left = 192
     Top = 88
   end
+  object bpRecibosCompensados: TDABusinessProcessor
+    Schema = schRecibosProveedor
+    InsertCommandName = 'Insert_RecibosCompensadosProv'
+    DeleteCommandName = 'Delete_RecibosCompensadosProv'
+    UpdateCommandName = 'Update_RecibosCompensadosProv'
+    ReferencedDataset = 'RecibosCompensadosProv'
+    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 192
+    Top = 152
+  end
 end

Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas

@@ -27,6 +27,7 @@ type
     DABINAdapter: TDABINAdapter;
     bpRecibosProveedor: TDABusinessProcessor;
     bpPagosProveedor: TDABusinessProcessor;
+    bpRecibosCompensados: TDABusinessProcessor;
     schRecibosProveedor: TDASchema;
     DADataDictionary: TDADataDictionary;
     procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;

Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk

@@ -85,7 +85,8 @@ requires
   RecibosProveedor_controller,
   RecibosProveedor_data,
   RecibosProveedor_model,
-  JSDialog100;
+  JSDialog100,
+  JvCtrlsD10R;
 
 contains
   uEditorRecibosProveedor in 'uEditorRecibosProveedor.pas' {fEditorRecibosProveedor: TfEditorRecibosCliente},
@@ -96,6 +97,8 @@ contains
   uEditorFechaPagoProveedor in 'uEditorFechaPagoProveedor.pas' {fEditorFechaPagoProveedor},
   uEditorReciboProveedorReport in 'uEditorReciboProveedorReport.pas' {fEditorReciboProveedorPreview: TfEditorReciboClienteReport},
   uEditorElegirRecibosProveedor in 'uEditorElegirRecibosProveedor.pas' {fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor},
-  uRecibosProveedorViewRegister in 'uRecibosProveedorViewRegister.pas';
+  uRecibosProveedorViewRegister in 'uRecibosProveedorViewRegister.pas',
+  uViewReciboProvImportes in 'uViewReciboProvImportes.pas' {frViewReciboProvImportes: TFrame},
+  uViewRecibosProvCompensados in 'uViewRecibosProvCompensados.pas' {frViewRecibosProvCompensados: TFrame};
 
 end.

Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm

@@ -2,7 +2,6 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
   Caption = 'Seleccionar recibos de cliente'
   ClientWidth = 654
   ExplicitWidth = 662
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   object JvgWizardHeader1: TJvgWizardHeader [0]
@@ -52,12 +51,10 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
   inherited TBXDock: TTBXDock
     Top = 171
     Width = 654
-    Height = 49
     ExplicitTop = 171
     ExplicitWidth = 654
-    ExplicitHeight = 49
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 117
+      ExplicitWidth = 126
       inherited TBXItem5: TTBXItem
         Visible = False
       end
@@ -69,12 +66,12 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
       end
     end
     inherited tbxFiltro: TTBXToolbar
-      Left = 117
+      Left = 126
       Top = 23
       DockPos = 104
       DockRow = 1
       Visible = False
-      ExplicitLeft = 117
+      ExplicitLeft = 126
       ExplicitTop = 23
       inherited TBXItem34: TTBXItem
         Action = actQuitarFiltro2
@@ -83,11 +80,15 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
     inherited tbxMenu: TTBXToolbar
       ExplicitWidth = 654
     end
+    inherited TBXTMain2: TTBXToolbar
+      Left = 334
+      ExplicitLeft = 334
+    end
   end
   inherited StatusBar: TJvStatusBar
     Top = 609
     Width = 654
-    ExplicitTop = 506
+    ExplicitTop = 609
     ExplicitWidth = 654
   end
   inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
@@ -136,18 +137,18 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
     end
   end
   inherited frViewRecibosProveedor1: TfrViewRecibosProveedor [5]
-    Top = 220
+    Top = 246
     Width = 654
-    Height = 389
+    Height = 363
-    ExplicitTop = 220
+    ExplicitTop = 246
     ExplicitWidth = 654
-    ExplicitHeight = 389
+    ExplicitHeight = 363
     inherited cxGrid: TcxGrid
       Width = 654
-      Height = 261
+      Height = 235
       RootLevelOptions.DetailTabsPosition = dtpNone
       ExplicitWidth = 654
-      ExplicitHeight = 389
+      ExplicitHeight = 235
       inherited cxGridView: TcxGridDBTableView
         DataController.Summary.DefaultGroupSummaryItems = <
           item
@@ -178,29 +179,28 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
           ExplicitWidth = 654
           inherited dxLayoutControl1: TdxLayoutControl
             Width = 650
-            inherited txtFiltroTodo: TcxTextEdit
+            ExplicitWidth = 650
-              ExplicitWidth = 273
-              Width = 273
-            end
-            inherited edtFechaIniFiltro: TcxDateEdit
-              ExplicitWidth = 121
-              Width = 121
-            end
             inherited edtFechaFinFiltro: TcxDateEdit
-              ExplicitWidth = 337
+              ExplicitWidth = 314
-              Width = 337
+              Width = 314
             end
           end
           inherited TBXAlignmentPanel1: TTBXAlignmentPanel
             Width = 650
             ExplicitWidth = 650
+            inherited tbxBotones: TTBXToolbar
+              Width = 640
+            end
           end
         end
       end
     end
     inherited pnlAgrupaciones: TTBXDockablePanel
-      Top = 363
+      Top = 337
-      ExplicitTop = 260
+      ExplicitTop = 337
+      inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+        Width = 654
+      end
     end
     inherited dxComponentPrinter: TdxComponentPrinter
       inherited dxComponentPrinterLink: TdxGridReportLink
@@ -236,7 +236,6 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
     ShowCaptionWhenDocked = False
     SupportedDocks = [dkStandardDock, dkMultiDock]
     TabOrder = 5
-    ExplicitWidth = 128
     object Label1: TLabel
       Left = 296
       Top = 50

Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm

@@ -1,11 +1,12 @@
 inherited fEditorReciboProveedor: TfEditorReciboProveedor
   Caption = 'Recibo de cliente'
-  ClientHeight = 707
+  ClientHeight = 554
   ClientWidth = 691
   OnClose = CustomEditorClose
-  ExplicitTop = -110
+  ExplicitLeft = -81
+  ExplicitTop = -97
   ExplicitWidth = 699
-  ExplicitHeight = 741
+  ExplicitHeight = 588
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -43,7 +44,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
     Width = 691
     ExplicitWidth = 691
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 419
+      ExplicitWidth = 425
     end
     inherited tbxMenu: TTBXToolbar
       ExplicitWidth = 691
@@ -51,14 +52,15 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
   end
   inherited pgPaginas: TPageControl
     Width = 691
-    Height = 612
+    Height = 359
+    ActivePage = pagCompensados
     ExplicitWidth = 691
-    ExplicitHeight = 612
+    ExplicitHeight = 459
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
       ExplicitWidth = 683
-      ExplicitHeight = 584
+      ExplicitHeight = 431
       inline frViewReciboProveedor1: TfrViewReciboProveedor
         Left = 0
         Top = 0
@@ -74,55 +76,86 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 683
+        ExplicitHeight = 350
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 683
+          Height = 350
           ExplicitWidth = 683
-          ExplicitHeight = 337
           DesignSize = (
             683
             350)
+          inherited eReferencia: TcxDBTextEdit
+            ExplicitWidth = 50
+            Width = 50
+          end
+          inherited eSituacion: TcxDBTextEdit
+            ExplicitWidth = 216
+            Width = 216
+          end
+          inherited edtFechaVencimiento: TcxDBDateEdit
+            ExplicitWidth = 216
+            Width = 216
+          end
           inherited memObservaciones: TcxDBMemo
-            Left = 345
+            ExplicitWidth = 274
-            ExplicitLeft = 345
+            Width = 274
           end
           inherited eFechaEmision: TcxDBTextEdit
-            Left = 442
+            Left = 431
-            ExplicitLeft = 442
+            ExplicitLeft = 431
+            ExplicitWidth = 20
+            Width = 20
           end
           inherited eFormaPago: TcxDBTextEdit
-            Left = 442
+            Left = 431
-            ExplicitLeft = 442
+            ExplicitLeft = 431
+            ExplicitWidth = 42
+            Width = 42
           end
           inherited eImporteTotal: TcxDBCurrencyEdit
-            Left = 442
+            Left = 431
             Style.IsFontAssigned = True
-            ExplicitLeft = 442
+            ExplicitLeft = 431
+            ExplicitWidth = 182
+            Width = 182
           end
           inherited eNombreCliente: TcxDBTextEdit
-            Left = 442
+            Left = 431
-            ExplicitLeft = 442
+            ExplicitLeft = 431
+            ExplicitWidth = 171
+            Width = 171
           end
           inherited eNifCif: TcxDBTextEdit
-            Left = 442
+            Left = 431
-            ExplicitLeft = 442
+            ExplicitLeft = 431
             ExplicitWidth = 255
             Width = 255
           end
           inherited eEntidad: TcxDBTextEdit
-            Left = 442
+            Left = 431
-            ExplicitLeft = 442
+            ExplicitLeft = 431
+            ExplicitWidth = 90
+            Width = 90
           end
           inherited eSucursal: TcxDBTextEdit
             Left = 545
             ExplicitLeft = 545
+            ExplicitWidth = 75
+            Width = 75
           end
           inherited eDC: TcxDBTextEdit
-            Left = 611
+            Left = 628
-            ExplicitLeft = 611
+            ExplicitLeft = 628
           end
           inherited eCuenta: TcxDBTextEdit
-            Left = 442
+            Left = 431
-            ExplicitLeft = 442
+            ExplicitLeft = 431
+            ExplicitWidth = 83
+            Width = 83
+          end
+          inherited eRemesa: TcxDBTextEdit
+            ExplicitWidth = 113
+            Width = 113
           end
           inherited edtFechaEmision: TcxDBDateEdit
             ExplicitWidth = 97
@@ -133,16 +166,24 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
             Width = 129
           end
           inherited rReferenciaFacturaProv: TcxDBTextEdit
-            Left = 442
+            Left = 431
-            ExplicitLeft = 442
+            ExplicitLeft = 431
+          end
+          inherited rRefReciboCompensado: TcxDBTextEdit
+            ExplicitWidth = 216
+            Width = 216
           end
         end
       end
+    end
+    object pagPagos: TTabSheet
+      Caption = 'Pagos'
+      ImageIndex = 1
       inline frViewPagosProveedor1: TfrViewPagosProveedor
         Left = 0
-        Top = 350
+        Top = 0
         Width = 683
-        Height = 234
+        Height = 331
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -150,16 +191,15 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
         Font.Name = 'Tahoma'
         Font.Style = []
         ParentFont = False
-        TabOrder = 1
+        TabOrder = 0
         ReadOnly = False
-        ExplicitTop = 337
         ExplicitWidth = 683
-        ExplicitHeight = 247
+        ExplicitHeight = 331
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 683
-          Height = 234
+          Height = 331
           ExplicitWidth = 683
-          ExplicitHeight = 247
+          ExplicitHeight = 331
           inherited ListaPagosProveedor: TcxGrid
             Width = 252
             Height = 105
@@ -176,34 +216,114 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
             ExplicitWidth = 622
           end
         end
-        inherited ActionListContenido: TActionList
+        inherited DADataSource: TDADataSource
-          inherited actAnadir: TAction
+          Left = 32
-            OnExecute = frViewPagosProveedor1actAnadirExecute
+          Top = 80
+        end
+      end
+    end
+    object pagCompensados: TTabSheet
+      Caption = 'Compensados'
+      ImageIndex = 2
+      inline frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados
+        Left = 0
+        Top = 0
+        Width = 683
+        Height = 331
+        Align = alClient
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 0
+        ReadOnly = False
+        ExplicitWidth = 683
+        ExplicitHeight = 331
+        inherited cxGrid: TcxGrid
+          Width = 683
+          Height = 306
+          ExplicitWidth = 683
+          ExplicitHeight = 306
+          inherited cxGridView: TcxGridDBTableView
+            DataController.Summary.FooterSummaryItems = <
+              item
+                Format = ',0.00 '#8364';-,0.00 '#8364
+                Kind = skSum
+                Column = frViewRecibosProvCompensados1.cxGridViewIMPORTE_TOTAL
+              end>
+            DataController.Summary.OnAfterSummary = frViewRecibosProvCompensados1cxGridViewDataControllerSummaryAfterSummary
           end
-          inherited actModificar: TAction
+        end
-            OnExecute = frViewPagosProveedor1actModificarExecute
+        inherited ToolBar1: TToolBar
-            OnUpdate = frViewPagosProveedor1actModificarUpdate
+          Width = 683
+          ExplicitWidth = 683
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
           end
-          inherited actEliminar: TAction
+          inherited ToolButton4: TToolButton
-            OnExecute = frViewPagosProveedor1actEliminarExecute
+            ExplicitWidth = 113
-            OnUpdate = frViewPagosProveedor1actEliminarUpdate
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton3: TToolButton
+            ExplicitWidth = 98
+          end
+          inherited ToolButton8: TToolButton
+            ExplicitWidth = 99
           end
         end
       end
     end
   end
   inherited StatusBar: TJvStatusBar
-    Top = 688
+    Top = 535
     Width = 691
     Panels = <
       item
         Width = 200
       end>
-    ExplicitTop = 688
+    ExplicitTop = 535
     ExplicitWidth = 691
   end
-  inherited EditorActionList: TActionList
+  inline frViewReciboProvImportes1: TfrViewReciboProvImportes [4]
-    Top = 96
+    Left = 0
+    Top = 435
+    Width = 691
+    Height = 100
+    Align = alBottom
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 4
+    ReadOnly = False
+    ExplicitTop = 331
+    ExplicitWidth = 683
+    inherited dxLayoutControl1: TdxLayoutControl
+      Width = 691
+      ExplicitWidth = 683
+      inherited eImporte: TcxDBCurrencyEdit
+        Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
+        ExplicitWidth = 150
+        Width = 150
+      end
+      inherited eImporteTotalRecibo: TcxCurrencyEdit
+        ExplicitWidth = 183
+        Width = 183
+      end
+    end
+  end
+  inherited EditorActionList: TActionList [5]
+    Left = 48
+    Top = 144
     inherited actNuevo: TAction
       Enabled = False
       Visible = False
@@ -217,17 +337,23 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
       Visible = False
     end
   end
-  inherited JvFormStorage: TJvFormStorage
+  inherited SmallImages: TPngImageList [6]
+  end
+  inherited LargeImages: TPngImageList [7]
+  end
+  inherited JvFormStorage: TJvFormStorage [8]
     OnSavePlacement = JvFormStorageSavePlacement
     OnRestorePlacement = JvFormStorageRestorePlacement
   end
-  inherited dsDataTable: TDADataSource
+  inherited dsDataTable: TDADataSource [9]
     Left = 8
     Top = 136
   end
+  inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
+  end
   object DADataSource1: TDADataSource
     OnDataChange = dsDataTableDataChange
     Left = 80
-    Top = 112
+    Top = 168
   end
 end

Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas

@@ -9,13 +9,18 @@ uses
   ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item, TB2Dock, TB2Toolbar,
   pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboProveedor,
   uCustomView, uViewBase, uViewReciboProveedor, uRecibosProveedorController,
-  uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels;
+  uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels, cxCustomData,
+  uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes;
 
 type
   TfEditorReciboProveedor = class(TfEditorDBItem, IEditorReciboProveedor)
     DADataSource1: TDADataSource;
     frViewReciboProveedor1: TfrViewReciboProveedor;
+    pagPagos: TTabSheet;
+    pagCompensados: TTabSheet;
     frViewPagosProveedor1: TfrViewPagosProveedor;
+    frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados;
+    frViewReciboProvImportes1: TfrViewReciboProvImportes;
     procedure FormShow(Sender: TObject);
     procedure dsDataTableDataChange(Sender: TObject; Field: TField);
     procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@@ -32,6 +37,8 @@ type
     procedure DeshabilitarRecibo;
     procedure JvFormStorageRestorePlacement(Sender: TObject);
     procedure JvFormStorageSavePlacement(Sender: TObject);
+    procedure frViewReciboProvImportes1eImportePropertiesEditValueChanged(Sender: TObject);
+    procedure frViewRecibosProvCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
 
   private
     FController : IRecibosProveedorController;
@@ -46,6 +53,7 @@ type
     function GetViewRecibo: IViewReciboProveedor;
     procedure SetViewRecibo(const Value: IViewReciboProveedor);
     property ViewRecibo: IViewReciboProveedor read GetViewRecibo write SetViewRecibo;
+    procedure CalcularTotal;
 
   protected
     procedure PrevisualizarInterno; override;
@@ -65,6 +73,18 @@ uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase;
 
 {$R *.dfm}
 
+procedure TfEditorReciboProveedor.CalcularTotal;
+var
+  ImporteAux: Double;
+begin
+
+  ImporteAux := 0;
+  if not VarIsNull(frViewRecibosProvCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]) then
+     ImporteAux := frViewRecibosProvCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0];
+
+  frViewReciboProvImportes1.eImporteTotalRecibo.Value := frViewReciboProvImportes1.eImporte.Value + frViewReciboProvImportes1.eOtrosGastos.Value + ImporteAux;
+end;
+
 constructor TfEditorReciboProveedor.Create(AOwner: TComponent);
 begin
   inherited;
@@ -86,8 +106,8 @@ procedure TfEditorReciboProveedor.DeshabilitarRecibo;
 begin
   frViewReciboProveedor1.eReferenciaProveedor.Enabled := False;
   frViewReciboProveedor1.edtFechaVencimiento.Enabled := False;
-  frViewReciboProveedor1.eImporte.Enabled := False;
+  frViewReciboProvImportes1.eImporte.Enabled := False;
-  frViewReciboProveedor1.eOtrosGastos.Enabled := False;  
+  frViewReciboProvImportes1.eOtrosGastos.Enabled := False;
 end;
 
 procedure TfEditorReciboProveedor.dsDataTableDataChange(Sender: TObject; Field: TField);
@@ -165,20 +185,33 @@ begin
      frViewPagosProveedor1.actModificar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0);
 end;
 
+procedure TfEditorReciboProveedor.frViewReciboProvImportes1eImportePropertiesEditValueChanged(
+  Sender: TObject);
+begin
+  inherited;
+  CalcularTotal;
+end;
+
 procedure TfEditorReciboProveedor.frViewReciboProveedor1eImportePropertiesValidate(
   Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
   var Error: Boolean);
 begin
   inherited;
 
-  if (DisplayValue > frViewReciboProveedor1.eImporte.DataBinding.Field.Value) then
+  if (DisplayValue > frViewReciboProvImportes1.eImporte.DataBinding.Field.Value) then
   begin
-     DisplayValue := frViewReciboProveedor1.eImporte.DataBinding.Field.Value;
+     DisplayValue := frViewReciboProvImportes1.eImporte.DataBinding.Field.Value;
      ErrorText := 'El importe debe ser menor o igual que el actual';
      Error := True;
   end;
 end;
 
+procedure TfEditorReciboProveedor.frViewRecibosProvCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
+begin
+  inherited;
+  CalcularTotal;
+end;
+
 function TfEditorReciboProveedor.GetController: IRecibosProveedorController;
 begin
   Result := FController;
@@ -206,8 +239,8 @@ begin
 //Si el recibo tiene sociado una remesa no se podrá cambiar nada
   frViewReciboProveedor1.eReferenciaProveedor.Enabled := True;
   frViewReciboProveedor1.edtFechaVencimiento.Enabled := True;
-  frViewReciboProveedor1.eImporte.Enabled := True;
+  frViewReciboProvImportes1.eImporte.Enabled := True;
-  frViewReciboProveedor1.eOtrosGastos.Enabled := True;
+  frViewReciboProvImportes1.eOtrosGastos.Enabled := True;
 end;
 
 procedure TfEditorReciboProveedor.ImprimirInterno;
@@ -240,6 +273,12 @@ begin
       FTitulo := 'Recibo de proveedor';
   end;
 
+  if (Recibo.ID_RECIBO_COMPENSADO > 0) then
+     FTitulo := FTitulo + ' (compensado)';
+
+  if Length(Recibo.NOMBRE_PROVEEDOR) > 0 then
+     FTitulo := FTitulo + ' - ' + Recibo.NOMBRE_PROVEEDOR;
+
   inherited PonerTitulos(FTitulo);
 end;
 
@@ -252,7 +291,9 @@ end;
 procedure TfEditorReciboProveedor.SetController(const Value: IRecibosProveedorController);
 begin
   FController := Value;
-//  if Assigned(FController) then
+  if Assigned(FController) then
+     frViewRecibosProvCompensados1.Controller := FController;
+
 //    (ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController);
 end;
 
@@ -265,6 +306,7 @@ begin
   begin
     FViewRecibo.Recibo := Recibo;
     frViewPagosProveedor1.Pagos := Recibo.Pagos;
+    frViewRecibosProvCompensados1.ReciboProveedor := FRecibo;
 
     if (FRecibo.SITUACION = CTE_PAGADO) then
       DeshabilitarRecibo

Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm

@@ -0,0 +1,129 @@
+inherited frViewReciboProvImportes: TfrViewReciboProvImportes
+  Width = 451
+  Height = 100
+  Align = alBottom
+  ExplicitWidth = 451
+  ExplicitHeight = 100
+  object dxLayoutControl1: TdxLayoutControl
+    AlignWithMargins = True
+    Left = 0
+    Top = 0
+    Width = 451
+    Height = 217
+    Margins.Left = 0
+    Margins.Top = 0
+    Margins.Right = 0
+    Margins.Bottom = 0
+    Align = alTop
+    ParentBackground = True
+    TabOrder = 0
+    AutoContentSizes = [acsWidth, acsHeight]
+    object eImporte: TcxDBCurrencyEdit
+      Left = 93
+      Top = 28
+      AutoSize = False
+      DataBinding.DataField = 'IMPORTE'
+      Properties.Alignment.Horz = taRightJustify
+      Properties.ReadOnly = False
+      Properties.UseLeftAlignmentOnEditing = False
+      Properties.UseThousandSeparator = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clInfoBk
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.TextColor = clWindowText
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 0
+      Height = 21
+      Width = 150
+    end
+    object eOtrosGastos: TcxDBCurrencyEdit
+      Left = 93
+      Top = 55
+      AutoSize = False
+      DataBinding.DataField = 'OTROS_GASTOS'
+      Properties.Alignment.Horz = taRightJustify
+      Properties.ReadOnly = False
+      Properties.UseLeftAlignmentOnEditing = False
+      Properties.UseThousandSeparator = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clWindow
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.TextColor = clWindowText
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 1
+      Height = 21
+      Width = 183
+    end
+    object eImporteTotalRecibo: TcxCurrencyEdit
+      Left = 354
+      Top = 28
+      Enabled = False
+      Properties.Alignment.Horz = taRightJustify
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.TextStyle = [fsBold]
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 2
+      Width = 183
+    end
+    object dxLayoutControl1Group_Root: TdxLayoutGroup
+      ShowCaption = False
+      Hidden = True
+      ShowBorder = False
+      object dxLayoutControl1Group1: TdxLayoutGroup
+        Caption = 'Importes recibo'
+        LayoutDirection = ldHorizontal
+        object dxLayoutControl1Group3: TdxLayoutGroup
+          ShowCaption = False
+          Hidden = True
+          ShowBorder = False
+          object dxLayoutControl1Item1: TdxLayoutItem
+            Caption = 'Importe:'
+            Control = eImporte
+            ControlOptions.ShowBorder = False
+          end
+          object dxLayoutControl1Item2: TdxLayoutItem
+            Caption = 'Otros gastos:'
+            Control = eOtrosGastos
+            ControlOptions.ShowBorder = False
+          end
+        end
+        object dxLayoutControl1Item3: TdxLayoutItem
+          AutoAligns = [aaVertical]
+          AlignHorz = ahClient
+          Caption = 'Importe total:'
+          Control = eImporteTotalRecibo
+          ControlOptions.ShowBorder = False
+        end
+      end
+    end
+    object dxLayoutControl1Group4: TdxLayoutGroup
+    end
+  end
+  object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
+    Left = 40
+    Top = 8
+    object LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel
+      ItemOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
+      ItemOptions.CaptionOptions.Font.Color = clWindowText
+      ItemOptions.CaptionOptions.Font.Height = -12
+      ItemOptions.CaptionOptions.Font.Name = 'Tahoma'
+      ItemOptions.CaptionOptions.Font.Style = [fsBold]
+      ItemOptions.CaptionOptions.UseDefaultFont = False
+    end
+  end
+end

Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas

@@ -0,0 +1,37 @@
+unit uViewReciboProvImportes;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics,
+  cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
+  cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
+  ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
+  cxDBLookupComboBox, cxCheckBox;
+
+type
+  TfrViewReciboProvImportes = class(TfrViewBase)
+    dxLayoutControl1Group_Root: TdxLayoutGroup;
+    dxLayoutControl1: TdxLayoutControl;
+    dxLayoutControl1Group1: TdxLayoutGroup;
+    dxLayoutControl1Group4: TdxLayoutGroup;
+    dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
+    LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel;
+    dxLayoutControl1Item1: TdxLayoutItem;
+    eImporte: TcxDBCurrencyEdit;
+    dxLayoutControl1Item2: TdxLayoutItem;
+    eOtrosGastos: TcxDBCurrencyEdit;
+    dxLayoutControl1Item3: TdxLayoutItem;
+    eImporteTotalRecibo: TcxCurrencyEdit;
+    dxLayoutControl1Group3: TdxLayoutGroup;
+  public
+    { Public declarations }
+  end;
+
+
+implementation
+
+{$R *.dfm}
+
+end.

Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm

@@ -1,29 +1,23 @@
 inherited frViewReciboProveedor: TfrViewReciboProveedor
-  Width = 690
+  Width = 618
-  Height = 350
+  Height = 342
-  ExplicitWidth = 690
+  ExplicitWidth = 618
-  ExplicitHeight = 350
+  ExplicitHeight = 342
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 690
+    Width = 618
-    Height = 350
+    Height = 342
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitHeight = 343
+    ExplicitWidth = 690
+    ExplicitHeight = 350
     DesignSize = (
-      690
+      618
-      350)
+      342)
-    object Bevel1: TBevel
-      Left = 136
-      Top = 270
-      Width = 210
-      Height = 9
-      Shape = bsBottomLine
-    end
     object eReferencia: TcxDBTextEdit
       Left = 136
       Top = 30
@@ -99,8 +93,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       Width = 216
     end
     object memObservaciones: TcxDBMemo
-      Left = 397
+      Left = 22
-      Top = 299
+      Top = 267
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'OBSERVACIONES'
       DataBinding.DataSource = DADataSource
@@ -112,37 +106,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 19
+      TabOrder = 7
       Height = 49
       Width = 274
     end
-    object eImporte: TcxDBCurrencyEdit
-      Left = 136
-      Top = 216
-      AutoSize = False
-      DataBinding.DataField = 'IMPORTE'
-      DataBinding.DataSource = DADataSource
-      Properties.Alignment.Horz = taRightJustify
-      Properties.ReadOnly = False
-      Properties.UseLeftAlignmentOnEditing = False
-      Properties.UseThousandSeparator = True
-      Properties.OnEditValueChanged = eImportePropertiesEditValueChanged
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
-      Style.HotTrack = False
-      Style.LookAndFeel.NativeStyle = True
-      Style.TextColor = clWindowText
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 6
-      Height = 21
-      Width = 194
-    end
     object eFechaEmision: TcxDBTextEdit
-      Left = 494
+      Left = 439
       Top = 57
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_FACTURA'
@@ -164,11 +133,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 10
+      TabOrder = 9
       Width = 20
     end
     object eFormaPago: TcxDBTextEdit
-      Left = 494
+      Left = 439
       Top = 84
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FORMA_PAGO_FACTURA'
@@ -190,11 +159,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 11
+      TabOrder = 10
       Width = 42
     end
     object eImporteTotal: TcxDBCurrencyEdit
-      Left = 494
+      Left = 439
       Top = 111
       AutoSize = False
       DataBinding.DataField = 'IMPORTE_FACTURA'
@@ -221,12 +190,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 12
+      TabOrder = 11
       Height = 21
       Width = 182
     end
     object eNombreCliente: TcxDBTextEdit
-      Left = 494
+      Left = 439
       Top = 194
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'NOMBRE_PROVEEDOR'
@@ -248,11 +217,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 14
+      TabOrder = 13
       Width = 171
     end
     object eNifCif: TcxDBTextEdit
-      Left = 494
+      Left = 439
       Top = 167
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'NIF_CIF_PROVEEDOR'
@@ -274,11 +243,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 13
+      TabOrder = 12
       Width = 147
     end
     object eEntidad: TcxDBTextEdit
-      Left = 494
+      Left = 439
       Top = 221
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'ENTIDAD_PROVEEDOR'
@@ -300,11 +269,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 15
+      TabOrder = 14
       Width = 90
     end
     object eSucursal: TcxDBTextEdit
-      Left = 569
+      Left = 514
       Top = 221
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'SUCURSAL_PROVEEDOR'
@@ -326,11 +295,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 16
+      TabOrder = 15
       Width = 75
     end
     object eDC: TcxDBTextEdit
-      Left = 618
+      Left = 563
       Top = 221
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'DC_PROVEEDOR'
@@ -352,11 +321,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 17
+      TabOrder = 16
       Width = 33
     end
     object eCuenta: TcxDBTextEdit
-      Left = 494
+      Left = 439
       Top = 248
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'CUENTA_PROVEEDOR'
@@ -378,7 +347,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 18
+      TabOrder = 17
       Width = 83
     end
     object eRemesa: TcxDBTextEdit
@@ -406,46 +375,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       TabOrder = 5
       Width = 113
     end
-    object eOtrosGastos: TcxDBCurrencyEdit
-      Left = 136
-      Top = 243
-      AutoSize = False
-      DataBinding.DataField = 'OTROS_GASTOS'
-      DataBinding.DataSource = DADataSource
-      Properties.Alignment.Horz = taRightJustify
-      Properties.ReadOnly = False
-      Properties.UseLeftAlignmentOnEditing = False
-      Properties.UseThousandSeparator = True
-      Properties.OnEditValueChanged = eImportePropertiesEditValueChanged
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clWindow
-      Style.HotTrack = False
-      Style.LookAndFeel.NativeStyle = True
-      Style.TextColor = clWindowText
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 7
-      Height = 21
-      Width = 111
-    end
-    object eImporteTotalRecibo: TcxCurrencyEdit
-      Left = 136
-      Top = 290
-      Enabled = False
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.HotTrack = False
-      Style.LookAndFeel.NativeStyle = True
-      Style.TextStyle = [fsBold]
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 8
-      Width = 121
-    end
     object edtFechaEmision: TcxDBDateEdit
       Left = 136
       Top = 84
@@ -497,7 +426,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       Width = 287
     end
     object rReferenciaFacturaProv: TcxDBTextEdit
-      Left = 494
+      Left = 439
       Top = 30
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
@@ -519,9 +448,35 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 9
+      TabOrder = 8
       Width = 157
     end
+    object rRefReciboCompensado: TcxDBTextEdit
+      Left = 136
+      Top = 216
+      Anchors = [akLeft, akTop, akRight]
+      DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
+      DataBinding.DataSource = DADataSource
+      Enabled = False
+      Properties.ReadOnly = False
+      Properties.ValidateOnEnter = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clInfoBk
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.Color = clMenuBar
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 6
+      Width = 216
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -575,27 +530,21 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
           end
         end
         object dxLayoutControl1Group9: TdxLayoutGroup
-          Caption = 'Importe del recibo'
+          Caption = 'Compensado en recibo'
-          object dxLayoutControl1Item6: TdxLayoutItem
-            AutoAligns = [aaVertical]
-            AlignHorz = ahClient
-            Caption = 'Importe:'
-            Control = eImporte
-            ControlOptions.ShowBorder = False
-          end
-          object dxLayoutControl1Item17: TdxLayoutItem
-            Caption = 'Otros gastos:'
-            Control = eOtrosGastos
-            ControlOptions.ShowBorder = False
-          end
-          object dxLayoutControl1Item18: TdxLayoutItem
-            Caption = ' '
-            Control = Bevel1
-            ControlOptions.ShowBorder = False
-          end
           object dxLayoutControl1Item4: TdxLayoutItem
-            Caption = 'Importe total:'
+            Caption = 'Ref. recibo:'
-            Control = eImporteTotalRecibo
+            Control = rRefReciboCompensado
+            ControlOptions.ShowBorder = False
+          end
+        end
+        object dxLayoutControl1Group7: TdxLayoutGroup
+          Caption = 'Observaciones'
+          object dxLayoutControl1Item5: TdxLayoutItem
+            AutoAligns = [aaHorizontal]
+            AlignVert = avClient
+            Caption = 'Observaciones:'
+            ShowCaption = False
+            Control = memObservaciones
             ControlOptions.ShowBorder = False
           end
         end
@@ -633,73 +582,57 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
             ControlOptions.ShowBorder = False
           end
         end
-        object dxLayoutControl1Group3: TdxLayoutGroup
+        object dxLayoutControl1Group6: TdxLayoutGroup
-          ShowCaption = False
+          AutoAligns = [aaHorizontal]
-          Hidden = True
+          AlignVert = avClient
-          ShowBorder = False
+          Caption = 'Datos del proveedor'
-          object dxLayoutControl1Group6: TdxLayoutGroup
+          Offsets.Top = 5
-            AutoAligns = [aaHorizontal]
+          object dxLayoutControl1Item11: TdxLayoutItem
-            AlignVert = avClient
+            Caption = 'NIF/CIF:'
-            Caption = 'Datos del proveedor'
+            Control = eNifCif
-            Offsets.Top = 5
+            ControlOptions.ShowBorder = False
-            object dxLayoutControl1Item11: TdxLayoutItem
+          end
-              Caption = 'NIF/CIF:'
+          object dxLayoutControl1Item10: TdxLayoutItem
-              Control = eNifCif
+            Caption = 'Nombre:'
-              ControlOptions.ShowBorder = False
+            Control = eNombreCliente
-            end
+            ControlOptions.ShowBorder = False
-            object dxLayoutControl1Item10: TdxLayoutItem
+          end
-              Caption = 'Nombre:'
+          object dxLayoutControl1Group4: TdxLayoutGroup
-              Control = eNombreCliente
+            ShowCaption = False
-              ControlOptions.ShowBorder = False
+            Hidden = True
-            end
+            ShowBorder = False
-            object dxLayoutControl1Group4: TdxLayoutGroup
+            object dxLayoutControl1Group11: TdxLayoutGroup
               ShowCaption = False
               Hidden = True
+              LayoutDirection = ldHorizontal
               ShowBorder = False
-              object dxLayoutControl1Group11: TdxLayoutGroup
+              object dxLayoutControl1Item12: TdxLayoutItem
-                ShowCaption = False
-                Hidden = True
-                LayoutDirection = ldHorizontal
-                ShowBorder = False
-                object dxLayoutControl1Item12: TdxLayoutItem
-                  AutoAligns = [aaVertical]
-                  AlignHorz = ahClient
-                  Caption = 'Entidad:'
-                  Control = eEntidad
-                  ControlOptions.ShowBorder = False
-                end
-                object dxLayoutControl1Item13: TdxLayoutItem
-                  AutoAligns = [aaVertical]
-                  AlignHorz = ahClient
-                  Caption = 'Sucursal:'
-                  Control = eSucursal
-                  ControlOptions.ShowBorder = False
-                end
-                object dxLayoutControl1Item14: TdxLayoutItem
-                  AutoAligns = [aaVertical]
-                  AlignHorz = ahRight
-                  Caption = 'DC:'
-                  Control = eDC
-                  ControlOptions.ShowBorder = False
-                end
-              end
-              object dxLayoutControl1Item15: TdxLayoutItem
                 AutoAligns = [aaVertical]
                 AlignHorz = ahClient
-                Caption = 'C'#243'd. cuenta:'
+                Caption = 'Entidad:'
-                Control = eCuenta
+                Control = eEntidad
+                ControlOptions.ShowBorder = False
+              end
+              object dxLayoutControl1Item13: TdxLayoutItem
+                AutoAligns = [aaVertical]
+                AlignHorz = ahClient
+                Caption = 'Sucursal:'
+                Control = eSucursal
+                ControlOptions.ShowBorder = False
+              end
+              object dxLayoutControl1Item14: TdxLayoutItem
+                AutoAligns = [aaVertical]
+                AlignHorz = ahRight
+                Caption = 'DC:'
+                Control = eDC
                 ControlOptions.ShowBorder = False
               end
             end
-          end
+            object dxLayoutControl1Item15: TdxLayoutItem
-          object dxLayoutControl1Group7: TdxLayoutGroup
+              AutoAligns = [aaVertical]
-            Caption = 'Observaciones'
+              AlignHorz = ahClient
-            object dxLayoutControl1Item5: TdxLayoutItem
+              Caption = 'C'#243'd. cuenta:'
-              AutoAligns = [aaHorizontal]
+              Control = eCuenta
-              AlignVert = avClient
-              Caption = 'Observaciones:'
-              ShowCaption = False
-              Control = memObservaciones
               ControlOptions.ShowBorder = False
             end
           end

Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas

@@ -29,8 +29,6 @@ type
     edtFechaVencimiento: TcxDBDateEdit;
     dxLayoutControl1Item5: TdxLayoutItem;
     memObservaciones: TcxDBMemo;
-    dxLayoutControl1Item6: TdxLayoutItem;
-    eImporte: TcxDBCurrencyEdit;
     dxLayoutControl1Group1: TdxLayoutGroup;
     dxLayoutControl1Item7: TdxLayoutItem;
     eFechaEmision: TcxDBTextEdit;
@@ -55,27 +53,21 @@ type
     dxLayoutControl1Group8: TdxLayoutGroup;
     dxLayoutControl1Item16: TdxLayoutItem;
     eRemesa: TcxDBTextEdit;
-    dxLayoutControl1Item17: TdxLayoutItem;
-    eOtrosGastos: TcxDBCurrencyEdit;
     dxLayoutControl1Group4: TdxLayoutGroup;
-    eImporteTotalRecibo: TcxCurrencyEdit;
-    dxLayoutControl1Item4: TdxLayoutItem;
     dxLayoutControl1Group2: TdxLayoutGroup;
     dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
     dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
     dxLayoutControl1Group7: TdxLayoutGroup;
     dxLayoutControl1Group9: TdxLayoutGroup;
-    dxLayoutControl1Item18: TdxLayoutItem;
-    Bevel1: TBevel;
     dxLayoutControl1Group11: TdxLayoutGroup;
     dxLayoutControl1Item19: TdxLayoutItem;
     edtFechaEmision: TcxDBDateEdit;
-    dxLayoutControl1Group3: TdxLayoutGroup;
     dxLayoutControl1Item20: TdxLayoutItem;
     eReferenciaProveedor: TcxDBTextEdit;
     dxLayoutControl1Item21: TdxLayoutItem;
     rReferenciaFacturaProv: TcxDBTextEdit;
-    procedure eImportePropertiesEditValueChanged(Sender: TObject);
+    dxLayoutControl1Item4: TdxLayoutItem;
+    rRefReciboCompensado: TcxDBTextEdit;
   private
     FRecibo : IBizRecibosProveedor;
     function GetRecibo: IBizRecibosProveedor;
@@ -93,12 +85,6 @@ implementation
 
 { TfrViewReciboProveedor }
 
-procedure TfrViewReciboProveedor.eImportePropertiesEditValueChanged(Sender: TObject);
-begin
-  inherited;
-  eImporteTotalRecibo.Value := eImporte.Value + eOtrosGastos.Value;
-end;
-
 function TfrViewReciboProveedor.GetRecibo: IBizRecibosProveedor;
 begin
   Result := FRecibo;

Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.dfm

@@ -0,0 +1,237 @@
+inherited frViewRecibosProvCompensados: TfrViewRecibosProvCompensados
+  Width = 549
+  Height = 376
+  OnShow = CustomViewShow
+  ExplicitWidth = 549
+  ExplicitHeight = 376
+  inherited cxGrid: TcxGrid
+    Width = 549
+    Height = 351
+    ExplicitWidth = 549
+    ExplicitHeight = 351
+    inherited cxGridView: TcxGridDBTableView
+      DataController.KeyFieldNames = 'RecID'
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Format = ',0.00 '#8364';-,0.00 '#8364
+          Kind = skSum
+          Column = cxGridViewIMPORTE_TOTAL
+        end>
+      OptionsCustomize.ColumnMoving = True
+      OptionsData.Appending = False
+      OptionsData.CancelOnExit = True
+      OptionsData.Deleting = False
+      OptionsData.Editing = False
+      OptionsData.Inserting = False
+      OptionsView.Footer = True
+      OptionsView.GroupFooters = gfAlwaysVisible
+      object cxGridViewRecId: TcxGridDBColumn [0]
+        DataBinding.FieldName = 'RecId'
+        Visible = False
+      end
+      object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
+        DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
+        Visible = False
+      end
+      object cxGridViewREFERENCIA: TcxGridDBColumn
+        Caption = 'Referencia'
+        DataBinding.FieldName = 'REFERENCIA'
+      end
+      object cxGridViewSITUACION: TcxGridDBColumn
+        Caption = 'Situaci'#243'n'
+        DataBinding.FieldName = 'SITUACION'
+      end
+      object cxGridViewFECHA_EMISION: TcxGridDBColumn
+        Caption = 'Fecha emisi'#243'n'
+        DataBinding.FieldName = 'FECHA_EMISION'
+      end
+      object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
+        Caption = 'Fecha vencimiento'
+        DataBinding.FieldName = 'FECHA_VENCIMIENTO'
+      end
+      object cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn
+        Caption = 'NIF/CIF'
+        DataBinding.FieldName = 'NIF_CLIF_PROVEEDOR'
+      end
+      object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn
+        Caption = 'Proveedor'
+        DataBinding.FieldName = 'NOMBRE_PROVEEDOR'
+      end
+      object cxGridViewIMPORTE: TcxGridDBColumn
+        Caption = 'Importe'
+        DataBinding.FieldName = 'IMPORTE'
+      end
+      object cxGridViewOTROS_GASTOS: TcxGridDBColumn
+        Caption = 'Otros gastos'
+        DataBinding.FieldName = 'OTROS_GASTOS'
+      end
+      object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
+        Caption = 'Importe total'
+        DataBinding.FieldName = 'IMPORTE_TOTAL'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
+      end
+    end
+  end
+  inherited ToolBar1: TToolBar
+    Width = 549
+    ExplicitWidth = 549
+    inherited ToolButton1: TToolButton
+      ExplicitWidth = 62
+    end
+    inherited ToolButton4: TToolButton
+      ExplicitWidth = 74
+    end
+    inherited ToolButton2: TToolButton
+      ExplicitWidth = 67
+    end
+    inherited ToolButton7: TToolButton
+      ExplicitWidth = 117
+    end
+    object ToolButton3: TToolButton
+      Left = 336
+      Top = 2
+      Action = actExpandir
+      AutoSize = True
+    end
+    object ToolButton8: TToolButton
+      Left = 434
+      Top = 2
+      Action = actContraer
+      AutoSize = True
+    end
+  end
+  inherited ContenidoImageList: TPngImageList
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD252000000F84944415478DA
+          63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA
+          6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4
+          0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F
+          FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF
+          63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911
+          BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4
+          0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B
+          39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945
+          4E44AE426082}
+        Name = 'PngImage0'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA
+          A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304
+          451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994
+          9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F
+          9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546
+          031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8
+          1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA
+          9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E
+          9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8
+          E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0
+          3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8
+          5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37
+          60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB
+          7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932
+          75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04
+          E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148
+          D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2
+          45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56
+          A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E
+          AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13
+          7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058
+          5538F0EAB25B380000000049454E44AE426082}
+        Name = 'PngImage1'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD2520000015D4944415478DA
+          63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
+          3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
+          24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
+          E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
+          60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
+          10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
+          1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
+          BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
+          06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
+          E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
+          00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
+          00000049454E44AE426082}
+        Name = 'PngImage2'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD252000001124944415478DA
+          63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28
+          0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC
+          886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2
+          908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81
+          3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC
+          E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC
+          76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5
+          CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818
+          601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082}
+        Name = 'PngImage3'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD252000000DF4944415478DA
+          63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B
+          2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA
+          CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0
+          8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501
+          F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9
+          56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF
+          FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1
+          6B0000000049454E44AE426082}
+        Name = 'PngImage4'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD252000000914944415478DA
+          63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312
+          FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB
+          EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE
+          000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8
+          30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082}
+        Name = 'PngImage5'
+        Background = clWindow
+      end>
+    Bitmap = {}
+  end
+  inherited ActionListContenido: TActionList
+    inherited actModificar: TAction
+      Enabled = False
+      Visible = False
+    end
+    object actExpandir: TAction
+      Category = 'Operaciones'
+      Caption = 'Expandir todo'
+      ImageIndex = 4
+      Visible = False
+      OnExecute = actExpandirExecute
+      OnUpdate = actExpandirUpdate
+    end
+    object actContraer: TAction
+      Category = 'Operaciones'
+      Caption = 'Contraer todo'
+      ImageIndex = 5
+      Visible = False
+      OnExecute = actContraerExecute
+      OnUpdate = actContraerUpdate
+    end
+  end
+end

Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas

@@ -0,0 +1,193 @@
+unit uViewRecibosProvCompensados;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics, cxFilter,
+  cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList, PngImageList,
+  uDADataTable, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
+  cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosProveedor,
+  uBizRecibosProveedor, uRecibosProveedorController, Grids, DBGrids, cxSpinEdit,
+  dxLayoutControl;
+
+type
+  IViewRecibosCompensados = interface
+  ['{C683669A-002A-432D-BC20-3FA50BEA8721}']
+    function GetReciboProveedor: IBizRecibosProveedor;
+    procedure SetReciboProveedor(const Value: IBizRecibosProveedor);
+    property ReciboProveedor: IBizRecibosProveedor read GetReciboProveedor write SetReciboProveedor;
+
+    function GetController : IRecibosProveedorController;
+    procedure SetController (const Value : IRecibosProveedorController);
+    property Controller : IRecibosProveedorController read GetController write SetController;
+  end;
+
+  TfrViewRecibosProvCompensados = class(TfrViewDetallesGenerico, IViewRecibosCompensados)
+    actExpandir: TAction;
+    actContraer: TAction;
+    ToolButton3: TToolButton;
+    ToolButton8: TToolButton;
+    cxGridViewREFERENCIA: TcxGridDBColumn;
+    cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
+    cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
+    cxGridViewSITUACION: TcxGridDBColumn;
+    cxGridViewFECHA_EMISION: TcxGridDBColumn;
+    cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
+    cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn;
+    cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn;
+    cxGridViewIMPORTE: TcxGridDBColumn;
+    cxGridViewOTROS_GASTOS: TcxGridDBColumn;
+    cxGridViewRecId: TcxGridDBColumn;
+    procedure actExpandirExecute(Sender: TObject);
+    procedure actContraerExecute(Sender: TObject);
+    procedure CustomViewShow(Sender: TObject);
+    procedure actEliminarUpdate(Sender: TObject);
+    procedure actExpandirUpdate(Sender: TObject);
+    procedure actContraerUpdate(Sender: TObject);
+    procedure actAnadirUpdate(Sender: TObject);
+  protected
+    FHayCambios : Boolean;
+    FReciboProveedor : IBizRecibosProveedor;
+    FController : IRecibosProveedorController;
+
+    procedure AnadirInterno; override;
+    procedure EliminarInterno; override;
+
+    function GetReciboProveedor: IBizRecibosProveedor;
+    procedure SetReciboProveedor(const Value: IBizRecibosProveedor);
+
+    function GetModified: Boolean; override;
+    procedure SetModified(const Value: Boolean); override;
+
+    function GetController : IRecibosProveedorController;
+    procedure SetController (const Value : IRecibosProveedorController);
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    property ReciboProveedor: IBizRecibosProveedor read GetReciboProveedor write SetReciboProveedor;
+    property Controller : IRecibosProveedorController read GetController write SetController;
+  end;
+
+
+implementation
+
+{$R *.dfm}
+
+uses
+  uCustomView; 
+
+{ TfrViewFacturasReciboProveedor }
+
+procedure TfrViewRecibosProvCompensados.actAnadirUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := (ReciboProveedor.SITUACION <> CTE_PAGADO);
+end;
+
+procedure TfrViewRecibosProvCompensados.actContraerExecute(Sender: TObject);
+begin
+  inherited;
+  cxGridView.ViewData.Collapse(True);
+end;
+
+procedure TfrViewRecibosProvCompensados.actContraerUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := HayDatos;
+end;
+
+procedure TfrViewRecibosProvCompensados.actEliminarUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0)
+                              and (cxGridView.Controller.SelectedRows[0].HasCells)
+                              and (ReciboProveedor.SITUACION <> CTE_PAGADO));
+end;
+
+procedure TfrViewRecibosProvCompensados.actExpandirExecute(Sender: TObject);
+begin
+  inherited;
+  cxGridView.ViewData.Expand(True);
+end;
+
+procedure TfrViewRecibosProvCompensados.actExpandirUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := HayDatos;
+end;
+
+procedure TfrViewRecibosProvCompensados.AnadirInterno;
+begin
+  //inherited;  // No hacer el comportamiento normal
+  if FController.ElegirRecibosCompensados(ReciboProveedor) then
+     Modified := True;
+end;
+
+constructor TfrViewRecibosProvCompensados.Create(AOwner: TComponent);
+begin
+  inherited;
+  FHayCambios := False;
+end;
+
+procedure TfrViewRecibosProvCompensados.CustomViewShow(Sender: TObject);
+begin
+  inherited;
+  cxGridView.OptionsSelection.MultiSelect := False;
+end;
+
+destructor TfrViewRecibosProvCompensados.Destroy;
+begin
+  inherited;
+end;
+
+procedure TfrViewRecibosProvCompensados.EliminarInterno;
+begin
+  if cxGridView.Controller.SelectedRowCount > 0 then
+     if cxGridView.Controller.SelectedRows[0].HasCells then
+//  ViewGrid._FocusedView.Controller.SelectedRecordCount
+  FController.QuitarReciboCompensado(ReciboProveedor);
+  Modified := True;
+end;
+
+function TfrViewRecibosProvCompensados.GetController: IRecibosProveedorController;
+begin
+  Result := FController;
+end;
+
+function TfrViewRecibosProvCompensados.GetModified: Boolean;
+begin
+  Result := FHayCambios or inherited GetModified;
+end;
+
+function TfrViewRecibosProvCompensados.GetReciboProveedor: IBizRecibosProveedor;
+begin
+  Result := FReciboProveedor;
+end;
+
+procedure TfrViewRecibosProvCompensados.SetController(
+  const Value: IRecibosProveedorController);
+begin
+  FController := Value;
+end;
+
+procedure TfrViewRecibosProvCompensados.SetModified(const Value: Boolean);
+begin
+  FHayCambios := Value;
+  inherited;
+end;
+
+procedure TfrViewRecibosProvCompensados.SetReciboProveedor(const Value: IBizRecibosProveedor);
+begin
+  FReciboProveedor := Value;
+  FHayCambios := False;
+  if Assigned(FReciboProveedor) then
+    dsDetalles.DataTable := FReciboProveedor.RecibosCompensados.DataTable
+  else
+    dsDetalles.DataTable := NIL;
+
+  actAnchoAutomatico.Execute;     
+end;
+
+end.

Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm

@@ -38,6 +38,15 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
         DataBinding.FieldName = 'REFERENCIA'
         Width = 71
       end
+      object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
+        Caption = 'Compensado'
+        DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
+        OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell
+      end
+      object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
+        Caption = 'Ref. recibo compensado'
+        DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO'
+      end
       object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
         Caption = 'Ref. proveedor'
         DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
@@ -276,6 +285,26 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
           0049454E44AE426082}
         Name = 'PngImage1'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000774494D45000000000000000973942E000000097048597300001712
+          0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9
+          2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD
+          3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E
+          E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290
+          60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF
+          FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232
+          E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043
+          C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF
+          194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4
+          67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A
+          91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA
+          9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583
+          000005100EB8572466A60000000049454E44AE426082}
+        Name = 'PngImage2'
+        Background = clWindow
       end>
     Left = 56
     Top = 48

Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas

@@ -49,6 +49,8 @@ type
     TBXItem2: TTBXItem;
     TBXSeparatorItem1: TTBXSeparatorItem;
     cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn;
+    cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
+    cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn;
     procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
       ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
       var ADone: Boolean);
@@ -60,6 +62,9 @@ type
       var AText: string);
     procedure actProveedorExecute(Sender: TObject);
     procedure actProveedorUpdate(Sender: TObject);
+    procedure cxGridViewID_RECIBO_COMPENSADOCustomDrawCell(
+      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
 
   private
     //Filtros relativos a la vista
@@ -180,6 +185,22 @@ begin
 }  
 end;
 
+procedure TfrViewRecibosProveedor.cxGridViewID_RECIBO_COMPENSADOCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  if not VarIsNull(AViewInfo.Value) then
+  begin
+    R := AViewInfo.ContentBounds;
+    ACanvas.FillRect(R);
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2);
+    ADone := True;
+  end;
+end;
+
 procedure TfrViewRecibosProveedor.cxGridViewIMPORTE_TOTALGetDisplayText(
   Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
   var AText: string);

Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas

@@ -270,7 +270,7 @@ var
 begin
   Result := False;
 
-  ARecibosSeleccionados := (FRecibosProveedorController.ElegirRecibos(FRecibosProveedorController.BuscarTodosPendientesDevueltos, 'Elija uno o más recibos para incluirlos en esta remesa', True) as IBizRecibosProveedor);
+  ARecibosSeleccionados := (FRecibosProveedorController.ElegirRecibos(FRecibosProveedorController.BuscarRecibosARemesar, 'Elija uno o más recibos para incluirlos en esta remesa', True) as IBizRecibosProveedor);
   if Assigned(ARecibosSeleccionados) then
   begin
      ShowHourglassCursor;
@@ -351,7 +351,7 @@ end;
 
 procedure TRemesasProveedorController.RecuperarRecibos(ARemesaProveedor: IBizRemesaProveedor);
 begin
-  ARemesaProveedor.Recibos := RecibosProveedorController.BuscarTodosRemesa(ARemesaProveedor.ID);
+  ARemesaProveedor.Recibos := RecibosProveedorController.BuscarRecibosRemesa(ARemesaProveedor.ID);
 end;
 
 function TRemesasProveedorController.Existe(const ID: Integer): Boolean;

Source/Servidor/FactuGES_Server.dpr

@@ -116,17 +116,17 @@ uses
   schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas',
   schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
   schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
-  schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
-  schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
-  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
-  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
   srvInformes_Impl in '..\Modulos\Informes base\Servidor\srvInformes_Impl.pas' {srvInformes: TDARemoteService},
   srvInfVentasArticulo_Impl in '..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas' {srvInfVentasArticulo: TDARemoteService},
   schInfVentasArticuloClient_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas',
   schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas',
   schInformesServer_Intf in '..\Modulos\Informes base\Model\schInformesServer_Intf.pas',
   schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_Intf.pas',
-  uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas';
+  uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
+  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
+  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
+  schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
+  schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,1,1,0
+FILEVERSION 2,1,0,0
-PRODUCTVERSION 2,1,1,0
+PRODUCTVERSION 2,1,0,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
     BEGIN
          BLOCK "0C0904E4"
          BEGIN
-              VALUE "FileVersion", "2.1.1.0\0"
+              VALUE "FileVersion", "2.1.0.0\0"
-              VALUE "ProductVersion", "2.1.1.0\0"
+              VALUE "ProductVersion", "2.1.0.0\0"
-              VALUE "CompileDate", "lunes, 09 de julio de 2007 19:04\0"
+              VALUE "CompileDate", "miércoles, 11 de julio de 2007 16:01\0"
          END
     END
     BLOCK "VarFileInfo"