Histórico da Página

...

Bloco de código

title	Exemplo
collapse	true

    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()

SetDataQuery

Sintaxe

FWMarkBrowse():SetQuery()-> NIL

Descrição
Indica que o browse irá se utilizar de uma query para exibir os registros.

SetQuery

Sintaxe

FWMarkBrowse():SetQuery(< cQuery>)-> NIL

Descrição
Adiciona uma query para que seja utilizada na criação do browse.

Parâmetros

	Nome	Tipo	Descrição	Default	Obrigatório	Referência
	cQuery	Caracteres	Query que será utilizada como referência para geração dos dados do browse.

SetMainProc

Sintaxe

FWMarkBrowse():SetMainProc(< cProc>)-> NIL

Descrição
Indica à qual rotina o browse pertence, quando ele é instanciado fora da função principal, esse método está disponível na lib 20231121 ou superior.

Parâmetros

	Nome	Tipo	Descrição	Default	Obrigatório	Referência
	cProc	Caracteres	Nome da Rotina principal à qual o browse pertence.		X

Bloco de código

title	Exemplo
collapse	true

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

...

Atalhos

Páginas filhas

Versões comparadas

Versão antiga 24

Nova versão 25

Chave