"access Violation" Ao Executar Consulta De Nota Fiscais E Envio De Evento

[GustavoCosta]

Boa tarde, 

Tentei enviar essa mensagem no "Mantis", mas não consegui acessar..

 

Quando o usuário executa consulta de status em notas fiscais ou tenta enviar algum evento e existe problema em sua conexão com a internet, acaba recebendo o erro de "Access violation"

 

Eu depurei entre as units do ACBr e encontrei as causas do erro, implementei então algumas correções.

Gostaria de compartilhar com quem tiver o problema e solicitar aos programadores colaboradores que insiram a correção no pacote ou vejam a melhor forma de solucionar o problema.

 

 

Seguem:

 

Erro "Access Violation" na consulta de nota fiscais

 

Arquivo: acbr\fontes\ACBrNFe2\ACBrNFeWebServices.pas

Método: TNFeConsulta.Executar

 

Quando ocorre tudo certo com a consulta, o método "NFeRetorno.LerXML" (Linha 2519) instancia a propriedade NFeRetorno.procEventoNFe...

porém, caso ocorra algum erro de conexão, o método "NFeRetorno.LerXML" não instancia esse objeto, causando "Access Violation" ao usar a propriedade no decorrer do método "TNFeConsulta.Executar"

 

 

Minha solução provisória:

 

adicionei antes da Linha 2523, as instruções:

 

    if (not Assigned(NFeRetorno.procEventoNFe)) then

      NFeRetorno.procEventoNFe := TRetEventoNFeCollection.Create(NFeRetorno);

 

 

Erro "Access Violation" ao enviar evento

 

Arquivo: acbr\fontes\ACBrNFe2\ACBrNFeWebServices.pas

Método: TNFeEnvEvento.Executar

 

Quando passa pela linha 3867 ("FEventoRetorno.Free") a propriedade FEventoRetorno é liberado da memória, se ocorrer tudo certo no envio do evento, não tenho problema..

Porém se houver algum problema na validação (antes de comunicar com a SEFAZ) a propriedade FEventoRetorno não é novamente criada, 

e quando o usuário corrige os problemas e tenta enviar novamente, ao passar mais uma vez pela linha 3867 causa "Access Violation", uma vez que a propriedade FEventoRetorno tem um endereço atribuído, mas não existe mais o local apontado.

 

Minha solução provisória:

 

alterei a linha 3867 de "FEventoRetorno.Free" para "FreeAndNil(FEventoRetorno)"

 

 

 

Atenciosamente.

 

 

 

Editado 4 Junho, 2013 por GutoSantos

[Régys Silveira]

Por favor anexe o arquivo alterado, assim podemos comparar e analisar melhor as alterações.

[GustavoCosta]

Me desculpe pela demora,

Anexo, unit ACBrNFeWebServices com alterações feitas.

 

 

 

Muito Obrigado!

ACBrNFeWebServices.pas

ACBrNFeWebServices.pas

Editado 12 Junho, 2013 por GutoSantos

[Régys Silveira]

Esse arquivo tem duas alterações mas somente na forma de passar o parâmetro "ASincrono" do método enviar, você colocou ele como const e antes não era.

Isso não vai influenciar no que você citou acima.

[gilsonlongo]

Oi,

Não sei se é o mesmo caso, mas ao proceder o cancelamento p/ evento dá erro com base na rotina do Regys,

msg: "Arquivo C:\GLA2000\Schemas\envEventoCancNFe_v1.00.xsd não encontrado."

Tentei imprimir o evento... e deu msg: "Campo cOrgao não informado".

Neste caso, o aplicativo está rodando no cliente.

 

Fico agradecido por retorno...

 

gilsonlongo

[Régys Silveira]

Veja a resposta a sua pergunta no outro tópico que você postou a mesma pergunta

 

Oi,

Não sei se é o mesmo caso, mas ao proceder o cancelamento p/ evento dá erro com base na rotina do Regys,

msg: "Arquivo C:\GLA2000\Schemas\envEventoCancNFe_v1.00.xsd não encontrado."

Tentei imprimir o evento... e deu msg: "Campo cOrgao não informado".

Neste caso, o aplicativo está rodando no cliente.

 

Fico agradecido por retorno...

 

gilsonlongo

 

.

[GustavoCosta]

Poxa vida, me desculpe Regys,

Anexei arquivo errado. 

 

 

 

Segue arquivo com as alterações.

ACBrNFeWebServices.pas

Editado 20 Junho, 2013 por GutoSantos