Márcio Antônio

Pessoal, com essa mudança, só estou conseguindo realizar o download nos clientes que já estavam usando a manifestação do XML, nos novos, não está funcionando... estou fazendo dessa forma: // Manifestação Destinatário dtmCompra.ACBRNFeTriviaDownload.EventoNFe.Evento.Clear; with dtmCompra.ACBRNFeTriviaDownload.EventoNFe.Evento.Add do begin InfEvento.cOrgao := vOrgao; // Nacional InfEvento.chNFe := vChave; InfEvento.CNPJ := vCNPJ; InfEvento.nSeqEvento := nSeqEvento; InfEvento.dhEvento := dtmGenIbx.GetDBNow; InfEvento.tpEvento := teManifDestCiencia; end; dtmCompra.ACBRNFeTriviaDownload.EnviarEvento(vIdLote); // Fim Manifestação // Download XML dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Arquivos.DownloadDFe.PathDownload := edtCaminhoNFeXmlDownload.Text; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Geral.Salvar := True; dtmCompra.ACBRNFeTriviaDownload.DistribuicaoDFePorChaveNFe(StrToInt(empresaInfo.PessoaInfo.EnderecoPrinc.Estado.CODESTADOIBGE), vCNPJ, vChave); // Fim Download Mas nos clientes novos, só me retorna o status 137 após a tentativa de download... tenho que mudar algo no meu código para essas situações?

Mudei o código e mudei o diretório aonde estava o certificado, pensando que o program files estivesse bloqueando o acesso ou algo do tipo, mas mesmo assim não funcionou... ACBrNFe.SSL.DescarregarCertificado; ACBrNFe.Configuracoes.Certificados.ArquivoPFX := ''; ACBrNFe.Configuracoes.Certificados.ArquivoPFX := 'C:\Certificado\CertificadoBomDia.pfx'; ACBrNFe.Configuracoes.Certificados.DadosPFX := ''; ACBrNFe.Configuracoes.Certificados.NumeroSerie := ''; ACBrNFe.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado; ACBrNFe.Configuracoes.Arquivos.PathSchemas :=''; ACBrNFe.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\Nfe'; ACBrNFe.SSL.CarregarCertificado; logConsultaNFeDestinadas.Log('Consulta Notas Destinadas', 'Configuração do Certificado OK!'); logConsultaNFeDestinadas.Log('Consulta Notas Destinadas', 'Conectando na SEFAZ...'); // Conecta na SEFAZ try ACBrNFe.WebServices.StatusServico.Executar;

vCaminhoCertificado = C:\Program Files\Trivia\Certificados\CertificadoBomDia.pfx Não estou passando nada para o número do certificado. Não está em rede, o serviço está instalado no servidor. O certificado está local no servidor, como mostra o caminho acima.

coloquei as configurações direto no componente, e mesmo assim não pegou... ficou assim meu código: ACBrNFe.SSL.DescarregarCertificado; ACBrNFe.Configuracoes.Certificados.ArquivoPFX := vCaminhoCertificado; ACBrNFe.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado; // with ACBrNFe.Configuracoes.Geral do // begin // SSLLib := libOpenSSL; // SSLCryptLib := cryOpenSSL; // SSLHttpLib := httpOpenSSL; // SSLXmlSignLib := xsLibXml2; // end; ACBrNFe.Configuracoes.Arquivos.PathSchemas :=''; ACBrNFe.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\Nfe'; // ACBrNFe.Configuracoes.WebServices.UF := empresainfo.PessoaInfo.EnderecoPrinc.id_estado; // ACBrNFe.Configuracoes.WebServices.Ambiente := taProducao; // // ACBrNFe.SSL.SSLType := LT_TLSv1_2; //WebService: SSL Type ACBrNFe.SSL.CarregarCertificado; logConsultaNFeDestinadas.Log('Consulta Notas Destinadas', 'Configuração do Certificado OK!'); logConsultaNFeDestinadas.Log('Consulta Notas Destinadas', 'Conectando na SEFAZ...'); // Conecta na SEFAZ try ACBrNFe.WebServices.StatusServico.Executar;

sim, quando vc muda para o openSSL, ele pede para mudar para o LT_TLSv1_2

ele limpa caso tenha algum certificado no componente.... tentei deixar ao máximo igual ao exemplo do acbr...

meu código: ACBrNFe.Configuracoes.Certificados.ArquivoPFX := vCaminhoCertificado; ACBrNFe.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado; ACBrNFe.SSL.DescarregarCertificado; with ACBrNFe.Configuracoes.Geral do begin SSLLib := libOpenSSL; SSLCryptLib := cryOpenSSL; SSLHttpLib := httpOpenSSL; SSLXmlSignLib := xsLibXml2; end; ACBrNFe.Configuracoes.Arquivos.PathSchemas :=''; ACBrNFe.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\Nfe'; ACBrNFe.Configuracoes.WebServices.UF := empresainfo.PessoaInfo.EnderecoPrinc.id_estado; ACBrNFe.Configuracoes.WebServices.Ambiente := taProducao; ACBrNFe.SSL.SSLType := LT_TLSv1_2; //WebService: SSL Type logConsultaNFeDestinadas.Log('Consulta Notas Destinadas', 'Configuração do Certificado OK!'); logConsultaNFeDestinadas.Log('Consulta Notas Destinadas', 'Conectando na SEFAZ...'); // Conecta na SEFAZ try ACBrNFe.WebServices.StatusServico.Executar; except logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Erro: ', IntToStr(ACBrNFe.WebServices.StatusServico.cStat)); logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Motivo: ', ACBrNFe.WebServices.StatusServico.Msg); end;

tb não estava funcionando, ai quando mudei para o openSSL, funcionou.... ai mudei na minha aplicação as mesmas configurações, mas não pegou....

as antigas eu tirei... igual eu fiz na minha máquina, que funciona.... mas no windows server não...

Testei apenas na pasta da aplicação... não rodou.... ai coloquei tb na pasta SysWOW64 as mesmas DLL, tb não rodou...

Mesma coisa... não sei mais o q fazer...

Foto da configuração da internet do windows server 2016... tenho que mudar alguma coisa?

Sim, como administrador...

Existe sim... com essas mesmas configurações, eu consigo rodar normalmente em máquinas windows 10... mas nessas duas windows server 2016 e 2019, não...

Pessoal, ainda não consegui... tentei em outro cliente com esse Windows Server 2019 Standard Evaluation... e dá o mesmo erro.... Instalei esse cara, http://svn.code.sf.net/p/acbr/code/trunk2/DLLs/Diversos/x86/VC_redist.x86.exe coloquei na pasta do projeto essas DLL: libcrypto-1_1 e a libssl-1_1 coloquei tb na pasta SysWOW64 as mesmas DLL o que mais posso tentar?

já instalei esse cara http://svn.code.sf.net/p/acbr/code/trunk2/DLLs/Diversos/x86/VC_redist.x86.exe, e nada... mesmo erro...

Fiz o que você falou, mas está dando o seguinte erro: Erro ao carregar bibliotecas do openssl.

São essas... with ACBRNFeTriviaDownload.Configuracoes.Geral do begin SSLLib := libWinCrypt; SSLCryptLib := cryWinCrypt; SSLHttpLib := httpWinHttp; SSLXmlSignLib := xsLibXml2; ExibirErroSchema := True; //Exibir erro Schema RetirarAcentos := True; //Retirar Acentos dos XMLs enviados FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; //Formato alerta FormaEmissao := TpcnTipoEmissao(dtmSysParams.GetParamAsInteger('NCFE_FORMAEMISSAO')); //Forma de emissão (teNormal, teContingencia, etc...) ModeloDF := moNFe; //Modelo documento fiscal (moNFe ou moNFCe) VersaoDF := ve400; //Versão do documento fiscal VersaoQRCode := veqr200; // Versão QRCode Salvar := True; //Salvar Arquivos de Envio e Resposta end; ACBRNFeTriviaDownload.SSL.SSLType := LT_TLSv1_2; //WebService: SSL Type

na máquina que não funciona, windows server 2016 na que funciona, windows 10

Como está o meu código... ACBRNFeTriviaDownload.Configuracoes.Arquivos.PathSchemas :=''; ACBRNFeTriviaDownload.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\Nfe'; //Diretórios com os arquivos XSD(Schemas) ACBRNFeTriviaDownload.Configuracoes.WebServices.Ambiente := taProducao ACBRNFeTriviaDownload.NotasFiscais.Clear; ACBRNFeTriviaDownload.SSL.DescarregarCertificado; with ACBRNFeTriviaDownload.Configuracoes.Geral do begin SSLLib := libWinCrypt; SSLCryptLib := cryWinCrypt; SSLHttpLib := httpWinHttp; SSLXmlSignLib := xsLibXml2; ExibirErroSchema := True; //Exibir erro Schema RetirarAcentos := True; //Retirar Acentos dos XMLs enviados FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; //Formato alerta FormaEmissao := TpcnTipoEmissao(dtmSysParams.GetParamAsInteger('NCFE_FORMAEMISSAO')); //Forma de emissão (teNormal, teContingencia, etc...) ModeloDF := moNFe; //Modelo documento fiscal (moNFe ou moNFCe) VersaoDF := ve400; //Versão do documento fiscal VersaoQRCode := veqr200; // Versão QRCode Salvar := True; //Salvar Arquivos de Envio e Resposta end; with ACBRNFeTriviaDownload.Configuracoes.Arquivos do begin Salvar := True; //Salvar Arquivos em Pastas Separadas PathSalvar := ExtractFilePath(Application.ExeName) + 'Docs'; //Logs dos Arquivos de Envio e Resposta end; ACBRNFeTriviaDownload.SSL.SSLType := LT_TLSv1_2; //WebService: SSL Type ACBRNFeTriviaDownload.Configuracoes.Certificados.ArquivoPFX := vCaminhoCertificado; ACBRNFeTriviaDownload.Configuracoes.WebServices.UF := empresainfo.PessoaInfo.EnderecoPrinc.id_estado; ACBRNFeTriviaDownload.Configuracoes.Certificados.Senha := NFeCertificadoInfo.senhaCertificado; ACBRNFeTriviaDownload.SSL.CarregarCertificado; // Conecta na SEFAZ try dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.Executar; except logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Erro: ', IntToStr(dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.cStat)); logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Motivo: ', dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.xMotivo); Na minha máquina funciona normal, na do cliente não...

Pessoal, perdão por abrir o mesmo tópico de outro dia, mas sendo que, eu relatei que havia dado certo, quando gerei o meu serviço e coloquei no cliente, não funcionou... quando eu coloco o programa exemplo do acbr, funciona... na minha máquina funciona tanto o serviço como o programa exemplo do acbr, o que poderia ser agora???? Obrigado desde já...

Estava usando o código abaixo para realizar o download de um xml sem realizar a manifestação, estava baixando normalmente, mas agora parou de funcionar, só está baixando a requisição, alguém sabe o porque? ACBRNFeTriviaDownload.NotasFiscais.Clear; // Download XML dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Arquivos.DownloadDFe.PathDownload := vCaminho; dtmCompra.ACBRNFeTriviaDownload.Configuracoes.Geral.Salvar := True; dtmCompra.ACBRNFeTriviaDownload.DistribuicaoDFePorChaveNFe(StrToInt(empresaInfo.PessoaInfo.EnderecoPrinc.Estado.CODESTADOIBGE), vCNPJ, cdsConsManifestacaoDestCHAVENFE.AsString); // Fim Download

Obrigado pela força, Renato e Juliomar, eram as configurações do SSLCryptLib... Valeu mesmo!

No exemplo deu o mesmo erro, parâmetro incorreto... SSLCryptLib := cryCapicom; SSLHttpLib := httpWinINet; SSLLib := libCapicom; SSLXmlSignLib := xsMsXmlCapicom;

SSLCryptLib := cryCapicom; SSLHttpLib := httpWinINet; SSLLib := libCapicom; SSLXmlSignLib := xsMsXmlCapicom; Quando eu tento abrir o programa de exemplo, dá o erro em anexo...