FWGrpImp - Retorna as informações de impressão do cadastro de grupo

#include "protheus.ch"User Function GrpPss2()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 := LoadGrp2(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 LoadGrp2(cGroup)Local cMemoLocal aParam := {}aParam := FWGrpImp(cGroup)cMemo := "**Configuração de diretorio** " + Chr(13) + Chr(10) + Chr(13) + Chr(10)                              cMemo += "Diretorio de impressao:"+ aParam[1]  + Chr(13) + Chr(10)cMemo += "Habilitar acesso a outros diretorios: " + If( aParam[2]=="1", "Sim","Não")   + Chr(13) + Chr(10)cMemo += Chr(13) + Chr(10)cMemo += "**Configuração de impressão **"  + Chr(13) + Chr(10)     cMemo += "Tipo de impressao padrao: " + If( aParam[3]=="1", "Em Disco",If( aParam[3]=="2", "Via Windows","Direto na porta")) + Chr(13) + Chr(10)cMemo += "Formato de impressao padrao: " + If( aParam[4]=="1", "Formato","Paisagem")  + Chr(13) + Chr(10)cMemo += "Ambiente de impressao padrao: " + If( aParam[5]=="1", "Servidor","Cliente")+ Chr(13) + Chr(10)cMemo += Chr(13) + Chr(10)cMemo += "**Configuração da impressora ** " + Chr(13) + Chr(10)        cMemo += "Nome da impressora padrao: " +aParam[6] + Chr(13) + Chr(10)    cMemo += "Drive da impressora padrao: "  +aParam[7] + Chr(13) + Chr(10)    cMemo += "Porta da impressora padrao: "  +aParam[8] + Chr(13) + Chr(10)    Return cMemo