Certificado não encontrado!

[Márcio Antônio]

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

[Márcio Antônio]

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

 

[RicardoVoigt]

23 minutos atrás, Márcio Antônio disse:

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

Bom dia, que versão do Windows? 

[Márcio Antônio]

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

na que funciona, windows 10

[RicardoVoigt]

Esse windows eu nunca mexi, só apanhei do windows 7 quando precisei fazer últimas atualizações...

Como está a configuração SSL? como está usando o A1 (pfx) já tentou usar a biblioteca OpenSSL ?

Att

Ricardo

[Márcio Antônio]

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

[RicardoVoigt]

43 minutos atrás, Márcio Antônio disse:

SSLLib                := libWinCrypt;

Tenta assim

SSLLib        := libOpenSSL;
SSLCryptLib   := cryOpenSSL;
SSLHttpLib    := httpOpenSSL;
SSLXmlSignLib := xsLibXml2;

Ahh, e pode ser que precise copiar as respectivas bibliotecas DLL para a pasta do teu projeto...

Pegue na pasta do ACBR se precisar

C:\ACBr\DLLs\OpenSSL

[Márcio Antônio]

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

[Márcio Antônio]

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

 

[Márcio Antônio]

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? 

 

 

[Juliomar Marchetti]

21 horas atrás, Márcio Antônio disse:

ACBRNFeTriviaDownload.Configuracoes.Certificados.ArquivoPFX :=  vCaminhoCertificado;

Esse caminho e arquivo existem?

sei que é uma pergunta boba mas consegue confirmar isso?

[Márcio Antônio]

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

[Juliomar Marchetti]

Rodou a aplicação como administrador?

[Márcio Antônio]

Sim, como administrador...

[Márcio Antônio]

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

[Juliomar Marchetti]

faz um teste

https://github.com/abbodi1406/vcredist/releases

instala esse

[Márcio Antônio]

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

[Cleber Ferreira]

Não teria dll's da openssl em diferentes versões espalhadas no pc do cliente?

As mesmas dll's que você utiliza estão na pasta da aplicação e apenas lá?

[Márcio Antônio]

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

[Cleber Ferreira]

Procurou por outras dll's no pc?

[Márcio Antônio]

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

[Cleber Ferreira]

Você havia dito no início que com o exemplo do ACBr funciona no Windows Server... é isso mesmo?

[Márcio Antônio]

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

[Cleber Ferreira]

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

[Márcio Antônio]

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;