Ponto de entrada que permite adicionar botões na inclusão de Solicitação de Serviço (MNTA280)

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
MNTA280	Solicitação de Serviço

Rotina(s) envolvida(s)	Nome Técnico
MNTA2809	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 Solicitação de Serviço (MNTA280) que permite adicionar botões na tela de inclusão

Localização:

SIGAMDI: Atualizações/Controle de Oficina/Solicitação de Serviço/Solicitação

Programa Fonte:

MNTA280.prx

Função:

MNTA2809()

Parâmetros:

Nome	Tipo	Descrição
ParamIXB[1]	Numérico	Operação

Retorno:

Nome

Tipo

Descrição

aNgButton

Array

Array com os dados do Botão

Tipo	Descrição	Exemplo	Obrigatório
Caracter	Corresponde ao código da imagem utilizada para o botão.	"PARAMETROS"	X
Bloco de Código	Bloco de código que será executado ao clicar no botão.	{\|\|MsgStop( "Ponto de Entrada" + CHR(13)+CHR(10)+ "Execução do Botão!")}	X
Caracter	Descrição do botão.	"Solicitacao - Ponto de Entrada"	X
Caracter	Título do botão na tela.	"Solicitacao"	X

#Include 'Totvs.ch'

User Function MNTA2809()

	Local nVar := PARAMIXB[1]
	Local aNgButton := {}

	If nVar == 3
		Aadd(aNgButton,{"PARAMETROS" ,{||MsgStop(	"Ponto de Entrada" + CHR(13)+CHR(10)+ "Execução do Botão!")},;
						"Solicitacao - Ponto de Entrada","Solicitacao"})
	EndIf

Return aNgButton

Nesse caso, os parâmetros são passados pelo argumento da User Function. Ao contrário do código Atual, que faz utilização do Array de parâmetros ParamIXB.

Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Solicitação de Serviço (MNTA280) que permite adicionar botões na tela de inclusão

Localização:

SIGAMDI: Atualizações/Controle de Oficina/Solicitação de Serviço/Solicitação

Programa Fonte:

MNTA280.prx

Função:

MNTA2809()

Parâmetros:

Nome	Tipo	Descrição
nVar	Numérico	Operação

Retorno:

Nulo

#Include 'Protheus.ch'      

User Function MNTA2809(nVar),

	Local aNgButton := {}
	
	If nVar == 3	
		Aadd(aNgButton,{"PARAMETROS" ,{||MsgInfo("Ponto de Entrada" + CHR(13)+CHR(10)+ "Execução do Botão!")},;
		"Solicitacao - Ponto de Entrada","Solicitacao"})	
		_SetOwnerPrvt("aNgButton",aNgButton)
	EndIf

Return