BoF

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

Exemplo da Rotina:

BoF - Exemplo 1
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

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