...
Informações |
---|
Disponível a partir do pacote de LIB versão 2020072720200908. |
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 |