diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index fbc4a16..47a8511 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Source/Base/Utiles/uNumUtils.pas b/Source/Base/Utiles/uNumUtils.pas index 8a0ec3e..39aafad 100644 --- a/Source/Base/Utiles/uNumUtils.pas +++ b/Source/Base/Utiles/uNumUtils.pas @@ -110,7 +110,12 @@ 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; diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index d7cfb39..bab3466 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ