diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj
index e9a428d4..f58c19ec 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj	
+++ b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj	
@@ -49,27 +49,27 @@
     <DelphiCompile Include="PedidosProveedor_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Contratos de cliente\Almacenes_controller.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Almacenes_model.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Articulos_view.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\Contactos_view.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\ContratosCliente_controller.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\ContratosCliente_model.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\dxCoreD11.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\GUIBase.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\PedidosProveedor_controller.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\PedidosProveedor_model.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\rtl.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\tb2k_d10.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\vcl.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\..\Contratos de cliente\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ContratosCliente_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ContratosCliente_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
       <Form>fEditorDireccionEntregaPedidoProveedor </Form>
       <DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>
diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res and b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res differ
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
index bfe35109..c09f1246 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm	
@@ -111,7 +111,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
             ExplicitWidth = 357
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 357
-              ExplicitWidth = 318
               inherited edtlNombre: TcxDBTextEdit
                 ExplicitWidth = 283
                 Width = 283
@@ -166,8 +165,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 273
               Height = 166
-              ExplicitWidth = 499
-              ExplicitHeight = 20
               inherited rdxDestino1: TRadioButton
                 Width = 253
                 ExplicitWidth = 253
@@ -227,7 +224,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
             ExplicitWidth = 357
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 357
-              ExplicitWidth = 318
               inherited cbTienda: TcxComboBox
                 ExplicitWidth = 390
                 Width = 390
@@ -239,7 +235,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
             ExplicitWidth = 422
             inherited memObservaciones: TcxDBMemo
               DataBinding.DataSource = frViewPedidoProveedor1.DADataSource
-              ExplicitWidth = 363
               Width = 422
             end
           end
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
index 1d759174..07ce0e33 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas	
@@ -151,7 +151,8 @@ begin
   Pedido.DataTable.Active := True;
   pgPaginas.ActivePage := pagGeneral;
 
-  frViewPedidoProveedor1.frViewDireccionEntregaPedidoProv1.CambioDireccionAlmacen;
+  if Assigned(Pedido) and not Pedido.ID_ALMACENIsNull then
+     frViewPedidoProveedor1.frViewDireccionEntregaPedidoProv1.CambioDireccionAlmacen;
 end;
 
 procedure TfEditorPedidoProveedor.frViewTotales1ePortePropertiesValidate(
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas
index 457ab169..0e47b0b0 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas	
@@ -93,7 +93,7 @@ procedure TfrViewDireccionEntregaPedidoProv.actListaClienteExecute(
 begin
   inherited;
   actListaCliente.Checked := True;
-  RefrescarDireccion;
+  CambioDireccionCliente;
 end;
 
 procedure TfrViewDireccionEntregaPedidoProv.actListaExecute(Sender: TObject);