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

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

@ -166,17 +166,22 @@ begin
if Assigned(FAlmacenes) then if Assigned(FAlmacenes) then
begin begin
cxGridLevel.Caption := 'Todos los almacenes'; cxGrid.BeginUpdate;
if not FAlmacenes.DataTable.Active then try
FAlmacenes.DataTable.Active := True; cxGridLevel.Caption := 'Todos los almacenes';
if not FAlmacenes.DataTable.Active then
FAlmacenes.DataTable.Active := True;
FAlmacenes.First; FAlmacenes.First;
while not FAlmacenes.EOF do while not FAlmacenes.EOF do
begin begin
Nivel := cxGrid.Levels.Add; Nivel := cxGrid.Levels.Add;
Nivel.Caption := FAlmacenes.NOMBRE; Nivel.Caption := FAlmacenes.NOMBRE;
Nivel.Tag := FAlmacenes.ID; Nivel.Tag := FAlmacenes.ID;
FAlmacenes.Next; FAlmacenes.Next;
end;
finally
cxGrid.EndUpdate;
end; end;
end; end;
end; end;
@ -198,17 +203,22 @@ begin
if Assigned(FObras) then if Assigned(FObras) then
begin begin
cxGridLevel.Caption := 'Todos las obras'; cxGrid.BeginUpdate;
if not FObras.DataTable.Active then try
FObras.DataTable.Active := True; cxGridLevel.Caption := 'Todos las obras';
if not FObras.DataTable.Active then
FObras.DataTable.Active := True;
FObras.First; FObras.First;
while not FObras.EOF do while not FObras.EOF do
begin begin
Nivel := cxGrid.Levels.Add; Nivel := cxGrid.Levels.Add;
Nivel.Caption := FObras.NOMBRE; Nivel.Caption := FObras.NOMBRE;
Nivel.Tag := FObras.ID; Nivel.Tag := FObras.ID;
FObras.Next; FObras.Next;
end;
finally
cxGrid.EndUpdate;
end; end;
end; end;
end; end;