Empty

Reading time: 2 minutes

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:

Empty(xExp)
 

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):

Receba as últimas atualizações do ProtheusAdvpl
Deixe seu melhor email
Nós respeitamos sua privacidade.