Certificado Não selecionado

[ricardomendes]

Boa Tarde Galera,

Meu cliente achou um erro no acbnfe....so cliente para achar essas coisas....

Ele foi selecionar o certificado digital e ao invez de escolher o certificado clicou em cancelar...

O componente gera o erro....porem eu não consegui capturar o erro dizendo que o certificado não foi selecionado.

Tentei com o demo e ocorre o mesmo erro.

Será que consigo fazer esse tratamento de certificado não selecionado...

Obrigado

[Cleber Ferreira]

Pelo que posso interpretar dessa mensagem, é porque seu cliente clicou em cancelar nf-e, aí é pedido o certificado a ser usado, e possivelmente após ele deve ter clicado em cancelar na janela de seleção de certificado e a mensagem de erro apareceu, onde a tradução é "Operação cancelada pelo usuário". Não causa problema algum, é só um retorno não tratado, então a mensagem parece ser confusa em nível de usuário. E pelo que reparei, na tela de seleção de certificados, parece não ter nenhum certificado instalado na máquina. Dá uma verificada nisso.

Espero ter ajudado

Abraços...

[ricardomendes]

Cleber, obrigado por responder, mas acho que vc não chegou a ler o meu post...

Clicar em cancelar o cliente realmente o fez....o meu post tem a duvida apenas em saber como realizar esse tratamento para esse caso, ja que o componente não retorna um erro para ser tratado.

Mas vamos ver o que eu consigo tentar resolver para tratar esse tipo de evento.

[Cleber Ferreira]

olá ricardo

Como te falei no final do meu post é uma mensagem não tratada, provavelmente está no componente essa excessão. Se voce achar o ponto onde ocorre, poste aqui para o pessoal, que com certeza eles vão dar uma olhada.

Abraços

[ricardomendes]

O erro ocorre nesse trecho na uses ACBrNFeConfiguracoes

function TCertificadosConf.SelecionarCertificado: AnsiString;

var

Store : IStore3;

Certs : ICertificates2;

Certs2 : ICertificates2;

Cert : ICertificate2;

begin

Store := CoStore.Create;

Store.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_STORE_NAME, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);

Certs := Store.Certificates as ICertificates2;

Certs2 := Certs.Select('Certificado(s) Digital(is) disponível(is)', 'Selecione o Certificado Digital para uso no aplicativo', false);

//Cert2 quando se clica no botão cancelar, na tela de localizar o certificado o erro é nesse trecho.

if not(Certs2.Count = 0) then

begin

Cert := IInterface(Certs2.Item[1]) as ICertificate2;

FNumeroSerie := Cert.SerialNumber;

FDataVenc := Cert.ValidToDate;

end;

Result := FNumeroSerie;

end;

[ricardomendes]

ainda não consegui resolver esse problema...