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

Os detalhes abaixo aplicam-se às versões posteriores ou igual à 31/05/2021 do fonte MNTA280.PRX

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 := {}
	// nVar = "2"  , Visual
	// nVar = "3"  , Inclui
	// nVar = "4"  , Altera
	// nVar = "5"  , Exclui

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

Return aNgButton

Os detalhes abaixo aplicam-se às versões anteriores à 31/05/2021 do fonte MNTA280.PRX

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