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

El botón de eliminar estaba activado cuando en el grid no había ninguna fila seleccionada.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@368 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-05-12 10:47:29 +00:00
parent ac8d55701b
commit 34b0799e47
3 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/GUIBase/uEditorGridBase.pas
View File

@ -162,10 +162,11 @@ end;
procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject); procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject);
begin begin
inherited; inherited;
if HayDatos and Assigned(ViewGrid) then if HayDatos and Assigned(ViewGrid) then
(Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes) (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
and not ViewGrid.IsEmpty
and ViewGrid.esSeleccionCeldaDatos and ViewGrid.esSeleccionCeldaDatos
and (ViewGrid.NumSeleccionados > 0)
else else
(Sender as TAction).Enabled := False; (Sender as TAction).Enabled := False;
end; end;

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas
View File

@ -34,7 +34,9 @@ uses
procedure TfEditorAlbaranDevCliente.actEliminarUpdate(Sender: TObject); procedure TfEditorAlbaranDevCliente.actEliminarUpdate(Sender: TObject);
begin begin
(Sender as TAction).Enabled := HayDatos and (FAlbaran.REF_FACTURA = ''); inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (FAlbaran.REF_FACTURA = '');
end; end;
procedure TfEditorAlbaranDevCliente.AsignarVista; procedure TfEditorAlbaranDevCliente.AsignarVista;

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas
View File

@ -31,7 +31,9 @@ uses
procedure TfEditorAlbaranesDevCliente.actEliminarUpdate(Sender: TObject); procedure TfEditorAlbaranesDevCliente.actEliminarUpdate(Sender: TObject);
begin begin
(Sender as TAction).Enabled := HayDatos and (FAlbaranes.REF_FACTURA = ''); inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (FAlbaranes.REF_FACTURA = '');
end; end;
procedure TfEditorAlbaranesDevCliente.AsignarVista; procedure TfEditorAlbaranesDevCliente.AsignarVista;