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