ACBrDFeWebService - "Data de Validade do Certificado já expirou"

[Elisângela Borato]

Boa tarde, 

Caso: certificado de cliente vencendo hoje, 02/05/2018, ao emitir nfe mensagem erro: "Data de Validade do Certificado já expirou"

Segue sugestão de ajuste para que não dê mensagem de já expirado para Certificado vencido no dia.

Em ACBrDFeWebService.pas

Original:

procedure TDFeWebService.EnviarDados;
Var
  Tentar, Tratado, TemCertificadoConfigurado: Boolean;
begin
  { Sobrescrever apenas se necessário }

  FPRetWS     := '';
  FPRetornoWS := '';

  TemCertificadoConfigurado := (FPConfiguracoes.Certificados.NumeroSerie <> '') or
                               (FPConfiguracoes.Certificados.DadosPFX <> '') or
                               (FPConfiguracoes.Certificados.ArquivoPFX <> '');

  if TemCertificadoConfigurado then
    if FPConfiguracoes.Certificados.VerificarValidade then
       if (FPDFeOwner.SSL.CertDataVenc < Now) then
         raise EACBrDFeException.Create('Data de Validade do Certificado já expirou: '+
                                            FormatDateBr(FPDFeOwner.SSL.CertDataVenc));

Alterado:

procedure TDFeWebService.EnviarDados;
Var
  Tentar, Tratado, TemCertificadoConfigurado: Boolean;
  lCertData, lNow: TDateTime;
begin
  { Sobrescrever apenas se necessário }

  FPRetWS     := '';
  FPRetornoWS := '';

  TemCertificadoConfigurado := (FPConfiguracoes.Certificados.NumeroSerie <> '') or
                               (FPConfiguracoes.Certificados.DadosPFX <> '') or
                               (FPConfiguracoes.Certificados.ArquivoPFX <> '');

  lCertData:= DateOf(FPDFeOwner.SSL.CertDataVenc);
  lNow:= DateOf(Now);

  if TemCertificadoConfigurado then
    if FPConfiguracoes.Certificados.VerificarValidade then
       if (lCertData < lNow) then
         raise EACBrDFeException.Create('Data de Validade do Certificado já expirou: '+
                                            FormatDateBr(FPDFeOwner.SSL.CertDataVenc));

Abraço,
 

[BigWings]

Em 02/05/2018 at 14:20, Elisângela Borato disse:

Caso: certificado de cliente vencendo hoje, 02/05/2018, ao emitir nfe mensagem erro: "Data de Validade do Certificado já expirou"

Segue sugestão de ajuste para que não dê mensagem de já expirado para Certificado vencido no dia.

Certificados tem hora para expiração e não apenas data.

Na minha opinião a implementação original é mais correta já que leva também a hora em consideração.