- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Filtro por usuário.
×
Linguagem de Programação ADVPL
Perguntas Filtro por usuário.
- cestari
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 58
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24060
por cestari
Filtro por usuário. foi criado por cestari
Bom dia a todos!!!
Preciso de uma ajuda, queria criar aqueles filtros de tela para cada usuário!
Não pode ser aquele filtro padrão do browser, pois o usuário pode alterar o mesmo.
Teria que ser aquele que já vem filtrado e o usuário não pode alterar o mesmo.
Seguinte rotina, pedido de venda.
Cada vendedor, só visualizar os pedido que ele colocou no sistema, não sendo possível, ver pedidos de outros vendedores!!
Abraços.
Obrigado.
Att,
Gabriel C.Avolio
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Preciso de uma ajuda, queria criar aqueles filtros de tela para cada usuário!
Não pode ser aquele filtro padrão do browser, pois o usuário pode alterar o mesmo.
Teria que ser aquele que já vem filtrado e o usuário não pode alterar o mesmo.
Seguinte rotina, pedido de venda.
Cada vendedor, só visualizar os pedido que ele colocou no sistema, não sendo possível, ver pedidos de outros vendedores!!
Abraços.
Obrigado.
Att,
Gabriel C.Avolio
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Por favor Acessar ou Registrar para participar da conversa.
- admin
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 216
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24068
por admin
Respondido por admin no tópico Filtro por usuário.
Para que esse ponto de entrada funcione no cadastro de vendedores vc precisa associar o campo A3_CODUSR ao usuário do protheus.
#include "protheus.ch"
User Function MT410BRW()
Local aAreaSC5 := SC5->(GetArea())
Local aAreaSA3 := SA3->(GetArea())
Local cCodVen := ''
If SA3->(dbSetOrder(7),dbSeek(xFilial("SA3")+__cUserId)) // Localiza Vendedor pelo ID
cCodVen := SA3->A3_COD
Endif
If !Empty(cCodVen)
dbSelectArea("SC5")
Set Filter To SC5->C5_VEND1 $ cCodVen
Else
dbSelectArea("SC5")
Set Filter To
EndIf
RestArea(aAreaSC5)
RestArea(aAreaSA3)
Return()
#include "protheus.ch"
User Function MT410BRW()
Local aAreaSC5 := SC5->(GetArea())
Local aAreaSA3 := SA3->(GetArea())
Local cCodVen := ''
If SA3->(dbSetOrder(7),dbSeek(xFilial("SA3")+__cUserId)) // Localiza Vendedor pelo ID
cCodVen := SA3->A3_COD
Endif
If !Empty(cCodVen)
dbSelectArea("SC5")
Set Filter To SC5->C5_VEND1 $ cCodVen
Else
dbSelectArea("SC5")
Set Filter To
EndIf
RestArea(aAreaSC5)
RestArea(aAreaSA3)
Return()
Por favor Acessar ou Registrar para participar da conversa.
- cestari
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 58
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24071
por cestari
Respondido por cestari no tópico Filtro por usuário.
Muito Obrigado.
Master ADVPL!!
Abraços.
Att,
Gabriel C.Avolio.
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Master ADVPL!!
Abraços.
Att,
Gabriel C.Avolio.
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Filtro por usuário.
Tempo para a criação da página:0.099 segundos