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 |
|
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 |
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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
...
ACTIVATE MSDIALOG oDlg CENTERED nOrdenacao := Ascan(aCamposPsq,Alltrim(cCombo)) |
...
Return |
...
...
nOrdenacao |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas