Data Vencimento do Certificado

[Rigotti]

Bom dia, tenho uma dúvida quanto a questão de certificados, estamos querendo desenvolver no nosso sistema um aviso para informar ao usuário que o certificado está prestes a vencer, para isso estou utilizando o comando ACBrNFe.Configuracoes.Certificados.DataVenc porém o nosso sistema é multi empresa, ou seja teremos mais que um certificado, para alterar o certificado associado ao componente eu somente preciso utilizar o comando ACBrNFe.Configuracoes.Certificados.NumeroSerie? pois depois de alterar o certificado a data de validade q o componente retorna é do certificado anterior, após realizar algumas operações como consultar status do serviço do sefaz é que ele começa a trazer a data de validade do novo certificado, não consegui achar um motivo lógico, alguém teria alguma idéia do que possa estar acontecendo e como poderia resolver essa situação?

vlw

[Rigotti]

Bom dia, ninguém com alguma idéia para me ajudar??

[]'s

[jonatan.souza]

Amigo eu criei esta função, talvez te ajude :

Function ExpirarCertificadoDigital( numero_certificado : String) : Boolean;

var i : Integer;

CertStore : IStore3;

CertStoreMem : IStore3;

PrivateKey : IPrivateKey;

Certs : ICertificates2;

Cert : ICertificate2;

numce : String;

dias : Real;

acho : Boolean;

begin

Result := True;

Frm_DM.QR_Config.Open;

numce := numero_certificado;

CertStoreMem := Nil;

If CertStoreMem = NIL then begin

CertStore := CoStore.Create;

CertStore.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);

CertStoreMem := CoStore.Create;

CertStoreMem.Open(CAPICOM_MEMORY_STORE, 'Memoria', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);

Certs := CertStore.Certificates as ICertificates2;

acho := false;

For I := 1 to Certs.Count do Begin

Cert := IInterface(Certs.Item) as ICertificate2;

if numce = Cert.SerialNumber then begin

dias := Cert.ValidToDate - Date;

acho := True;

Break; end;

end;

if not acho then

Result := True

else

if dias <= 0 then begin

Result := False;

MensagemPerso(' Certificado Dígital Exprirado em '+FormatDateTime('dd/mm/yyyy',Cert.ValidToDate),erro);

end

else

if dias <= 15 then begin

Result := True;

MensagemPerso(' ***** ATENÇÃO ***** '#13'Falta '+FloatToStr(dias)+' dia(s) para expirar o Certificado Dígital !'#13'Data para Expirar : '+FormatDateTime('dd/mm/yyyy',Cert.ValidToDate),exclamacao);

end

else

Result := True;

end;

end;

[mksbraga]

quando eu vinculo o nro serie do certificado eu gravo tambem a data de vencimento do certificado e quando entro no sistema ele validade a data com a data do servidor referente aquela empresa

[Rigotti]

jonathan-augusto-muito obrigado, funcionou que uma beleza.... ficou perfeito.

mksbraga-obrigado pelo retorno, mas para evitar ter que criar outro campo no banco utilizei a função do jonathan que funcionou muito bem.

Valeu, abraço

Rigotti

[André Ferreira de Moraes]

Use as seguintes funções após trocar o certificado:

ACBrNFe1.Configuracoes.Certificados.GetCertificado;

ACBrNFe1.Configuracoes.Certificados.DataVenc;

[/code]

[Rigotti]

Bom dia, André, muito obrigado, era exatamente isso que estava faltando agora está funcionando que é uma beleza,

mais uma vez, muito obrigado.

[Janio]

Olá a todos,

Também estou precisando capturar esta informação do certificado.

Pelo que pude ver as funções acima são para ACBrNFe. Como não programo em Delphi, pergunto: Há algo semelhante no ACBrNfeMonitor??

Janio

[André Ferreira de Moraes]

NFe.CertificadoDataVencimento - Funciona apenas na versão CAPICOM.

[jonatan.souza]

Di nada meu amigo, precisando estamos aí.

jonathan-augusto-muito obrigado, funcionou que uma beleza.... ficou perfeito.

mksbraga-obrigado pelo retorno, mas para evitar ter que criar outro campo no banco utilizei a função do jonathan que funcionou muito bem.

Valeu, abraço

Rigotti

[b2mvga]

Tem como ver esta validade usando o ACBRNFEMONITOR (txt)?

[Régys Silveira]

utilize o comando "datavencimentocertificado".