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;