From 6519e97ddbfd39a56cc4febd767a5782b1db1f0d Mon Sep 17 00:00:00 2001 From: david Date: Wed, 7 May 2014 11:39:42 +0000 Subject: [PATCH] Arreglo redondeo en recibos y sacar informacion hit git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@12 e61cf4a9-ab77-6246-bebb-cff159b4cb7d --- Source/Base/Utiles/uNumUtils.pas | 5 ++++- .../Contratos de cliente/Views/uViewContratosCliente.pas | 3 ++- .../Views/uViewPresupuestosCliente.pas | 3 ++- 3 files changed, 8 insertions(+), 3 deletions(-) diff --git a/Source/Base/Utiles/uNumUtils.pas b/Source/Base/Utiles/uNumUtils.pas index 8a0ec3e..aa75542 100644 --- a/Source/Base/Utiles/uNumUtils.pas +++ b/Source/Base/Utiles/uNumUtils.pas @@ -110,7 +110,10 @@ var begin Cadena := ''; Entero := Trunc(Cifra); - Decimal := Trunc(((Cifra - Entero) * 100)); + + //Se quita el trunc ya que falla el redondeo y hay desfase de 1 centimo +// Decimal := Trunc(((Cifra - Entero) * 100)); + Decimal := Round((Cifra - Entero) * 100); if (Decimal > 0) then Cadena := ' CON ' + IntToLetras(Decimal) + ' CÉNTIMOS'; diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas index 61f94c4..9ebc572 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas @@ -201,7 +201,8 @@ begin if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then begin AIsHintMultiLine := True; - AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index] + if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then + AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]; end; end; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas index d30741b..160b3ce 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas @@ -277,7 +277,8 @@ begin if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then begin AIsHintMultiLine := True; - AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index] + if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then + AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]; end; end;