× Linguagem de Programação ADVPL

Perguntas Ajuda Ponto de Entrada - Pedido de Vendas

Mais
9 anos 8 meses atrás #24464 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!!!!

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 8 meses atrás #24468 por renatoais
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)

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 8 meses atrás #24491 por jcesar1299
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!!!!
User Function FUNCAO()
Local lRet := .F.

If __cUserId $ '000001*000002'
lRet := .T.
Endif

Return (lRet)

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 8 meses atrás #24492 por jcesar1299
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.

Tempo para a criação da página:0.108 segundos
Joomla templates by a4joomla