Preciso de uma luz com o retorno das NFS-e

[raosistemas]

 lote      := notasnfs_lote.AsString;
  ACBrNFSe1.ConsultarLoteRps(Protocolo, Lote);
  ChecarResposta(tmConsultarLote);
  MemoDados.Lines.Clear;

  for i := 0 to ACBrNFSe1.NotasFiscais.Count -1 do
  begin

    if acbrnfse1.NotasFiscais.Items[i].NFSe.Status = srnormal then begin
      MemoDados.Lines.Add('Status Nfe      : Normal');
      sstat:='N';
    end else begin
      MemoDados.Lines.Add('Status Nfe      : Cancelada');
      sstat:='C';
    end;

    MemoDados.Lines.Add('RPS Numero......: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.IdentificacaoRps.Numero);
    MemoDados.Lines.Add('Série RPS.......: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.IdentificacaoRps.Serie);
    MemoDados.Lines.Add('NFS-e Numero....: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.Numero);
    MemoDados.Lines.Add('Cod. Verificacao: ' + ACBrNFSe1.NotasFiscais.Items[i].NFSe.CodigoVerificacao);
    MemoDados.Lines.Add('Nome do arquivo.: ' + ACBrNFSe1.NotasFiscais.Items[i].NomeArq);
    memodados.Lines.Add('----------------------------------------------------------------------');

    if notas.Locate('codnota',ACBrNFSe1.NotasFiscais.Items[i].NFSe.IdentificacaoRps.Numero,[]) then begin
        notas.Edit;
        notasnfs_numero.Value            := ACBrNFSe1.NotasFiscais.Items[i].NFSe.Numero.ToInteger();
        notasnfs_codigoverificacao.value := ACBrNFSe1.NotasFiscais.Items[i].NFSe.CodigoVerificacao;
        notasnfs_arquivo.Value           := ACBrNFSe1.Configuracoes.Arquivos.GetPathNFSe() + '\' + ACBrNFSe1.NotasFiscais.Items[i].NomeArq;
        notasnfs_cstat.Value             := sstat;
//        notasnfs_lote.Value              := ACBrNFSe1.NotasFiscais.Items[i].NFSe.NumeroLote.ToInteger;
        notasnfs_dhrecebimento.Value     := ACBrNFSe1.NotasFiscais.Items[i].NFSe.DataEmissao;
        notas.Post;
        geralink();
    end;

  end;
end;

após a consulta pelo lote, que podia retornar de 1 a x notas... eu atualizava o banco de dados dessa forma, como posso fazer agora?

FOR i:=0 to...

favor fechar esse tópico, tinha dado um erro mas tinha sido postado anteriormente.

[Juliomar Marchetti]

Se não estiver usando o ACBrNFSeX sugiro migrar para ele. paramos de dar suporte do ACBrNFSe

[raosistemas]

Estou usando o componente novo... apenas o nome mantive o antigo... mas é o novo... 

Quanto a duplicidade do tópico, informei nesse que na hora de gravar o tópico deu um erro na minha maquina, dessa forma cliquei em salvar novamente e duplicou, desculpe por qualquer inconveniente.

[Italo Giurizzato Junior]

Bom dia,

Se manter essa rotina o que ocorre?

[raosistemas]

1 hora atrás, Italo Giurizzato Junior disse:

Bom dia,

Se manter essa rotina o que ocorre?

Boa tarde Italo.

não estou conseguindo pegar os campos autenticador, e numero do lote.

 

[raosistemas]

agora esta tudo ok, o autenticador nao é necessário.

obrigado.

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.