Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada para adicionar validações na rotina de Validações de Abastecimento (MNTA659)

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

MNTA659

Validações de Abastecimento

Rotina(s) envolvida(s)

Nome Técnico

MNTA6591

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 utilizado na rotina de Validações de Abastecimento (MNTA659) para adição de validações

Localização:

SIGAMNT: Atualiazações/Controle de Combustíveis/Abastecimento/Validações de Abastecimento

Programa Fonte:

MNTA659.prw


Função:

MNTA6592()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]CaracterCódigo do bem
ParamIXB[2]CaracterFilial do bem
ParamIXB[3]DataData do abastecimento
ParamIXB[4]CaracterHora do abastecimento
ParamIXB[5]ArrayArray com validações padrão

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aReturn

Array

Array com novas validações

X

 

Exemplo do Ponto de Entrada MNTA6592()
#INCLUDE "Protheus.ch"

User Function MNTA6592()

	Local cCodBem := PARAMIXB[1] // Código do Bem
	Local cFilBem := PARAMIXB[2] // Filial do Bem
	Local dDtAbast:= PARAMIXB[3] // Data do Abastecimento
	Local cHhAbast:= PARAMIXB[4] // Hora do Abastecimento
	Local aReturn := PARAMIXB[5] // Array com validações padrão

	//
	If !U_VERIFBEM()

		MsgInfo("O bem: " + cCodBem + "está com o cadastro de estrutura inconsistente, é necessário realizar o ajuste para finalizar o abastecimento.")

		aReturn[1][1] += "Estepe - O bem não possui estepe cadastrado em sua estrutura. É necessário realizar o ajuste do veículo para incluir um abastecimento."
		aadd(aReturn[2],{.F., " ZZ"}) // Adiciona ao vetor valor falso e código do erro (genérico)


	Endif

Return aReturn