Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo formato float de cantidad

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@981 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2009-12-15 18:10:16 +00:00
parent 1f23f8860f
commit 3c4b901d63
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/Base/Utiles/uCalculosUtils.pas
View File

@ -75,7 +75,7 @@ end;
procedure DesglosarPorte(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorte(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
var var
Unidades: Integer; Unidades: Double;
ImporteUnidad: Currency; ImporteUnidad: Currency;
ImporteSobrante: Currency; ImporteSobrante: Currency;
ABookmark : TBookmark; ABookmark : TBookmark;
@ -94,7 +94,7 @@ begin
while not ADetalles.DataTable.eof do while not ADetalles.DataTable.eof do
begin begin
if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 0) then if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 0) then
Unidades := Unidades + ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger; Unidades := Unidades + ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsFloat;
ADetalles.DataTable.Next; ADetalles.DataTable.Next;
end; end;
@ -145,7 +145,7 @@ begin
while not ADetalles.DataTable.eof do while not ADetalles.DataTable.eof do
begin begin
if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 0) then if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 0) then
ImporteTotal := ImporteTotal + (ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger * ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_PORTE).AsFloat); ImporteTotal := ImporteTotal + (ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsFloat * ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_PORTE).AsFloat);
ADetalles.DataTable.Next; ADetalles.DataTable.Next;
end; end;