ERRO EM BRANCO AO EMITIR NF-e

[Jakson]

Boa noite, nas tentativas de solucionar esse problema fui debugar o código linha a linha e transmitiu normal, agora a pergunta é: o que pode está acontecendo? quando transmito retorna o erro com o X vermelho, quando debugo da certo.  

[Jakson]

consegui!!!

o problema está nessa procedure:

 

procedure TDFeWebService.EnviarDados;
Var
  Tentar, Tratado: Boolean;
begin
  { Sobrescrever apenas se necessário }

  FPRetWS := '';
  FPRetornoWS := '';

  { Verifica se precisa converter o Envelope para UTF8 antes de ser enviado.
     Entretanto o Envelope pode já ter sido convertido antes, como por exemplo,
     para assinatura.
     Se o XML está assinado, não deve modificar o conteúdo }
  if not XmlEstaAssinado(FPEnvelopeSoap) then
    FPEnvelopeSoap := ConverteXMLtoUTF8(FPEnvelopeSoap);

  Tentar := True;
  while Tentar do
  begin
    Tentar := False;
    Tratado := False;

    if FPConfiguracoes.Certificados.VerificarValidade and
       (FPDFeOwner.SSL.CertDataVenc < Now) then
      raise EACBrDFeException.Create('Data de Validade do Certificado já expirou: '+
                                     FormatDateBr(FPDFeOwner.SSL.CertDataVenc));

    try
      FPRetornoWS := FPDFeOwner.SSL.Enviar(FPEnvelopeSoap, FPURL, FPSoapAction, FPMimeType);
      sleep(3000); // ALTERADO POR JAKSON PARENTE
    except
      if Assigned(FPDFeOwner.OnTransmitError) then
        FPDFeOwner.OnTransmitError( FPDFeOwner.SSL.HTTPResultCode,
                                    FPDFeOwner.SSL.InternalErrorCode,
                                    FPURL, FPEnvelopeSoap, FPSoapAction,
                                    Tentar, Tratado) ;

      if not (Tentar or Tratado) then
        raise;
    end;
  end;

  { Resposta sempre é UTF8, ParseTXT chamará DecodetoString, que converterá
    de UTF8 para o formato nativo de  String usada pela IDE }
  FPRetornoWS := ParseText(FPRetornoWS, True, True);
end;

 

percebi que quando eu fazia o debug a NFe era transmitida normalmente, depois eu coloquei a variavel "FPRetornoWS" dentro de um showmessage pra ler o que estava escrito, daí percebi que o problema poderia ser de tempo, coloquei esse sleep com 3 segundos e resolveu, pode ser que seja útil pra alguém que venha a passar o mesmo sufoco que passei srsrs

[Régys Silveira]

Não precisa colocar sleep basta configurar o componente corretamente.

// tempo de timeout
ACBrNFe1.Configuracoes.WebServices.TimeOut := 15000;                  

// tempo padrão que vai aguardar para consultar após enviar a NF-e 
ACBrNFe1.Configuracoes.WebServices.AguardarConsultaRet := 5000;      

// Intervalo entre as tentativas de envio    
ACBrNFe1.Configuracoes.WebServices.IntervaloTentativas := 5000;      

// quantidade de tentativas de envio    
ACBrNFe1.Configuracoes.WebServices.Tentativas := 10;               

// ajustar "AguardarConsultaRet" com o valor retornado pelo webservice (True/False)
ACBrNFe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := True; 

 

[Jakson]

entendi Régys, eu havia tentado aumentando o TimeOut até 20000 e mesmo assim não tinha dado certo daí coloquei o sleep e ficou primeira. 

muito obrigado pela atenção!

[Juliomar Marchetti]

2 minutos atrás, Jakson disse:

entendi Régys, eu havia tentado aumentando o TimeOut até 20000 e mesmo assim não tinha dado certo daí coloquei o sleep e ficou primeira. 

muito obrigado pela atenção!

Lembrando que agora pra frente seu fonte não vai se atualizar caso tenhamos melhorias ou novas implementações pois seu svn marcou o arquivo como não atualizável!

[Jakson]

ja retirei a alteração que fiz e segui as orientações do Régys, obrigado Juliomar.

[Ivan Orosco]

Bom dia, estou com 2 clientes que estão com este mesmo problema de erro em branco e não conseguem emitir nenhuma nota.

Notei que se simplesmente mandar consultar o status do serviço pelo componente também ocorre o mesmo erro, já segui as orientações do Regys mais acima e também já fiz o teste utilizando sleep sugerido pelo Jakson, porém, depurando eu vejo que o problema sempre ocorre com o retorno da chamada do webservice voltando em branco sempre mesmo antes de passar pelo sleep.

Este cliente estava emitindo notas normalmente até dia 31/07/2018 e não houve nenhuma alteração de versão, ambiente, nada, simplesmente começou a retornar este erro em branco. 

Será que teria a ver com alguma definição nova que passou a vigorar a partir de 01/08 pela Receita de SP ?

Curiosamente tenho outros clientes que continuam emitindo nota normalmente, apenas estes dois não conseguem emitir de maneira nenhuma e já comparei as configurações e estão todas idênticas.

Alguém teria alguma sugestão ?

[]'s

[Ivan Orosco]

Pessoal, para ajudar quem estiver passando pela mesma situação, consegui "resolver" o meu problema aqui (graças a umas dicas valiosas do Regys), não sei se é a melhor maneira, mas funcionou, basicamente configurei diretamente no meu componente as propriedades da seguinte maneira:

//estes configurei diretamente no componente
ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt;
ACBrNFe1.Configuracoes.Geral.HttpLib := httpWinHttp;
ACBrNFe1.Configuracoes.Geral.SSLLib := libCustom;
ACBrNFe1.Configuracoes.Geral.SSLXmlSignsLib := xsMsXml;
ACBrNFe1.Configuracoes.WebServices.SSLType:=LT_TLSv1_2;

//estes foram diretamente via código
ACBrNFe1.Configuracoes.WebServices.TimeOut := 15000;                  
ACBrNFe1.Configuracoes.WebServices.AguardarConsultaRet := 5000;      
ACBrNFe1.Configuracoes.WebServices.IntervaloTentativas := 5000;      
ACBrNFe1.Configuracoes.WebServices.Tentativas := 10;               
ACBrNFe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := True;

ACBrNFe1.SSL.SSLType:=LT_TLSv1_2;

Dai foi !!!

Como disse, não sei se é a melhor ou a maneira mais correta, se alguém tiver alguma observação fique a vontade para comentar e contribuir.

[]'s

Editado 7 Agosto, 2018 por Ivan Orosco