Histórico da Página
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,
Unknown macro: {|u|if(PCount()>0 |
...
,cCombo |
...
}
,aCamposPsq,70,20,oDlg,,,,,,.T.,,,,,,,,,'cCombo') |
...
// |
...
Botão |
...
para |
...
confirmar |
...
a |
...
janela |
...
oButton := |
...
tButton():New(50,30,'Confirmar',oDlg,
Unknown macro: {||oDlg |
...
}
,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 |