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

Ticket #440 -> No copia bien el telefono desde el presupuesto al contrato cuando lo aceptamos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@543 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2010-10-13 19:03:22 +00:00
parent b6ba000a05
commit 6d8e75b508
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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