<!--#include file="ini.inc"-->
<!--#include file="Piscitrol.inc"-->
<!--#include file="Password.inc"-->
<!--#include file="adovbs.inc"-->

<HTML>

<HEAD>
	<TITLE>Piscitrol: Alarmas en Curso</TITLE>
	<LINK REL="stylesheet" TYPE="text/css" HREF="estilos.css">
	<% =sReload %>
</HEAD>

<BODY>

<%
set rsAlarmas = server.CreateObject("ADODB.Recordset")
	sql = "SELECT t_Modulos.Mod_Nombre, t_Ambientes.Amb_Nombre, t_Sensores.Sen_ID, t_TipoVariables.TVa_Variable, t_Sensores.Sen_Ubicacion, t_Sensores.Sen_Valor, t_TipoVariables.TVa_Unidades, t_Sensores.Sen_AlarmaHOn, t_Sensores.Sen_AlarmaLOn " & _
		  "FROM t_Parametros, ((t_TipoVariables INNER JOIN (t_CatSensores INNER JOIN (t_Modulos INNER JOIN (t_Ambientes INNER JOIN t_Sensores ON t_Ambientes.Amb_ID = t_Sensores.Sen_Ambiente) ON t_Modulos.Mod_ID = t_Ambientes.Amb_Modulo) ON t_CatSensores.CSe_ID = t_Sensores.Sen_Tipo) ON t_TipoVariables.TVa_ID = t_CatSensores.CSe_Variable) INNER JOIN t_Entradas ON t_Sensores.Sen_Entrada = t_Entradas.Ent_ID) INNER JOIN t_Controladores ON t_Entradas.Ent_Controlador = t_Controladores.Ctr_ID " & _
		  "WHERE ((([Sen_AlarmaHOn] Or [Sen_AlarmaLOn])=True) AND ((t_Controladores.Ctr_Conectado)=True) AND ((t_Parametros.Prm_Encendido)=True));"
'Response.Write sql
rsAlarmas.open sql, cn

set rsDesconectados = server.CreateObject("ADODB.Recordset")
	sql = "SELECT t_Controladores.Ctr_ID, q_NombreControladores.Controlador, q_NombreControladores.Modulo, t_Controladores.Ctr_FechaCom, t_Controladores.Ctr_CountError " & _
		  "FROM t_Controladores INNER JOIN q_NombreControladores ON t_Controladores.Ctr_ID = q_NombreControladores.Ctr_ID " & _
		  "WHERE (((t_Controladores.Ctr_Conectado)=False));"
'Response.Write sql
rsDesconectados.open sql, cn

if rsAlarmas.EOF and rsDesconectados.EOF then
	If rsParametros("Prm_Imagen") <> "" Then
		Response.Redirect "MapaGeneral.asp"
	Else
		Response.Redirect "ListadoModulos.asp"
	End If
else
	%>
	<table border=0>
		<tr class=top>
			<td width=120px>LISTA</td>
			<td width=540px></td>
			<td width=120px>MAPA</td>
		</tr>

		<tr class=top>
			<td width=120px><a href="ListadoModulos.asp" title="Ver listado de los Modulos">Modulos</a></td>
			<td class=title>ALARMAS</TD>
			<td width=120px><a href="MapaGeneral.asp" title="Ver mapa de los Modulos">Modulos</a></td>
		</tr>

		<tr>
			<td class="opcion" valign="top"><!-- OPCIONES -->
				<table align=center width="100%">
					<tr class="menu"><td align=center>Opciones</td></tr>
					<tr><td><a href="Salida.asp" title="Reiniciar como un nuevo usuario">Salir</a></td></tr>
				</table>
			</td>
			<td colspan="2" valign="top">
				<% if not rsAlarmas.EOF then %>
				<table border="0" width=100%>
					<tr class=head>
						<td colspan=5>Mediciones Fuera de Rango</td>
					</tr>
					<tr class=head>
						<td width=20%>MODULO</td>
						<td width=20%>AMBIENTE</td>
						<td width=20%>SENSOR</td>
						<td width=20%>ALARMA</td>
						<td width=20%>VALOR</td>
					</tr>
					<%
					Do
						%>
						<tr class=alarma>
							<td><%=rsAlarmas("Mod_Nombre")%></td>
							<td><%=rsAlarmas("Amb_Nombre")%></td>
							<td>
								<a href="EstadoSensor.asp?ID_Pun=<%=rsAlarmas("Sen_ID")%>" 
								   title="Detalle del Sensor con alarma"><%=rsAlarmas("TVa_Variable")%>&nbsp<%=rsAlarmas("Sen_Ubicacion")%></a>
							</td>
							<td><%
								if rsAlarmas("Sen_AlarmaHOn") then
									Response.Write("Alta")
								else
									Response.Write("Baja")
								end if
								%></td>
							<td><%=FormatNumber(rsAlarmas("Sen_Valor"),1)%>&nbsp<%=rsAlarmas("TVa_Unidades")%></td>
						</tr>
						<%
						rsAlarmas.MoveNext								
					Loop Until rsAlarmas.EOF
					%>
				</table>
				<% end if %>
				<% if not rsDesconectados.EOF then %>
				<table border="0" width=100%>
					<tr class=head>
						<td colspan=4 width=100%>Controladores Desconectados</td>
					</tr>
					<tr class=head>
						<td width=25%>CONTROLADOR</td>
						<td width=25%>MODULO</td>
						<td width=25%>DESDE</td>
						<td width=25%>ERRORES</td>
					</tr>
					<%
					Do
						%>
						<tr class=alarma>
							<td><%=rsDesconectados("Controlador")%></td>
							<td><%=rsDesconectados("Modulo")%></td>
							<td><%=rsDesconectados("Ctr_FechaCom")%></td>
							<td><%=rsDesconectados("Ctr_CountError")%></td>
						</tr>
						<%
						rsDesconectados.MoveNext								
					Loop Until rsDesconectados.EOF
					%>
				</table>
				<% end if %>
			</td>
		</tr>
	
	</table>

	<%
End if	
%>

</BODY>
</HTML>