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

Arreglado problema con acciones que no permitía añadir un capítulo.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@678 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-10-10 09:15:17 +00:00
parent 605da19565
commit 1497478870
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -218,6 +218,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object cxGridViewPOSICION: TcxGridDBColumn object cxGridViewPOSICION: TcxGridDBColumn
DataBinding.FieldName = 'POSICION' DataBinding.FieldName = 'POSICION'
Visible = False
BestFitMaxWidth = 25 BestFitMaxWidth = 25
MinWidth = 50 MinWidth = 50
SortIndex = 0 SortIndex = 0

10
Source/GUIBase/uViewDetallesBase.pas
View File

@ -331,7 +331,7 @@ end;
procedure TfrViewDetallesBase.actAnadirCapituloUpdate(Sender: TObject); procedure TfrViewDetallesBase.actAnadirCapituloUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := not ReadOnly and (cxGrid.Focused); (Sender as TAction).Enabled := not ReadOnly;
end; end;
procedure TfrViewDetallesBase.actAnadirDescuentoExecute(Sender: TObject); procedure TfrViewDetallesBase.actAnadirDescuentoExecute(Sender: TObject);
@ -365,7 +365,7 @@ end;
procedure TfrViewDetallesBase.actAnadirDescuentoUpdate(Sender: TObject); procedure TfrViewDetallesBase.actAnadirDescuentoUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := not ReadOnly and (cxGrid.Focused); (Sender as TAction).Enabled := not ReadOnly;
end; end;
procedure TfrViewDetallesBase.actAnadirExecute(Sender: TObject); procedure TfrViewDetallesBase.actAnadirExecute(Sender: TObject);
@ -427,7 +427,7 @@ end;
procedure TfrViewDetallesBase.actAnadirSubtotalUpdate(Sender: TObject); procedure TfrViewDetallesBase.actAnadirSubtotalUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := not ReadOnly and (cxGrid.Focused); (Sender as TAction).Enabled := not ReadOnly;
end; end;
procedure TfrViewDetallesBase.actAnadirTituloExecute(Sender: TObject); procedure TfrViewDetallesBase.actAnadirTituloExecute(Sender: TObject);
@ -1100,7 +1100,7 @@ end;
procedure TfrViewDetallesBase.actAnchoAutomaticoUpdate(Sender: TObject); procedure TfrViewDetallesBase.actAnchoAutomaticoUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := not IsEmpty and (cxGrid.Focused); (Sender as TAction).Enabled := not IsEmpty;
end; end;
procedure TfrViewDetallesBase.actBajarExecute(Sender: TObject); procedure TfrViewDetallesBase.actBajarExecute(Sender: TObject);
@ -1187,7 +1187,7 @@ end;
procedure TfrViewDetallesBase.actSeleccionarTodoUpdate(Sender: TObject); procedure TfrViewDetallesBase.actSeleccionarTodoUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := Assigned(DADataSource.DataTable) and (cxGrid.Focused); (Sender as TAction).Enabled := Assigned(DADataSource.DataTable);
end; end;
procedure TfrViewDetallesBase.actSubirExecute(Sender: TObject); procedure TfrViewDetallesBase.actSubirExecute(Sender: TObject);