Páginas filhas
  • AllGroups

Função: AllGroups
Versões: Advanced Protheus 5.07 , Advanced Protheus 5.08 , Advanced Protheus 6.09 , Advanced Protheus 7.10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Espanhol , Inglês
Descrição:

Retorna vetor contendo informações dos grupos de usuários.
No vetor principal, cada elemento refere-se a um grupo de usuários do sistema. Estes elementos são compostos de um vetor multidimensional subdividindo as informações dos grupos.

Programa Fonte:
SIGAPSW.PRG
Sintaxe:

AllGroups ( [ lAlfa ] ) --> aGroups

Retorno:
    aGroups(vetor)
  • Array com as informações dos grupos de usuários.
Observações

Parâmetro

lAlfa

    • .T. - o índice utilizado será o nome do grupo
    • .F. - o índice utilizado será o código do grupo

Retorno

aGroups

[n][1][1]   C      Número de identificação seqüencial com o tamanho de 6 caracteres

[n][1][2]   C      Nome do grupo

[n][1][3]   A      Vetor contendo os horários dos acessos. Cada elemento corresponde a um dia da semana, com a hora inicial e final.

[n][1][4]   D      Data de validade

[n][1][5]   N      Número de dias para expirar

[n][1][6]   L      Autorização para alterar a senha

[n][1][7]   N     Uso interno

[n][1][8]   C     Caminho para impressão em disco

[n][1][9]   C     Driver para impressão direto na porta. Ex: EPSON.DRV

[n][1][10] C     Acessos

[n][1][11] A     Vetor contendo as empresas, cada elemento contém a empresa e a filial. Ex:9901, se existir "@@@@" significa acesso a todas as empresas

[n][1][12] D     Data da última alteração

[n][1][13] N     Tipo de impressão: 1 - em disco, 2 - via Windows e 3 direto na porta

[n][1][14] N     Formato da página: 1 - retrato, 2 - paisagem

[n][1][15] N     Tipo de Ambiente: 1 - servidor, 2 - cliente

[n][1][16] C     Opção de impressão

[n][1][17] L      Acessar outros diretórios de impressão

[n][2]  A Vetor contendo o módulo, o nível e o menu do usuário.

     Ex: [n][2][1] = "019\sigaadv\sigaatf.xnu"

           [n][2][2] = "029\sigaadv\sigacom.xnu"

Exemplos
#Include “protheus.ch”User Function Sample()Local oDlgLocal oSay1Local oComboLocal cComboLocal aRet := AllGroups()                            Local nILocal aGrupos := {}For nI := 1 to Len(aRet)	Aadd(aGrupos, aRet[nI][1][2])NextDEFINE MSDIALOG oDlg TITLE "Teste" From 000,0 TO 100,300 PIXEL@ 12, 05 SAY oSay1 VAR "Grupos: " OF oDlg PIXEL                                                                           @ 12, 30 COMBOBOX oCombo VAR cCombo ITEMS aGrupos SIZE 100, 009 OF oDlg PIXEL@ 25, 80 BUTTON "Fechar" PIXEL SIZE 40,12 OF oDlg ACTION oDlg:End()ACTIVATE MSDIALOG oDlg CENTEREDReturn
Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
lAlfa Lógico Define qual o índice será utilizado para a pesquisa. .F.

  • Sem rótulos