Histórico da Página

#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