Fórum Importação de Arquivos textos #197869

procedure TF_ImportaPagamentos.RecArqSEF;
begin
  Screen.Cursor := crHourGlass;

  Reset(prArq);
  if not eof(prArq) then
  repeat
     ReadLn(prArq, Texto);
     prMASP := Copy(Texto,1,8);
     prIndica := Copy(Texto,59,1);
     prTxValor := Copy(Texto,99,10);
     prVrValor := StrToFloat(prTxValor) / 100;
     with TabRecebe do
     begin
        Insert;
        FieldByName(´FP´).AsString := prFt;
        FieldByName(´AnoMes´).AsString := prAnoMes;
        FieldByName(´MASP´).AsString := prMASP;
        FieldByName(´Tipo´).AsString := prIndica;
        FieldByName(´Valor´).AsFloat := prVrValor;
        Post;
     end;
     until eof(prArq);
     CloseFile(prArq);
     Screen.Cursor := crDefault;
end;