Histórico da Página

...

Deck of Cards

startHidden	false
effectDuration	0.5
history	false
id	samples
effectType	fade

Card

default	true
id	1
label	Versão Atual

Aviso
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

Bloco de código

title	Exemplo do Ponto de Entrada MNTA2809()

#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

]

Card

Anterior a [

id	2
label	Versão Antiga

Aviso
Os detalhes abaixo aplicam-se às versões anteriores à 31/05/2021

Aviso

title	Mudança nos argumentos da User Function

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. 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

Bloco de código

title	Exemplo do Ponto de Entrada MNTA2809()

#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

...

Árvore de páginas

Versões comparadas

Versão antiga 9

Nova versão Atual

Chave

Ponto de Entrada

Ponto de Entrada