Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Daniela Rodrigues Monstans Ferreira

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Jose Renato Silva Dourado De Souza

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Descrição

O ponto de entrada CN120PSQ

permite

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
Bloco de código
languagecsharp
themeConfluence
language
firstline
csharp
1
titleExemplo
firstline1
linenumberstrue
#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

 

...