TOTVSTEC

Árvore de páginas

Recupera o código-fonte de um bloco de código.

Sintaxe

GetCBSource( < bBlocoDeCodigo > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

bBlocoDeCodigo

bloco de código

Indica a variável que contém o bloco de código para recuperar o código-fonte.

X

 

Retorno

Nome

Tipo

Descrição

cRet

caractere

Retorna o código-fonte do bloco de código especificado. Veja detalhes adicionais no tópico de Observações.

Observações

A string retornada contendo o texto-fonte do bloco de código pode apresentar comportamentos diferenciados com relação a letras maiúsculas e minúsculas. Por exemplo, um bloco de código criado e declarado em código-fonte AdvPL é retornado em caixa alta (letras maiúsculas), mesmo que no código-fonte AdvPL o conteúdo do bloco de código possua letras maiúsculas e minúsculas. Já um bloco de código criado utilizando macro-execução, por exemplo, têm seu conteúdo retornado na íntegra sem alteração em caixa alta ou baixa.

Exemplos

Exemplo 1
User Function Exemplo()

  Local bCodeBlock := Nil
  Local cMensagem := ""  
  bCodeBlock := {||Sleep(1000)}
  //+----------------------------------------------------------------------------+
  //|Exemplifica o uso da função GetCbSource                                     |
  //+----------------------------------------------------------------------------+  
  cMensagem += "Bloco de código [ " + GetCbSource(bCodeBlock) + " ]"
  
  //+----------------------------------------------------------------------------+
  //|Apresenta uma mensagem com os resultados obtidos                            |
  //+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do GetCbSource")

Resultado do exemplo

Abrangência

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

Veja também

  • Sem rótulos