Função: VarSetGet
Retorna um caractere que identifica o tipo de dado da variável informada através do parâmetro.
VarSetGet ( < Variavel> ) --> cRet
| Nome | Tipo | Descrição | Obrigatório | Referência |
| Variavel | Qualquer | Indica o dado ou a variável que se deseja identificar. | X |
-
cRet(caracter)
- Retorna um caractere que identifica o tipo de dado informado.
Tipos de dados válidos
| Tipo de dado | ValType() |
| Array | A |
| Bloco de código | B |
| Caractere | C |
| Data | D |
| Lógico | L |
| Numérico | N |
| Objeto | O |
| Não definido | U |
User Function Exemplo()Local bBloco := {||}Local cCaractere := "", cMensagem := ""//+----------------------------------------------------------------------------+//|Exemplifica o uso da função VarSetGet |//+----------------------------------------------------------------------------+ bBloco := {| u | IIf(PCount()==0, cMensagem, cMensagem := u)} VarSetGet("cCaractere", bBloco) cCaractere := "Mensagem a ser apresentada"//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do VarSetGet")
Exemplo da função VarSetGet
Microsiga Protheus 8.11
,
Protheus 10
,
TOTVS Application Server 10