Tempo de leitura: 1 minuto
Olá, no post de hoje iremos aprender como usar a função AllwaysTrue no ADVPL. Ela é uma das funções de validação no ADVPL. A função AllwaysTrue foi criada com o objetivo de compatibilidade, sendo que sempre irá retornar um valor lógico verdadeiro(.T.), facilitando a especificação desta situação nas parametrizações de validações de modelos de interface pré-definidos no sistema.
Sintaxe:
AllwaysTrue( )
Parâmetro(s):
–
Retorno:
Exemplo da função AllwaysTrue no ADVPL:
#include 'protheus.ch'
#include "tbiconn.ch"
/*------------------------------------------------------------------------------------------------------------------
Acesse e se inscreva no Blog/Site ProtheusAdvpl para receber conteúdo:www.protheusadvpl.com.br
Se inscreva no Canal do ProtheusAdvpl para receber vídeos:https://wwww.youtube.com/protheusadvpl
Siga-nos no Instagram:http://https://www.instagram.com/protheusadvpl
Siga a página do ProtheusAdvpl no Facebook:https://www.facebook.com/protheusadvpl2
Participe do grupo do ProtheusAdvpl no Facebook:https://www.facebook.com/groups/934461593385051/
Conheça o Portal ProtheusAdvpl:http://www.protheusadvpl.com.br/sobre-o-portal-protheusadvpl
Participe dos grupos do ProtheusAdvpl no Whatsapp:http://protheusadvpl.com.br/grupo-whatsapp-protheusadvpl
e Telegram:http://protheusadvpl.com.br/grupo-telegram-protheusadvpl
*-------------------------------------------------------------------------------------------------------------------/
/*{Protheus.doc} User Function PAwTrue
(Essa função tem por finalidade mostrar a função de validação AllwaysTrue em ADVPL/TL++)
@type Function
@author Adilio Costa
@since 07/11/2023
@version 12.1.2210
@Post:AllwaysTrue
*/
User Function PAwTrue()
Local aParamBox := {}
Local cTitulo := "Importacao de cadastros"
Local cLoad := ""
Local lCanSave := .T.
Local lUserSave := .T.
Local aRet := {}
MsgInfo(AllwaysTrue()) //Retorna .T.
//Usando AllwaysTrue() para retornar verdadeiro .T. nas parametrizações do ParamBox
aAdd(aParamBox,{2,"Tipo de informação" ,1 ,aTiposFile ,060,"AllwaysTrue()", .T.})
aAdd(aParamBox,{1,"Diretorio de dados" ,Space(60) ,"@!","AllwaysTrue()","HSSDIR" ,".T.",120,.T.})
lRet := ParamBox(aParamBox, cTitulo, aRet, bOk, aButtons, lCentered, nPosx,nPosy, /*oMainDlg*/ , cLoad, lCanSave, lUserSave)
Return
Bem, finalizamos mais um post aqui no blog. Espero que você tenha entendido, qualquer dúvida nos envie um e-mail para adiliocosta@protheusadvpl.com.br. Grande abraço e fica com Deus.
Links de referência(s):
