Ponto de entrada que permite adicionar validações nas rotinas de Movimentação de Rodados (MNTA231/MNTA232)

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
MNTA420	O.S. Corretiva

Rotina(s) envolvida(s)	Nome Técnico
MNTA231	Movimentação do Esquema de Pneus
MNTA232	Novo Esquema de Rodados Gráfico

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada executado nas rotinas de Movimentação do Esquema de Pneus (MNTA231) e Novo Esquema de Rodados Gráfico (MNTA232), chamadas pela rotina de O.S. Corretiva (MNTA420), que permite adicionar validações do código de produto.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva. Outras Ações: Rodados

Programa Fonte:

MNTA420.prx

Função:

MNTA231V()

Parâmetros:

Nome	Tipo	Descrição
ParamIXB[1]	Caracter	Código anterior do produto, encontrado na base
ParamIXB[2]	Caracter	Código atual do produto, inserido pelo usuário
ParamIXB[3]	Caracter	Código anterior do almoxarifado, encontrado na base
ParamIXB[4]	Caracter	Código atual do almoxarifado, inserido pelo usuário
ParamIXB[5]	Caracter	Código do status do produto, definido através da movimentação

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	Lógico	Retorna verdadeiro ( .T. ) caso a validação seja confirmada	X

#INCLUDE 'PROTHEUS.CH'

User Function MNTA231V(cProdAnt,cProdAtu,cAlmoAnt,cAlmoAtu,cStatus)

	// Retorno da validação deve ser .T. ou .F.
	Local lRet := .F.

	// Chamada da validação
	If MsgYesNo("Produto Anterior: "+cProdAnt+Chr(13)+;
				"Produto Atual: "+cProdAtu+Chr(13)+Chr(13)+;
				"--------------------"+Chr(13)+Chr(13)+;
				"Almoxarifado Anterior: "+cAlmoAnt+Chr(13)+;
				"Almoxarifado Atual: "+cAlmoAtu+Chr(13)+Chr(13)+;
				"--------------------"+Chr(13)+Chr(13)+;
				"Status: "+cStatus,;
				"MNTA231V")

		lRet := .T.
	Else
		lRet := .F.

	EndIf

Return lRet