Erro http 500 , erro interno 11004

[willismartins]

Alguém  consegue me ajudar com esse erro. Esse erro acontece quando desativo a conexão com a internet.

Essas são as minhas configurações:
      ACBrNFe1.Configuracoes.Geral.SSLLib            := libOpenSSL;
      ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := sDirProd + '\Certificado\Certificado.pfx';
      ACBrNFe1.Configuracoes.Certificados.Senha      := AdParNFeSENHACD.AsString;

Só a nivel de curiosidade, quando eu mudo para libWinCrypt ele dá o erro 11007.

Editado 20 Julho, 2018 por willismartins
Anexo incorreto

[Fabrício G. Araújo]

Sim, realmente já percebi essa diferença quando desativa a rede, com WinCrypt (e a antiga Capicom) dá o erro 12007 e com OpenSSL dá o erro 11004. No meu caso adicionei mais esse código para tratar a questão de Contingência Offline... e bola pra frente.

[willismartins]

Como você tratou a contingência offline?

Pode me mostrar o seu código para esse tratamento?

[Fabrício G. Araújo]

@willismartins, minha referência foi essa aqui:

Então acrescentei esse código (11004) que dá com OpenSSL, só que sem o espaço e tracinho citado pelo Régys do post acima.

[willismartins]

ok amigo, vou tentar aqui.

[willismartins]

Acontece que esse tratamento não faz a nota passar. Pois tenho alguns clientes que trabalham em contingência offline. Mas quando tento reproduzir esse ambiente aqui na empresa, fica dando esse erro que lhe mostrei anteriormente.

[Fabrício G. Araújo]

@willismartins, se você já tem tratamento de contingência offline, basta adicionar mais esse código ao seu tratamento.

Um resuminho (não funcional) de como mais ou menos trato a contingência offline no meu sistema é como isso aqui:

try

  ACBrNFe.Enviar(...

except
  on E: Exception do
  begin
    if (Pos('12007', E.Message) > 0) or // erro de conexão
       (Pos('12002', E.Message) > 0) or // timeout
       (Pos('12029', E.Message) > 0) or // limite de tempo de conexão
       (Pos('11004', E.Message) > 0) or // Equivalente: erro de conexão
       (Pos('10060', E.Message) > 0) or // Equivalente: timeout
       (Pos('ERRO NAO CATALOGADO', UpperCase(E.Message)) > 0) then
    begin
      ACBrNFe.NotasFiscais.Items[0].NFe.Ide.tpEmis := teOffLine;
      ACBrNFe.NotasFiscais.Items[0].NFe.Ide.xJust  := 'PROBLEMAS TECNICOS NO ENVIO DA NFC-E';
      ACBrNFe.NotasFiscais.Items[0].NFe.Ide.dhCont := Now;

      ACBrNFe.NotasFiscais.GerarNFe;
      ACBrNFe.NotasFiscais.Assinar;
      ACBrNFe.NotasFiscais.Validar;
  end;
end;