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);