Histórico da Página

#include "protheus.ch"User Function Grppss3()Local aHora := {{"","",""}}                              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  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), (LoadGrp3(cGrp, @aHora), RefreshList(@oList, aHora)), ) )@00,00 MSPANEL oPanel2 PROMPT "" SIZE 00,200 OF oDlg oPanel2:Align := CONTROL_ALIGN_ALLCLIENT@ 005, 005 LISTBOX oList FIELDS HEADER "Dia", "Hora Inicio","Hora Fim" SIZE 280, 250 OF oPanel2 PIXEL 	oList:SetArray(aHora)oList:bLine := {|| {aHora[oList:nAt,1],aHora[oList:nAt,2],aHora[oList:nAt,3]} }ACTIVATE MSDIALOG oDlg CENTERED Return                                                                                                                                           // Carrega as informações de empresa\filial do grupo informadoStatic Function LoadGrp3(cGroup, aHora)aHora := FWGrpHor(cGroup)                 Return                                                    // atualiza a lista de empresa\filial no listboxStatic Function RefreshList(oList, aHora)oList:SetArray(aHora)oList:bLine := {|| {aHora[oList:nAt,1],aHora[oList:nAt,2],aHora[oList:nAt,3]} }oList:Refresh()Return