From ec5e7e3b2d5e3a1714133844666b13e3aa5f3284 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 17 Sep 2008 15:21:33 +0000
Subject: [PATCH] =?UTF-8?q?Arreglo=20en=20albaranes=20de=20cliente=20para?=
 =?UTF-8?q?=20que=20en=20la=20pantalla=20albarandecliente=20el=20bot=C3=B3?=
 =?UTF-8?q?n=20eliminar=20este=20desactivado=20cuando=20no=20se=20pueda=20?=
 =?UTF-8?q?eliminar=20el=20albaran?=
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.LuisLeon_FactuGES/trunk@279 c93665c3-c93d-084d-9b98-7d5f4a9c3376
---
 .../Views/uEditorAlbaranCliente.dfm           | 40 +++++++++++++++++--
 .../Views/uEditorAlbaranCliente.pas           |  9 +++++
 2 files changed, 45 insertions(+), 4 deletions(-)

diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
index cf5c4550..0be6dadb 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm	
+++ b/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
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
index 934f7871..a19403db 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas	
+++ b/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;