Função que verifica se a tabela está no começo (antes do primeiro registro).

Exemplo da Rotina:

BoF – Exemplo 1

(ALIAS)->(BoF())

Exemplo 1- Percorrendo os registros da SB1:

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
    @example
    u_zTeste()
/*/

User Function zTeste()
	Local aArea   := GetArea()
	Local aAreaB1 := SB1->(GetArea())
	Local nTot    := 0

	DbSelectArea('SB1')
	SB1->(DbSetOrder(1)) //B1_FILIAL + B1_COD

	//Enquanto não estiver no começo da tabela
	SB1->(DbGoBottom())
	While ! SB1->(BoF())
		nTot++

		SB1->(DbSkip(-1))
	EndDo
	MsgInfo("Foram processados "+cValToChar(nTot)+" registros.", "Atenção")

	RestArea(aAreaB1)
	RestArea(aArea)
Return

Exemplo em Vídeo:

Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

– TDN
– Universo AdvPL