Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

WS de Homologação CE - 12002 - O tempo limite da operação foi atingido


  • Este tópico foi criado há 1542 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia pessoal, ontem atualizei o ACBR e não sei se foi coincidência mas estou conseguindo enviar NFe em homologação CE. Ele consulta o Status normalmente mas na hora de enviar dar o erro: 12002 - O tempo limite da operação foi atingido... (segue imagem em anexo)

Li vários post aqui, já fiz configuração SSL no IE, desabilitei antivírus e firewall e nada.

Minhas configurações do ACBR estão assim:

procedure TDmNFe.AtualizaConfigAcBr;
  function StrToSSLType(const ASSLType: String): TSSLType;
  begin
    Result := TSSLType(GetEnumValue(TypeInfo(TSSLType), ASSLType));
  end;
var OK : Boolean;
begin
 
  
  // Repassa Dados para componente AcBrNFe
  {$IFDEF AcBrMFeOpenSSL}
    ACBrNFe.configuracoes.Certificados.Certificado := CdsParametrosPATH_CERTIFICADO.AsString;;
    ACBrNFe.Configuracoes.Certificados.Senha       := CdsParametrosSENHA_CERTIFICADO.AsString;
  {$ELSE}
    ACBrNFe.Configuracoes.Certificados.NumeroSerie := CdsParametrosSERIAL.AsString;
  {$ENDIF}
  // Geral


  {novas mudanças}
   ACBrNFe.Configuracoes.Geral.SSLLib        := libWinCrypt;
   ACBrNFe.Configuracoes.Geral.SSLXmlSignLib := xsMsXml;
   ACBrNFe.SSL.SSLType := StrToSSLType('LT_all');



  ACBrNFe.Configuracoes.Geral.FormaEmissao := StrToTpEmis(OK,IntToStr(CdsParametrosFORMA_ENVIO.AsInteger));
  if CdsParametrosSALVAR_ARQUIVO.AsString = 'sim' then
      ACBrNFe.Configuracoes.Geral.Salvar := true
    else
      ACBrNFe.Configuracoes.Geral.Salvar := false;
//respostas

   ACBrNFe.Configuracoes.Arquivos.Salvar := True;
  //ACBrNFe.Configuracoes.Geral.PathSalvar  := CdsParametrosPATH_ARQUIVO.AsString;
  ACBrNFe.Configuracoes.Arquivos.PathSalvar := CdsParametrosPATH_ARQUIVO.AsString;
  ACBrNFe.Configuracoes.Arquivos.PathNFe  := CdsParametrosPATH_ARQUIVO.AsString;

  ACBrNFe.Configuracoes.Arquivos.PathEvento  := CdsParametrosPATH_ARQUIVO.AsString;
 // ACBrNFe.Configuracoes.Arquivos.PathCan  := CdsParametrosPATH_CANCELADAS.AsString;
  ACBrNFe.Configuracoes.Arquivos.PathInu  := CdsParametrosPATH_INUTILIZADAS.AsString;
 // ACBrNFe.Configuracoes.Arquivos.PathDPEC := CdsParametrosPATH_DPEC.AsString;

  // WebServices
  ACBrNFe.Configuracoes.WebServices.UF             := CdsParametrosUFWS.AsString;
  if CdsParametrosAMBIENTE.AsInteger = 1 then
    ACBrNFe.Configuracoes.WebServices.Ambiente := taProducao
  else if CdsParametrosAMBIENTE.AsInteger = 2 then
    ACBrNFe.Configuracoes.WebServices.Ambiente :=  taHomologacao;
  //ACBrNFe.Configuracoes.WebServices.Ambiente       := StrToTpAmb(OK,IntToStr(sAmbiente));
 // ACBrNFe.WebServices.Retorno.                :=  StrToTpAmb(OK,IntToStr(sAmbiente));
  ACBrNFe.Configuracoes.WebServices.Visualizar     := True;
  ACBrNFe.Configuracoes.WebServices.ProxyHost      := CdsParametrosHOST.AsString;
  ACBrNFe.Configuracoes.WebServices.ProxyPort      := CdsParametrosPORTA.AsString;
  ACBrNFe.Configuracoes.WebServices.ProxyUser      := CdsParametrosUSUARIO.AsString;
  ACBrNFe.Configuracoes.WebServices.ProxyPass      := CdsParametrosSENHA.AsString;
  ACBrNFe.Configuracoes.Geral.ModeloDF := moNFe;
  ACBrNFe.Configuracoes.Geral.VersaoDF := ve310;
  ACBrNFe.Configuracoes.Geral.ExibirErroSchema := True;
//
  {nova config}
  ACBrNFe.Configuracoes.WebServices.AguardarConsultaRet := 15000;
  ACBrNFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := True;
  ACBrNFe.Configuracoes.WebServices.IntervaloTentativas := 1000;
  ACBrNFe.Configuracoes.WebServices.TimeOut := 10000;

  //
  if ACBrNFe.DANFE <> nil then
  begin
    ACBrNFe.DANFE.TipoDANFE := StrToTpImp(OK,'1');
    ACBrNFe.DANFE.Logo      := CdsParametrosLOGO.AsString;

  end;

O erro acontece ao enviar : ACBrNFe.Enviar(vNumLote,False, true) ;

 

Se alguém puder me ajudar, agradeço muito.

Untitled-1.gif

Link to comment
Share on other sites

Descobrir o que era, vai a dica pra quem estiver com o mesmo problema.

  ACBrNFe.Configuracoes.WebServices.TimeOut := 10000;

  ACBrNFe.Configuracoes.WebServices.AguardarConsultaRet      := 5000; // tempo padrão que vai aguardar para consultar após enviar a NF-e
  ACBrNFe.Configuracoes.WebServices.IntervaloTentativas      := 3000; // Intervalo entre as tentativas de envio
  ACBrNFe.Configuracoes.WebServices.Tentativas               := 10;   // quantidade de tentativas de envio
  ACBrNFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := True; // ajustar "AguardarConsultaRet" com o valor retornado pelo webservice


  

Link to comment
Share on other sites

  • Este tópico foi criado há 1542 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.