'------------------------------------------------------------------------------------
'Função para alterar o estado do equipamento
'------------------------------------------------------------------------------------

function Equip_Conforme(CodEquip,Conforme,IdPlanoAnual)
	 	desc = "Pretende alterar o estado deste equipamento ?"
		url1 = "equipamentos_historico_alt.asp?CodEquip="&CodEquip&"&Conforme="&Conforme&"&prc=2&IdPlanoAnual="&IdPlanoAnual
		url2 = "equipamentos_historico_lista.asp?prc=1&IdPlanoAnual="&IdPlanoAnual
		ret = MsgBox(desc , 4132, "Alteração")
		if ret = 6 then
			document.url = url1
		else
			document.url = url2
		end if
end function

'------------------------------------------------------------------------------------
'Função do encerramento de um tratamento
'------------------------------------------------------------------------------------
function Encerra_Tratamento(IdTratamentoRec,CodColabEficacia,DataEficacia)
	 	desc = "Existem acções planeadas com a eficácia por avaliar ou não eficazes. Deseja continuar ?"
		url1 = "reclamacao_genero_adi.asp?IdTratamentoRec="&IdTratamentoRec&"&CodColabEficacia="&CodColabEficacia&"&DataEficacia="&DataEficacia
		url2 = "reclamacao_tratamento_alt.asp?IdTratamentoRec="&IdTratamentoRec
		ret = MsgBox(desc , 4132, "Alteração")
		if ret = 6 then
			document.url = url1
		else
			document.url = url2
		end if
end function