Márcio Antônio
Membros-
Total de ítens
229 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Márcio Antônio postou
-
Valeu pessoal pela força. Fiz os ajustes devidos e está funcionando, valeu mesmo!
-
Certo, mas veja, eu consigo consultar as notas destinadas a esse cnpj, gravo na minha base de dados, mas quando tento realizar a ciencia e o download de uma NFe já localizada no ambiente nacional, eu não consigo.... por isso perguntei se teria que alterar algo no meu código...
-
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...
-
-
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!