Páginas filhas
  • FWGrpEmp - Retorna informações de empresa e filial

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
FWGrpEmp - Retorno de informações de empresa e filial
FWGrpEmp - Retorno de informações de empresa e filial

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.
Programa Fonte:
SIGAPSW.PRG
Sintaxe:

FWGrpEmp - Retorno de informações de empresa e filial ( cGrpID ) --> 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 oDlgLocal oCbx                      Local oListLocal oBtn                  Local oPanel1, oPanel2Local nI                                Local cGrp	:= ""           // Armazena os códigos dos grupos de usuários cadastradosFor nI := 1 to len(aAllGrp)  aadd(aGrp, aAllGrp[ni][1][1])Next// Monta a janela para exibição dos dadosDEFINE 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 informadoStatic Function LoadEmp(cGroup, aEmp)aEmp := FWGrpEmp(cGroup)                 Return                                                    // atualiza a lista de empresa\filial no listboxStatic Function RefreshList(oList, aEmp)oList:SetArray(aEmp)oList:bLine := {|| {aEmp[oList:nAt]} }oList:Refresh()Return
Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
cGrpIDCaracterCódigo do grupo de usuáriosX