<%
'**********************************************************************************
' Transforma enumeradores de status de objetos em literais
Public Function RetStatus(TipoObjeto, Valor)

RetStatus = ""
	Select Case TipoObjeto
		'================================================= EDIT
		Case ""
			RetStatus = ""
		Case "ProcessInstance"
			Select Case Valor
			   Case 0
				  RetStatus = "Iniciado"
			   Case 1
				  RetStatus = "Suspenso"
			   Case 2
				  RetStatus = "Terminado"
			End Select
		Case "ProcessDefinition"
			Select Case Valor
			   Case 0
				  RetStatus = "Válido"
			   Case 1
				  RetStatus = "Expirado"
			End Select
		Case "DocumentInstance"
			Select Case Valor
			   Case 0
				  RetStatus = "Intermediário"
			   Case 1
				  RetStatus = "Pronto"
			   Case 2
				  RetStatus = "Executando"
			End Select
		Case "DocumentDefinition"
			Select Case Valor
			   Case 0
				  RetStatus = "Válido"
			   Case 1
				  RetStatus = "Expirado"
			End Select
		Case "TaskInstance"
			Select Case Valor
			   Case 0
				  RetStatus = "Finalizada"
			   Case 1
				  RetStatus = "Suspensa"
			   Case 2
				  RetStatus = "Executando"
			   Case 3
				  RetStatus = "Em Lista"
			   Case 4
				  RetStatus = "Não assinalada"
			   Case 5
				  RetStatus = "Delegada"
			   Case 6
				  RetStatus = "Recusada"
			   Case 7
				  RetStatus = "Criada"
			End Select
	End Select

End Function


%>