Coletando Dados Do Emitente Diretamente Do Certificado

[marco404]

Boa tarde.

Estamos implementando em nosso sistema a funcionalidade da Nota Fiscal Eletrônica, e começamos a utilizar o ACBrNFe, por ser simples de usar.

Porém, uma dúvida apareceu:

 

O Token do certificado possui todas as informações da empresa que pode emitir o mesmo. Eu gostaria de coletar essas informações (razão social, CNPJ, cidade e estado) diretamente do Token.

Tentei pegar através de ACBrNFe1.Configuracoes.Certificados.Informacao, porém, todos os tokens possuem os mesmo delimitadores (TAGS) para os campos necessários? (CN para Razão, com ':' separando o CNPJ, L para cidade, S para UF, C para País).

[ricardo_casc]

Acho que teria que implementar estas opção na ACBrNFeConfiguracoes.pas

De uma olhada no código da existente :


 

  TCertificadosConf = class(TComponent)
  private
    FSenhaCert: AnsiString;
    {$IFDEF ACBrNFeOpenSSL}
       FCertificado: AnsiString;
    {$ELSE}
       FNumeroSerie: AnsiString;
       FDataVenc: TDateTime;
       procedure SetNumeroSerie(const Value: AnsiString);
       function GetNumeroSerie: AnsiString;
    function GetDataVenc: TDateTime;
    {$ENDIF}
  public
    {$IFNDEF ACBrNFeOpenSSL}
       function SelecionarCertificado:AnsiString;
       function GetCertificado: ICertificate2;
    {$ENDIF}
  published
    {$IFDEF ACBrNFeOpenSSL}
       property Certificado: AnsiString read FCertificado write FCertificado;
    {$ELSE}
       property NumeroSerie: AnsiString read GetNumeroSerie write SetNumeroSerie;
       property DataVenc: TDateTime read GetDataVenc;
    {$ENDIF}
       property Senha: AnsiString read FSenhaCert write FSenhaCert;    
  end;