From bb35240d8ebf5cabcbc3fe72419b008fca6942d9 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Fri, 23 May 2014 18:13:18 +0000
Subject: [PATCH] Tarea #1345 -> Al pasar un presupuesto a contrato, en las
 condiciones mete un espacio en blanco.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@592 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../uGenerarContratosCliUtils.pas                    | 12 ++++++------
 1 file changed, 6 insertions(+), 6 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 deedce83..c76cad7c 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	
@@ -254,17 +254,17 @@ begin
     AContrato := AContratosClienteController.Nuevo;
     CopiarPresupuestoAContrato(APresupuesto, AContrato);
     if (APresupuesto.TIPO_PRESUPUESTO = CTE_COCINA) then
-       AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_COCINA))
+       AContrato.CONDICIONES.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_COCINA)
     else if (APresupuesto.TIPO_PRESUPUESTO = CTE_ARMARIO) then
-       AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO))
+       AContrato.CONDICIONES.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO)
     else if (APresupuesto.TIPO_PRESUPUESTO = CTE_BANO) then
-       AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_BANO))
+       AContrato.CONDICIONES.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_BANO)
     else if (APresupuesto.TIPO_PRESUPUESTO = CTE_ELECTRODOMESTICO) then
-       AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO))
+       AContrato.CONDICIONES.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO)
     else if (APresupuesto.TIPO_PRESUPUESTO = CTE_OBRA) then
-       AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_OBRA))
+       AContrato.CONDICIONES.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_OBRA)
     else if (APresupuesto.TIPO_PRESUPUESTO = CTE_VARIOS) then
-       AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_VARIOS));
+       AContrato.CONDICIONES.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_VARIOS);
 
     CopiarDetallesAContrato(APresupuesto, AContrato, APresupuesto.Detalles);