...
Aviso |
---|
A função é disponível somente para ambiente criado/migrado ao banco de dados A função deve ser executada a partir de um ambiente inicializado/aberto |
Informações |
---|
Disponível a partir do pacote de LIB versão 20200727. |
Exemplo
Bloco de código |
---|
#include "protheus.ch" Function u_pocRetPrivDb() Local aRetGrpPriv As Array Local aRetRules As Array Local cGrupo As Character Local nX as Numeric cGrupo := <Código do grupo> aRetGrpPriv := FwGrpPrivDB(cGrupo) VarInfo( "Privilégios atrelados ao grupo", aRetGrpPriv ) For nX := 1 To Len(aRetGrpPriv[2][2]) aRetRules := FwRulesDB(aRetGrpPriv[2][2][nX][1]) VarInfo( "Detalhes do privilégio " + aRetGrpPriv[2][2][nX][1], aRetRules ) Next nX Return |