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