Histórico da Página
...
Portuguese | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: GetCbSource
|
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 |
- cRet(caracter)
- Retorna o código-fonte do bloco de código especificado. Veja detalhes adicionais no tópico de 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.
User Function Exemplo()Local bCodeBlock := NilLocal 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")
Exemplo da função GetCbSource
![](https://tdn.totvs.com/download/attachments/6063745/Mon+May+21+15%3A55%3A19+BRT+2012GetCbSource.jpg?version=1&modificationDate=1337626519680)
![](/command/getimage?key=fileName%3DGetCbSource.jpg%2Cmime%3Dimage%2Fpjpeg%2Ctimestamp%3D1300987016404)
![](https://tdn.totvs.com/download/attachments/6063745/Mon+May+21+15%3A55%3A19+BRT+2012GetCbSource.jpg?version=1&modificationDate=1337626519680)
Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas