Olá pessoal…
Hoje vou mostrar uma função que verifica se um array está vazio (ou com todas as linhas excluídas).
AdvPL
Para testar se um array está vazio, podemos facilmente utilizar a função Len, porém, e se todas as linhas do aCols estiverem excluídas e você precisar validar?
Foi pensando nisso, que criei a função zVazio, que recebe por parâmetro o array que precisa ser validado.
Abaixo o código fonte criado.
//Bibliotecas
#Include "Protheus.ch"
/*/{Protheus.doc} zVazio
Função que verifica se o array está vazio (ou somente com linhas excluídas)
@type function
@author Atilio
@since 05/03/2016
@version 1.0
@param aArray, Array, Array que contém as informações (como um aCols)
@return lRet, Se o Array está vazio (não tem nenhuma posição válida)
/*/
User Function zVazio(aArray)
Local lRet := .F.
Local nAtual := 1
Local nUltPos := 0
Local nExcluidos := 0
//Se o tamanho for 0, Array é vazio
If Len(aArray) == 0
lRet := .T.
//Se tiver em branco, Array é vazio
ElseIf Empty(aArray)
lRet := .T.
Else
//Percorro o Array
For nAtual := 1 To Len(aArray)
//Pega a última posição do aCols (a que contém se a linha está excluída - .T. -, ou não - .F. -)
nUltPos := Len(aArray[nAtual])
//Se tiver excluído
If aArray[nAtual][nUltPos]
nExcluidos++
EndIf
Next
//Se a quantidade de excluídos for igual ao tamanho do array, array está vazio
If nExcluidos == Len(aArray)
lRet := .T.
EndIf
EndIf
Return lRet
Bom pessoal, por hoje é só.
Abraços e até a próxima.
