Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Inventario: creación de pestañas de almacenes/obras un poco más rápida.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@728 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-11-04 18:01:45 +00:00
parent 6eec6e6931
commit d7e17fd787
2 changed files with 31 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Inventario/Views/uViewInventario.dfm
View File

@ -3,7 +3,7 @@ inherited frViewInventario: TfrViewInventario
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID_ALMACEN; ID_ARTICULO' DataController.KeyFieldNames = 'RECID'
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364

10
Source/Modulos/Inventario/Views/uViewInventario.pas
View File

@ -166,6 +166,8 @@ begin
if Assigned(FAlmacenes) then if Assigned(FAlmacenes) then
begin begin
cxGrid.BeginUpdate;
try
cxGridLevel.Caption := 'Todos los almacenes'; cxGridLevel.Caption := 'Todos los almacenes';
if not FAlmacenes.DataTable.Active then if not FAlmacenes.DataTable.Active then
FAlmacenes.DataTable.Active := True; FAlmacenes.DataTable.Active := True;
@ -178,6 +180,9 @@ begin
Nivel.Tag := FAlmacenes.ID; Nivel.Tag := FAlmacenes.ID;
FAlmacenes.Next; FAlmacenes.Next;
end; end;
finally
cxGrid.EndUpdate;
end;
end; end;
end; end;
@ -198,6 +203,8 @@ begin
if Assigned(FObras) then if Assigned(FObras) then
begin begin
cxGrid.BeginUpdate;
try
cxGridLevel.Caption := 'Todos las obras'; cxGridLevel.Caption := 'Todos las obras';
if not FObras.DataTable.Active then if not FObras.DataTable.Active then
FObras.DataTable.Active := True; FObras.DataTable.Active := True;
@ -210,6 +217,9 @@ begin
Nivel.Tag := FObras.ID; Nivel.Tag := FObras.ID;
FObras.Next; FObras.Next;
end; end;
finally
cxGrid.EndUpdate;
end;
end; end;
end; end;