cExpressaoExpressão com opções permitidas.
AdvPL GuiaPertence(cExpressao) -> lOkValida se o conteúdo corrente pertence às opções permitidas.
Recebe a expressão com valores permitidos e lê o conteúdo da variável/campo posicionado. A fonte usa VALID de MSGET; não é uma função genérica de busca em array. O exemplo foi adaptado para um caractere e opções 0–4, evitando tratar uma sequência de identificadores como uma lista com separadores não documentados. (Fontes: refs. 1–1.)
Pertence(cExpressao) -> lOkcExpressaoExpressão com opções permitidas.
Lógico: conteúdo corrente contido na expressão.
#Include "Protheus.ch"
User Function Ed571()
Local oDlg
Local cValor := "0"
// Validar o conteudo corrente, nao um array externo.
DEFINE MSDIALOG oDlg TITLE "Exemplo" FROM 0,0 TO 100,300 PIXEL
@ 12,12 MSGET cValor SIZE 40,12 OF oDlg PIXEL VALID Pertence("01234")
ACTIVATE MSDIALOG oDlg CENTERED
Return NilO campo aceita as opções documentadas 0–4 na validação; não grava dados. Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
© 2026 Usina.BR. Todos os direitos reservados. TOTVS, Protheus, Microsiga e seus respectivos logotipos são marcas de seus titulares. O AdvPL Guia é independente e utiliza citações limitadas, atribuídas e justificadas por finalidade educativa. Consulte os Termos de Uso. Termos de Uso
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.