Histórico da Página

||#Include 'Protheus.ch'

User Function cn120psq()

Local aCamposPsq := ParamIxb[1]

Local nOrdenacao := 0

Local oDlg := NIL

Local oCombo := NIL

Local oButton := NIL

Local cCombo := ""

DEFINE MSDIALOG oDlg FROM 0,0 TO 200,250 PIXEL TITLE 'Ordem das colunas para Pesquisa'

 oCombooCombo:= tComboBox():New(10,30,

Unknown macro: {|u|if(PCount()>0,cCombo}

,aCamposPsq,70,20,oDlg,,,,,,.T.,,,,,,,,,'cCombo')

// Botão para confirmar a janela

 oButton oButton := tButton():New(50,30,'Confirmar',oDlg,

Unknown macro: {||oDlg}

:End()},70,20,,,,.T.)

 ACTIVATE ACTIVATE MSDIALOG oDlg CENTERED

 nOrdenacao nOrdenacao := Ascan(aCamposPsq,Alltrim(cCombo))

 Return Return nOrdenacao