| Descrição | O ponto de entrada CN120PSQ permitia alterar a ordenação da tela de consulta específica do código do contrato na rotina de Manutenção de Medições. A partir de Julho de 2022, o ponto de entrada foi descontinuado no sistema, pois teve sua funcionalidade alterada a partir da implementação da pesquisa na consulta padrão CN9003 do campo CND_CONTRA. |
| Exemplos | Exemplo #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 | 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 |
