galegoga

Não entendi. Porque eu crio TDFeSSL ou porque eu dou load no pfx no memoryStream para depois passar pro TDFeSSL ? Na rotina original eu pego o PFX através do banco de dados. E crio o TDFeSSL para obter as informações do pfx, no caso, quero saber se o certificado é da empresa e se está vencido antes de entrar na rotina.

Boa tarde! Estou com um problema de vazamento de memória no componente ACBr. Mas não consegui localizar exatamente onde ocorre. O vazamento é relacionado ao certificado digital. Utilizo carregamento de PFX com a configuração cryWinCrypt, além do lixo na memória ele também cria diversos arquivos na pasta "..\AppData\Roaming\Microsoft\Crypto\RSA". OBS: Se alguém souber uma forma de evitar a criação dos arquivos na pasta RSA ou a exclusão automática ao termino da execução seria de grande ajuda. Minha rotina é com milhares de empresas e com diversas ações, em um dia está estourando o disco. Mas vamos ao caso da MemoryLeak, no exemplo abaixo eu rodei um loop de 1000, nele é possível ver que a memória sobe. Fazendo esse teste com cryOpenSSL a memória permanece estável (OBS: Usando ACBr com cryOpenSSL em consultas(Distribuicao e consulta de status) o consumo da memória também sobe, mas não sei se é o acbr ou falha do meu código, ainda estou tentando localizar): unit ACBrDFeSSL; function LoadCertificado( const AFileName: String ): AnsiString; var vMemory: TBytesStream; vBytes: TArray<Byte>; begin vMemory := TBytesStream.Create(); try vMemory.LoadFromFile( AFileName ); vBytes := vMemory.Bytes; SetString(Result, PAnsiChar(@vBytes[0]), Length(vBytes)); finally vMemory.Free; end; end; procedure TForm2.MetodoTeste( ALoop: Integer ); var vDFeSSL: TDFeSSL; vPFX: Boolean; vCT: Integer; vMetodo: TSSLCryptLib; begin vPFX := True; vMetodo := cryWinCrypt; for vCT := 1 to ALoop do begin vDFeSSL := TDFeSSL.Create; // TSSLCryptLib = (cryNone, cryOpenSSL, cryCapicom, cryWinCrypt); try if vPFX then begin vDFeSSL.DadosPFX := LoadCertificado(ExtractFilePath( Application.ExeName )+'certificado.pfx'); vDFeSSL.Senha := '123456'; end else begin vDFeSSL.NumeroSerie := ''; end; vDFeSSL.SSLCryptLib := vMetodo; vDFeSSL.CarregarCertificado; finally vDFeSSL.DescarregarCertificado; FreeAndNil( vDFeSSL ); end; end; end;

Bom dia! Recebi um a resposta ontem! Não mencionaram o problema, mas voltou a funcionar.

Ainda não. Enviei um e-mail para eles e estou aguardando retorno.

Obrigado! Farei isso.

Boa tarde! Desde 14/11/2023 o serviço de distribuição MDFe "https://mdfe.svrs.rs.gov.br/ws/MDFeDistribuicaoDFe/MDFeDistribuicaoDFe.asmx" começou a apresentar a mensagem "Versao do arquivo XML não suportada". Anteriormente estava funciona normalmente. Não consegui identificar o problema, procurei alguma documentação que pudesse esclarecer ou mencionar alguma mudança, mas nada encontrei. Também verifiquei alguma mudança no ACBr(visto que minha versão é antiga), mas também não localizei nenhuma mudança também. Se alguém tiver alguma informação útil para me ajudar, eu agradeço. Segue os arquivos gerados em anexos. 20231117174647-con-dist-dfe.xml 20231117174647-con-dist-dfe-soap.xml 20231117174647-dist-dfe.xml 20231117174647-dist-dfe-soap.xml

Segue em anexo os arquivos modificados. Abaixo, resumo das modificações. Arquivo pcnReinfR5011.pas: // Adicionado classes: TRAquisCollection = class; TRAquisCollectionItem = class; Arquivo pcnReinfRetConsulta.pas: // Adicionado classes: TRAquisCollection = class; TRAquisCollectionItem = class; // Adicionado campos TInfoTotalContrib = class(TObject) public property RAquis: TRAquisCollection read FRAquis; end; TRTomCollectionItem = class(TObject) public property cno: String read Fcno; end; pcnReinfR5011.pas pcnReinfRetConsulta.pas

Nossa, me pegou de surpresa! Vou esperar até semana que vem para ver se alguém mais se manifesta. Caso eu venha a desenvolver, por qual caminho faço o envio das contribuições ? Digo isso porque uma certa vez fiz um ajuste em um arquivo do reinf e envie aqui pelo fórum, mas nunca foi versionado. Era coisa boba, mas deu problema quando atualizei o acbr, que sobrepôs os ajustes.

Boa tarde, pessoal! Tem alguém desenvolvendo o Reinf R-4000 e filhos ? Efetuei a atualização e vi que os mesmos não estão presentes no ACBr.

Bom dia! Obrigado, mas seu fonte ainda não foi versionado. Não consegui ter acesso ao fonte postado. Quando tento acessá-lo retorna a mensagem: This attachment is not available. It may have been removed or the person who shared it may not have permission to share it to this location. Estou esperando o versionamento, mas caso ele não conste terei de modificar por conta própria. Não queria fazer isso para não ter diferença com o ACBr. Vou aguardar até o dia 13. Se não for versionado, terei de modificar.

Ok! Vou acompanhar, Obrigado!

Bom dia! A consulta do Reinf R-2055 não está devidamente implementada. Vi que um rapaz implementou e postou no site: Porém efetuei a atualização, mas não consta no projeto. Gostaria de saber se a mesma vai ser incluída no projeto e se tem previsão para a sua inclusão.

Verdade, acabei de testar também. Aparentemente está funcionando normal.

Jéter, teve alguma resposta da sefaz ?

Sim, aqui continua com erro.

Eu também estou tendo esse problema. Hoje cedo estava normal, agora começou a dar esse problema. Não sei do que se trata.

Boa Tarde! A OpenSSL passou a dar suporte ao Certificados A3 ou ainda é somente A1 ?

Não. Mas consegui efetuar a instalação. Fiz um outro Checkout. Obrigado!

Aqui comigo o ocorre o erro: C:\ACBR\Fontes\ACBrDFe\ACBrDFeXsXmlSec.pas(188) Error: E2003 Undeclared identifier: 'LibXmlInit' C:\ACBR\Fontes\ACBrDFe\ACBrDFeXsXmlSec.pas(264) Error: E2003 Undeclared identifier: 'LibXmlShutDown' C:\ACBR\Fontes\ACBrDFe\ACBrDFeXsXmlSec.pas(453) Error: E2003 Undeclared identifier: 'LibXmlFindSignatureNode' C:\ACBR\Fontes\ACBrDFe\ACBrDFeXsXmlSec.pas(515) Error: E2003 Undeclared identifier: 'LibXmlEstaAssinado' C:\ACBR\Fontes\ACBrDFe\ACBrDFeXsXmlSec.pas(704) Error: E2003 Undeclared identifier: 'LibXmlFindSignatureNode' C:\ACBR\Fontes\ACBrDFe\ACBrDFeSSL.pas(443) Fatal: F2063 Could not compile used unit 'ACBrDFeXsXmlSec.pas' Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Estou na revisão 14810.

a Boa tarde! Alguma previsão para a implementação do Layout ?