NFe Selecionar Certificado

[Régys Silveira]

Já está no SVN?

Sim, já está.

[Tiago Ravache]

Obrigado!

[Turbo Drive]

Boa tarde

Aproveitando o tópico, também estou tendo o retorno "Certificado Digital Não Encontrado".

Tentei a dica do colega Tiago, mas não obtive sucesso.

NFe1.Configuracoes.Certificados.NumeroSerie := Trim(UpperCase(nserie));
NFe1.SSL.CarregarCertificado;

Ao carregar o certificado, ele acusa a ausência do certificado.

No componente eu tenho pré-configurado os seguintes elementos:

PathNfe = C:\SGA\NFe
PathSchemas = C:\SGA\Schemas\
SSLLib = libCapicom
VersaDF = ve310

Existe algo mais a ser configurado ?

 

Grato pela atenção.

[Tiago Ravache]

Boa tarde TurboOverdrive, tente ao debugar verificar o valor contido em nserie após o Trimm e o uppercase... creio que seja necessário um

Trim(UpperCase(StringReplace(nserie, ' ', '', [rfReplaceAll])));

 

Outra coisa não precisei chamar SSL.CarregaCertificado apenas configurei o numeroserie no componente

 

veja se isso te ajuda

Editado 31 Agosto, 2015 por Tiago Ravache
erros de digitação

[Turbo Drive]

Eu já havia tentado o comando que você utilizou, mas mesmo assim não deu certo.

NFe1.Configuracoes.Certificados.NumeroSerie := Trim(UpperCase(StringReplace(nserie, ' ', '', [rfReplaceAll])));
dtfim := NFe1.SSL.CertDataVenc;

O certificado está funcional, mas ao chamar a função que lê a data de expiração, aparece o mesmo retorno "Certificado Digital Não Encontrado". Já registrei as dlls, inclusive deixei cópias no mesmo diretório da aplicação e no diretório SysWow64.

Consegui compilar o exemplo do Acbr, mas ele apenas abre e fecha no mesmo instante.

Vale salientar que a minha aplicação com a versão anterior, usando o trunk, consegue identificar o certificado. Assim descartamos a hipótese de ser Windows ou o certificado.

O que eu posso estar esquecendo que seja diferente nessa versão Trunk2 ?

Grato pela atenção.

[Tiago Ravache]

Olá, sugiro que coloque um breakpoint em ACBrDFeCapicom.pas na linha 283 e veja se os termos da comparação estão iguais... aí posta pra gente o que encontrou pode ser?

[Turbo Drive]

Boa tarde

Grande Tiago, você acertou em cheio.

Assim estava o código na linha 225 da ACBrDFeCapicom.pas:

if Cert.SerialNumber = FpDFeSSL.NumeroSerie then

O valor de Cert.SerialNumber estava indo maiúsculo e sem espaços e o valor de FpDFeSSL.NumeroSerie estavam todos em minúsculo.

Assim ficou o código na mesma unit:

if Cert.SerialNumber = Trim(UpperCase(FpDFeSSL.NumeroSerie)) then

Dessa forma o certificado foi encontrado sem nenhum problema. O interessante é que atualizei os meus fontes Acbr na quinta-feira passada, 27/08/15.

Agradeço novamente aos colegas do fórum e desculpas pelo incômodo.

[Tiago Ravache]

Interessante que o Daniel tinha subido na quarta 26 uma correção que testei aqui e funcionou legal... vou verificar aqui e posto depois, bom que funcionou

[saverio]

no evento oncreate do Tform1 no acbrnfe_demo basta desabilitar essas 2 linhas que vai rodar legal sem precisar mexer no codigo fonte 

//  For T := Low(TSSLLib) to High(TSSLLib) do
//    cbTipoEmissao.Items.Add( GetEnumName(TypeInfo(TSSLLib), integer(T) ) ) ;

[mssistemas]

Em 10/12/2015 at 01:27, saverio disse:

no evento oncreate do Tform1 no acbrnfe_demo basta desabilitar essas 2 linhas que vai rodar legal sem precisar mexer no codigo fonte 

//  For T := Low(TSSLLib) to High(TSSLLib) do
//    cbTipoEmissao.Items.Add( GetEnumName(TypeInfo(TSSLLib), integer(T) ) ) ;

nessa nova versão é a mesma coisa ?