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

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

@@ -140,12 +140,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
           Left = 268
           ExplicitLeft = 268
         end
-        inherited Button1: TBitBtn
-          OnClick = frViewClienteAlbaranButton1Click
-        end
-        inherited Button2: TBitBtn
-          OnClick = frViewClienteAlbaranButton2Click
-        end
         inherited Button3: TBitBtn
           Left = 158
           ExplicitLeft = 158
@@ -160,6 +154,9 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
         inherited actElegirContacto: TAction
           OnUpdate = frViewClienteAlbaranactElegirContactoUpdate
         end
+        inherited actAnadirContacto: TAction
+          OnUpdate = frViewClienteAlbaranactAnadirContactoUpdate
+        end
       end
       inherited PngImageList: TPngImageList
         Top = 65528

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

@@ -114,6 +114,7 @@ type
     procedure actVerPedidoCliUpdate(Sender: TObject);
     procedure frViewClienteAlbaranButton1Click(Sender: TObject);
     procedure frViewClienteAlbaranButton2Click(Sender: TObject);
+    procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
 
   protected
     FAlbaran : IBizAlbaranCliente;
@@ -306,6 +307,12 @@ begin
   end;
 end;
 
+procedure TfrViewAlbaranCliente.frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
+begin
+  if (Sender as TAction).Enabled then
+     (Sender as TAction).Enabled := not Assigned(FPedidoAsociado);
+end;
+
 procedure TfrViewAlbaranCliente.frViewClienteAlbaranactElegirContactoUpdate(Sender: TObject);
 begin
   if (Sender as TAction).Enabled then