Repaso del combobox de filtro por año.

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@63 f33bb606-9f5c-448d-9c99-757f00063c96

Source/GUIBase/uEditorGridBase.dfm

@@ -96,9 +96,12 @@ inherited fEditorGridBase: TfEditorGridBase
       ShrinkMode = tbsmNone
       TabOrder = 0
       object lblAno: TSpTBXLabelItem
-        Caption = 'A'#241'o'
+        Caption = 'A'#241'o:'
         Visible = False
       end
+      object TBControlItem1: TTBControlItem
+        Control = cbxListaAnos
+      end
       object sepAno: TSpTBXSeparatorItem
         Visible = False
       end
@@ -118,11 +121,8 @@ inherited fEditorGridBase: TfEditorGridBase
       object TBXItem37: TSpTBXItem
         Action = actFiltrar
       end
-      object TBControlItem1: TTBControlItem
-        Control = cbxListaAnos
-      end
       object cbxListaAnos: TSpTBXComboBox
-        Left = 197
+        Left = 0
         Top = 0
         Width = 145
         Height = 21

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas

@@ -477,7 +477,7 @@ end;
 
 procedure TfEditorAlbaranesCliente.OnListaAnosChange(Sender: TObject);
 begin
-  Controller.FiltrarAno(Albaranes, DynWhereDataTable, Text);
+  Controller.FiltrarAno(Albaranes, DynWhereDataTable, cbxListaAnos.Text);
   if Albaranes.DataTable.Active then
      RefrescarInterno;
 end;

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas

@@ -308,7 +308,7 @@ end;
 
 procedure TfEditorAlbaranesProveedor.OnListaAnosChange(Sender: TObject);
 begin
-  Controller.FiltrarAno(Albaranes, DynWhereDataTable, Text);
+  Controller.FiltrarAno(Albaranes, DynWhereDataTable, cbxListaAnos.Text);
   if Albaranes.DataTable.Active then
      RefrescarInterno;
 end;

Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas

@@ -379,7 +379,7 @@ end;
 
 procedure TfEditorFacturasCliente.OnListaAnosChange(Sender: TObject);
 begin
-  Controller.FiltrarAno(Facturas, DynWhereDataTable, Text);
+  Controller.FiltrarAno(Facturas, DynWhereDataTable, cbxListaAnos.Text);
   if Facturas.DataTable.Active then
      RefrescarInterno;
 end;

Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas

@@ -357,7 +357,7 @@ end;
 
 procedure TfEditorFacturasProveedor.OnListaAnosChange(Sender: TObject);
 begin
-  Controller.FiltrarAno(Facturas, DynWhereDataTable, Text);
+  Controller.FiltrarAno(Facturas, DynWhereDataTable, cbxListaAnos.Text);
   if Facturas.DataTable.Active then
      RefrescarInterno;
 end;

Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas

@@ -370,7 +370,7 @@ end;
 
 procedure TfEditorPedidosProveedor.OnListaAnosChange(Sender: TObject);
 begin
-  Controller.FiltrarAno(Pedidos, DynWhereDataTable, Text);
+  Controller.FiltrarAno(Pedidos, DynWhereDataTable, cbxListaAnos.Text);
   if Pedidos.DataTable.Active then
      RefrescarInterno;
 end;

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas

@@ -522,7 +522,7 @@ end;
 
 procedure TfEditorPresupuestosCliente.OnListaAnosChange(Sender: TObject);
 begin
-  Controller.FiltrarAno(Presupuestos, DynWhereDataTable, Text);
+  Controller.FiltrarAno(Presupuestos, DynWhereDataTable, cbxListaAnos.Text);
   if Presupuestos.DataTable.Active then
      RefrescarInterno;
 end;

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

@@ -3,7 +3,7 @@ unit schRecibosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -207,7 +207,7 @@ type
   end;
 
   { TListaAnosRecibosDataTableRules }
-  TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
+  TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos)
   private
   protected
     { Property getters and setters }
@@ -440,7 +440,7 @@ type
   end;
 
   { TRecibosClienteDataTableRules }
-  TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
+  TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
   private
   protected
     { Property getters and setters }
@@ -739,7 +739,7 @@ type
   end;
 
   { TPagosClienteDataTableRules }
-  TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
+  TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
   private
   protected
     { Property getters and setters }
@@ -1014,7 +1014,7 @@ type
   end;
 
   { TRecibosCompensadosCliDataTableRules }
-  TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
+  TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
   private
   protected
     { Property getters and setters }

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

@@ -191,7 +191,7 @@ end;
 
 procedure TfEditorRecibosProveedor.OnListaAnosChange(Sender: TObject);
 begin
-  Controller.FiltrarAno(RecibosProveedor, DynWhereDataTable, Text);
+  Controller.FiltrarAno(RecibosProveedor, DynWhereDataTable, cbxListaAnos.Text);
   if RecibosProveedor.DataTable.Active then
      RefrescarInterno;
 end;

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 	<PropertyGroup>
 		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "lunes, 25 de enero de 2010 12:01\0"
+              VALUE "CompileDate", "lunes, 25 de enero de 2010 18:22\0"
          END
     END
     BLOCK "VarFileInfo"