| 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 |
|
| 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 | aArrayF4, cPesq, cOpcAsc, cAscan, bAscan, nPos, aCampos, nTipo, nBusca |
| Retorno | aArrayF4, nPos |
| Eventos de chamada do Ponto de Entrada | Ao 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 Fonte | CNTA120.PRW |
#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 |