Arreglo en albaranes de cliente para que en la pantalla albarandecliente el botón eliminar este desactivado cuando no se pueda eliminar el albaran

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@279 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm

@@ -181,6 +181,42 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         inherited ToolBar1: TToolBar
           Width = 757
           ExplicitWidth = 757
+          inherited UpDown1: TUpDown
+            Left = 236
+            ExplicitLeft = 236
+          end
+          inherited ToolButton13: TToolButton
+            Left = 253
+            ExplicitLeft = 253
+          end
+          inherited ToolButton6: TToolButton
+            Left = 261
+            ExplicitLeft = 261
+          end
+          inherited ToolButton7: TToolButton
+            Left = 295
+            ExplicitLeft = 295
+          end
+          inherited ToolButton8: TToolButton
+            Left = 329
+            ExplicitLeft = 329
+          end
+          inherited ToolButton12: TToolButton
+            Left = 363
+            ExplicitLeft = 363
+          end
+          inherited ToolButton9: TToolButton
+            Left = 371
+            ExplicitLeft = 371
+          end
+          inherited ToolButton10: TToolButton
+            Left = 405
+            ExplicitLeft = 405
+          end
+          inherited ToolButton11: TToolButton
+            Left = 439
+            ExplicitLeft = 439
+          end
         end
         inherited cxGrid: TcxGrid
           Width = 757
@@ -200,10 +236,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas

@@ -34,6 +34,7 @@ type
       var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
     procedure frViewTotales1edtIVAPropertiesValidate(Sender: TObject;
       var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+    procedure actEliminarUpdate(Sender: TObject);
   private
     procedure RecalcularPortePorUnidad;
 
@@ -86,6 +87,14 @@ uses
 {
 **************************** TfEditorAlbaranCliente ****************************
 }
+procedure TfEditorAlbaranCliente.actEliminarUpdate(Sender: TObject);
+begin
+  inherited;
+  if (Sender as TAction).Enabled then
+     (Sender as TAction).Enabled := (FAlbaran.SITUACION = SITUACION_ALBARAN_PENDIENTE)
+                                    and not (FAlbaran.ID_FACTURA > 0)
+end;
+
 procedure TfEditorAlbaranCliente.AsignarVista;
 var
   AViewAlbaranCliente: TfrViewAlbaranCliente;