Count To

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

Observações:

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

Etiquetas

Receba novidades

Seja VIP e receba novidades exclusivas por e-Mail gratuitamente.