Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso del combobox de filtro por año.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@63 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-01-25 17:33:32 +00:00
parent 9d2c9364a9
commit 7e29fa7456
13 changed files with 351 additions and 351 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/Base.res
View File

Binary file not shown.

10
Source/GUIBase/uEditorGridBase.dfm
View File

@ -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

2
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -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;

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -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;

2
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -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;

2
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
View File

@ -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;

2
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
View File

@ -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;

2
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -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;

10
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -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 }

2
Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas
View File

@ -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;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -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>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -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"