Histórico da Página

#Include 'ProtheusTotvs.ch'

User Function MNTA6003()

	// Parametros
	lRet := PARAMIXB1PARAMIXB[1] // Preenche com um valor logico,.T. - para retornar cTmpRet ou .F. para retornar cTmpCmp
	cBanda := PARAMIXB2PARAMIXB[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)