Mudancas Endereco Webservice Acbrcte Svrs

[lucio.paiva]

Boa noite,

 

Conforme nota disponibilizada no site da fazenda foi alterado o ambiente dos webservices da sefaz virtual RS, de acordo com os novos endereçamentos, foi alterado a unit ACBrCTeUtil.pas na função GetURLSVRS conforme em anexo, foi testado e esta funcionando.

 

Atenciosamente Lucio Paiva

 

ACBrCTeUtil.pas

[Italo Giurizzato Junior]

Bom dia Lucio,

 

Essa alteração foi realizada por mim, se não me falha a memória no domingo a noite e já foi disponibilizado.

 

Mesmo assim, muito obrigado pela colaboração.

 

Veja:

[prismars]

Italo,

 

Estou recebendo em todos os clientes o aviso de Certificado Vencido ou Inválido !

 

Fiz atualização e nada o erro continua ...

 

Moacir

[prismars]

Italo,

 

Falei com outro colega que tambem usa a ACBr para emitir CTe´s e ele esta com o mesmo problema.

 

No meu caso resolvi comentando a rotina que valida o certificado informado.

 

Transcrevo abaixo esta rotina.

 

function TfrmCTe.Validar_Certificado: Boolean;

begin

   Result := True;

   try

     If frmCTe.ACBrCTe.Configuracoes.Certificados.GetCertificado.IsValid.Result then

        Result := True

     else if frmCTe.ACBrCTe.Configuracoes.Certificados.GetCertificado.ValidToDate<Date then

     begin

         Result := False;

         ShowMessage('Certificado Vencido.');

     end

     else

     begin

        Result := False;

        if frmCTe.ACBrCTe.Configuracoes.Certificados.GetCertificado.PrivateKey.IsHardwareDevice then

           ShowMessage('Verifique se o hardware esta conectado a este terminal..')

        else

           ShowMessage('Certificado Vencido/Inválido');

     end;

   except

      ShowMessage('Erro ao acessar dados do Certificado Digital');

      Result := False;

   end

end;

 

 

Importante: Se excluir este teste * frmCTe.ACBrCTe.Configuracoes.Certificados.GetCertificado.IsValid.Result * o restante da rotina funciona normalmente..

 

 

Qualquer dica ou comentário sera bem vindo !

 

Abraço,

 

Moacir

Editado 6 Maio, 2015 por prismars

[Juliomar Marchetti]

Boa noite

até mesmo seus certificados de testes estão retornando esse problema?

ou é somente em cliente?

[prismars]

Juliomar,

 

Tenho certificado da minha empresa e é com ele que faço os testes.

O erro ocorre com qualquer certificado, seja A1 ou A3.

 

Como comentei antes se excluir este teste * frmCTe.ACBrCTe.Configuracoes.Certificados.GetCertificado.IsValid.Result * o restante da rotina funciona normalmente..

 

Abraços,

 

Moacir

[desenvolvedor2]

Olá amigos, bom dia!
Já tentei todas essas validações acima mas eu não consigo identificar quando o cartão não está na leitora ou quando a leitora não está plugada.

Sabem me dizer se alguma rotina mudou?
 
Deixo a minha rotina abaixo:

 

  try
    dtm.NFe.Configuracoes.Certificados.NumeroSerie := Config.CertificadoDigital;
    dtm.NFe.Configuracoes.Certificados.Senha       := Config.SenhaCertificado;
    if dtm.NFe.Configuracoes.Certificados.GetCertificado.IsValid.Result then
      Result := True
    else
    begin
      Result := False;
      if (dtm.NFe.Configuracoes.Certificados.GetCertificado.ValidToDate < Date) then
        Application.MessageBox(pchar('Certificado vencido!'),'Atenção!',MB_ICONINFORMATION+MB_TASKMODAL)
      else
      if dtm.NFe.Configuracoes.Certificados.GetCertificado.PrivateKey.IsHardwareDevice then
        Application.MessageBox(pchar('Verifique se o hardware esta conectado a este terminal!'),'Atenção!',MB_ICONINFORMATION+MB_TASKMODAL)
      else
        Application.MessageBox(pchar('Certificado inválido!'),'Atenção!',MB_ICONINFORMATION+MB_TASKMODAL)
    end;
  except
    Result := False;
    Application.MessageBox(pchar('Erro ao validar certificado!'),'Atenção!',MB_ICONINFORMATION+MB_TASKMODAL)
  end;

[Italo Giurizzato Junior]

Boa tarde,

 

Vamos respeitar as regras do fórum, para cada assunto novo um tópico novo.

 

O seu problema não tem nada haver com este tópico.