Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que valida a alteração/inclusão de um insumo na rotina de Retorno (MNTA400)

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

MNTA400

Retorno

Rotina(s) envolvida(s)

Nome Técnico

MNT40015

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 Retorno (MNTA400) para realizar a validação da alteração/inclusão de um insumo

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Retorno

Programa Fonte:

MNTA400.prx

Função:

MNT40015()

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRetorna

Lógico

Se verdadeiro ( .T. ) indica que a validação foi confirmada

X

 

Exemplo do Ponto de Entrada MNT40015()
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'RWMAKE.CH'  

User Function MNT40015()

	Local lRetorna := .T. 
	
	//Verifica se e' chamado pela Rotina MNTA360 - Retorno de O.S de Lubrificacao
	If Type("cPrograma") <> "U"	If cPrograma == "MNTA360"				
		aArea := GetArea()				
		cMsg := "Insumo informado do Tipo "			

		If STL->TL_TIPOREG == "F"			
			cMsg += "F - Ferramenta"		
		ElseIf STL->TL_TIPOREG == "M"			
			cMsg += "M - Mao de Obra"		
		ElseIf STL->TL_TIPOREG == "P"			
			cMsg += "P - Produto"		
		ElseIf STL->TL_TIPOREG == "T"			
			cMsg += "T - Terceiro"		
		ElseIf STL->TL_TIPOREG == "E"			
			cMsg += "E- Especialidade"		
		EndIf				
		
		cMsg += ". Confirma?"				
		If !APMSGYESNO(cMsg)			
			lRetorna := .F.		
		EndIf						
		
		RestArea(aArea)		
	EndIf
	
Return lRetorna