Perguntas SetSeek FWMarkBrowse

Bom dia a todos!

Estou montando um mark browse com transportadoras utilizando a classe FWMarkBrowse, porém com uma tabela temporária pois precisei criar um campo para marcação dos registros, a dúvida é: como eu utilizo o método SetSeek par ativar a pesquisa neste browse? não consegui montar certo o array aSeek, a pesquisa aparece no browse, mas não funciona.

AADD(_aSeek,{"Codigo"})
AADD(_aSeek[1],{"SA4","C",6,0,"COD","@!"})

Alguém tem algum exemplo de utilização desse método? ou é possivel utilizar a tabela SA4 com a opção de marcação, onde eu consiga o retorno dos itens marcados?

Agradeço desde já!

Gustavo Dantas

Segue o exemplo, meu amigo...


aAdd(aFields,{"Matricula" ,"ZF5_MAT" ,"C",TAMSX3("ZF5_MAT")[1] ,0,PesqPict("ZF5","ZF5_MAT")})
aAdd(aFields,{"Nome" ,"ZF5_NOME" ,"C",TAMSX3("ZF5_NOME")[1] ,0,PesqPict("ZF5","ZF5_NOME")})
aAdd(aFields,{"Admissão" ,"ZF5_ADMISS" ,"D",TAMSX3("ZF5_ADMISS")[1],0,PesqPict("ZF5","ZF5_ADMISS")})
aAdd(aFields,{"Cod.Func." ,"ZF5_CODFUN" ,"C",TAMSX3("ZF5_CODFUN")[1],0,PesqPict("ZF5","ZF5_CODFUN")})
aAdd(aFields,{"Desc.Func." ,"ZF5_DESCFU" ,"C",TAMSX3("ZF5_DESCFU")[1],0,PesqPict("ZF5","ZF5_DESCFU")})
aAdd(aFields,{"C.Custo" ,"ZF5_CODCC" ,"C",TAMSX3("ZF5_CODCC")[1] ,0,PesqPict("ZF5","ZF5_CODCC")})
aAdd(aFields,{"Desc.C.Custo","ZF5_DESCC" ,"C",TAMSX3("ZF5_DESCC")[1],0,PesqPict("ZF5","ZF5_DESCC")})
aAdd(aFields,{"Sal.Ant." ,"ZF5_SALANT" ,"N",TAMSX3("ZF5_SALANT")[1],0,PesqPict("ZF5","ZF5_SALANT")})
aAdd(aFields,{"Sal.Novo" ,"ZF5_SALNOV" ,"N",TAMSX3("ZF5_SALANT")[1],0,PesqPict("ZF5","ZF5_SALANT")})

aAdd(aSeek,{"Nome" ,{{"","C",TAMSX3("ZF5_NOME")[1],0,"Nome" ,"@!"}} } )
aAdd(aSeek,{"Matricula" ,{{"","C",TAMSX3("ZF5_MAT")[1],0,"Matricula","@!"}} } )

oMarkBrowse:=FWMarkBrowse():New()
//oMarkBrowse:SetOwner( oPanel )
oMarkBrowse:SetDescription( "Selecione os registros" )
oMarkBrowse:SetAlias( 'TSAL' )
oMarkBrowse:SetProfileID( '1' )
oMarkBrowse:oBrowse:SetSeek(.T.,aSeek)
oMarkBrowse:SetSemaphore(.T.)
oMarkBrowse:SetFieldMark( 'OK' )
oMarkBrowse:SetFields(aFields)
oMarkBrowse:SetAllMark( bHeaderClick )
oMarkBrowse:SetAfterMark( { || .T. } )
oMarkBrowse:ForceQuitButton(.T.)
oMarkBrowse:DisableReport()
oMarkBrowse:DisableSaveConfig()
oMarkBrowse:DisableConfig()
//oMarkBrowse:SetMenuDef( 'MenuxDef' )
oMarkBrowse:SetValid({|| u_evf50vld() })

oMarkBrowse:AddFilter("Somente Primeiro Emplacamento","ZZV->ZZV_1_EMPL=='S'",.T.,.T.)

oMarkBrowse:AddLegend("ZZV->ZZV_MOTIVO == '00'","RED", "Primeiro Emplacamento Iniciado")
oMarkBrowse:AddLegend("ZZV->ZZV_MOTIVO == '01'","BLUE", "Aguardando E-CRV")
oMarkBrowse:AddLegend("ZZV->ZZV_MOTIVO == '99'","GREEN", "Apto Acionamento Bin")

oMarkBrowse:Activate()

Segue o exemplo, meu amigo...


aAdd(aFields,{"Matricula" ,"ZF5_MAT" ,"C",TAMSX3("ZF5_MAT")[1] ,0,PesqPict("ZF5","ZF5_MAT")})
aAdd(aFields,{"Nome" ,"ZF5_NOME" ,"C",TAMSX3("ZF5_NOME")[1] ,0,PesqPict("ZF5","ZF5_NOME")})
aAdd(aFields,{"Admissão" ,"ZF5_ADMISS" ,"D",TAMSX3("ZF5_ADMISS")[1],0,PesqPict("ZF5","ZF5_ADMISS")})
aAdd(aFields,{"Cod.Func." ,"ZF5_CODFUN" ,"C",TAMSX3("ZF5_CODFUN")[1],0,PesqPict("ZF5","ZF5_CODFUN")})
aAdd(aFields,{"Desc.Func." ,"ZF5_DESCFU" ,"C",TAMSX3("ZF5_DESCFU")[1],0,PesqPict("ZF5","ZF5_DESCFU")})
aAdd(aFields,{"C.Custo" ,"ZF5_CODCC" ,"C",TAMSX3("ZF5_CODCC")[1] ,0,PesqPict("ZF5","ZF5_CODCC")})
aAdd(aFields,{"Desc.C.Custo","ZF5_DESCC" ,"C",TAMSX3("ZF5_DESCC")[1],0,PesqPict("ZF5","ZF5_DESCC")})
aAdd(aFields,{"Sal.Ant." ,"ZF5_SALANT" ,"N",TAMSX3("ZF5_SALANT")[1],0,PesqPict("ZF5","ZF5_SALANT")})
aAdd(aFields,{"Sal.Novo" ,"ZF5_SALNOV" ,"N",TAMSX3("ZF5_SALANT")[1],0,PesqPict("ZF5","ZF5_SALANT")})

aAdd(aSeek,{"Nome" ,{{"","C",TAMSX3("ZF5_NOME")[1],0,"Nome" ,"@!"}} } )
aAdd(aSeek,{"Matricula" ,{{"","C",TAMSX3("ZF5_MAT")[1],0,"Matricula","@!"}} } )

oMarkBrowse:=FWMarkBrowse():New()
//oMarkBrowse:SetOwner( oPanel )
oMarkBrowse:SetDescription( "Selecione os registros" )
oMarkBrowse:SetAlias( 'TSAL' )
oMarkBrowse:SetProfileID( '1' )
oMarkBrowse:oBrowse:SetSeek(.T.,aSeek)
oMarkBrowse:SetSemaphore(.T.)
oMarkBrowse:SetFieldMark( 'OK' )
oMarkBrowse:SetFields(aFields)
oMarkBrowse:SetAllMark( bHeaderClick )
oMarkBrowse:SetAfterMark( { || .T. } )
oMarkBrowse:ForceQuitButton(.T.)
oMarkBrowse:DisableReport()
oMarkBrowse:DisableSaveConfig()
oMarkBrowse:DisableConfig()
//oMarkBrowse:SetMenuDef( 'MenuxDef' )
oMarkBrowse:SetValid({|| u_evf50vld() })

oMarkBrowse:AddFilter("Somente Primeiro Emplacamento","ZZV->ZZV_1_EMPL=='S'",.T.,.T.)

oMarkBrowse:AddLegend("ZZV->ZZV_MOTIVO == '00'","RED", "Primeiro Emplacamento Iniciado")
oMarkBrowse:AddLegend("ZZV->ZZV_MOTIVO == '01'","BLUE", "Aguardando E-CRV")
oMarkBrowse:AddLegend("ZZV->ZZV_MOTIVO == '99'","GREEN", "Apto Acionamento Bin")

oMarkBrowse:Activate()