Fórum Dúvida com código. #243705

var
  Rateio, TotalNota : Real;
begin
  Rateio := 0;
  DataModule2.Qry_Rateio.First;
 While not DataModule2.Qry_Rateio.Eof do
   begin
//     TotalNota := StrToFloat();
     Rateio := DataModule2.Qry_MovimentacaoValor_Frete.value/TotalNota;
     Rateio := Rateio*DataModule2.Qry_EntregaValorNF.Value;
     DataModule2.Qry_RateioRateio.Value := Rateio;
     DataModule2.Qry_Rateio.Next;
     DataModule2.Qry_Rateio.Post;
   end;
end;