Ajuste Tnfeenvevento.executar

[ericserafim]

Caros,

 

Ajustei o método TNFeEnvEvento.Executar, motivo:

 

Ao enviar um evento sem conexão com a internet, logo após outro evento ter sido aprovado (com conexão), o componente levanta uma exceção na linha 4337 (FEventoRetorno.Free), alterei esta linha por     FreeAndNil(FEventoRetorno);

 

Se fonte alterado na última versão do fonte.

ACBrNFeWebServices.zip

[juaumkiko]

Se não me falha a memoria não existe FreeAndNil no Delphi 7, e como o componente tem que estar compativel com essa versao do Delphi creio que tem que ser feita de outra maneira...

 

Quem sabe se fizer:

 

if Assigned(FEventoRetorno) then

begin

  FEventoRetorno.Free;

  FEventoRetorno := nil; //esta linha acho que não precisará

end;

 

Teste ae...

 

[]´s

[ericserafim]

Pode ser desta forma, segue fonte alterado.

ACBrNFeWebServices.pas

[juaumkiko]

Enviado sugestão ao SVN.

 

[]´s