SQL – Funções de agregação

As funções de agregação do SQL permitem que um conjunto de linhas sejam agregadas em uma única linha.
As funções de agregação podem otimizar a performance do sistema pois reduzem o número de linhas retornadas diminuindo o tráfego de rede.
Principais funções de agregação:

COUNT() – Contagem de registros
SUM() – Soma dos valores de uma expressão
MAX() – Máximo valor de uma expressão
MIN() – Mínimo valor de uma expressão

Ao informar uma função de agregação em um SELECT, não se pode trazer outros campos na seleção a menos que façam parte de uma cláusula GROUP BY. Isso ocorre porque a função de agregação é resultado de vários registros e não faz sentido trazer apenas um deles.

No exemplo abaixo, retornarei o saldo de um produto da tabela de Saldos Físico e Financeiro (SB2), independente de qual armazém ele está alocado.

Static Function fSaldoSB2(cProduto)
	Local cQuery := ""
	Local nSaldo := 0
	/*
	GetNextAlias() = Retorna um alias para ser utilizado no record set definido em dbUseArea()
	*/
	cAliasSB2 := GetNextAlias()
	
	/*
	RetSqlName = Retorna o nome físico da tabela, baseado em um alias, para ser usado em na contrução do "SELECT ... FROM TABELA" da query.
	*/
	
	cQuery := "SELECT SUM(B2_QATU) SALDOATUAL "
	cQuery += "FROM "+RetSqlName("SB2")+" SB2 "
	cQuery += "WHERE SB2.B2_FILIAL = '"+xFilial("SB2")+"' "
	cQuery += "AND SB2.D_E_L_E_T_  = '' "
	cQuery += "AND SB2.B2_COD	   = '" + cProduto + "' "
	 
	/*
	ChangeQuery = Função de framework para compatibilizar a sintaxe das 
	queries aos diferentes bancos de dados  (SQL Server, Oracle, IBM DB2, 
	Informix, MySql entre outros). Seu uso é obrigatório, salvo em casos especiais.
	*/
	cQuery := ChangeQuery(cQuery)
	
	/*
	dbUseArea = Efetua a criação de uma área de trabalho para o record set retornado por TcGenQry()
	*/ 
	dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cAliasSB2,.T.,.T.)
	
	/*
	TcGenQry = Permite a abertuda de uma query diretamente no banco de dados utilizado na conexão atual, mediante uso da RDD TOPCONN.
	*/
	
	nSaldo := (cAliasSB2)-&gt;SALDOATUAL
	dbCloseArea()
	dbSelectArea("SB2")

Return(nSaldo)

Static Function fSaldoSB2(cProduto)

Local cQuery := ""

Local nSaldo := 0

GetNextAlias() = Retorna um alias para ser utilizado no record set definido em dbUseArea()

cAliasSB2 := GetNextAlias()

RetSqlName = Retorna o nome físico da tabela, baseado em um alias, para ser usado em na contrução do "SELECT ... FROM TABELA" da query.

cQuery := "SELECT SUM(B2_QATU) SALDOATUAL "

cQuery += "FROM "+RetSqlName("SB2")+" SB2 "

cQuery += "WHERE SB2.B2_FILIAL = '"+xFilial("SB2")+"' "

cQuery += "AND SB2.D_E_L_E_T_ = '' "

cQuery += "AND SB2.B2_COD = '" + cProduto + "' "

ChangeQuery = Função de framework para compatibilizar a sintaxe das

queries aos diferentes bancos de dados (SQL Server, Oracle, IBM DB2,

Informix, MySql entre outros). Seu uso é obrigatório, salvo em casos especiais.

cQuery := ChangeQuery(cQuery)

dbUseArea = Efetua a criação de uma área de trabalho para o record set retornado por TcGenQry()

dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cAliasSB2,.T.,.T.)

TcGenQry = Permite a abertuda de uma query diretamente no banco de dados utilizado na conexão atual, mediante uso da RDD TOPCONN.

nSaldo := (cAliasSB2)->SALDOATUAL

dbCloseArea()

dbSelectArea("SB2")

Return(nSaldo)

Relacionado

ChangeQuery dbUseArea GetNextAlias RetSqlName TcGenQry

SQL – Funções de agregação