MsBrGetDBase

#include "TOTVS.CH"
User Function msBrGetDBase()  
DEFINE DIALOG oDlg TITLE "Exemplo MsBrGetDBase" FROM 180,180 TO 550,700 PIXEL            

// Cria array com dados
aDados := {}
aadd(aDados, {"01","Nome 01","Descrição 01","Conteudo 01"})    
aadd(aDados, {"02","Nome 02","Descrição 02","Conteudo 02"})    
aadd(aDados, {"03","Nome 03","Descrição 03","Conteudo 03"})
aadd(aDados, {"04","Nome 04","Descrição 04","Conteudo 04"})
aadd(aDados, {"05","Nome 05","Descrição 05","Conteudo 05"})
// Cria browse    
oBrowse := MsBrGetDBase():New( 0, 0, 260, 170,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, )    
// Define vetor para a browse    
oBrowse:SetArray(aDados)        
// Cria colunas do browse    
oBrowse:AddColumn(TCColumn():New("Filial",{ || aDados[oBrowse:nAt,1] };         
,,,,"LEFT",,.F.,.F.,,,,.F.,))     
oBrowse:AddColumn(TCColumn():New("Nome",{ || aDados[oBrowse:nAt,2] };         
,,,,"LEFT",,.F.,.F.,,,,.F.,))     
oBrowse:AddColumn(TCColumn():New("Descrição",{ || aDados[oBrowse:nAt,3] };         
,,,,"LEFT",,.F.,.F.,,,,.F.,))     
oBrowse:AddColumn(TCColumn():New("Conteúdo",{ || aDados[oBrowse:nAt,4] };         
,,,,"LEFT",,.F.,.F.,,,,.F.,))     
oBrowse:Refresh()     
// Cria Botões com métodos básicos    
TButton():New( 172, 002, "GoUp()" , oDlg,{|| oBrowse:GoUp(),;                  
oBrowse:setFocus()},40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    
TButton():New( 172, 052, "GoDown()" , oDlg,{|| oBrowse:GoDown(),;                   
oBrowse:setFocus()},40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    
TButton():New( 172, 102, "GoTop()"  , oDlg,{|| oBrowse:GoTop(),;                   
oBrowse:setFocus()},40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    
TButton():New( 172, 152, "GoBottom()", oDlg,{|| oBrowse:GoBottom(),;                   
oBrowse:setFocus() },40,010,,,.F.,.T.,.F.,,.F.,,,.F. )  

ACTIVATE DIALOG oDlg CENTERED 
Return