diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
index 28841704..d388da83 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm	
@@ -14,7 +14,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     Caption = 'Nuevo presupuesto de cliente'
     ExplicitWidth = 764
     inherited Image1: TImage
-      Left = 737
+      Left = 631
       Picture.Data = {
         0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
         0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -124,6 +124,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         960000000049454E44AE426082}
       ExplicitLeft = 735
     end
+    inherited lblDesbloquear: TcxLabel
+      Left = 666
+      ExplicitLeft = 666
+    end
   end
   inherited TBXDock: TTBXDock
     Width = 764
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
index fe2213e8..ac34a290 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas	
@@ -18,7 +18,8 @@ uses
   uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesPresupuestoCliente,
   uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor, cxPC,
   uViewDetallesArticulosParaVenta, uViewDocumentos,
-  uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto;
+  uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto,
+  cxLabel;
 
 type
   TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas
index 2fb18061..67adf026 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas	
@@ -247,7 +247,7 @@ var
   ADireccion : IBizDireccionesContacto;
 begin
   inherited;
-  ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, 'dssdsdds');
+  ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, ' ');
 
   if Assigned(ADireccion) then
   begin
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
index 64dd1ee7..ab049dc6 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas	
@@ -178,10 +178,10 @@ end;
 
 procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject);
 begin
+  inherited;
   FFormasPago := Nil;
   FFormasPagoController := NIL;
   FViewClientePresupuesto := NIL;
-  inherited;
 end;
 
 procedure TfrViewPresupuestoCliente.frViewClientePresupuestoButton1Click(Sender: TObject);