Comando que conta quantos registros existem na tabela ou query.

Exemplo da Rotina:

Count to [nVariavel]

Exemplo 1- Contando os registros de uma tabela:

//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 nTotal := 0

	DbSelectArea('SB1')

	//Contando os registros e voltando ao topo da tabela
	Count To nTotal
	SB1->(DbGoTop())

	MsgInfo("Total de Registros: "+cValToChar(nTotal), "Atenção")

	RestArea(aArea)
Return

Exemplo 2- Contando os registros de uma query:

//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.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 nTotal := 0

	//Monta e executa a consulta sql
	cQuery := " SELECT * FROM "+RetSQLName('SA1')+" SA1 WHERE SA1.D_E_L_E_T_ = ' ' "
	TCQuery cQuery New Alias "QRY_SA1"

	//Contando os registros e voltando ao topo da query
	Count To nTotal
	QRY_SA1->(DbGoTop())

	MsgInfo("Total de Registros na Query: "+cValToChar(nTotal), "Atenção")

	QRY_SA1->(DbCloseArea())
	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;