Provedor Abaco - traz todas as notas no XML mas só fica a última no ACBR

[Rodrigo - Digibyte]

Olá, estou baixando as notas de Manaus, provedor ABACO e apesar do XML vir correto só a última nota fica carregada. Identifiquei o provável erro mas a correção não saberia como fazer.

O RPS vem sempre com o número zero (provavelmente não foi gerado RPS) e isso deve ser a causa do problema no código abaixo:

    if NumRps <> '' then
      ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps)

dentro de

function TACBrNFSeProviderABRASFv1.PreencherNotaRespostaConsultaNFSe(Node,
  parentNode: TACBrXmlNode; Response: TNFSeConsultaNFSeResponse): Boolean;
var
  NumNFSe, CodVerif, NumRps, SerieRps: String;
  ANota: TNotaFiscal;
  AResumo: TNFSeResumoCollectionItem;
begin
  Result := False;

  if Node <> nil then
  begin
    Node := Node.Childrens.FindAnyNs('InfNfse');
    if not Assigned(Node) or (Node = nil) then Exit;

    NumNFSe := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr);
    CodVerif := ObterConteudoTag(Node.Childrens.FindAnyNs('CodigoVerificacao'), tcStr);

    Node := Node.Childrens.FindAnyNs('IdentificacaoRps');

    NumRps := '';
    SerieRps := '';

    if Node <> nil then
    begin
      NumRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr);
      SerieRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Serie'), tcStr);
    end;

    AResumo := Response.Resumos.New;
    AResumo.NumeroNota := NumNFSe;
    AResumo.CodigoVerificacao := CodVerif;
    AResumo.NumeroRps := NumRps;
    AResumo.SerieRps := SerieRps;

    if NumRps <> '' then
      ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps)
    else
      ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByNFSe(NumNFSe);

    ANota := CarregarXmlNfse(ANota, parentNode.OuterXml);
    SalvarXmlNfse(ANota);
    Result := True; // Processado com sucesso pois retornou a nota
  end;
end;

 

2023010120230131-lista-nfse-con.xml

[Italo Giurizzato Junior]

Bom dia Rodrigo,

Já inclui na minha lista de tarefas para analisar o problema. TK-3643

[Italo Giurizzato Junior]

Bom dia Rodrigo,

Favor atualizar os fontes, reinstalar o ACBr e faça novos testes.