- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ajuda Ponto de Entrada - Pedido de Vendas
×
Linguagem de Programação ADVPL
Perguntas Ajuda Ponto de Entrada - Pedido de Vendas
- jcesar1299
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 53
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24464
por jcesar1299
Ajuda Ponto de Entrada - Pedido de Vendas foi criado por jcesar1299
Pessoal, boa tarde!
Na empresa que trabalho não alteramos os preços no pedido de vendas (C6_PRCVEN – Prc Unitário), o preço já vem da tabela de preço, gostaria de fazer um ponto de entrada na alteração do pedido(M410ALOK) para que certos usuários pudessem fazer a alteração.
Alguém tem alguma coisa pronta nesse sentido!
Obrigado a todos!!!!
Na empresa que trabalho não alteramos os preços no pedido de vendas (C6_PRCVEN – Prc Unitário), o preço já vem da tabela de preço, gostaria de fazer um ponto de entrada na alteração do pedido(M410ALOK) para que certos usuários pudessem fazer a alteração.
Alguém tem alguma coisa pronta nesse sentido!
Obrigado a todos!!!!
Por favor Acessar ou Registrar para participar da conversa.
- renatoais
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 6
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24468
por renatoais
Respondido por renatoais no tópico Ajuda Ponto de Entrada - Pedido de Vendas
Fala Julio
Tenho uma validação por grupo de usuario , ai no X3_When do campo do C6_PRCVEN coloquei essa função , se o usuario constar no grupo 000004 retorna falso e não permite alterar o campo , para o seu caso é só fazer o inverso.
Qualquer duvida diga ai .
User Function ValVGrp()
Local lValidaGrp :=.F.
Local _NomeUser := cUserName
Local _aRetUser
Local __nMaxFor
Local _cVerGrupo
Local _lValida := .T.
PswOrder(2)
If PswSeek(_NomeUser,.T.)
_aRetUser := PswRet(1)
__nMaxFor := Len(_aRetUser[1][10])
For __nX := 1 To __nMaxFor
_cVerGrupo := _aRetUser[1][10][__nX]
If _cVerGrupo == "000004"
_lValida := .F.
EndIF
Next __nX
EndIf
Return(_lValida)
Tenho uma validação por grupo de usuario , ai no X3_When do campo do C6_PRCVEN coloquei essa função , se o usuario constar no grupo 000004 retorna falso e não permite alterar o campo , para o seu caso é só fazer o inverso.
Qualquer duvida diga ai .
User Function ValVGrp()
Local lValidaGrp :=.F.
Local _NomeUser := cUserName
Local _aRetUser
Local __nMaxFor
Local _cVerGrupo
Local _lValida := .T.
PswOrder(2)
If PswSeek(_NomeUser,.T.)
_aRetUser := PswRet(1)
__nMaxFor := Len(_aRetUser[1][10])
For __nX := 1 To __nMaxFor
_cVerGrupo := _aRetUser[1][10][__nX]
If _cVerGrupo == "000004"
_lValida := .F.
EndIF
Next __nX
EndIf
Return(_lValida)
Por favor Acessar ou Registrar para participar da conversa.
- jcesar1299
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 53
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24491
por jcesar1299
Respondido por jcesar1299 no tópico Ajuda Ponto de Entrada - Pedido de Vendas
Renato, eu fiz do jeito abaixo, o problema é que quando eu tiver uma situação que o campo C5_TIPO for igual a D-Dev.Compras - B-Utiliza Fornecedor - I-Comp.ICMS, todos os usuários podem alterar o campo C6_PRCVEN, eu preciso colocar a linha (M->C5_TIPO='D'.or.M->C5_TIPO='B'.or.M->C5_TIPO='I')no código abaixo para liberar o campo quando tiver essa situação.
alguém poderia me ajudar com isso!
Obrigado a todos!!!!
alguém poderia me ajudar com isso!
Obrigado a todos!!!!
User Function FUNCAO()
Local lRet := .F.
If __cUserId $ '000001*000002'
lRet := .T.
Endif
Return (lRet)
Por favor Acessar ou Registrar para participar da conversa.
- jcesar1299
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 53
- Obrigados Recebidos: 0
10 anos 3 meses atrás #24492
por jcesar1299
Respondido por jcesar1299 no tópico Ajuda Ponto de Entrada - Pedido de Vendas
Pessoal, consegui. Obrigado a todos!!!
User Function FUNCAO()
Local lRet := .F.
if M->C5_TIPO='D'.or.M->C5_TIPO='B'.or.M->C5_TIPO='I'
lRet := .T.
else
If __cUserId $ '000002*000001'
lRet := .T.
endif
Endif
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ajuda Ponto de Entrada - Pedido de Vendas
Tempo para a criação da página:0.122 segundos