Histórico da Página

User Function UB040FOL()

    Local oFolder := PARAMIXB[1]
    Local oDialog as object
    Local oBrowse as object

    // adiciona nova aba
    oFolder:AddItem('Aba Custom' , .T.)

    // recupera dialog criado para a aba.
    // neste caso, é utilizado a ultima aba adicionada
    // caso sejam adicionadas várias em sequência, deverá ser utitilizado os indices do array em sequencia
    // da adição deles
    oDialog := oFolder:aDialogs[Len(oFolder:aDialogs)]

    DbSelectArea("NK9")
    If TableInDic('N72')
        NK9->(DbSetOrder(3)) //ordenar por data e hora de inclusão do histórico
    EndIf  

    oBrowse := FWMBrowse():New()
    oBrowse:SetAlias('NK9')
    oBrowse:SetDescription('Teste PE')
    oBrowse:DisableDetails()
    oBrowse:SetColumns(GetColumns())
    // usa o dialog normalmente
    // não é necessário ativar o dialog, ele será ativado junto com o objeto principal
    oBrowse:Activate(oDialog) 

Return oFolder