Histórico da Página

#include "protheus.ch"User Function TestSix()Local cFile Local oDlg                                  Local cRetLocal oPanel1, oPanel2Local oGet, cGet := Space(3)Local oSay1Local oLbxLocal aDesc := {}                                                             Aadd(aDesc, {"", "", ""})DEFINE MSDIALOG oDlg TITLE "Teste SixDescricao" From 000,0 TO 200,300 PIXELoDlg:lMaximized := .T.@ 000, 000 MSPANEL oPanel1 SIZE 10, 30 OF oDlg oPanel1:align:= CONTROL_ALIGN_TOP	@ 12, 05 SAY oSay1 VAR "Tabela: " OF oPanel1 PIXEL                                                                           	@ 12, 30 GET oGet VAR cGet OF oPanel1 SIZE 100,009 PIXEL   	oGet:bLostFocus := {|| U_Procura(@aDesc, Upper(AllTrim(cGet)), @oLbx) }			@ 12, 140 BUTTON "Fechar" PIXEL SIZE 40,12 OF oPanel1 ACTION oDlg:End()@ 000, 000 MSPANEL oPanel2 SIZE 10, 90 OF oDlg oPanel2:align:= CONTROL_ALIGN_ALLCLIENT		@ 30,05 LISTBOX oLbx FIELDS HEADER "Ordem", "Chave", "Descrição" SIZE 30, 150, 150 OF oPanel2 PIXEL  	oLbx:SetArray(aDesc)                                                 oLbx:bLine := {|| {aDesc[oLbx:nAt,1],aDesc[oLbx:nAt,2], aDesc[oLbx:nAt, 3]}}	oLbx:align:= CONTROL_ALIGN_ALLCLIENT			         ACTIVATE MSDIALOG oDlg CENTEREDReturn                                              User Function Procura(aDesc, cGet, oLbx)aDesc := {}SIX->(dbSetOrder(1))SIX->(dbSeek(cGet))While SIX->(!Eof()) .And. SIX->INDICE == Upper(AllTrim(cGet))	Aadd( aDesc, {SIX->ORDEM, SIX->CHAVE, SIX->(SixDescricao())})	SIX->(dbSkip())End                                       oLbx:SetArray(aDesc)                                             oLbx:bLine := { || {aDesc[oLbx:nAt,1],aDesc[oLbx:nAt,2], aDesc[oLbx:nAt, 3]}}oLbx:Refresh()Return