DescriçãoO ponto de entrada CN120PSQ permite alterar a ordenação da tela de consulta específica do código do contrato na rotina de Manutenção de Medições.
Exemplos

||#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'

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

 

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

 

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

 // Botão para confirmar a janela

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

 

Unknown macro: {||oDlg}

 

,70,20,,,,.T.)

 ACTIVATE MSDIALOG oDlg CENTERED

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

 Return nOrdenacao

IdiomaPortuguês(Brasil)
VersõesMicrosiga Protheus 10 e Microsiga Protheus 11
Sistemas Operacionais SuportadosTodos
Compatível com as Bases de DadosTodas
ParâmetrosaCamposPsq => Campos da Tela de Pesquisa
RetornonOrdenacao => Número da coluna do qual será efetuado a ordenação da tela de Pesquisa
Eventos de chamada do Ponto de EntradaAo acionar a consulta padrão do campo de código de contrato da tela de inclusão de medições.
Programa FonteCNTA120.PRW