Certificado não encontrado!

[Cleber Ferreira]

O que faz esse "ACBrNFe.SSL.DescarregarCertificado" ?

[Márcio Antônio]

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

[Cleber Ferreira]

ACBrNFe.SSL.SSLType := LT_TLSv1_2 no demo está assim também?

[Márcio Antônio]

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

[Márcio Antônio]

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;
 

[Renato Rubinho]

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

 

Editado 12 Novembro, 2021 por Renato Rubinho

[Márcio Antônio]

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.

[Márcio Antônio]

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;
 

[Renato Rubinho]

Tenta logar seu serviço com o usuário e senha que você loga no servidor. 

É possível que seja problema de direitos ainda.

Outra tentativa, atribuir direitos totais para todos para garantir.

E tenta também salvar na base e alimentar a propriedade DadosPfx