MNT40015 - Validação de Insumos

Este ponto de entrada é chamado na função de validação durante a inclusão ou alteração de um insumo no programa para retorno das Ordens de Serviço de Manutenção. Após o sistema realizar as validações da rotina, é chamado o ponto de entrada para as validações do usuário.

MNTA400.PRX

MNT40015 - Validação de Insumos ( ) --> lRetorna

lRetorna(logico)
• Resultado da Validação (.T./.F.)

Para utilizar este ponto de entrada em outras rotinas, como por exemplo MNTA360 - Retorno de O.S de Lubrificação, é necessário verificar a variável cPrograma, que deve ter em seu conteúdo a rotina de origem (assim como é feito no exemplo desta página).
 

#include "rwmake.ch"      User Function MNT40015()Local lRetorna := .T.//Verifica se e' chamado pela Rotina MNTA360 - Retorno de O.S de LubrificacaoIf 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)		EndIfEndIfReturn lRetorna