lAlfaOrdenar por nome se .T.; por código se .F. (padrão).
AdvPL GuiaAllGroups( [lAlfa] ) --> aGroupsConsulta a estrutura histórica de grupos de usuários.
A documentação consultada abrange as versões 5.07 a 7.10 e retorna um array multidimensional de grupos. lAlfa escolhe ordenação por nome (.T.) ou código (.F., padrão); não é uma autorização para alterar dados. A estrutura histórica contém nome, horários e configurações de acesso e impressão. O exemplo conta grupos, sem registrar dados completos. Esta ficha é referência de legado: não comprova suporte no release atual nem equivalência com outras APIs de segurança. (TOTVS, s.d., ref. 1)
AllGroups( [lAlfa] ) --> aGroupslAlfaOrdenar por nome se .T.; por código se .F. (padrão).
Array multidimensional conforme a documentação histórica; validar o layout no ambiente.
#Include "Protheus.ch"
User Function EdAllgrou()
// Exige ambiente legado compativel e sessao autorizada.
Local aGrupos := AllGroups(.F.)
If ValType(aGrupos) == "A"
// Somente quantidade; nao despejar configuracoes de acesso no log.
ConOut(cValToChar(Len(aGrupos)))
EndIf
Return NilPropõe a contagem dos registros retornados no ambiente compatível; nenhum grupo é alterado. Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
© 2026 Usina.BR. Todos os direitos reservados. TOTVS, Protheus, Microsiga e seus respectivos logotipos são marcas de seus titulares. O AdvPL Guia é independente e utiliza citações limitadas, atribuídas e justificadas por finalidade educativa. Consulte os Termos de Uso. Termos de Uso
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.