Duvida: AcbrMonitor faz consulta ultima sessão Cfe?

[lucimauro]

Boa tarde,

Quem usa o Mfe do Ceará conhece os constantes problemas de QUEBRA DE SEQUENCIA dos cupons eletrônicos, por diversos motivos. Uma das possíveis soluções e que ameniza (mas não resolve) essa questão, é fazer uma CONSULTA ULTIMA SESSÃO logo após receber um TIMEOUT do módulo.

Estou com um problema num cliente e percebi pelo log que o ACBrMonitor não faz essa consulta (da ultima) sessão automaticamente.

A dúvida é essa: O Acbr faz ou não automaticamente a consulta da última sessão automaticamente logo após receber um timeout do Mfe? Ou essa questão fica a cargo da aplicação?

02/03/2020 17:10:26 - NumeroSessao: 145982 - Comando: EnviarDadosVenda( <?xml version="1.0" ... )
02/03/2020 17:10:26 - Gravando XML Venda enviado: c:\SAT\Enviados\AD20200302171026-145982-env.xml
02/03/2020 17:10:36 - NumeroSessao: 145982
02/03/2020 17:10:36 - ERRO: Nenhuma Resposta de Retorno! 
CodigoDeRetorno: 0 / Resultado: 

Após 10 segundos sem resposta do mfe, o acbr respondeu com "ERRO: Nenuma resposta de Retorno", mas não fez a consulta da sessão de forma automática

 

[Daniel Simoes]

2 minutos atrás, lucimauro disse:

A dúvida é essa: O Acbr faz ou não automaticamente a consulta da última sessão automaticamente logo após receber um timeout do Mfe? Ou essa questão fica a cargo da aplicação?

Não faz o tratamento... ele apenas dispara o Exception... veja:

procedure TMetodoEnviarCFe.Executar;
var
  cArqXML, ArqCFe, Resultado: String;
begin
  cArqXML := fpCmd.Params(0);

  with TACBrObjetoSAT(fpObjetoDono) do
  begin
    if NaoEstaVazio(cArqXML) then
    begin
      ArqCFe := ParamAsXML(cArqXML);
      if StringIsXML( ArqCFe ) then
        Resultado := ACBrSAT.EnviarDadosVenda( ArqCFe )
      else
        raise Exception.Create('XML em: '+cArqXML+' é inválido! ');

    end
    else if (ACBrSAT.CFe.ide.signAC <> '') then
      Resultado := ACBrSAT.EnviarDadosVenda
    else
      raise Exception.Create('Nenhum XML encontrado para envio! ');

    if EstaVazio(Resultado) or (ACBrSat.Resposta.codigoDeRetorno = 0) then    // <--- AQUI 
      raise Exception.Create('Nenhuma Resposta de Retorno! ' + sLineBreak
      + 'CodigoDeRetorno: ' + IntToStr(ACBrSat.Resposta.codigoDeRetorno) + ' / Resultado: ' + Resultado);

    RespostaEnviarDadosVenda( Resultado );

  end;

end;  

 

[lucimauro]

Blz então

Farei um controle a parte disso