Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que possibilita o aumento de vidas do pneu na rotina de Análise Técnica (MNTA600)

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

MNTA600

Análise Técnica


Rotina(s) envolvida(s)

Nome Técnico

MNTA6003

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 Análise Técnica (MNTA600) que possibilita o aumento de vida de um pneu, relacionando o número da banda com a quilometragem específica da vida do pneu.

Programa Fonte:

MNTA600.prx
Localização:SIGAMNT: Atualizações/Controle de Pneus/Análise Técnica/Análise Técnica

Função:

MNTA6003()
Parâmetros:
NomeTipoDescrição
ParamIXB[1]LógicoDefine se retorna cTmpRet (.T.) ou cTmpCmp (.F.)
ParamIXB[2]CaracterContém o número da banda

Retorno:

NomeTipoDescriçãoObrigatório
If(lRet, cTmpRet, cTmpCmp)Caracter

cTmpRet: Retorno

cTmpCmp: Campo

X
Exemplo do Ponto de Entrada MNTA6003()
#Include 'Totvs.ch'

User Function MNTA6003()

	// Parametros
	lRet := PARAMIXB[1] // Preenche com um valor logico,.T. - para retornar cTmpRet ou .F. para retornar cTmpCmp
	cBanda := PARAMIXB[2] // Preenche com o numero da banda

	// Retornos
	cTmpRet := "" // Retorno
	cTmpCmp := "" // Campo

	If cBanda == '6'
		cTmpRet := TQS->TQS_KMR5
		cTmpCmp := 'TQS->TQS_KMR5'
	ElseIf cBanda == '7'
		cTmpRet := TQS->TQS_KMR6
		cTmpCmp := 'TQS->TQS_KMR6'
	ElseIf cBanda == '8'
		cTmpRet := TQS->TQS_KMR7
		cTmpCmp := 'TQS->TQS_KMR7'
	ElseIf cBanda == '9'
		cTmpRet := TQS->TQS_KMR8
		cTmpCmp := 'TQS->TQS_KMR8'
	ElseIf cBanda == 'A'
		cTmpRet := TQS->TQS_KMR9
		cTmpCmp := 'TQS->TQS_KMR9'
	EndIf

Return If(lRet,cTmpRet,cTmpCmp)