×
Linguagem de Programação ADVPL
Perguntas CONSULTA PADRAO
- fejuchem
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 14
- Obrigados Recebidos: 0
10 anos 11 meses atrás #18960
por fejuchem
CONSULTA PADRAO foi criado por fejuchem
Boa Tarde!
É possivel criar uma consulta padrao no campo C6_PRODUTO (Pedido de Venda)...
Mas quero que valide a seguinte função antes de mostrar os produtos:
User Function dal_tab()
cPos00 := M->C5_TABELA
If ((__CUSERID = "000019") .AND. (cPos00 == '010')) --> SE FOR USUARIO 19 E A TABELA ESCOLHIDA É A 10
DbSelectarea("SB1")
SET FILTER TO SB1->B1_TAB = 'D' --> APAREÇA SOMENTE OS PRODUTOS B1_TAB = D
EndIf
return
Desde ja agradeço
É possivel criar uma consulta padrao no campo C6_PRODUTO (Pedido de Venda)...
Mas quero que valide a seguinte função antes de mostrar os produtos:
User Function dal_tab()
cPos00 := M->C5_TABELA
If ((__CUSERID = "000019") .AND. (cPos00 == '010')) --> SE FOR USUARIO 19 E A TABELA ESCOLHIDA É A 10
DbSelectarea("SB1")
SET FILTER TO SB1->B1_TAB = 'D' --> APAREÇA SOMENTE OS PRODUTOS B1_TAB = D
EndIf
return
Desde ja agradeço
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 11 meses atrás #18976
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 CONSULTA PADRAO
User Function dal_tab()
Local cPos00 := M->C5_TABELA
Local lRet := .T.
If __CUSERID $ "000019" .And. cPos00 == '010'
lRet := (SB1->B1_TAB=='D')
Else
lRet := .f.
Endif
Return lRet
Crie a Consulta Padrão e no final dela no campo Filtro ou Expressão coloque:
U_dal_tab()
Se o Produto Satisfazer a condição retorna .T. mostrando na pesquisa, se não ele pula para o próximo registro.
Local cPos00 := M->C5_TABELA
Local lRet := .T.
If __CUSERID $ "000019" .And. cPos00 == '010'
lRet := (SB1->B1_TAB=='D')
Else
lRet := .f.
Endif
Return lRet
Crie a Consulta Padrão e no final dela no campo Filtro ou Expressão coloque:
U_dal_tab()
Se o Produto Satisfazer a condição retorna .T. mostrando na pesquisa, se não ele pula para o próximo registro.
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.
Tempo para a criação da página:0.094 segundos