frederico nogueira

a que eu uso e a do projeto baixado na trunk 2.

a unit ACBrDFeOpenSSL.pas do projeto esta diferente da https://github.com/GabrielF7/ACBrTrunk2/blob/master/Fontes/ACBrDFe/ACBrDFeOpenSSL.pas.

entra em loop em na unit ssl_openssl_lib; procedure locking_callback(mode, ltype: integer; lfile: PChar; line: integer); cdecl; begin if (mode and 1) > 0 then TCriticalSection(Locks[ltype]).Enter else TCriticalSection(Locks[ltype]).Leave; end;

to usando libOPENSSL+ xsXMLsec TRAVA EM procedure TDFeSSLXmlSignXmlSec.InitXmlSec; ACBrDFeXsXmlSec.InitXmlSec( XMLSecCryptoLib ); AQUI

agora apos executar tanto a DEMO quanto minha APP encarram aplicação sem dar erro ao executar. ACBrNFe1.NotasFiscais.Assinar; erro acontece na unit ACBrDFeXsXmlSec; function TDFeSSLXmlSignXmlSec.Assinar; XmlAss := XmlSecSign(AXml, AnsiString(SignatureNode), AnsiString(SelectionNamespaces), AnsiString(infElement)); app encerra aqui,

agora apos executar tanto a DEMO quanto minha APP encarram aplicação sem dar erro ao executar. ACBrNFe1.NotasFiscais.Assinar;

usei o OpenSSL e funcionou. mas nao e para mudar para o libWinCrypt?

mudei para libOpenSSL e funcionou. mas o libwincrptt da dando esse erro. como devo proceder Daniel Simoes? ?

com ou sem o numero de serie o erro continua. o erro acontece aqui na linha em negrito na unit ACBrDFeWinCrypt.pas procedure PFXDataToCertContextWinApi(AData, APass: AnsiString; var AStore, ACertContext: Pointer); var PFXBlob: CRYPT_DATA_BLOB; PFXCert: PCCERT_CONTEXT; wsPass: WideString; begin PFXBlob.cbData := Length(AData); PFXBlob.pbData := PBYTE(AData); if not PFXIsPFXBlob(PFXBlob) then raise EACBrDFeException.Create('PFXDataToCertContextWinApi: DadosPFX informado não são válidos'); wsPass := WideString( APass ); if not PFXVerifyPassword(PFXBlob, LPCWSTR(wsPass), 0) then raise EACBrDFeException.Create('PFXDataToCertContextWinApi: Senha informada está errada'); AStore := PFXImportCertStore( PFXBlob, LPCWSTR(wsPass), CRYPT_EXPORTABLE or {PKCS12_PREFER_CNG_KSP or} PKCS12_INCLUDE_EXTENDED_PROPERTIES); if AStore = nil then raise EACBrDFeException.Create( 'PFXDataToCertContextWinApi: Falha em "PFXImportCertStore" Erro: '+GetLastErrorAsHexaStr); // Varre cadeia de certificados lidos, e procura por Certificado do Cliente // ACertContext := Nil; PFXCert := Nil; PFXCert := CertEnumCertificatesInStore(AStore, PCCERT_CONTEXT(PFXCert)^); while (PFXCert <> Nil) and (ACertContext = Nil) do begin // Se Tem numero de série, então é o certificado do cliente if PFXCert^.pCertInfo^.SerialNumber.cbData >= 16 then ACertContext := PFXCert else PFXCert := CertEnumCertificatesInStore(AStore, PCCERT_CONTEXT(PFXCert)^); end; if (ACertContext = Nil) then raise EACBrDFeException.Create( 'PFXDataToCertContextWinApi: Falha ao localizar o Certificado com a Chave Privada.'); end;

modifiquei conforme exemple a agora estou com o seguinte erro que ja esta com outro topico aberto nesse forum recentemente. tudo que precisa acessar o certificado eta dando esse erro exceto o primeiro botão de consulta de numero de serie do certificado. reproduzi o erro na DEMO.

também estou com o mesmo problema.

vou ter que parar de usar capcom?

estava funcionando normalmente mas quanto atualizei os fontes começou a dar erro ao assinar a nota. executo ACBrNFe1.NotasFiscais.GerarNFe; o erro acontece aqui ACBrNFe1.NotasFiscais.Assinar; mensagem é: EOleExcePtion with message 'parametro incorreto'

essas são as dll´s que estão na pasta da aplicação André.

caros, tenho uma app que funciona normal mas em uma determinada maquina ela não assina a nota fiscal ao executar a linha abaixo: acbr.notafiscal.assinar; isso ocorrem em apenas uma maquina a qual formatei e reinstale tudo e continua com o mesmo problema. fiz os testes de ambiente no site da serasa e o certificado esta ok e a assinatura esta ok. sera que os colegar poderiam me ajudar a identificar qual e o erro? desde ja agradeço a ajuda.

resolvido Julio! Foi um aro primário que passou despercebido, não estava carregando o CNPJ junto com a chave. Grato pela atenção.

ao enviar estou com esse erro mostrado na imagem ao enviar a CCE. abaixo segue meu codigo para analise dos colegas e agradeço qualquer ajuda para descobrir o que esta errado. ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(ARQUIVO); ACBrNFe1.EventoNFe.idLote := StrToInt(idLote); with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := StrToInt(nSeqEvento); infEvento.detEvento.xCorrecao := Correcao; InfEvento.cOrgao := StrToInt(Copy(Chave,1,2)); end; try ACBrNFe1.EnviarEvento(StrToInt(idLote)); ===> ERRO ACONTECE AQUI ##################### retornoWS := ACBrNFe1.WebServices.EnvEvento.RetWS; // LoadXML(ACBrNFe1.WebServices.EnvEvento.RetWS, WBResposta); except exit; end;

Boa tarde! Gostaria de saber se tem como fazer uma consulta usando a função ACBrNFe1.DistribuicaoDFe para listar documentos de um período especifico?

o problema e só no envio e recebimento da confirmação. o arquivo e recebido mas esse erro ocorre antes de receber a confirmação. outros webservices sem problema. anti virus, firewall, windoes defender desativados.

n consigo solucionar o problema. o componente envia mas da o erro antes deu receber a autorização da SEFAZ. alguém do grupo passou por isso?

caros, tenho uma nota que esta apresentando esse erro. - rejeição -CEAN inválido como faço para verificar qual o problema com o EAN e qual seria ele? tenho como validar antes de transmitir? obs: uma nota com apenas 32 itens

erro quando xecuta esse codigo quando transmito a nota procedure TWebServicesBase.GerarException(Msg: AnsiString); begin FazerLog( 'ERRO: ' + Msg, False ); raise EACBrNFeException.Create( Msg ); end; erro quanto encerro a aplicação function SslPending(ssl: PSSL):Integer; begin if InitSSLInterface and Assigned(_SslPending) then Result := _SslPending(ssl) else Result := 0; end;

caro,o erro e intermite. passos: 1-ACBrNFe1.NotasFiscais.GerarNFe - sem erro algum 2-ACBrNFe1.Enviar(vNumLote,True) - o erro ocorre quando executo essa fução do componente a note e enviada mas o erro ocore antes de receber o retorno.

caros, estou tava tudo funcionando, agora quando envio o lote da esse erro: projeto none rised exceptionclass acbrnfeexception with message -List index out of bounds (1) o lote e recebido pela sefaz mas nao recebo o arquivo de lote enviado, simplemente da essa exceção e não recebo nada de retorno. o erro e intermitente mas no primeiro dia estava emitindo tudo perfeito. desse forma sou obrigado a pegar o xml na sefaz em tona nota que envio. preciso urgente de uma ajuda, grato ao colegas

estou com o mesmo problema