Histórico da Página

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

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][1][18] A      Range da database

                        [n][1][18][1] - Permite retroceder ou avançar database.

                        [n][1][18][2] - Dias a retroceder

                        [n][1][18][3] - Dias a avançar

[n][1][19] D      Data de inclusão

[n][1][20] C      Nível global de campo

[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