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 |
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.
SIGAPSW.PRG
AllGroups ( [ lAlfa ] ) --> aGroups
-
aGroups(vetor)
- Array com as informações dos grupos de usuários.
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"
#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
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
lAlfa | Lógico | Define qual o índice será utilizado para a pesquisa. | .F. |