Erro consulta

[cgcesar]

Pessoal esta acontecendo um erro quando o serviço esta indisponivel: 

 Access violation at address 00ECAF41 in module 'GestorXE.exe'. Read of address 00000000

MEsmo colocando o fonte em um try except o problema continua.

[Juliomar Marchetti]

Em que? em qual componente?

muito vago não sei se é nf-e, ct-e, sat, mdf-e etc

[cgcesar]

me descupe o componente é mdf-e

[Régys Silveira]

Tentou debugar para saber exatamente onde ocorre o erro?

Você está utilizando o Trunk1 ou Trunk2?

[cgcesar]

Trunk2.

So acontece se o serviço estiver indisponivel.

[Régys Silveira]

Tentou debugar para saber exatamente onde ocorre o erro, pode ser algo que seu aplicativo está tentando usar mas que não é retornado em caso de serviço indisponível

[cgcesar]

 

function TDFeWebService.Executar: Boolean;
var
  ErroMsg: String;
begin
  { Sobrescrever apenas se realmente necessário }

  InicializarServico;
  try
    DefinirDadosMsg;
    DefinirEnvelopeSoap;
    SalvarEnvio;

    try
      EnviarDados;
      Result := TratarResposta;
      FazerLog(GerarMsgLog, True);
      SalvarResposta;
    except
      on E: Exception do
      begin
        Result := False;
        ErroMsg := GerarMsgErro(E);
        GerarException(ErroMsg, E); aqui
      end;
    end;
  finally
    FinalizarServico;
  end;
end;

[Régys Silveira]

Certo, neste ponto é levantada uma exceção, agora no teu código como você está tratando esta exceção?

[cgcesar]

assim:

  try
    ACBrMDFe1.WebServices.StatusServico.Executar;
  except on E: Exception do
    TConfig.MSGPrograma('WebService Consulta Status serviço:' + #13 + '- Inativo ou Inoperante tente novamente.');
  end;

 

o mesmo tratamento não funciona para enviar a  exceção continua aparecendo.

  try

  NumeroLote := RetornaSequence('seq_mdfe_emitido_lote');
  if (not ACBrMDFe1.Enviar(StrToInt(NumeroLote), True)) then
  begin
    exit;
  end;

  except on E: Exception do
    TConfig.MSGPrograma('WebService serviço:' + #13 + '- Inativo ou Inoperante tente novamente.');
  end;

 

 

[Régys Silveira]

TConfig não está nil? Chegou a verificar isso?

[cgcesar]

o mesmo fonte funciona na outras rotinas so no componte ACBrMDFe1 ja ACBrNFe funciona normal.

[Régys Silveira]

Pode ser que nas outras rotinas o TConfig esteja inicializado e nesta não, por isso lhe pedi para ver se está nil, basta debugar.