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 begin
Cadena := ''; Cadena := '';
Entero := Trunc(Cifra); 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 if (Decimal > 0) then
Cadena := ' CON ' + IntToLetras(Decimal) + ' CÉNTIMOS'; 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 if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then
begin begin
AIsHintMultiLine := True; AIsHintMultiLine := True;
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index] if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
end; end;
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 if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then
begin begin
AIsHintMultiLine := True; AIsHintMultiLine := True;
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index] if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
end; end;
end; end;