Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada para validar visitantes 

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

MNTA985

Controle de Portaria

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada para tratamento de validação de inclusão e gravação de veículos, na aba Visitantes da rotina de controle de portaria.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Controle de Portaria/Portaria

Eventos:

Controle de Portaria (MNTA985)

Programa Fonte:

MNTA985.PRX

Função:

MNTA985E()

Parâmetros:
NomeTipoDescrição
lENTRADA LógicoIndica se é uma entrada de veiculo.
lSAIDA LógicoIndica se é uma saída de veiculo.
{(cTRBVis)->FILIAL, (cTRBVis)->PLACA, (cTRBVis)->DOCMOT}ArrayIndica os dados de Filial, Placa e Documento do Motorista

Retorno:

Tipo

Descrição

Obrigatório

Lógico

Indica se a validação foi feita

Sim

Exemplo
#include "Protheus.ch"

User Function MNTA985E()

	Local lEntra := ParamIXB[1]
	Local lSai := ParamIXB[2]
	Local aInfo := aClone(ParamIXB[3])
	Local lRetorno := .T.

	//Mensagens em tela para Entrada/Saída de Veículos Visitantes.
	If lEntra //Caso seja entrada de veículo.
		If !MsgYesNo("Deseja realizar um cadastro de entrada de visitante?")
			lRetorno := .F.
		EndIf
	ElseIf lSai //Caso seja saída de veículo.
		If !MsgYesNo("Deseja realizar uma confirmação de saída de visitante?")
			lRetorno := .F.
		EndIf
	EndIf

Return lRetorno