Perguntas Exemplo de consulta para retornar dados em uma grid

// #########################################################################################
// Projeto: SULPOL
// Modulo : ALL
// Fonte  : CONSPROD.PRX
// ---------+-------------------+-----------------------------------------------------------
// Data     | Autor             | Descricao
// ---------+-------------------+-----------------------------------------------------------
// 30/07/14 | Roberto Alves     | PROGRAMA PARA APRESENTAR OS SALDO,PREV. ENTRADA E EMPENHOS 
//									|   POR CODIGO DE PRODUTO 
// ---------+-------------------+-----------------------------------------------------------




#include "PROTHEUS.CH"
#include "TBICONN.CH"
#include "RWMAKE.CH"
#include 'topconn.ch'
#include "TbiCode.ch"
                 
User Function CONSPROD(cProduto) 

Local cQuery := ""    
Local oBrowse
Local oDlg       
Local aCabec
Local aItens
Local nAux
Local bRec := .T.
Local aArea := GetArea()   


aCabec := { "ES" ,"ORIGEM","DOC","ENTRADAS","SAIDAS","OBSERVACOES" }
aItens := {}



If Select("TRAB") # 0 
	TRAB->(DbCloseArea()) 
Endif   

cQuery := "EXEC SP_CONSPROD '"+cProduto+"'" 

TcQuery cQuery NEW ALIAS "TRAB"    
     


While !Eof()         
	AAdd( aItens, { TRAB->ES, TRAB->ORIGEM, TRAB->DOC,TRAB->ENTRADAS,TRAB->SAIDAS,TRAB->OBSERVACOES } )		
	DbSkip()
EndDo                     

IF Len(aItens) > 0
	bRec := .T.
ELSE
    bRec := .F.
ENDIF	

IF bRec == .T.

	DbSelectArea("TRAB")

	DbCloseArea()				           

	oDlg := MSDIALOG():Create()
	oDlg:cName := "oDlg"
	oDlg:cCaption := "Analise de saldos "+cProduto
	oDlg:nLeft := 0
	oDlg:nTop := 0
	oDlg:nWidth := 1000
	oDlg:nHeight := 500
	oDlg:lShowHint := .F.
	oDlg:lCentered := .F.

	oBrowse := TWBrowse():New( NIL,NIL,NIL,NIL,, aCabec,,oDlg,,,,,,,,,,,,.T. )
	oBrowse:Align := CONTROL_ALIGN_ALLCLIENT
	oBrowse:SetArray( aItens )
	oBrowse:bLine := { || aItens[ oBrowse:nAT ] }
	oBrowse:SetFocus()                   
	oBrowse:Refresh()                    

	oDlg:Activate()
ELSE
	Alert("Não foi encontrado nenhum registro")
ENDIF		

RestArea(aArea)

Return