×
Linguagem de Programação ADVPL
Perguntas Filtro Configure
- mariotchak
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 59
- Obrigados Recebidos: 0
11 anos 9 meses atrás #10369
por mariotchak
Filtro Configure foi criado por mariotchak
Senhores,
Alguem já utilizou o item de filtro(s) do configure na base de dados da tabela do Protheus? Gostaria de filtrar os pedidos de vendas para cada vendedor somente conseguir ver o seu.
Obrigado.
Alguem já utilizou o item de filtro(s) do configure na base de dados da tabela do Protheus? Gostaria de filtrar os pedidos de vendas para cada vendedor somente conseguir ver o seu.
Obrigado.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 9 meses atrás - 11 anos 9 meses atrás #10370
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 Filtro Configure
User Function M410SQL()
Local cFiltro := ‘’
cVend := Posicione(“SA3”,7,xFilial(“SA3”)+__cUserId,”A3_COD”)
if! empty(cvend)
cFiltro := " and C5_VEND1 = ‘” + cVend + “’ “
endif
Return cFiltro
para funcionar é necessario no cadastro do vendedor associar o usuario.
Local cFiltro := ‘’
cVend := Posicione(“SA3”,7,xFilial(“SA3”)+__cUserId,”A3_COD”)
if! empty(cvend)
cFiltro := " and C5_VEND1 = ‘” + cVend + “’ “
endif
Return cFiltro
para funcionar é necessario no cadastro do vendedor associar o usuario.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Ultima edição: 11 anos 9 meses atrás por lalberto.
Por favor Acessar ou Registrar para participar da conversa.
- mariotchak
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 59
- Obrigados Recebidos: 0
11 anos 9 meses atrás #10376
por mariotchak
Respondido por mariotchak no tópico Filtro Configure
Obrigado Luiz,
Tenho algumas outras necessidades como filtrar um certo range de pedidos, como os que inicial com a letra L (uma customização que tenho), por isso que estava pensando em utilizar o Filtro mas eu configuro no configurador e não acontece nada. Será que existe alguma documentação sobre isso?
Tenho algumas outras necessidades como filtrar um certo range de pedidos, como os que inicial com a letra L (uma customização que tenho), por isso que estava pensando em utilizar o Filtro mas eu configuro no configurador e não acontece nada. Será que existe alguma documentação sobre isso?
Por favor Acessar ou Registrar para participar da conversa.
- mariotchak
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 59
- Obrigados Recebidos: 0
11 anos 9 meses atrás #10669
por mariotchak
Respondido por mariotchak no tópico Filtro Configure
Luiz estou efetuando alguns testes com esse filtro. Gostaria de saber como faço para identificar o grupo que o usuário logado pertence e guarda-la em uma variável.
Grato pela ajuda.
Grato pela ajuda.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 9 meses atrás #10672
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 Filtro Configure
PswOrder(1)
If PswSeek( __cUserID, .T. )
aUsrFil := PswRet()[2,6] // Retorna vetor com informações do usuário
If Empty(aUsrFil) .And. PswRet()[2,11] //Verifica se prioriza os acessos do grupo do usuario
aGrupo := PswRet()[1,10] //grupos que o usuario pertence
For nX := 1 To Len(aGrupo) //Busca as filiais dos grupos q o usuario tem acesso
PswSeek( aGrupo[nX], .F. )
For nxFil := 1 To Len(PswRet()[1,11])
AADD(aUsrFil, PswRet()[1,11][nXFil])
Next
Next
Endif
EndIf
If PswSeek( __cUserID, .T. )
aUsrFil := PswRet()[2,6] // Retorna vetor com informações do usuário
If Empty(aUsrFil) .And. PswRet()[2,11] //Verifica se prioriza os acessos do grupo do usuario
aGrupo := PswRet()[1,10] //grupos que o usuario pertence
For nX := 1 To Len(aGrupo) //Busca as filiais dos grupos q o usuario tem acesso
PswSeek( aGrupo[nX], .F. )
For nxFil := 1 To Len(PswRet()[1,11])
AADD(aUsrFil, PswRet()[1,11][nXFil])
Next
Next
Endif
EndIf
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.143 segundos