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

Se arregla que al aceptar un presupuesto del tipo que sea y generar su contrato no se cogen las condiciones

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@583 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2013-11-22 17:55:01 +00:00
parent 6661c4e7e6
commit 96157dd0f4
3 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -26,7 +26,7 @@ uses
uDetallesContratoClienteController, uControllerDetallesBase,
uBizContactos, schPresupuestosClienteClient_Intf,
schContratosClienteClient_Intf, uDireccionesContactoController,
uBizDireccionesContacto;
uBizDireccionesContacto, uFactuGES_App, uConfiguracionController;
var
dmGenerarContratosCli: TdmGenerarContratosCli;
@ -253,6 +253,19 @@ begin
try
AContrato := AContratosClienteController.Nuevo;
CopiarPresupuestoAContrato(APresupuesto, AContrato);
if (APresupuesto.TIPO_PRESUPUESTO = CTE_COCINA) then
AContrato.CONDICIONES.Add(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))
else if (APresupuesto.TIPO_PRESUPUESTO = CTE_BANO) then
AContrato.CONDICIONES.Add(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))
else if (APresupuesto.TIPO_PRESUPUESTO = CTE_OBRA) then
AContrato.CONDICIONES.Add(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));
CopiarDetallesAContrato(APresupuesto, AContrato, APresupuesto.Detalles);
//Sustituir por if de guardar

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.5.5.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.5.5.0\0"
VALUE "CompileDate", "miércoles, 13 de noviembre de 2013 11:13\0"
VALUE "CompileDate", "viernes, 22 de noviembre de 2013 18:06\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.