Cullere/Cullere_FactuGES2
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo redondeo en recibos y sacar informacion hit

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@12 e61cf4a9-ab77-6246-bebb-cff159b4cb7d
This commit is contained in:
David Arranz 2014-05-07 11:39:42 +00:00
parent 81a1881f35
commit 6519e97ddb
3 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Source/Base/Utiles/uNumUtils.pas
View File

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

3
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
View File

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

3
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
View File

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