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.