PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
Campo CCONDICAO Doc. Enttrada
Versão:
12.1.25
Plataforma:
Microsoft
Complemento:
DB:
Oracle
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário BOARINI46 BOARINI46 em 06/08/2021, 07:21 h
Local: SP  Registro: 12/04/2018  Postagens: 6
Alguém sabe me informar como posso bloquear o Campo Cond.Pagto. na aba Duplicatas ( aba do financeiro ) no Documento de Entrada ( na inclusão ), a intensão é bloquear somente este campo ( CCONDICAO ) para usuários que não forem do grupo de compras, já tentei com diversos pontos de entrada, o mais similar que encontrei foi o MT103GET:

user Function MT103GET()
    //local cCond := M->CCONDICAO
    local lRet := .T. // .T. Não permite alterar os dados do Folder Financeiro
                        // .F. Permite alterar os dados do Folder Financeiro
    local i     := 0

    for i:=1 to len(UsrRetGrp())
       //aAdd(aGrp,UsrRetGrp())
       if UsrRetGrp() $ ‘000000|000006‘ // 000006 - Grupo de Compras
            lRet := .F.
        endif
    next i
    /*
    if M->CCONDICAO != cCond
        MsgAlert(‘Não é permitido alterar a Condição de pagamento, falar com o depto. de Compras‘, ‘ATENÇÃO‘)
    endif
    */
Return lRet


Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário LABAMBAMOG LABAMBAMOG em 19/08/2021, 09:41 h
Local: SP  Registro: 29/08/2008  Postagens: 22
O problema está nessa linha
if UsrRetGrp() $ '000000|000006' // 000006 - Grupo de Compras
o correto seria
if UsrRetGrp() $ '000000|000006' // 000006 - Grupo de Compras

O código abaixo funciona, por mais que o F3 no campo seja mostrado, o campo não é alterado, t+

--------------

user Function MT103GET()
    Local lRet := .T.   // .T. Não permite alterar os dados do Folder Financeiro
                        // .F. Permite alterar os dados do Folder Financeiro
    Local i := 1
    Local aGrupos := UsrRetGrp()    //Assim vc chama a rotina uma única vez

    for i := 1 to Len(aGrupos)
       if UsrRetGrp() $ "000000|000006" // Grupo de Admins e Compras
            lRet := .F.
            Exit
        endif
    next i

    //Não é uma boa ideia colocar alertas aqui pq o p.e. é validado desde a inclusão da NF
Return lRet

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário LABAMBAMOG LABAMBAMOG em 19/08/2021, 09:42 h
Local: SP  Registro: 29/08/2008  Postagens: 22
ops...
o correto seria
if UsrRetGrp() $ ‘000000|000006‘ // 000006 - Grupo de Compras

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário LABAMBAMOG LABAMBAMOG em 19/08/2021, 09:49 h
Local: SP  Registro: 29/08/2008  Postagens: 22
ah, que bomba esse site...
quando colocamos algo entre colchetes ele os apaga...
cara, talvez o seu código estivesse correto com o "abre colchete i fecha colchete".
Cara, que bomba esse site (p/ não dizer outra coisa", como pode um site de ajuda precisar de ajuda, é o fim.
Cara, corrija aí o que escrevi.

if UsrRetGrp()"abre colchete i fecha colchete"

user Function MT103GET()
    Local lRet := .T.   // .T. Não permite alterar os dados do Folder Financeiro
                        // .F. Permite alterar os dados do Folder Financeiro
    Local i := 1
    Local aGrupos := UsrRetGrp()    //Assim vc chama a rotina uma única vez

    for i := 1 to Len(aGrupos)
       if aGrupos()* $ "000000|000006" // Grupo de Admins e Compras
            lRet := .F.
            Exit
        endif
    next i

    //Não é uma boa ideia colocar alertas aqui pq o p.e. é validado desde a inclusão da NF
Return lRet

*"abre colchete i fecha colchete" (bomba!)

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal