Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que adiciona novos campos na tela de Consulta Gerencial de Pneus (MNTC125)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTC125

Gerencial de Pneus

Rotina(s) envolvida(s)

Nome Técnico

MNTC1251

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Consulta Gerencial de Pneus (MNTA125) que permite adicionais campos no painel de Controle de Recapes

Programa Fonte:

MNTC125.prw
Localização:SIGAMNT: Consultas/Controle de Pneus/Gerencial/Gerencial de Pneus

Função:

MNTC1251()
Parâmetros:
NomeTipoDescrição
ParamIXB[1]ObjetoPainel dos campos da consulta
ParamIXB[2]ObjetoPainel do Controle de recapes
ParamIXB[3]CaracterCódigo do Pneu a ser consultado

Retorno:

NomeTipoDescriçãoObrigatório
aMaxLargurArray

aMaxLargur[1] - Define os objetos do Painel de campos.
                   [1][1] - Posição limite da coluna onde os objetos específicos terminaram de ser montados.
                   [1][2] - Objetos específicos montados.

aMaxLargur[2] - Define os objetos do Painel de Controle de Recapes.
                   [2][1] - Posição limite da coluna onde os objetos específicos terminaram de ser montados.
                   [2][2]- Objetos específicos montados.

                   

X
Exemplo do Ponto de Entrada MNTC1251()
#INCLUDE	"Protheus.ch"
#INCLUDE	"RWMake.ch"

User Function MNTC1251()
	
	// Variável do retorno
	Local aMaxLargur := {}
	
	// Variáveis auxiliares
	Local oObjCampos := ParamIXB[1]
	Local oObjRecape := ParamIXB[2]
	Local cReadVarPn := ParamIXB[3]
	
	Local oTmpFnt  := TFont():New(, , 14, , .T.)
	
	Local aTmpGets := {}
	Local nLen := 0
	
	//----------
	// Executa
	//----------
	aAdd(aTmpGets, Nil)
	nLen := Len(aTmpGets)
	@ 001,143 SAY aTmpGets[nLen] VAR OemToAnsi("Meu Texto") FONT oTmpFnt SIZE 020,008 COLOR CLR_HBLUE OF oObjRecape PIXEL
	
	// Retorno: {Coluna Máxima, Array de Objetos criados (Gets, Says)}
	aAdd(aMaxLargur, {0, {}}) // Painél dos Campos
	aAdd(aMaxLargur, {163, aTmpGets})// Painél do Controle de Recapes
	
Return aMaxLargur