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,{|u|if(PCount()>0,cCombo},aCamposPsq,70,20,oDlg,,,,,,.T.,,,,,,,,,'cCombo')


// Botão para confirmar a janela
oButton := tButton():New(50,30,'Confirmar',oDlg,{||oDlg:End()},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âmetrosaArrayF4, cPesq, cOpcAsc, cAscan, bAscan, nPos, aCampos, nTipo, nBusca
Retorno

aArrayF4, nPos

Eventos de chamada do Ponto de EntradaAo acionar a ordenação da tela de pesquisa da consulta padrão do campo de código de contrato da tela de inclusão de medições.
Programa FonteCNTA120.PRW