CTePegaPropriedadesCertificado

A função CTePegaPropriedadesCertificado retorna as propriedades de um certificado digital informado. Se não for informado um certificado para a função, será exibida uma tela com os certificados digitais válidos instalados no sistema.

Tipo de Retorno

Integer

Pacote

A função CTePegaPropriedadesCertificado está definida no pacote CTePegaPropriedadesCertificado.pkg.

Sintaxe

Move (Trim(CTePegaPropriedadesCertificado(({&sNmCertificado}), ;
(&{sMsgResultado}),(&{sTitular}),(&{sCNPJ}),(&{sNroSerie}), ;
(&{sEmissor}),(&{sDtInicioValidade}),(&{sDtFimValidade}), ;
{bExibeErro})) to {iRetorno}

Onde:

  • &{sNmCertificado} é uma variável do tipo String que precisa ser passada por referência. Em seu valor, deve ser informada a string que representa o certificado (ou assunto do certificado) cujas propriedade serão consultados. Se você passar este parâmetro em branco, será exibida uma tela para que o usuário escolha um dos certificados válidos instalados. Após a execução da função, será devolvido nesta variável o assunto do certificado digital selecionado.
  • &(sMsgResultado} é uma variável do tipo String que precisa ser passada por referência. Após a execução da função, será devolvida nesta variável a mensagem literal do resultado da chamada da função.
  • &(sTitular} é uma variável do tipo String que precisa ser passada por referência. Após a execução da função, será devolvida nesta variável o nome do titular do certificado digital. 
  • &(sCNPJ} é uma variável do tipo String que precisa ser passada por referência. Após a execução da função, será devolvida nesta variável o CNPJ do titular do certificado digital. 
  • &(sNroSerie} é uma variável do tipo String que precisa ser passada por referência. Após a execução da função, será devolvida nesta variável o número de série do titular do certificado digital.
  • &(sEmissor} é uma variável do tipo String que precisa ser passada por referência. Após a execução da função, será devolvida nesta variável o nome da Autoridade Certificadora do certificado digital.
  • &(sDtInicioValidade} é uma variável do tipo String que precisa ser passada por referência. Após a execução da função, será devolvida nesta variável a data de início de validade do certificado digital.
  • &(sDtFimValidade} é uma variável do tipo String que precisa ser passada por referência. Após a execução da função, será devolvida nesta variável a data final de validade do certificado digital.
  • {bExibeErro} é usado para indicar se a função deve exibir ou não os erros que ocorrerem na execução.
  • {iRetorno} é uma variável inteira que receberá o retorno da execução da função. 0 (zero) indica sucesso e qualquer valor diferente de zero indica que houve um erro ao consultar os dados do certificado.

Exemplo

Object oEmitente_sCertificadoDig is a dbForm
Entry_Item Emitente.sCertificadoDig
Set Location to 4 69
Set Size to 13 305
Set Label to "Certificado digital:"
Set peAnchors to anTopLeftRight
Set Label_Col_Offset to 0
Set Prompt_Button_Mode to PB_PromptOn
Set Label_Justification_Mode to JMode_Right

Procedure Prompt
Integer iRetorno // Recebe o retorno da função
String sCNPJ // CNPJ do titular do certificado
String sDtFimValidade // Data final da validade do certificado
String sDtInicioValidade // Dt. inicial da validade certificado
String sEmissor // Emissor do certificado
String sMsgResultado // Retorno literal da consulta
String sNmCertificado // Nome do certificado escolhido
String sNroSerie // Número de série do certificado
String sTitular // Titular do certificado
String sValorAtual // Recebe o valor atual do campo

Get Value to sValorAtual
Move (Trim(sValorAtual)) to sValorAtual
Move (Trim(CTePegaNomeCertificado(True,(&sMsgResultado)))) ;
to sNmCertificado

If (sNmCertificado <> sValorAtual) Begin
Set Field_Changed_Value of (Server(Self)) Field ;
Emitente.sCertificadoDig to sNmCertificado
Move (CTePegaPropriedadesCertificado((&sNmCertificado), ;
(&sMsgResultado),(&sTitular),(&sCNPJ),(&sNroSerie), ;
(&sEmissor),(&sDtInicioValidade),(&sDtFimValidade), ;
True)) to iRetorno
If (iRetorno = 0) Send Info_Box ;
("Certificado selecionado. Detalhes:\n\nTitular:" ;
* sTitular + "\nCNPJ:" * sCNPJ + "\nNº serie:" * ;
sNroSerie + "\nEmissor:" * sEmissor + ;
"\nData inicial:" * sDtInicioValidade + ;
"\nData final:" * sDtFimValidade) ;
"Informações do certificado escolhido"
End
End_Procedure
End_Object

Não encontrou o que precisava, entre em contato conosco.