Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tarea #1345 -> Al pasar un presupuesto a contrato, en las condiciones mete un espacio en blanco.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@592 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2014-05-23 18:13:18 +00:00
parent c22d054153
commit bb35240d8e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
View File

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