From 34b0799e4719a114ee8828109089325ceabe191d Mon Sep 17 00:00:00 2001 From: david Date: Mon, 12 May 2008 10:47:29 +0000 Subject: [PATCH] =?UTF-8?q?El=20bot=C3=B3n=20de=20eliminar=20estaba=20acti?= =?UTF-8?q?vado=20cuando=20en=20el=20grid=20no=20hab=C3=ADa=20ninguna=20fi?= =?UTF-8?q?la=20seleccionada.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@368 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/GUIBase/uEditorGridBase.pas | 3 ++- .../Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas | 4 +++- .../Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas | 4 +++- 3 files changed, 8 insertions(+), 3 deletions(-) diff --git a/Source/GUIBase/uEditorGridBase.pas b/Source/GUIBase/uEditorGridBase.pas index 89f07407..d2fcbeec 100644 --- a/Source/GUIBase/uEditorGridBase.pas +++ b/Source/GUIBase/uEditorGridBase.pas @@ -162,10 +162,11 @@ end; procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject); begin inherited; + if HayDatos and Assigned(ViewGrid) then (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes) - and not ViewGrid.IsEmpty and ViewGrid.esSeleccionCeldaDatos + and (ViewGrid.NumSeleccionados > 0) else (Sender as TAction).Enabled := False; end; diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas index 0178501b..d662a5da 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas @@ -34,7 +34,9 @@ uses procedure TfEditorAlbaranDevCliente.actEliminarUpdate(Sender: TObject); 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; procedure TfEditorAlbaranDevCliente.AsignarVista; diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas index 8c5ded50..30db082c 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas @@ -31,7 +31,9 @@ uses procedure TfEditorAlbaranesDevCliente.actEliminarUpdate(Sender: TObject); 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; procedure TfEditorAlbaranesDevCliente.AsignarVista;