Access violation na função ACBrNFSeX1.ConsultarLoteRps

[Filipe Langner]

A função ACBrNFSeX1.ConsultarLoteRps, ao ser executada, tanto pelo meu ERP, quanto pelo aplicativo de exemplo do ACBr retornam um erro de Access violation na seguinte situação: (segue erro do meu ERP, e do ExemploACBr na sequencia)

Quando emito uma NFSe utilizando a função ACBrNFSeX1.Emitir(nLote), e em seguida utilizo a função de consulta, sendo que a NFSe ja foi emitida pelo WS.
Caso a NFSe ainda não tenha sido emitida, a função de consulta retorna "Esse lote está aguardando processamento." e não ocorre o erro.

No meu ERP, ainda depois do Access violation, aparece mais um erro indicando que um arquivo não foi encontrato. Segue anexo:

Os arquivos que ficaram salvos na pasta "NotasFiscais" são os seguintes:

 

Editado 7 Dezembro, 2022 por Filipe Langner

[Filipe Langner]

seguem em anexo os arquivos referentes ao RPS do erro citado acima

58-env-lot.xml 58-env-lot-soap.xml 58-rec.xml 58-rec-soap.xml 1278-con-lot.xml 1278-con-lot-soap.xml 1278-lista-nfse-con-lot.xml 1278-lista-nfse-con-lot-soap.xml

[Filipe Langner]

debugando os codigos agora, o access violation esta ocorrendo dentro da função "TratarRetornoConsultaLoteRps na unt ACBrNFSeXProviderBase

 

              ANota.NFSe.Numero := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('nrNfse'), tcStr);

exatamente nessa linha ocorre o erro.

[Diego Foliene]

15 minutos atrás, Filipe Langner disse:

debugando os codigos agora, o access violation esta ocorrendo dentro da função "TratarRetornoConsultaLoteRps na unt ACBrNFSeXProviderBase

 

              ANota.NFSe.Numero := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('nrNfse'), tcStr);

exatamente nessa linha ocorre o erro.

Boa tarde!
Muito obrigado por reportar o problema e pela colaboração em buscar a causa do mesmo!
Como está debugando, por favor, é possível testar se ANota é <> de nil depois de passar na linha anterior a esta que ocorre o Access Violation?
Você pode observar isso no WatchList adicionando ANota<> nil ou Assigned(ANota).
Se ANota for nil, por favor, faça o seguinte teste.
Carregue o componente através da leitura de um XML e depois faça a consulta.

[Filipe Langner]

ANota é nil sim.

só não entendi a orientaçao. poderia dar mais detalhes?

[Diego Foliene]

24 minutos atrás, Filipe Langner disse:

ANota é nil sim.

só não entendi a orientaçao. poderia dar mais detalhes?

O Acess Violation está ocorrendo porque ele está tentando acessar o objeto NFSe, mas esse objeto não foi instanciado.
Nesse caso temos duas possibilidades.
1ª Existe uma NFSe carregada, mas o RPS diverge e por isso não encontra ela na FindByRps
2ª Não existe nenhuma NFSe carregada e por isso não encontra ela(ACBrNFSeX.NotasFiscais.Count = 0).

A ideia seria carregar o componente previamente(através de um ACbrNFSeX.NotasFiscias.LoadFromFile usando o XML do RPS que você está querendo consultar) para ver se o método que busca a NFSe encontra e instancia a NFSe.

[Italo Giurizzato Junior]

Boa tarde Filipe

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

[Italo Giurizzato Junior]

Boa tarde Filipe,

Favor atualizar todos os fontes de todas as pastas, reinstalar o ACBr e faça novos testes.

[Filipe Langner]

Boa tarde Italo!
Primeiramente obrigado pela atenção!
Problema resolvido!  

[Italo Giurizzato Junior]

Obrigado por reportar.

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