× Linguagem de Programação ADVPL

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

Mais
12 anos 1 semana 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
12 anos 1 semana 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
12 anos 5 dias 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 10 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 10 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 10 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.136 segundos
Joomla templates by a4joomla