- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Filtro após criação do mBrowse P11
×
Linguagem de Programação ADVPL
Perguntas Filtro após criação do mBrowse P11
- Calandrine
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 2
- Obrigados Recebidos: 0
11 anos 11 meses atrás #8776
por Calandrine
Filtro após criação do mBrowse P11 foi criado 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.
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.
- rodrigolparaujo
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 78
- Obrigados Recebidos: 0
11 anos 11 meses atrás #8788
por rodrigolparaujo
Respondido por rodrigolparaujo no tópico Re: Filtro após criação do mBrowse P11
Olá amigo, aqui na empresa tenho o P11 com filtro no mbrowse, poste o seu codigo desse seu filtro para analisarmos melhor.
abraços
abraços
Por favor Acessar ou Registrar para participar da conversa.
- Calandrine
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 2
- Obrigados Recebidos: 0
11 anos 11 meses atrás #8800
por Calandrine
Respondido por Calandrine no tópico Re: Filtro após criação do mBrowse P11
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!
_______________________________________________________________________________________
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.
- renogueira89
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 6
- Obrigados Recebidos: 0
10 anos 9 meses atrás #20524
por renogueira89
Respondido por renogueira89 no tópico Re: Filtro após criação do mBrowse P11
Cara, estou com o mesmo problema, você conseguiu resolver?
Obrigado!
Obrigado!
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 9 meses atrás #20530
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: Filtro após criação do mBrowse P11
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
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.
- renogueira89
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 6
- Obrigados Recebidos: 0
10 anos 9 meses atrás #20550
por renogueira89
Respondido por renogueira89 no tópico Re: Filtro após criação do mBrowse P11
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
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Filtro após criação do mBrowse P11
Tempo para a criação da página:0.139 segundos