Ir para conteúdo
  • Cadastre-se

dev botao

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


  • Este tópico foi criado há 2213 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...