Ir para conteúdo
  • Cadastre-se

dev botao

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


Rodrigo - Digibyte
Ver Solução Respondido por Italo Giurizzato Junior,
  • Este tópico foi criado há 612 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 612 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...