Fórum Ajuda com EOF #355316

procedure TF_IMPORTAR_EXPORTAR.btnGravarBancoClick(Sender: TObject);
var
  a, b, c : string;
  d : Double;
begin


  if ( Application.MessageBox( ´Irá substituir toda tabela de Materiais!´ + #13 +
  ´Deseja realmente fazer isso?´, ´Atenção´, MB_IconInformation + MB_YESNO ) = IDYES ) then

 //Deletar dados da tabela MATERIAIS
  transacao.TransactionID:=1;
  transacao.IsolationLevel:= xilREPEATABLEREAD;
  dm.Conexao.StartTransaction(transacao);
  dm.sdsMaterial.Close;
  dm.sdsMaterial.CommandText:=´delete from material´;
  dm.sdsMaterial.ExecSQL;
  dm.Conexao.Commit(transacao);
 // Fim


 // Inicio da inserção de dados na tabela MATERIAIS
 with ClientDataSet_Memoria do
  begin
   while not Eof do
   begin

   Open;
   Edit;
   
   a := ClientDataSet_MemoriaCOD_ORDENADO.AsString;
   b := ClientDataSet_MemoriaDESCRICAO.AsString;
   c := ClientDataSet_MemoriaUN.AsString;
   d := ClientDataSet_MemoriaPRECO_UNITARIO.AsFloat;

   dm.cdsMaterial.Open;
   dm.cdsMaterial.Insert;

   dm.cdsMaterialCOD_ORDENADO.AsString := a;
   dm.cdsMaterialDESCRICAO.AsString := b;
   dm.cdsMaterialUN.AsString := c;
   dm.cdsMaterialPRECO_UNITARIO.AsString := FloatToStr(d);

   dm.cdsmaterial.Post;
   dm.cdsMaterial.ApplyUpdates(0);

   ClientDataSet_Memoria.Next;

   dm.sdsMaterial.close;
   dm.sdsMaterial.CommandText:=´select * from material´;
   dm.sdsMaterial.Open;

   dm.cdsMaterial.Close;
   dm.cdsMaterial.Open;
   dm.cdsMaterial.Refresh;

   ShowMessage(´Substituído com sucesso!´);

   btnFecharClick(Sender);
   end;
  end;
 end;

 with ClientDataSet_Memoria do
  begin
  ClientDataSet_Memoria.First;
   while not Eof do
   begin