Lentidão Ao Enviar Nfe

[tradeone]

Prezados,

 

Após atualizarmos uma nova versão do sistema, onde haviamos atualizado o acbr, alguns clientes nos reportaram uma lentidão ao enviar a NFe, coisa que não acontecia nas versões anteriores.

Após mapeamento chegamos na linha de codigo onde esta o gargalo, porém não conseguimos descobrir o que esta ocorrendo.

Algum colega esta passando pela mesma situação?

 

segue dados de nossa pesquisa sobre o problema:

 

 

IMPORTANTE: LENTIDÃO NO RETORNO/LIBERAÇÃO DO PROTOCOLO PARA EMISSÃO DO DANFE.

PROJETO: Atualizado em 25/04/2013 as 10:00h

UNIT: ACBrNFeWebServices - Linha: 1540

IMPORTANTE: Se cometarmos o bloco em negrito retorna ao tempo aceitável.

 

function TWebServices.Envia(ALote: String; const ASincrono: Boolean): Boolean;

begin

//retirado por recomendação do documento disponível em

http://www.nfe.fazenda.gov.br/PORTAL/docs/Consumo_Indevido_Aplicacao_Cliente_v1.00.pdf

{ if not(Self.StatusServico.Executar) then

begin

if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then

TACBrNFe( FACBrNFe ).OnGerarLog(Self.StatusServico.Msg);

raise EACBrNFeException.Create(Self.StatusServico.Msg);

end; }

self.Enviar.FLote := ALote;

self.Enviar.FSincrono := ASincrono;

if not(Self.Enviar.Executar) then

begin

if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then

TACBrNFe( FACBrNFe ).OnGerarLog(Self.Enviar.Msg);

raise EACBrNFeException.Create(Self.Enviar.Msg);

end;

if (FConfiguracoes.Geral.ModeloDF = moNFe) or (not ASincrono) then

begin

Self.Retorno.Recibo := Self.Enviar.Recibo;

if not(Self.Retorno.Executar) then

begin

if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then

TACBrNFe( FACBrNFe ).OnGerarLog(Self.Retorno.Msg);

raise EACBrNFeException.Create(Self.Retorno.Msg);

end;

end;

Result := true;

end;

 

Desde já agradecemos a sua atenção,

 

 

 

[Isaque Pinheiro]

Amigo, essa linha em negrito que você diz comentar e a velocidade voltar ao normal, não é nada mais nada menos que um evento sendo disparado, sendo assim tenho uma pergunta, veja se você tem algum código no evento GerarLog do seu componente  ACBrNFe?

[tradeone]

Prezado Isaque,

 

No evendo gerarLog do componente esta em branco.

 

Fizemos os mesmos testes no demo do acbr e também apresentou a mesma lentidão entre 15 a 20 segundos. Antes a resposta era em torno de 3 a 5 segundos. Quando  a gente volta a versão anterior fica rapido novamente. Entre esta versão do sistema que esta rapida e a nova não fizemos nenhuma alteração na NFe, somente a atualização do componente ACBR o qual demos um build no projeto, e alguns clientes começaram a nos retornar que estava lento ao enviar a nfe, dai simulamos em nosso ambiente de homologação e constatamos que realmente tem uma diferença consideravel.  

Esta lentidão ocorre em produção e também no ambiente de homologação.

[Isaque Pinheiro]

Bom, o vento em branco é estranho essa lentidão, na versão anterior esse código era diferente ?

 

Pelo que vejo ele tem que passar por vários IFs para chegar a esse que vc colocou em negrito, e se chegar é gerado um exceção, sua aplicação ta tratando essa exceção na chamada de enviar a NFe ?

[tradeone]

A versão anterior (a rapida 3 segundos), tem exatamente o mesmo código da versão atual (versão lenta 15 segundos). Compilamos o demo do acbr e enviamos por ele, onde também apresentou a mesma lentidão.

 

Estamos usando o delphi 7.

[Isaque Pinheiro]

Certo, mas não acredito que a lentidão seja nesse ponto colocado por você, é algo em outro lugar coloquei umas observações no post anterior de uma lida.

[tradeone]

Nos testes que fizemos não esta entrando em nenhuma  exception, tanto que estamos conseguindo imprimir o danfe sem receber nenhuma mensagem de exceção.

raise EACBrNFeException.Create(Self.Retorno.Msg);

[Isaque Pinheiro]

Por este motivo digo acreditar que a lentidão não esteja nesse ponto, de uma debugada mais detalhada tenta encontrar o ponto correto para que possamos ajuda-lo modificando o código se preciso, e tb vamos esperar alguém se manifestar que está com o mesmo problema, mas até o momento só você fez este questionamento, comente se fonte como havia dito, e vamos acompanhar o post ok?

[tradeone]

obrigado Isaque. Vamos continuar em nossos testes, até descobrirmos o problema. Se algum colega estiver passando por esta situação, favor relatar, pois pode nos ajudar a encontrar o problema.

 

Assim que tivermos uma conclusão iremos postar aqui.

[tradeone]

Problema Resolvido. No parametro aguardarconsultaret esta com 15000 por isto estava demorando 15 segundos, colocamos 0 e voltou a ficar rapido.

[tradeone]

Problema Resolvido.

 

No parametro aguardarconsultaret estava com 15000 por isto estava demorando 15 segundos, colocamos 0 e voltou a ficar rapido.

 

 

Isaque, obrigado pela sua atenção.

[Isaque Pinheiro]

Opa, obrigado você pelo retorno da solução do problema, estamos ai para tentar ajudar no que for preciso, grande abraço, e salve o Projeto ACBr

[Francisjs254]

Em 25/04/2013 at 12:19, tradeone disse:

Problema Resolvido.

 

No parametro aguardarconsultaret estava com 15000 por isto estava demorando 15 segundos, colocamos 0 e voltou a ficar rapido.

 

 

Isaque, obrigado pela sua atenção.

Boa noite a todos estou tendo o mesmo problema de lentidão, onde eu altero este parametro?

[carlosinfoteen]

1 hora atrás, Francisjs254 disse:

Boa noite a todos estou tendo o mesmo problema de lentidão, onde eu altero este parametro?

Francis, você pode alterar no componente ACBRNfe via propriedade do objeto inspector em tempo de projeto clicando no componente ACBRNfe depois indo em Configurações > WebServices > AguardarConsultaRet e setar o valor.

Ou pode em tempo de execução via codigo, por exemplo no create do form:

ACBrNFe1.Configuracoes.WebServices.AguardarConsultaRet:=0;

 

[madrugao]

resolveu o meu caso, fazia tempo que estava lento e estava procurando um tópico, obrigado