From 6d8e75b508827f164f5bdf8b0b9d6c75fdcf11d8 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 13 Oct 2010 19:03:22 +0000
Subject: [PATCH] Ticket #440 -> No copia bien el telefono desde el presupuesto
 al contrato cuando lo aceptamos

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@543 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../uGenerarContratosCliUtils.pas             | 26 +++++++++++--------
 1 file changed, 15 insertions(+), 11 deletions(-)

diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
index b5ebe7e1..88cc6728 100644
--- a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas	
+++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas	
@@ -87,19 +87,23 @@ begin
   APresupuestosClienteController.RecuperarCliente(APresupuesto);
   APresupuesto.Cliente.Open;
   FDireccion := ADireccionesController.Nuevo;
-  if (not APresupuesto.ID_DIRECCIONIsNull) and
-     (ADireccionesController.Localizar(APresupuesto.Cliente.Direcciones, APresupuesto.ID_DIRECCION)) then
-      ADireccionesController.CopiarDireccion(APresupuesto.Cliente.Direcciones, FDireccion)
-  else
-      ADireccionesController.CopiarDireccionFiscal(APresupuesto.Cliente, FDireccion);
+  try
+    if (not APresupuesto.ID_DIRECCIONIsNull) and
+       (ADireccionesController.Localizar(APresupuesto.Cliente.Direcciones, APresupuesto.ID_DIRECCION)) then
+        ADireccionesController.CopiarDireccion(APresupuesto.Cliente.Direcciones, FDireccion)
+    else
+        ADireccionesController.CopiarDireccionFiscal(APresupuesto.Cliente, FDireccion);
 
-  AContrato.CALLE := FDireccion.CALLE;
-  AContrato.POBLACION := FDireccion.POBLACION;
-  AContrato.PROVINCIA := FDireccion.PROVINCIA;
-  AContrato.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
-//  AContrato.TELEFONO := 
-  FDireccion := Nil;
+    AContrato.CALLE := FDireccion.CALLE;
+    AContrato.POBLACION := FDireccion.POBLACION;
+    AContrato.PROVINCIA := FDireccion.PROVINCIA;
+    AContrato.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
+  finally
+    FDireccion := NIL;
+  end;
 
+  AContrato.TELEFONO := APresupuesto.Cliente.TELEFONO_1;
+  AContrato.MOVIL := APresupuesto.Cliente.MOVIL_1;
 
   AContrato.PERSONA_CONTACTO := APresupuesto.PERSONA_CONTACTO;
   AContrato.DataTable.FieldByName(fld_ContratosClientePLAZO_ENTREGA).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClientePLAZO_ENTREGA).AsVariant;