Tempo de leitura: 2 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'
#DEFINE CRLF Chr(13)+Chr(10)
/*{Protheus.doc} User Function fEmpty
(Essa função tem por finalidade mostrar a função de validação Empty em ADVPL)
@type Function
@author Adilio Costa
@since 14/12/2023
@version Protheus 12.1.2210
@Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@Conheça os Cursos do ProtheusAdvpl:
https://hotmart.com/pt-br/club/cursos-protheusadvpl
|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
*/
User Function fEmpty()
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):