Histórico da Página

#include "TOTVStotvs.CHch"
User
user Functionfunction msBrGetDBase()

  local aDados := {}
  local oBrowse := nil

  DEFINE DIALOG oDlg TITLE "Exemplo MsBrGetDBase" FROM 180, 180 TO 550, 700 PIXEL            

    // Cria array com dados
aDados   := {}
aadd( aAdd( aDados, { "01", "Nome 01", "Descrição 01", "Conteudo 01" } )
    
aaddaAdd( aDados, { "02", "Nome 02", "Descrição 02", "Conteudo 02" } )
    
aaddaAdd( aDados, { "03", "Nome 03", "Descrição 03", "Conteudo 03" } )
aadd    aAdd( aDados, { "04", "Nome 04", "Descrição 04", "Conteudo 04" } )
aadd    aAdd( aDados, { "05", "Nome 05", "Descrição 05", "Conteudo 05" } )

    // Cria browse
    
oBrowse := MsBrGetDBase():Newnew( 0, 0, 260, 170,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, )

    
// Define vetor para a browse
    
oBrowse:SetArraysetArray( aDados )   

     
// Cria colunas do browse
    
oBrowse:AddColumnaddColumn( TCColumn():Newnew( "Filial", { || aDados[oBrowse:nAt, 1] };         
,,,, "LEFT",, .F., .F.,,,, .F., ) )
     
oBrowse:AddColumnaddColumn( TCColumn():Newnew( "Nome", { || aDados[oBrowse:nAt, 2] };         
,,,, "LEFT",, .F., .F.,,,, .F., ) )
     
oBrowse:AddColumnaddColumn( TCColumn():Newnew( "Descrição", { || aDados[oBrowse:nAt, 3] };         
,,,, "LEFT",, .F., .F.,,,, .F., ) ) 
    
oBrowse:AddColumnaddColumn( TCColumn():Newnew( "Conteúdo", { || aDados[oBrowse:nAt, 4] };         
,,,, "LEFT",, .F., .F.,,,, .F., ) ) 
    
oBrowse:Refresh()

     
// Cria Botões com métodos básicos
    
TButton():Newnew( 172, 002, "GoUpgoUp()" , oDlg, { || oBrowse:GoUpgoUp(),;                  
oBrowse:setFocus() }, 40, 010,,, .F., .T., .F.,, .F.,,, .F. )
    
TButton():Newnew( 172, 052, "GoDowngoDown()" , oDlg, { || oBrowse:GoDowngoDown(),;                   
oBrowse:setFocus() }, 40, 010,,, .F., .T., .F.,, .F.,,, .F. )
    
TButton():Newnew( 172, 102, "GoTopgoTop()"  , oDlg, { || oBrowse:GoTopgoTop(),;                   
oBrowse:setFocus() }, 40, 010,,, .F., .T., .F.,, .F.,,, .F. )
    
TButton():Newnew( 172, 152, "GoBottomgoBottom()", oDlg, { || oBrowse:GoBottomgoBottom(),;                   
oBrowse:setFocus() }, 40, 010,,, .F., .T., .F.,, .F.,,, .F. )

  

ACTIVATE DIALOG oDlg CENTERED 

Returnreturn