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;