[Download de XML!]

Valeu pessoal pela força. Fiz os ajustes devidos e está funcionando, valeu mesmo!

[Download de XML!]

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...

[Download de XML!]

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?

[Certificado não encontrado!]

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;
 

[Certificado não encontrado!]

26 minutos atrás, Renato Rubinho disse:

Garanta que não está preenchendo o Número de Série do certificado, não lembro o motivo, mas dá problema se quiser ler o pfx.

Qual o conteúdo do vCaminhoCertificado?

Se estiver em rede e com mapeamento, o usuário do serviço provavelmente não terá a unidade mapeada e ocorrerá o problema.

Se for esse o caso:

• tente colocar com caminho UNC para ver se resolve
• salve o certificado numa pasta local
• confirme permissão de acesso ao arquivo

 

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.

[Certificado não encontrado!]

2 horas atrás, Cleber disse:

Como você muda isso? está fixando os valores no componente ou no código e compilando? Descreva para nós.
Tente deixar as propriedades configuradas no componente em developing time e comenta o código

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;
 

[Certificado não encontrado!]

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

[Certificado não encontrado!]

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

[Certificado não encontrado!]

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;

[Certificado não encontrado!]

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....

[Certificado não encontrado!]

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

[Certificado não encontrado!]

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

[Certificado não encontrado!]

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

[Certificado não encontrado!]

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

[Certificado não encontrado!]

Sim, como administrador...

[Certificado não encontrado!]

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...

[Certificado não encontrado!]

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? 

 

 

[Certificado não encontrado!]

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

 

[Certificado não encontrado!]

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

[Certificado não encontrado!]

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

[Certificado não encontrado!]

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

na que funciona, windows 10

[Certificado não encontrado!]

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...

 

[Certificado não encontrado!]

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á...

[Download de XML!]

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
 

[Certificado não encontrado!]

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

Valeu mesmo!