Erro de Invalid Pointer Operation no ACBrNFSe

[Gumercino]

Boa tarde.

Após a atualização do ACBr, comecei os testes e identifiquei que estou tendo retorno do erro "invalid pointer operation" na linha 962 da unit pnfsNFSe.

O erro sempre ocorre após eu carregar o componente com o arquivo .xml pelo método "LoadFromString" e efetuar qualquer operação com o webservice ou até mesmo após a impressão.

Segue imagem do erro e da unit com a linha especificada.

[Italo Giurizzato Junior]

Boa tarde Gumercino,

Estranho, estou com os fontes atualizados e não estou tendo esse problema.

Você atualizou todos os fontes de todas as pastas?

Reinstalou os componentes?

[Gumercino]

Boa tarde Italo.

Sim, reinstalei todos novamente.

Eu utilizo o seguinte método para adicionar os serviços, "Servico.ItemServico.Insert(Index, AObject)" e antes não tinha esse parâmetro AObject.

Mas eu estou passando ele de acordo com o que esta na função LerRps_EL, "Servico.ItemServico.Insert(Index, Servico.ItemServico.New)".

Não sei se pode estar vinculado.

 

[Gumercino]

Boa noite Italo.

Acredito que eu encontrei aonde esta o erro.

Na unit pnfsNFSe a function TItemServicoCollection.New entrou no lugar da function TItemServicoCollection.Add, o que estava ocorre ndo é que dentro da function TItemServicoCollection.New tem a chamada da function TItemServicoCollection.Add.

Eu comentei a linha 1204, que se refere ao que citei acima e rodei o programa sem erro.

Segue imagem para melhor entendimento.

[Italo Giurizzato Junior]

Bom dia Gumercino,

Favor anexar a unit alterada para que possamos analisar.

[Gumercino]

Bom dia Italo.

Segue unit em anexo.

pnfsNFSe.pas

[Italo Giurizzato Junior]

Boa tarde Gumercino,

Essa sua alteração pode gerar efeito colateral em outros provedores.

Favor atualizar os fontes e faça novos testes.

[Gumercino]

Boa tarde Italo.

Farei a atualização dos fontes, novos testes e ao finalizar irei te posicionar.

[Gumercino]

Boa tarde Italo.

Desculpe a demora mas estava resolvendo uma demanda com um cliente.

Então, após a atualização dos fontes e realização de novos testes, o erro ainda permanece ocorrendo na seguinte situação:

1° - Faço o envio da NFSe pelo método ACBrNFSe1.Enviar;

2º - Faço a consulta da NFSe pelo método ACBrNFSe1.ConsultarLoteRps logo após o envio para verificar a situação da mesma;

3º - Executo o método ACBrNFSe1.NotasFiscais.Clear.

O erro esta ocorrendo na unit pnfsNFSe na linha 962.

[Gumercino]

Italo.

Acabei de observar no site da prefeitura, o serviço esta indo duplicado.

Eu informo 1 serviço na nota e envia 2, quando eu informo 2 ele envia 4.

[Gumercino]

Boa tarde Italo.

Consegui identificar o que esta ocasionando o erro.

Na unit pnfsNFSeR na linha 4112, esta sendo filtrado os serviços pela tag "Servicos" aonde desse filtrar a tag "Servico".

Fazendo esse único ajuste eu efetuei vários testes e não tive nenhum problema, funcionou tudo normalmente como tem que ser.

pnfsNFSeR.pas

[Italo Giurizzato Junior]

Boa tarde Gumercino,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.