| Descrição | O 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 |
| Idioma | Português(Brasil) |
| Versões | Microsiga Protheus 10 e Microsiga Protheus 11 |
| Sistemas Operacionais Suportados | Todos |
| Compatível com as Bases de Dados | Todas |
| Parâmetros | aCamposPsq => Campos da Tela de Pesquisa |
| Retorno | nOrdenacao => Número da coluna do qual será efetuado a ordenação da tela de Pesquisa |
| Eventos de chamada do Ponto de Entrada | Ao acionar a consulta padrão do campo de código de contrato da tela de inclusão de medições. |
| Programa Fonte | CNTA120.PRW |