Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: FWGrpParam - Retorna as parametrizações do cadastro de grupo
Descrição: Esta função retorna os dados de parametrização do cadastro do grupo de usuários informado. Programa Fonte: SIGAPSW.PRG Sintaxe: FWGrpParam - Retorna as parametrizações do cadastro de grupo ( [ cGrpId ] ) --> aParam Retorno:
Observações A função FWGrpParam() pode ser utilizada juntamente com a função AllGroups() para retornar as informações dos grupos cadastrados. Exemplos #include "protheus.ch"User Function GrpPss()Local cMemoLocal aAllGrp := AllGroups()Local aGrp := {}Local oDlgLocal oCbx Local 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 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 Dados" SIZE 40,11 PIXEL OF oPanel1 ACTION (If(!Empty(cGrp),cMemo := LoadGrp(cGrp), ) ) @00,00 MSPANEL oPanel2 PROMPT "" SIZE 00,200 OF oDlg oPanel2:Align := CONTROL_ALIGN_ALLCLIENT @ 015,005 GET oMemo VAR cMemo OF oPanel2 MEMO PIXEL SIZE 180,100 ACTIVATE MSDIALOG oDlg CENTERED Return // Carrega as informações das parametrizacoes do grupo informadoStatic Function LoadGrp(cGroup)Local cMemoLocal aParam := {}aParam := FWGrpParam(cGroup)cMemo := "**Dados do grupo** " + Chr(13) + Chr(10) + Chr(13) + Chr(10) cMemo += "Codigo Grupo: " + aParam[1][1] + Chr(13) + Chr(10)cMemo += "Nome Grupo: " + aParam[1][2] + Chr(13) + Chr(10)cMemo += "Grupo bloqueado?: " + If( aParam[1][3]=="1", "Sim","Não") + Chr(13) + Chr(10)cMemo += "Data de bloqueio: " + dToc(aParam[1][4]) + Chr(13) + Chr(10) + Chr(13) + Chr(10)cMemo += "**Dados Parametrização - Database **" + Chr(13) + Chr(10) cMemo += "Configurar dias de troca de database: " + If( aParam[2][1]=="1", "Sim","Não") + Chr(13) + Chr(10)cMemo += "Retroceder: " + aParam[2][2] + Chr(13) + Chr(10)cMemo += "Avançar: " + aParam[2][3]+ Chr(13) + Chr(10)+ Chr(13) + Chr(10)cMemo += "**Dados cadastro ** " + Chr(13) + Chr(10) cMemo += "Nivel global de campos: " +aParam[3][1] + Chr(13) + Chr(10) cMemo += "Data de cadastro: " +dToc(aParam[4][1]) + Chr(13) + Chr(10) cMemo += "Data ultima alteracao: " +dToc(aParam[4][2]) + Chr(13) + Chr(10) Return cMemo Parâmetros:
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas