- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Relatório de Permissão de usuários p/ 12.1.25
Perguntas Relatório de Permissão de usuários p/ 12.1.25
- clistenis
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 97
- Obrigados Recebidos: 0
5 anos 2 semanas atrás #32777
por clistenis
Relatório de Permissão de usuários p/ 12.1.25 foi criado por clistenis
Bom dia a todos.
Pessoal alguém tem um relatório de permissão de usuários que funcione na versão 12.1.25 ?
Usava o AcessoUser.prw do amigo Kanãan, mais infelizmente na versão 12.1.25 ele não funciona mais.
Se alguém puder ajudar.
Pessoal alguém tem um relatório de permissão de usuários que funcione na versão 12.1.25 ?
Usava o AcessoUser.prw do amigo Kanãan, mais infelizmente na versão 12.1.25 ele não funciona mais.
Se alguém puder ajudar.
Por favor Acessar ou Registrar para participar da conversa.
- ftvernier
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 386
- Obrigados Recebidos: 2
- clistenis
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 97
- Obrigados Recebidos: 0
5 anos 2 semanas atrás #32779
por clistenis
Respondido por clistenis no tópico Relatório de Permissão de usuários p/ 12.1.25
Obrigado amigo, muito obrigado, já verifiquei o padrão mais não atende. Eu preciso saber por exemplo quais usuários tem acesso a uma determinada rotina. E o fonte do Kanaãm atendia perfeitamente.
Por favor Acessar ou Registrar para participar da conversa.
- ftvernier
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 386
- Obrigados Recebidos: 2
5 anos 2 semanas atrás #32781
por ftvernier
Respondido por ftvernier no tópico Relatório de Permissão de usuários p/ 12.1.25
Tenta essa opção.
Para isto fiz um rotina pequena para ser rodada no campo fórmula que gera um arquivo texto, neste arquivo texto ficará gravada todas as opções na íntegra.
C:="",A:={},A:=GetAccessList(),AEVAL(A,{|X,Y| C+=STRZERO(Y,3,0)+"-"+X[2]+CHR(13)+CHR(10)}),MEMOWRITE("ACESSOS.TXT",C)
p/ Robson Luiz…
“
ou:
C:="",A:=GetAccessList(),cCRLF:=CHR(13)+CHR(10),AEVAL(A,{|X,Y|C+=STRZERO(Y,3,0)+"-"+X[2]+cCRLF}),MEMOWRITE("ACESSOS.TXT",C)
O Conteúdo será gravado no arquivo acessos.txt na pasta definida em StartPath, normalmente StartPath=\system\
Read more: www.blacktdn.com.br/2011/09/protheus-adv...o.html#ixzz67BUvUFrg
Para isto fiz um rotina pequena para ser rodada no campo fórmula que gera um arquivo texto, neste arquivo texto ficará gravada todas as opções na íntegra.
C:="",A:={},A:=GetAccessList(),AEVAL(A,{|X,Y| C+=STRZERO(Y,3,0)+"-"+X[2]+CHR(13)+CHR(10)}),MEMOWRITE("ACESSOS.TXT",C)
p/ Robson Luiz…
“
ou:
C:="",A:=GetAccessList(),cCRLF:=CHR(13)+CHR(10),AEVAL(A,{|X,Y|C+=STRZERO(Y,3,0)+"-"+X[2]+cCRLF}),MEMOWRITE("ACESSOS.TXT",C)
O Conteúdo será gravado no arquivo acessos.txt na pasta definida em StartPath, normalmente StartPath=\system\
Read more: www.blacktdn.com.br/2011/09/protheus-adv...o.html#ixzz67BUvUFrg
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Relatório de Permissão de usuários p/ 12.1.25
Tempo para a criação da página:0.124 segundos