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);