Verifica se usuário pertence ao grupo de Administradores.

If !(PswAdmin( , ,RetCodUsr()) == 0)
    Return .F.
Endif

Para saber mais acesse: http://tdn.totvs.com/pages/releaseview.action?pageId=6814850