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.