Erro de acesso a memória na classe TACBrSATMFe_integrador_XML

[Nilson Sérgio]

Olá, fiz uma pequena correção nos métodos  EnviarPagamento, EnviarStatusPagamento, VerificarStatusValidador, RespostaFiscal da classe TACBrSATMFe_integrador_XML.

Adicionei uma verificação da variável Result antes de ler a propriedade Result.XML, pois em casos de exceção por parte do componente FIntegrador, essa variável retorna nil. O que ocasiona um erro de acesso à memória ao ler o XML, ficando assim o módulo SAT travado, pois não executou o método FinalizaComando.

Estou anexando a correção e gostaria que ela fosse integrada ao fonte do projeto.

try

.... 

finally
    if Assigned(Result) then
      TACBrSAT(Owner).FinalizaComando( Result.XML )
    else
      TACBrSAT(Owner).FinalizaComando( '' );
end;

 

ACBrSATMFe_integrador.pas

Editado 6 Fevereiro, 2018 por Nilson Sérgio
Erro de ortografia

[André Ferreira de Moraes]

Como vc simula erro nesses comandos?

Pois chamar o FinalizaComando com o conteúdo vazio pode causar outros erros.

[Nilson Sérgio]

Para simular basta fechar o integrador no momento da chamada de um desses metódos. Na verdade descobri por acaso por causa de uma exception na unit ACBrIntegrador, linha 292.

  if EstaVazio(RespostaIntegrador) then
  begin
    FErroTimeout := True;
    DoException('Sem Resposta do Integrador');
  end;

outra correção seria retornar um objeto válido nos métodos abaixo, mesmo em caso de exception.

    function EnviarPagamento(Pagamento: TEnviarPagamento): TRespostaPagamento;
    function EnviarStatusPagamento(StatusPagamento: TStatusPagamento): TRespostaStatusPagamento;
    function VerificarStatusValidador(AVerificarStatusValidador: TVerificarStatusValidador):
      TRespostaVerificarStatusValidador;
    function RespostaFiscal(ARespostaFiscal: TRespostaFiscal): TRetornoRespostaFiscal;

Do jeito que o fonte estava NÃO aparecia a mensagem de erro "'Sem Resposta do Integrador'". Em vez disso aparecia um erro de acesso à memória, como eu disse anteriormente.

Eu entendendo que nos casos de exception nesses métodos específicos, realmente o retorno para o object ACBrSAT deve sem vazio, pois não há nada a retornar.

Editado 7 Fevereiro, 2018 por Nilson Sérgio
correção

[Nilson Sérgio]

Será possível fazer essa atualização?

[André Ferreira de Moraes]

Fiz alguns ajustes baseados na sua solução, por favor verifique se resolve o problema.