Buscar dato en TJvMemoryData

[microbiano]

Código Delphi [-]
procedure TFfactura.calcula_totales;
var i,wregistros:integer;
begin
 //Calcula los totales de la factura
   SubTotal := 0;
   Impuesto := 0;
   Desc     := 0;
   Total    := 0;

   temporal.First;
   For i:= 1 to Self.temporal.RecordCount do
    begin
      SubTotal := SubTotal + temporal.fieldByname('total').AsFloat;
      temporal.Next;
    end;

    //Calcula el monto para cobrar el impuesto de ventas

     //For i:=1 to Ffactura.SGFact.RowCount-1 do
     //If Ffactura.SGFact.Cells[6,i] = 'Si' then Impuesto :=  Impuesto + StrToFloat(Ffactura.SGFact.Cells[5,i]);


   {SubTotal := Round(SubTotal);  aqui es donde redondea la cantidad total
   ok funciona al 100% ---Desc := Round(Desc);}
    Desc := (SubTotal * Ffactura.FLEPorcDesc.Value / 100);

   {saco el importe del iva}
    Impuesto:=subtotal*ffactura.txtiva.Value/100;

   Total := (SubTotal - Desc + Impuesto);
     Ffactura.wgrande_total:=Total;

    //escribe los valores en las celdas
    Ffactura.SGTotal.Cells[1,1] := Format('%8.2n',[desc]);
    Ffactura.SGTotal.Cells[1,2] := Format('%8.2n',[Impuesto]);
    Ffactura.SGTotal.Cells[1,0] := Format('%8.2n',[SubTotal]);
    Ffactura.SGTotal.Cells[1,3] := Format('%8.2n',[Total]);
end;

tendrias que adaptarlo a lo que necesitas, ESTO LO DEBERIAS HACER CADA QUE AGREGUES UN ITEM O AL FINAL

[novato_erick]

Gracias microbiano por contestar:

solucionado la parte de sumatoria de totales.

Sin embargo es posible sumar los totales de el campo CANTIDAD ejemplo

*********************************************************
CODIGO----- DESCRIPCION-----------CANTIDAD -------DESC-----TOTAL
123456------PRODUC PRUEBA------------ 3 ------------0 ------- 5.00
654321------PRODUC PRUEBA2 ---------- 2 -------------0-------10.00
456789------PRODUC PRUEBA3 ---------- 3 ------------ 0 ------- 2.60
*********************************************************
TOTAL ARTICULOS 8----------------TOTAL 17.60


Saludos;

[microbiano]

For i:= 1 to Self.temporal.RecordCount do begin SubTotal := SubTotal + temporal.fieldByname('total').AsFloat;
cantidad := cantidad + temporal.fieldbyname('cantidad').Integer;
temporal.Next; end;

cantidad:= variable global

otra deberias intentar solucionar el problema, ya que aqui se te
echa la mano pero no se te resuelve usando logica creo que asi
quedaria.