Curitiba: erro ao consultar notas? Na resposta estão todas as notas mas em ACBrNFSe.NotasFiscais.Count só tem uma.

[Rodrigo - Digibyte]

Bom dia.

Verifiquei o xml soap de resposta e as notas estão todas lá, porém só tem uma nota carregada no componente (a primeira).

Alguma ideia do que poderia ser?

[Rodrigo - Digibyte]

Investigando um pouco, na procedure TACBrNFSeProviderABRASFv1.TratarRetornoConsultaNFSe(Response: TNFSeConsultaNFSeResponse) temos:

      ANodeArray := ANode.Childrens.FindAllAnyNs('CompNfse');
      if ANodeArray = nil then
        ANodeArray := ANode.Childrens.FindAllAnyNs('ComplNfse');

      if not Assigned(ANodeArray) then
      begin
        AErro := Response.Erros.New;
        AErro.Codigo := Cod203;
        AErro.Descricao := Desc203;
        Exit;
      end;

      for I := Low(ANodeArray) to High(ANodeArray) do
      begin
        ANode := ANodeArray[I];

Pelo que entendi vai percorrer uma lista de tags CompNfse porém as notas estão dentro de tcCompNfse então o código só faz uma interação.

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    <soap:Body>
        <ConsultarNfseResponse xmlns="http://www.e-governeapps2.com.br/">
            <ConsultarNfseResult>
                <ListaNfse>
                    <CompNfse>
                        <tcCompNfse>
                            <Nfse>
                                <InfNfse>
                                    <Numero>13943</Numero>
								</InfNfse>
							</Nfse>
						</tcCompNfse>
						<tcCompNfse>
							<Nfse>
								<InfNfse>
									<Numero>13944</Numero>

 

Editado 27 Outubro, 2022 por Digibyte

[Italo Giurizzato Junior]

Boa tarde,

No meu entendimento não é bem isso que ocorre.

Primeiramente o TratarRetornoConsultaNFSe verifica se existe o grupo: ListaNfse:

      ANode := Document.Root.Childrens.FindAnyNs('ListaNfse');

Depois verifica se existe o grupo CompNfse ou ComplNfse, como esse grupo pode ocorrer mais de uma vez a leitura do grupo é feita através do FindAllAnyNs:

      ANodeArray := ANode.Childrens.FindAllAnyNs('CompNfse');
      if ANodeArray = nil then
        ANodeArray := ANode.Childrens.FindAllAnyNs('ComplNfse');

Em seguida temos um loop que vai ler todas as ocorrências do grupo CompNfse ou ComplNfse

      for I := Low(ANodeArray) to High(ANodeArray) do
      begin
        ANode := ANodeArray[I];

Na variável ANode temos o nó de cada ocorrência.

Por fim ele verifica se existe ou não o grupo tcCompNfse para em seguida ler o grupo Nfse.

        AuxNode := ANode.Childrens.FindAnyNs('tcCompNfse');

        if AuxNode = nil then
          AuxNode := ANode.Childrens.FindAnyNs('Nfse')
        else
          AuxNode := AuxNode.Childrens.FindAnyNs('Nfse');

Você consegue debugar para ver o que pode esta ocorrendo?

[Rodrigo - Digibyte]

Citar

Em seguida temos um loop que vai ler todas as ocorrências do grupo CompNfse ou ComplNfse

 

Eu debuguei, pra mim está errado. O loop tinha que ser em tcCompNfse não em CompNfse. A tag que se repete NÃO é a CompNfse. Te mandei o XML via msg privada.

[Italo Giurizzato Junior]

Bom dia,

Por favor anexa o XML e não o colo como parte da postagem.

Fico no aguardo.

[Italo Giurizzato Junior]

Já inclui na minha lista de tarefas para encontrar uma solução para o problema. TK-3202

[Italo Giurizzato Junior]

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

[Rodrigo - Digibyte]

Testando e funcionando

[Italo Giurizzato Junior]

Obrigado por reportar.

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