diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
index 9b40ddd6..782a4400 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas	
@@ -284,8 +284,12 @@ end;
 procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
 begin
   if Assigned(FPresupuesto) then
+  begin
+  	FPresupuesto.Cliente := ViewPresupuesto.ViewClientePresupuesto.Cliente;
+
     if (FPresupuesto.Detalles.RecordCount > 0) then
       FController.DetallesController.ActualizarDetalles(FPresupuesto.Detalles, FPresupuesto.Cliente);
+  end;
 end;
 
 procedure TfEditorPresupuestoCliente.pgPaginasChanging(Sender: TObject;