From 4334153e7070653586d9d5365ce8cccc278a52c4 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Mon, 4 Aug 2008 14:02:19 +0000
Subject: [PATCH] =?UTF-8?q?Pedidos=20a=20proveedor=20->=20Cuando=20se=20ab?=
 =?UTF-8?q?re=20un=20pedido=20ya=20entregado,=20el=20apartado=20de=20direc?=
 =?UTF-8?q?ci=C3=B3n=20de=20entrega=20no=20sal=C3=ADa=20como=20s=C3=B3lo?=
 =?UTF-8?q?=20lectura.?=
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@500 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Views/uViewDireccionEntregaPedidoProv.dfm                 | 4 ++--
 .../Views/uViewDireccionEntregaPedidoProv.pas                 | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm
index fa1f5743..caba3502 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm	
@@ -84,7 +84,7 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
       Left = 25
       Top = 133
       Width = 551
-      Height = 264
+      Height = 257
       AutoSize = False
       BevelKind = bkFlat
       TabOrder = 5
@@ -154,7 +154,7 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 7
-      Width = 506
+      Width = 334
     end
     object dxLayoutGroup1: TdxLayoutGroup
       ShowCaption = False
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas
index 81c5231e..6fc8a9a1 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas	
@@ -297,7 +297,8 @@ begin
   if ReadOnly then
   begin
     rdxDestino1.Enabled := False;
-    rdxDestino2.Enabled := False;    
+    rdxDestino2.Enabled := False;
+    RadioButton1.Enabled := False;
   end;
 end;