Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que realiza validações ao confirmar Entrada/Saída através do Controle de Portaria (MNTA985)

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

Portaria

Rotina(s) envolvida(s)

Nome Técnico

MNTA9855

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 Controle de Portaria (MNTA985) que permite realizar validações após a confirmação de Entradas ou Saídas.

Programa Fonte:

MNTA985.prw
Localização:SIGAMNT: Atualizações/Controle de Oficina/Controle de Portaria/Portaria

Função:

MNTA9855()
Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]LógicoIndica se é uma entrada
ParamIXB[2]LógicoIndica se é uma saída
ParamIXB[3]ArrayInformações referentes ao veículo selecionado, sendo:

[1] - Empresa;

[2] - Filial;

[3] - Código.




Retorno:

Nome

Tipo

Descrição

Obrigatório

lRetLógicoRetorna verdadeiro (.T.) ao confirmar a gravação, caso contrário, retorna falso (.F.)X
Exemplo do Ponto de Entrada MNTA9855()
#Include 'Protheus.ch'
#Include 'RwMake.ch'

User Function MNTA9855()

	Local aArea:= GetArea()
	Local lENT:= .F.
	Local lSAI:= .F.
	Local aInf:= Array(3)
	Local lRet:= .T.

	//Carrega variáveis de Entrada e Saída
	If Type("ParamIxb") == "A"
		lENT  := ParamIXB[1]
		lSAI  := ParamIXB[2]
		aInf  := aClone(ParamIXB[3])
	EndIf

	aUltTTI := M985UltTTI(aInf[3],aInf[2],aInf[1],1,Nil)
	If lSAI
		//Validação de campos do usuário
		If Empty( M->TTI_CDRORS ) .Or. Empty( M->TTI_CDRDES )
			Help("",1,"NGATENCAO",,"Os campos"+RetTitle("TTI_CDRORS")+"e "+RetTitle("TTI_CDRDES")+" devem estar preenchidos.",3,1)
			lRet := .F.
		EndIf
	ElseIf lENT
		If !Empty( aUltTTI )
			//primeira entrada a ser realizada
			//Validação dos campos de usuário
			If Empty( M->TTI_CDRORE ) .Or. Empty( M->TTI_CDRDEE )
				Help("",1,"NGATENCAO",,"Os campos"+RetTitle("TTI_CDRORE")+"e"+RetTitle("TTI_CDRDEE")+" devem estar preenchidos.",3,1)
				lRet := .F.
			EndIf
		EndIf
	EndIf

	RestArea( aArea )

Return lRet