Tempo de leitura: 3 minutos
Olá, no post de hoje iremos aprender como usar a função Empty no ADVPL. Ela é uma das funções de validação no ADVPL. A função Empty determina se o resultado de uma expressão é vazio.
Sintaxe:
Parâmetro(s):
Retorno:
Observações:
- Os critérios para determinar se o valor será considerado vazio, no parâmetro lRet, dependem do tipo de dado, no parâmetro xExp, e das regras de retorno, conforme a tabela regras de retorno:
A função Empty no ADVPL poderá ser utilizada para as seguintes situações:
- Determinar se o usuário entrou com um valor em um objeto GET antes de enviar as alterações para um arquivo de banco de dados.
- Determinar se um parâmetro formal é do tipo de dado Nil ou não foi informado.
- Testa um array para verificar se tem tamanho zero.
Exemplo da função Empty 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 PEmpty
(Essa função tem por finalidade mostrar a função de validação Empty em ADVPL/TL++)
@type Function
@author Adilio Costa
@since 01/08/2023
@version 12.1.2210
@Post:Empty
*/
User Function PEmpty()
Local aNum := {2,3,5,6}
Local aNum2 := {}
Local cBlog := "ProtheusAdvpl"
Local uValor := Nil
Local lValid := .F.
Local bSoma := {|x| x+10}
Local dData := CToD("//")
Local nNumero := 0
Local cStr := ""
If(Empty(aNum))
MsgInfo("O retorno de Empty é verdadeiro(.T.) pois o array aNum é vazio!")
Else
MsgInfo("O retorno de Empty é falso(.F.) pois o array aNum não é vazio!")
EndIf
If(Empty(aNum2))
MsgInfo("O retorno de Empty é verdadeiro(.T.) pois o array aNum2 é vazio!")
Else
MsgInfo("O retorno de Empty é falso(.F.) pois o array aNum2 não é vazio!")
EndIf
If(Empty(cBlog))
MsgInfo("O retorno de Empty é verdadeiro(.T.) pois a variável caractere cBlog é vazia!")
Else
MsgInfo("O retorno de Empty é falso(.F.) pois a variável caractere cBlog não é vazia!")
EndIf
If(Empty(uValor))
MsgInfo("O retorno de Empty é sempre verdadeiro(.T.) para o tipo de dado Nil!")
EndIf
If(Empty(lValid))
MsgInfo("O retorno de Empty é verdadeiro(.T.) pois a variável Lógico lValid é falsa(.F.)!")
EndIf
If(Empty(bSoma))
MsgInfo("O retorno de Empty é sempre verdadeiro(.T.) para o tipo de dado Bloco de Código!")
EndIf
If(Empty(dData))
MsgInfo("O retorno de Empty é verdadeiro(.T.) pois a variável dData é vazia!")
EndIf
If(Empty(nNumero))
MsgInfo("O retorno de Empty é verdadeiro(.T.) pois a variável nNumero é 0(zero)!")
EndIf
If(Empty(cStr))
MsgInfo("O retorno de Empty é sempre verdadeiro(.T.) pois a variável cStr é uma string vazia!")
EndIf
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):