From 149747887032f4eb2ed25db02445712cc0c7d095 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Fri, 10 Oct 2008 09:15:17 +0000
Subject: [PATCH] =?UTF-8?q?Arreglado=20problema=20con=20acciones=20que=20n?=
 =?UTF-8?q?o=20permit=C3=ADa=20a=C3=B1adir=20un=20cap=C3=ADtulo.?=
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@678 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/GUIBase/uViewDetallesBase.dfm |  1 +
 Source/GUIBase/uViewDetallesBase.pas | 10 +++++-----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/Source/GUIBase/uViewDetallesBase.dfm b/Source/GUIBase/uViewDetallesBase.dfm
index b074717b..a65ad50a 100644
--- a/Source/GUIBase/uViewDetallesBase.dfm
+++ b/Source/GUIBase/uViewDetallesBase.dfm
@@ -218,6 +218,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       end
       object cxGridViewPOSICION: TcxGridDBColumn
         DataBinding.FieldName = 'POSICION'
+        Visible = False
         BestFitMaxWidth = 25
         MinWidth = 50
         SortIndex = 0
diff --git a/Source/GUIBase/uViewDetallesBase.pas b/Source/GUIBase/uViewDetallesBase.pas
index 0cbee54d..53b54d21 100644
--- a/Source/GUIBase/uViewDetallesBase.pas
+++ b/Source/GUIBase/uViewDetallesBase.pas
@@ -331,7 +331,7 @@ end;
 procedure TfrViewDetallesBase.actAnadirCapituloUpdate(Sender: TObject);
 begin
   inherited;
-  (Sender as TAction).Enabled := not ReadOnly and (cxGrid.Focused);
+  (Sender as TAction).Enabled := not ReadOnly;
 end;
 
 procedure TfrViewDetallesBase.actAnadirDescuentoExecute(Sender: TObject);
@@ -365,7 +365,7 @@ end;
 procedure TfrViewDetallesBase.actAnadirDescuentoUpdate(Sender: TObject);
 begin
   inherited;
-  (Sender as TAction).Enabled := not ReadOnly and (cxGrid.Focused);
+  (Sender as TAction).Enabled := not ReadOnly;
 end;
 
 procedure TfrViewDetallesBase.actAnadirExecute(Sender: TObject);
@@ -427,7 +427,7 @@ end;
 procedure TfrViewDetallesBase.actAnadirSubtotalUpdate(Sender: TObject);
 begin
   inherited;
-  (Sender as TAction).Enabled := not ReadOnly and (cxGrid.Focused);
+  (Sender as TAction).Enabled := not ReadOnly;
 end;
 
 procedure TfrViewDetallesBase.actAnadirTituloExecute(Sender: TObject);
@@ -1100,7 +1100,7 @@ end;
 procedure TfrViewDetallesBase.actAnchoAutomaticoUpdate(Sender: TObject);
 begin
   inherited;
-  (Sender as TAction).Enabled := not IsEmpty and (cxGrid.Focused);
+  (Sender as TAction).Enabled := not IsEmpty;
 end;
 
 procedure TfrViewDetallesBase.actBajarExecute(Sender: TObject);
@@ -1187,7 +1187,7 @@ end;
 procedure TfrViewDetallesBase.actSeleccionarTodoUpdate(Sender: TObject);
 begin
   inherited;
-  (Sender as TAction).Enabled := Assigned(DADataSource.DataTable) and (cxGrid.Focused);
+  (Sender as TAction).Enabled := Assigned(DADataSource.DataTable);
 end;
 
 procedure TfrViewDetallesBase.actSubirExecute(Sender: TObject);