Histórico da Página

    oMark := FWMarkBrowse():New()
    oMark:SetAlias("TRB")
    oMark:SetSemaphore( .T. )
    oMark:SetTemporary( .T. )
	
    aadd(aFields, { "Marca", "MARK"     , "C", 2 } )
    aadd(aFields, { "Descricao", "DESCR", "C", 30 })
	
    oMark:SetFields(aFields)
	
    aadd(aFieldsFilter, {"MARK", "Marca", "C", 2, 0, "" })
    aadd(aFieldsFilter, {"DESCR", "Descricao", "C", 30, 0, "" })
	
    oMark:SetFieldFilter(aFieldsFilter)
    oMark:SetDescription("Seleção do Cadastro Clientes")
    oMark:Activate()

User Function MontaBrowse()
Local nContFlds As Numeric
Local cAlias As Character
Local aFields As Array
Local aColumns As Array
Local oMark As Object

cAlias := GetNextAlias()
aFields := {}
aColumns := {}
oMark := FWMarkBrowse():New()


aAdd( aFields, {"B1_COD", "Código"} )
aAdd( aFields, {"B1_DESC", "Descrição"} )

For nContFlds := 1 To Len( aFields ) 

      AAdd( aColumns, FWBrwColumn():New() )

      aColumns[Len(aColumns)]:SetData( &("{ || " + aFields[nContFlds][1] + " }") )
      aColumns[Len(aColumns)]:SetTitle( aFields[nContFlds][2] ) 
      aColumns[Len(aColumns)]:SetSize( 15 ) 
      aColumns[Len(aColumns)]:SetID( aFields[nContFlds] ) 
Next nContFlds

oMark:SetColumns( aColumns )
oMark:SetDataQuery()
oMark:SetQuery( "SELECT B1_OK,B1_COD,B1_DESC FROM SB1010 WHERE B1_COD = '000001'" )
oMark:SetAlias( cAlias )
oMark:SetMenuDef('')
oMark:SetFieldMark( 'B1_OK' )
oMark:Activate()

Return