Fallo en los editores con un combobox de año y en modo selección. Cuando se cambia de año no se limpiaba bien la lista de filas seleccionadas.

git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@17 9a1d36f3-7752-2d40-8ccb-50eb49674c68

Cliente/FactuGES.dof

@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=1
 MinorVer=5
-Release=2
+Release=4
 Build=0
 Debug=0
 PreRelease=0
@@ -126,13 +126,13 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=1.5.2.0
+FileVersion=1.5.4.0
 InternalName=FactuGES
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=FactuGES
-ProductVersion=1.5.2.0
+ProductVersion=1.5.4.0
 Comments=
 [Excluded Packages]
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.

Modulos/Albaranes de cliente/Cliente/uEditorAlbaranCliente.dfm

@@ -50,7 +50,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
   inherited pgPaginas: TPageControl
     Width = 763
     Height = 328
-    ActivePage = pagContenido
     inherited pagGeneral: TTabSheet
       inline frViewAlbaranCliente1: TfrViewAlbaranCliente
         Left = 0

Modulos/Albaranes de cliente/Cliente/uEditorAlbaranesCliente.pas

@@ -58,7 +58,9 @@ type
 
 implementation
 
-uses uDataModuleAlbaranesCliente, uViewAlbaranesCliente, uEditorUtils;
+uses
+  uDataModuleAlbaranesCliente, uViewAlbaranesCliente, uEditorUtils,
+  uDBSelectionList;
 
 {$R *.dfm}
 
@@ -222,10 +224,17 @@ begin
 end;
 
 procedure TfEditorAlbaranesCliente.OnListaAnosChange(Sender: TObject; const Text: string);
+var
+  aAux : ISelectedRowList;
 begin
   dmAlbaranesCliente.FiltrarAno(AlbaranesCliente, WhereDataTable, Text);
   if AlbaranesCliente.DataTable.Active then
      actRefrescar.Execute;
+
+  // Quitar las selecciones que hubiera anteriormente porque ya no valen
+  if Supports(AlbaranesCliente, ISelectedRowList, aAux) then
+    if (aAux.SelectedRows.Count > 0) then
+      aAux.SelectedRows.Clear;
 end;
 
 initialization

Modulos/Albaranes de cliente/Cliente/uViewAlbaranCliente.dfm

@@ -40,37 +40,33 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
     inherited edtlNombre: TcxDBTextEdit
       StyleDisabled.BorderStyle = ebsNone
       StyleDisabled.TextColor = clActiveCaption
-      Height = 21
       Width = 296
     end
     inherited edtPoblacion: TcxDBTextEdit
       StyleDisabled.BorderStyle = ebsNone
       StyleDisabled.TextColor = clActiveCaption
       TabOrder = 4
-      Height = 21
       Width = 296
     end
     inherited edtProvincia: TcxDBTextEdit
       StyleDisabled.BorderStyle = ebsNone
       StyleDisabled.TextColor = clActiveCaption
       TabOrder = 3
-      Height = 21
       Width = 152
     end
     inherited edtNIFCIF: TcxDBTextEdit
       StyleDisabled.BorderStyle = ebsNone
       StyleDisabled.TextColor = clActiveCaption
-      Height = 21
       Width = 296
     end
     inherited edtCalle: TcxDBTextEdit
       StyleDisabled.BorderStyle = ebsNone
       StyleDisabled.TextColor = clActiveCaption
-      Height = 21
       Width = 296
     end
     inherited ToolBar2: TToolBar
       Left = 181
+      Width = 182
       ButtonWidth = 178
       inherited ToolButton4: TToolButton
         Caption = 'Ver ficha completa del cliente...'
@@ -79,7 +75,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
     inherited edtCodigoPostal: TcxDBTextEdit
       StyleDisabled.BorderStyle = ebsNone
       StyleDisabled.TextColor = clActiveCaption
-      Height = 21
       Width = 105
     end
     inherited DADataSource: TDADataSource
@@ -107,15 +102,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
     ParentFont = False
     TabOrder = 1
     ReadOnly = False
-    inherited edtFecha: TcxDBDateEdit
-      Width = 245
-    end
-    inherited edtFechaPago: TcxDBDateEdit
-      Width = 245
-    end
-    inherited eReferencia: TcxDBTextEdit
-      Width = 245
-    end
   end
   inline frViewFormaPago1: TfrViewFormaPago
     Left = 0
@@ -176,10 +162,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
     ParentFont = False
     TabOrder = 4
     ReadOnly = False
-    inherited edtlReferencia: TcxDBTextEdit
-      Height = 21
-      Width = 245
-    end
   end
   object DADataSource: TDADataSource
   end

Modulos/Albaranes de cliente/Cliente/uViewAlbaranCliente.pas

@@ -65,10 +65,16 @@ procedure TfrViewAlbaranCliente.OnPresupuestoChanged(Sender: TObject);
 begin
   if not (FAlbaranCliente.DataTable.State in dsEditModes) then
     FAlbaranCliente.Edit;
-  FAlbaranCliente.CODIGOPRESUPUESTO := frViewPresupuestoAlbaran1.Presupuesto.CODIGO;
-  FAlbaranCliente.CopyFrom(frViewPresupuestoAlbaran1.Presupuesto);
-  frViewDatosYSeleccionContacto1.Contacto := FAlbaranCliente.Cliente;
-  MessageBox(0, 'Se ha copiado correctamente el presupuesto elegido en este albarán.', 'Presupuesto copiado', MB_ICONWARNING or MB_OK);
+  ShowMessage(IntToStr(frViewPresupuestoAlbaran1.Presupuesto.CODIGO));
+  try
+    FAlbaranCliente.CODIGOPRESUPUESTO := frViewPresupuestoAlbaran1.Presupuesto.CODIGO;
+    FAlbaranCliente.CopyFrom(frViewPresupuestoAlbaran1.Presupuesto);
+    frViewDatosYSeleccionContacto1.Contacto := FAlbaranCliente.Cliente;
+    MessageBox(0, 'Se ha copiado correctamente el presupuesto elegido en este albarán.', 'Presupuesto copiado', MB_ICONWARNING or MB_OK);
+  except
+    on E : Exception do
+      ShowMessage(E.ClassName+' error raised, with message : '+E.Message);
+  end;
 end;
 
 procedure TfrViewAlbaranCliente.SetAlbaranCliente(

Modulos/Calendarios/Cliente/Calendarios.dof

@@ -142,12 +142,12 @@ Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
 Count=16
-Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
-Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
-Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
-Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
-Item4=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
+Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
+Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
+Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
 Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
 Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
 Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
@@ -163,8 +163,8 @@ Count=1
 Item0=.\
 [HistoryLists\hlOutputDirectorry]
 Count=2
-Item0=..\Output\Servidor
-Item1=..\Output\Cliente
+Item0=..\Output\Cliente
+Item1=..\Output\Servidor
 [HistoryLists\hlBPLOutput]
 Count=3
 Item0=..\..\..\Output\Cliente

Modulos/Calendarios/Cliente/Calendarios.dpk

@@ -66,6 +66,7 @@ requires
   JvStdCtrlsD7R;
 
 contains
+  schCitasClient_Intf,
   uPluginControllerCalendarios in 'uPluginControllerCalendarios.pas' {ModuleCalendarios: TModuleController},
   uDataModuleCalendarios in 'uDataModuleCalendarios.pas' {dmCalendarios: TDAClientDataModule},
   uViewCalendarioBase in 'uViewCalendarioBase.pas' {frViewCalendarioBase: TCustomView},
@@ -73,7 +74,9 @@ contains
   uEditorCalendarioBase in 'uEditorCalendarioBase.pas' {fEditorCalendarioBase: TCustomEditor},
   uEditorCalendarioMediciones in 'uEditorCalendarioMediciones.pas' {fEditorCalendarioMediciones: TCustomEditor},
   uViewCalendarioConFiltro in 'uViewCalendarioConFiltro.pas' {frViewCalendarioConFiltro: TCustomView},
+  uViewCalendarioMediciones in 'uViewCalendarioMediciones.pas' {frViewCalendarioMediciones: TCustomView},  
   EditorEventos in 'EditorEventos.pas' {frEditorEventos},
   uEditorCalendarioConFiltro in 'uEditorCalendarioConFiltro.pas' {fEditorCalendarioConFiltro: TCustomEditor};
 
+
 end.

Modulos/Calendarios/Cliente/uEditorCalendarioBase.dfm

@@ -41,6 +41,9 @@ inherited fEditorCalendarioBase: TfEditorCalendarioBase
       OnExecute = actEliminarExecute
       OnUpdate = actEliminarUpdate
     end
+    inherited actPrevisualizar: TAction
+      OnExecute = actPrevisualizarExecute
+    end
     inherited actImprimir: TAction
       OnExecute = actImprimirExecute
     end

Modulos/Calendarios/Cliente/uEditorCalendarioBase.pas

@@ -58,6 +58,7 @@ type
     procedure cxSchedulerBeforeEditing(Sender: TcxCustomScheduler;
       AEvent: TcxSchedulerControlEvent; AInplace: Boolean;
       var Allow: Boolean);
+    procedure actPrevisualizarExecute(Sender: TObject);
 
   private
     FCitas: IBizCitas;
@@ -118,7 +119,12 @@ begin
   FViewCitas := Value;
 
   if Assigned(FViewCitas) then
+  begin
      FViewCitas.Calendario.OnBeforeEditing := cxSchedulerBeforeEditing;
+     dxComponentPrinter1Link2.Component := FViewCitas.Calendario;
+  end
+  else
+    dxComponentPrinter1Link2.Component := NIL;
 end;
 
 procedure TfEditorCalendarioBase.FormShow(Sender: TObject);
@@ -304,4 +310,30 @@ begin
   end;
 end;
 
+procedure TfEditorCalendarioBase.actPrevisualizarExecute(Sender: TObject);
+begin
+  inherited;
+  with FViewCitas.Calendario do
+  begin
+    with dxComponentPrinter1Link2.PrintStyles do
+    begin
+      if ViewDay.Active then
+      begin
+        Daily.Active := True;
+        FViewCitas.pAnchorDate := SelectedDays.Items[0];
+      end
+      else
+        if ViewWeek.Active then
+          Weekly.Active := True
+        else begin
+          Monthly.Active := True;
+          FViewCitas.pAnchorDate := SelectedDays.Items[SelectedDays.Count DIV 2];
+        end;
+    end;
+    dxComponentPrinter1Link2.PrintRange.PrintFrom := FViewCitas.pAnchorDate;
+    dxComponentPrinter1Link2.PrintRange.PrintTo := FViewCitas.pAnchorDate;
+    dxComponentPrinter1.Preview(True, nil);
+  end;
+end;
+
 end.

Modulos/Calendarios/Cliente/uViewCalendarioBase.dfm

@@ -1,12 +1,12 @@
 inherited frViewCalendarioBase: TfrViewCalendarioBase
-  Width = 443
-  Height = 270
+  Width = 772
+  Height = 277
   Align = alClient
   object cxScheduler: TcxScheduler
     Left = 0
     Top = 0
-    Width = 443
-    Height = 270
+    Width = 772
+    Height = 277
     DateNavigator.RowCount = 2
     DateNavigator.ShowWeekNumbers = False
     ViewDay.Active = True
@@ -37,9 +37,8 @@ inherited frViewCalendarioBase: TfrViewCalendarioBase
     ParentFont = True
     ShowHint = True
     TabOrder = 0
-    Selection = 1
     Splitters = {
-      2C010000FA000000BB010000FF00000027010000000000002C0100000E010000}
-    StoredClientBounds = {0000000000000000BB0100000E010000}
+      75020000FA00000004030000FF00000070020000000000007502000015010000}
+    StoredClientBounds = {00000000000000000403000015010000}
   end
 end

Modulos/Calendarios/Reglas/uBizCitas.pas

@@ -67,12 +67,12 @@ type
     IApplyUpdateFailedException)
   private
     procedure BeforeApplyUpdates(Sender: TDADataTable; const Delta: IDADelta);
-    procedure BeforePost(Sender: TDADataTable);
-    procedure OnPostError(DataTable: TDADataTable; Error: EDatabaseError;
-      var Action: TDataAction); override;
   protected
+    procedure BeforePost(Sender: TDADataTable); override;
     procedure OnNewRecord(Sender: TDADataTable); override;
     procedure ShowApplyUpdateFailed (const Error: EDAApplyUpdateFailed); virtual;
+    procedure OnPostError(DataTable: TDADataTable; Error: EDatabaseError;
+      var Action: TDataAction); override;
   public
     constructor Create(aDataTable: TDADataTable); override;
     destructor Destroy; override;

Modulos/Facturas de cliente/Cliente/uEditorFacturasCliente.pas

@@ -50,7 +50,7 @@ implementation
 
 uses
   uDataModuleFacturasCliente, uViewFacturasCliente,
-  uEditorUtils;
+  uEditorUtils, uDBSelectionList;
 
 {$R *.dfm}
 
@@ -159,10 +159,17 @@ begin
 end;
 
 procedure TfEditorFacturasCliente.OnListaAnosChange(Sender: TObject; const Text: string);
+var
+  aAux : ISelectedRowList;
 begin
   dmFacturasCliente.FiltrarAno(FacturasCliente, WhereDataTable, Text);
   if FacturasCliente.DataTable.Active then
      actRefrescar.Execute;
+
+  // Quitar las selecciones que hubiera anteriormente porque ya no valen
+  if Supports(FacturasCliente, ISelectedRowList, aAux) then
+    if (aAux.SelectedRows.Count > 0) then
+      aAux.SelectedRows.Clear;
 end;
 
 initialization

Modulos/Facturas de proveedor/Cliente/uEditorFacturasProveedor.pas

@@ -47,7 +47,7 @@ implementation
 
 uses
   uDataModuleFacturasProveedor, uViewFacturasProveedor,
-  uEditorUtils;
+  uEditorUtils, uDBSelectionList;
 
 {$R *.dfm}
 
@@ -149,10 +149,17 @@ begin
 end;
 
 procedure TfEditorFacturasProveedor.OnListaAnosChange(Sender: TObject; const Text: string);
+var
+  aAux : ISelectedRowList;
 begin
   dmFacturasProveedor.FiltrarAno(FacturasProveedor, WhereDataTable, Text);
   if FacturasProveedor.DataTable.Active then
      actRefrescar.Execute;
+
+  // Quitar las selecciones que hubiera anteriormente porque ya no valen
+  if Supports(FacturasProveedor, ISelectedRowList, aAux) then
+    if (aAux.SelectedRows.Count > 0) then
+      aAux.SelectedRows.Clear;
 end;
 
 initialization

Modulos/Montajes/Cliente/uEditorMontajes.pas

@@ -55,9 +55,9 @@ type
 implementation
 
 uses
-  uCustomEditor, uDataModuleMontajes,
+  uCustomEditor, uDataModuleMontajes, uDBSelectionList,
   uEditorMontaje, uEditorDBBase, uEditorUtils,
-  cxGrid, cxGridCustomTableView, uDBSelectionList, uBizPresupuestosCliente,
+  cxGrid, cxGridCustomTableView, uBizPresupuestosCliente,
   uDataModulePresupuestos;
 
 {$R *.dfm}
@@ -199,10 +199,17 @@ begin
 end;
 
 procedure TfEditorMontajes.OnListaAnosChange(Sender: TObject; const Text: string);
+var
+  aAux : ISelectedRowList;
 begin
   dmMontajes.FiltrarAno(Montajes, WhereDataTable, Text);
   if Montajes.DataTable.Active then
      actRefrescar.Execute;
+
+  // Quitar las selecciones que hubiera anteriormente porque ya no valen
+  if Supports(Montajes, ISelectedRowList, aAux) then
+    if (aAux.SelectedRows.Count > 0) then
+      aAux.SelectedRows.Clear;
 end;
 
 initialization

Modulos/Pagos/Cliente/uEditorPagos.pas

@@ -120,10 +120,17 @@ begin
 end;
 
 procedure TfEditorPagos.OnListaAnosChange(Sender: TObject; const Text: string);
+var
+  aAux : ISelectedRowList;
 begin
   dmPagos.FiltrarAno(Pagos, WhereDataTable, Text);
   if Pagos.DataTable.Active then
      actRefrescar.Execute;
+
+  // Quitar las selecciones que hubiera anteriormente porque ya no valen
+  if Supports(Pagos, ISelectedRowList, aAux) then
+    if (aAux.SelectedRows.Count > 0) then
+      aAux.SelectedRows.Clear;
 end;
 
 end.

Modulos/Pedidos a proveedor/Cliente/uEditorPedidosProveedor.pas

@@ -54,7 +54,9 @@ var
 
 implementation
 
-uses uDataModulePedidosProveedor, uEditorUtils, uBizPresupuestosCliente, uDataModulePresupuestos;
+uses
+  uDataModulePedidosProveedor, uEditorUtils, uBizPresupuestosCliente,
+  uDataModulePresupuestos, uDBSelectionList;
 
 {$R *.DFM}
 
@@ -189,10 +191,17 @@ end;
 
 procedure TfEditorPedidosProveedor.OnListaAnosChange(Sender: TObject;
   const Text: string);
+var
+  aAux : ISelectedRowList;
 begin
   dmPedidos.FiltrarAno(PedidosProveedor, WhereDataTable, Text);
   if PedidosProveedor.DataTable.Active then
      actRefrescar.Execute;
+
+  // Quitar las selecciones que hubiera anteriormente porque ya no valen
+  if Supports(PedidosProveedor, ISelectedRowList, aAux) then
+    if (aAux.SelectedRows.Count > 0) then
+      aAux.SelectedRows.Clear;
 end;
 
 procedure TfEditorPedidosProveedor.FormShow(Sender: TObject);

Modulos/Presupuestos/Cliente/uEditorPresupuestos.pas

@@ -70,7 +70,7 @@ var
 implementation
 
 uses cxControls, uDataModulePresupuestos, uEditorUtils, uEditorBase,
-  DateUtils, uDataModuleMontajes;
+  DateUtils, uDataModuleMontajes, uDBSelectionList;
 
 {$R *.DFM}
 
@@ -262,10 +262,17 @@ begin
 end;
 
 procedure TfEditorPresupuestos.OnListaAnosChange(Sender: TObject; const Text: string);
+var
+  aAux : ISelectedRowList;
 begin
   dmPresupuestos.FiltrarAno(Presupuestos, WhereDataTable, Text);
   if Presupuestos.DataTable.Active then
      actRefrescar.Execute;
+
+  // Quitar las selecciones que hubiera anteriormente porque ya no valen
+  if Supports(Presupuestos, ISelectedRowList, aAux) then
+    if (aAux.SelectedRows.Count > 0) then
+      aAux.SelectedRows.Clear;
 end;
 
 procedure TfEditorPresupuestos.FormShow(Sender: TObject);