Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que carrega campos que não devem ser apresentados em tela na rotina de OS em Lote (MNTA720)

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

MNTA720

OS em Lote


Rotina(s) envolvida(s)

Nome Técnico

MNTA7203

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 OS em Lote (MNTA720) que carrega campos que não devem ser apresentados em tela 

Programa Fonte:

MNTA720.prx
Localização:SIGAMNT: Atualizações/Controle de Pneus/OS de Pneus/OS em Lote

Função:

MNTA7203()
Parâmetros: 
NomeTipoDescrição
ParamIXB[1]ArrayCampos que não devem ser apresentados da tabela TR7
ParamIXB[2]ArrayCampos que não devem ser apresentados da tabela TR8
ParamIXB[3]NuméricoAção do Menu (Inclusão, Alteração, Exclusão, etc.)

Retorno:

NomeTipoDescriçãoObrigatório
aRetArray

aRet[1] - Campos que não devem ser apresentados da tabela TR7

aRet[2] - Campos que não devem ser apresentados da tabela TR8

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

User Function MNTA7203()
	
	// Variável do retorno
	Local aRet := { {}, {} }
	
	// Variáveis auxiliares
	Local aNaoTR7 := ParamIXB[1]
	Local aNaoTR8 := ParamIXB[2]
	Local nOpcCad := ParamIXB[3]
	
	//----------
	// Executa
	//----------
	If nOpcCad == 3 // Inclusão
		// Não apresenta o meu campo
		dbSelectArea("SX3")
		dbSetOrder(2)
		If dbSeek("TR8_XMEUCP")
			aAdd(aNaoTR7, "TR8_XMEUCP")
		EndIf
	EndIf
	
	aRet[1] := aClone( aNaoTR7 )
	aRet[2] := aClone( aNaoTR8 )
	
Return aRet