× Linguagem de Programação ADVPL

Perguntas Filtro após criação do mBrowse P11

Mais
11 anos 11 meses atrás #8776 por Calandrine
Bom dia.
Pela primeira vez vou postar uma dúvida em um forum.
Bom, tínhamos uma customização de filtro no P10 que funcionava perfeitamente,
o mecanismo desse filtro é muito simples, trata-se de uma tela é acionada via menu no
mBrowser onde o usuário digita a informação e clica em OK, o programa pega esse Get e faz
um filtro utilizando macro execução da seguinte maneira Set FilTer To &(cFiltro).
Vale destacar que nesse ponto do filtro, o mbrowser já foi montado, mas como disse anteriormente
no P10 funcionava sem problemas.
Fico no Aguardo.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 11 meses atrás #8788 por rodrigolparaujo
Olá amigo, aqui na empresa tenho o P11 com filtro no mbrowse, poste o seu codigo desse seu filtro para analisarmos melhor.

abraços

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 11 meses atrás #8800 por Calandrine
Olá, obrigado pelo retorno. Segue trecho simplificado do código. Tambem foi testado e não tivemos resultados.
_______________________________________________________________________________________
User Function MT010BRW
Local aRotina := {}
AADD(aRotina, {"Busca Rápida", "U_Busca", 0 , 3, 0, Nil})
Return aRotina

User Function Busca(cAlias, nReg, nOpc)
Local cFiltro := "B1_COD = '12JS160T1701052'"
Local aArea := GetArea()

dbSelectArea(cAlias)
Set Filter To
(cAlias)->(dbGoTop())
Set Filter To &(cFiltro)
(cAlias)->(dbGoTop())

RestArea(aArea)
Return
______________________________________________________________________________________
No modo debug, notei que ele faz o filtro na tabela SB1, porem assim que o Return é executado, o filtro
é perdido.
Obrigado!

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #20524 por renogueira89
Cara, estou com o mesmo problema, você conseguiu resolver?

Obrigado!

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #20530 por lalberto
Vocês poderiam usar este ponto de entrada, porém ele é executado antes da abertura do browse.

User Function MA010FIL()
local cRet := ""

cRet := "left(SB1->B1_COD,02) <> 'PV'"

return cRet

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 9 meses atrás #20550 por renogueira89
Então Luiz, o problema é justamente esse, utilizando o SET FILTER TO e depois chamando o MBROWSE funciona, só que quando você tenta utilizar o SET FILTER TO com o MBROWSE já aberto ele não funciona.
Nossa dúvida é justamente fazer um filtro com o MBROWSE já aberto.
Tem que ter algum jeito! kkkk

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.109 segundos
Joomla templates by a4joomla