Árvore de páginas

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



  • Sem rótulos