Arreglo de desfase de un centimo en la traducción del importe del recibo a texto. Arreglo de hint de los grid cuando muestran información

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@97 93f398dd-4eb6-7a46-baf6-13f46f578da2

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

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;
 

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;