From bcbfe41c5cc2482750c9162989d207073684d605 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 11 Dec 2008 15:50:00 +0000
Subject: [PATCH] Ficha de presupuesto de cliente: faltaba asignar ID_CLIENTE
 al presupuesto cuando se empezaba nuevo.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@803 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Views/uEditorPresupuestoCliente.pas                       | 4 ++++
 1 file changed, 4 insertions(+)

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;