Função: FWGrpEmp - Retorno de informações de empresa e filial
Abrangências: | Microsiga Protheus 11 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Nível de Acesso: | Nível 1 (Acesso Clientes) |
Descrição:
Esta função retorna as informações de empresa e filial do grupo de usuários informado.
Quando marcado a opção "Todas as empresas" no cadastro de grupo, a função retornará "@@@@" indicando que o grupo tem acesso a todas as empresas/filiais do Sigamat.
Sintaxe:
FWGrpEmp - Retorno de informações de empresa e filial ( cGrpID, lLayout ) --> aEmp
Retorno:
aEmp
- (vetor)
- Array contendo as informações de empresa\filial cadastradas no grupo de usuários informado.
Observações
A função FWGrpEmp() pode ser utilizada juntamente com a função AllGroups() para retornar as informações de empresa\filial do grupo.
Exemplos
#include "protheus.ch"
User Function GrpEmp()
Local aEmp := {{""}}
Local aAllGrp := AllGroups()
Local aGrp := {}
Local oDlg
Local oCbx
Local oList
Local oBtn
Local oPanel1, oPanel2
Local nI
Local cGrp := ""
// Armazena os códigos dos grupos de usuários cadastrados
For nI := 1 to len(aAllGrp)
aadd(aGrp, aAllGrp[ni][1][1])
Next
// Monta a janela para exibição dos dados
DEFINE MSDIALOG oDlg TITLE "Teste AllGroups" FROM 010, 010 TO 600, 600 OF oMainWnd PIXEL
@00,00 MSPANEL oPanel1 PROMPT "" SIZE 00,35 OF oDlg oPanel1:Align := CONTROL_ALIGN_TOP
@ 010, 005 COMBOBOX oCbx VAR cGrp ITEMS aGrp SIZE 080, 012 OF oPanel1 PIXEL
@ 010, 090 BUTTON oBtn PROMPT "Carrega Empresas" SIZE 60,11 PIXEL OF oPanel1 ACTION (If(!Empty(cGrp), (LoadEmp(cGrp, @aEmp), RefreshList(@oList, aEmp)), ) )
@00,00 MSPANEL oPanel2 PROMPT "" SIZE 00,200 OF oDlg
oPanel2:Align := CONTROL_ALIGN_ALLCLIENT
@ 005, 005 LISTBOX oList FIELDS HEADER "Empresa\Filial" SIZE 280, 250 OF oPanel2 PIXEL
oList:SetArray(aEmp)
oList:bLine := {|| {aEmp[oList:nAt] }}
ACTIVATE MSDIALOG oDlg CENTERED
Return
// Carrega as informações de empresa\filial do grupo informado
Static Function LoadEmp(cGroup, aEmp)
aEmp := FWGrpEmp(cGroup)
Return
// atualiza a lista de empresa\filial no listbox
Static Function RefreshList(oList, aEmp)
oList:SetArray(aEmp)
oList:bLine := {|| {aEmp[oList:nAt]} }
oList:Refresh()
Return
Veja Também
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
cGrpID | Caracter | Código do grupo de usuários | X | ||
lLayout | Lógico | Habilita o retorno dos dados do Array completando o espaçamento do layout definido no grupo de empresa |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas