Perguntas Configurador

Anderson dei uma analisada e infelizmente está rotina não possui esquema de filtro no browse da tabela SU4, o que encontrei apenas foi um ponto de entrada que através de uma opção se o usuário selecionar vc poderá executar o filtro, mas ai depende do usuário.

User Function TK061BAR()
Local aBot := {}
AAdd(aBot,{ 'EDITABLE' , {|| Mensagem1()}, 'Teste 1','Teste 1'})
AAdd(aBot,{ 'VERNOTA' , {|| Mensagem2()}, 'Teste 2','Teste 2'})
AAdd(aBot,{ 'FILTRO' , {|| Mensagem3()}, 'Teste 3','Teste 3'})
Return(aBot)

Static Function Mensagem1()
Alert('Teste 1')
Return

Static Function Mensagem2()
Alert('Teste 2')
Return

Static Function Mensagem3()
Alert('Teste 3')
Return

Se realmente necessita mesmo disso pode fazer um teste assim:

Cria um programa tipo assim:

User Function ListaFiltro()
Local aArea := GetArea()

dbSelectArea("SU4")
dbSetOrder(1)
dbGoTop()

SET FILTER VAL(SU4->U4_TIPO) <> 3 // VENDAS

SU4->(dbGoTop())

TMKA061()

dbSelectArea("SU4")
dbSetOrder(1)

SET FILTER TO

dbGoTop()
RestArea(aArea)
Return .t.


Ai no Menu aonde chama o TMKA061 vc muda para LISTAFILTRO e tipo 3 (Rotinas Customizadas)

Faça esse teste e avisa a gente ok.

Abraços
Espero ter ajudado.