- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Traduzir para o Protheus 11
×
Linguagem de Programação ADVPL
Perguntas Traduzir para o Protheus 11
- rcaps
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 69
- Obrigados Recebidos: 0
11 anos 10 meses atrás #9596
por rcaps
Traduzir para o Protheus 11 foi criado por rcaps
Boa tarde a todos !
No Protheus 10 eu tenho esta rotina abaixo para achar o grupo do usuário, porém no Protheus 11 ela não funciona,
alguém teria os comandos compatíveis para a 11 que faça a mesma função ?
_aGrp := UsrRetGRP()
If ! Empty( _aGrp )
_cGrupo := GRPRetName( _aGrp[ 1 ] )
Else
_cGrupo := ' '
End
If _cGrupo <> 'Administradores'
Aviso("Acesso Restrito","Você não tem direitos para usar esta opção."+chr(10)+chr(13)+"Contate o Administrador do Microsiga.",{"Voltar"})
Return
End
Grato.
Raul.
No Protheus 10 eu tenho esta rotina abaixo para achar o grupo do usuário, porém no Protheus 11 ela não funciona,
alguém teria os comandos compatíveis para a 11 que faça a mesma função ?
_aGrp := UsrRetGRP()
If ! Empty( _aGrp )
_cGrupo := GRPRetName( _aGrp[ 1 ] )
Else
_cGrupo := ' '
End
If _cGrupo <> 'Administradores'
Aviso("Acesso Restrito","Você não tem direitos para usar esta opção."+chr(10)+chr(13)+"Contate o Administrador do Microsiga.",{"Voltar"})
Return
End
Grato.
Raul.
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 10 meses atrás #9612
por kanaamlrr
Respondido por kanaamlrr no tópico Re: Traduzir para o Protheus 11
Faz assim.
Testa ai e avisa se funciona.
If ! Empty( _GrpUser )
_cGrupo := GRPRetName( _GrpUser )
Else
_cGrupo := ' '
End
If _cGrupo <> 'Administradores'
Aviso("Acesso Restrito","Você não tem direitos para usar esta opção."+chr(10)+chr(13)+"Contate o Administrador do Microsiga.",{"Voltar"})
Return
EndTesta ai e avisa se funciona.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Traduzir para o Protheus 11
Tempo para a criação da página:0.094 segundos