Frameworksp

Atalhos

Páginas filhas
  • FWGrpParam - Retorna as parametrizações do cadastro de grupo

Função: FWGrpParam - Retorna as parametrizações do cadastro de grupo
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)
Idiomas: Português (Brasil)
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:
    aParam(array_of_record)
  • Array com as informações de parametrizaçõesaParam[1]= Dados do grupo aParam[2]= Dados Parametrização - Database aParam[3]= Dados Parametrização - Restrição de acessoaParam[4]= Dados de inclusao/alteracao do cadastro no caso de sigapss migrado de versões anteriores
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:
Nome Tipo Descrição Default Obrigatório Referência
cGrpId Caracter Id do grupo de usuários

  • Sem rótulos