Nesse vídeo demonstraremos a utilização da função SetPrvt, que serve para declarar variáveis do escopo Private.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe441
Cria variáveis do escopo private através de uma função
@type Function
@author Atilio
@since 31/03/2023
@obs
Função SetPrvt
Parâmetros
Recebe o nome das variáveis separadas por vírgula
Retorno
Retorna .T. se conseguiu criar as variáveis ou .F. se não
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe441()
Local aArea := FWGetArea()
//Cria as variáveis private
SetPrvt("cBeluga,cOrca,cJubarte")
//Aciona uma função de exemplo que vai ter acesso a essas variáveis
fExemplo()
FWRestArea(aArea)
Return
Static Function fExemplo()
FWAlertInfo("Teste de criação de variáveis com SetPrvt", "Teste SetPrvt")
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
