Maurício Blasque

Boa tarde, pessoal. Estava tendo o problema de lentidão no mesmo trecho de código do Alessandro Ribeiro. Mais especificamente na linha 539 da unit ACBrNFeConfiguracoes: Propriedades := Extension.EncodedData.Format(True); Resolvi comentar esta linha para ver o que acontecia. Mas comentando ela, o trecho de código que a envolvia perderia o sentido. Então resolvi comentar todo o trecho: { for J:=1 to Cert.Extensions.Count do begin Extension := IInterface(Cert.Extensions.Item[J]) as IExtension; Propriedades := Extension.EncodedData.Format(True); if (Pos('2.16.76.1.3.3',Propriedades) > 0) then begin Lista := TStringList.Create; try Lista.Text := Propriedades; for K:=0 to Lista.Count-1 do begin if (Pos('2.16.76.1.3.3',Lista.Strings[K]) > 0) then begin FCNPJ := StringReplace(Lista.Strings[K],'2.16.76.1.3.3=','',[rfIgnoreCase]); FCNPJ := OnlyNumber(HexToAscii(RemoveString(' ',FCNPJ))); break; end; end; finally Lista.free; end; break; end; Extension := nil; end; } Não estou mais tendo problemas com lentidão agora. Queria compartilhar com vocês e gostaria que me dissessem se isto me causará algum problema, ou qual outro procedimento devo realizar para descomentar este código e não voltar a ter problemas. Obrigado.

Encontramos uma versão mais antiga do ACBr em nossos arquivos, fizemos o downgrade e a NFe foi emitida normalmente. Porém não sabemos qual a versão que voltamos, teria como saber para informá-los?

A máquina onde está acontecendo o problema tem instalado o mesmo antivírus que a minha. No caso da minha máquina a NFe é emitida sem problema.

Olá, Confesso que não tinha tentado antes. Porém tentei e a lentidão persiste.

Boa tarde, Após realizar a atualização dos fontes do ACBr, alguns clientes nos relataram uma lentidão ao tentar emitir NFe. Lentidão esta que pode demorar até 20 minutos. Em alguns testes realizados internamente aqui na empresa, pudemos verificar que não são em todas as máquinas que esta lentidão ocorre. Tentando localizar o problema fomos debugando e chegamos a conclusão que a demora no processo está no comando: ReqResp.Execute(Acao.Text, Stream) da unit ACBrNFeWebServices. Ela aparece diversas vezes dentro da unit e sempre que é executada a lentidão aparece. Alguém teve este mesmo problema? Desde já, agradeço.