Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MNT40015 - Validação de Insumos
Descrição: 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. Eventos
Programa Fonte MNTA400.PRX Sintaxe MNT40015 - Validação de Insumos ( ) --> lRetorna Retorno
Observações 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). Exemplos #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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas