Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que realiza personalizações na tela de Abastecimento Manual (MNTA655)

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

MNTA655

Abastecimento Manual


Rotina(s) envolvida(s)

Nome Técnico

MNTA6555

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 Abastecimento Manual (MNTA655) que realiza personalizações após a confirmação ou cancelamento da tela 

Programa Fonte:

MNTA655.prx
Localização:SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Abastecimento Manual

Função:

MNTA6555()

Retorno:

.T.
Exemplo do Ponto de Entrada MNTA6555()
#Include 'Protheus.ch'
#Include 'RWMake.ch'

User Function MNTA6555()

	Local lOk    := ParamIXB[1]
	Local nOpcao := ParamIXB[2]
	Local cMsgOk := ""
	Local cMsgOpcao := ""
	
	//Define se o usuario confirmou ou cancelou a tela
	cMsgOk := If(lOk,"Sim","Não")
	
	//Define qual foi a opcao de acao do usuario sobre a tela
	Do Case	
		Case nOpcao == 2		
			cMsgOpcao := "Visualização"	
		Case nOpcao == 3		
			cMsgOpcao := "Inclusão"	
		Case nOpcao == 4		
			cMsgOpcao := "Alteração"	
		Case nOpcao == 5		
			cMsgOpcao := "Exclusão"	
		OtherWise			
			cMsgOpcao := "Não identificada."
	EndCase
	
	//Mensagem em tela
	MsgInfo("Chamada do Ponto de Entrada MNTA6555."+CRLF+CRLF+;		
	"A tela foi confirmada? "+CRLF+"- "+cMsgOk+CRLF+CRLF+;		
	"Qual foi a ação do usuário na tela? "+CRLF+"- "+cMsgOpcao,"P.E. MNTA6555")
	
Return .T.