Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que possibilita o uso de informações customizadas de garantia na rotina de Retorno Mod. 2 (MNTA435)

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

MNTA435

Retorno Mod. 2

Rotina(s) envolvida(s)

Nome Técnico

MNTA435A

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 Retorno Mod. 2 (MNTA435) que possibilita o uso de informações customizadas no cadastro de garantia de insumo tipo produto

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno de OS/Retorno Mod. 2

Programa Fonte:

MNTA435.prx

Função:

MNTA435A()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]Caracter

L - Código da Localização

Q - Quantidade (Garantia por Tempo)

U - Unidade de tempo

Retorno:

NomeTipoDescriçãoObrigatório
nRet/cRetNumérico/CaracterSe cTipoRet = "Q" retorna a quantidade, caso contrário, retorna string contendo o código de localização ou unidade de tempoX
Exemplo do Ponto de Entrada MNTA435A()
#INCLUDE "Protheus.ch"

User Function MNTA435A()

	Local cTipoRet // Campo preenchido
	Local cRet := "" // Retorno caracter
	Local nRet := 0 // Retorno numerico

	//------------------------------------------------
	// Recebe o parametro que define em qual campo sera
	// preenchido o registro.
	// L - Codigo da Localizacao
	// Q - Quantidade (Garantia por Tempo)
	// U - Unidade de tempo
	//------------------------------------------------
	cTipoRet := PARAMIXB[1]

	If cTipoRet == "L"
		cRet := "DIAESQ"
	ElseIf cTipoRet == "Q"
		nRet := 999999
	ElseIf cTipoRet == "U"
		cRet := "Dia"
	EndIf

Return If(cTipoRet == "Q",nRet,cRet)