CTePegaNomeCertificado

A função CTePegaNomeCertificado exibe uma tela com os certificados digitais válidos instalados no sistema e retorna uma string com o nome (assunto) do certificado escolhido na tela.

Tipo de Retorno

String

Pacote

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

Sintaxe

Move (CTePegaNomeCertificado({bExibeErro},(&{sResultado}))) to ;
{sCertificado}

Onde:

  • {bExibeErro} é usado para indicar se a função deve exibir ou não os erros que ocorrerem na execução.
  • &{sResultado} é uma variável do tipo string que deve ser passada por referência. Após a execução da função esta variável terá a descrição literal do resultado da chamada da função.
  • {sCertificado} receberá a string que representa o certificado escolhido. Você pode armazenar esta string em um campo da sua base de dados e passá-la nas funções que exigem esta informação, desta forma o usuário não terá de escolher o certificado a cada operação. Se o usuário não escolher um certificado, será devolvida uma string nula ou uma string com o número 0 (zero).

Exemplo

Object oEmit_sCertificadoDig is a dbForm
Entry_Item Emitente.sCertificadoDig
Set Location to 140 72
Set Size to 13 537
Set Label to "Certificado Digital"
Set peAnchors to anTopLeftRight
Set Label_Col_Offset to 67
Set Prompt_Button_Mode to PB_PromptOn

Procedure Prompt
String sNmCertificado // Nome do certificado escolhido
String sValorAtual // Recebe o valor atual do campo
String sResultado // Resultado literal da chamada da função

Get Value to sValorAtual

Move (Trim(sValorAtual)) to sValorAtual

Move (Trim(CTePegaNomeCertificado(True,(&sResultado)))) ;
to sNmCertificado

If (sNmCertificado <> sValorAtual and sNmCertificado <> "") ;
Set Field_Changed_Value of (Server(Self)) Field ;
Emitente.sCertificadoDig to sNmCertificado
End_Procedure
End_Object

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