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

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

<BODY>
	<%
	ID_Mod = Request.QueryString("ID_Mod")		'Modulo a mostrar
	Variable = Request.QueryString("Variable")	'Variable de mediciones a mostrar

	set rsModulo = server.CreateObject("ADODB.Recordset")
	sqlModulo = "SELECT Mod_ID, Mod_Nombre, Mod_Imagen " & _
				  "FROM t_Modulos " & _
				  "WHERE Mod_ID=" & ID_Mod & ";"
	'Response.Write sqlModulo
	rsModulo.open sqlModulo, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
	
	'Si no hay variable definida selecciona la mas abundante en el modulo
	if Variable = "" or Unidades = "" then
		set rsCatSensor = server.CreateObject("ADODB.Recordset")
		sql = "SELECT CSe_Variable, CountOfSen_ID " & _
			  "FROM q_ModulosCatSensores " & _
			  "WHERE Amb_Modulo=" & ID_Mod & " " & _
			  "ORDER BY CountOfSen_ID DESC;"

		'Response.Write sql
		rsCatSensor.open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
		if not rsCatSensor.EOF then
			Variable = rsCatSensor("CSe_Variable")
		end if
	end if
	
	set rsAmbientes = server.CreateObject("ADODB.Recordset")
	sqlAmbientes = "SELECT t_Ambientes.Amb_ID, t_Ambientes.Amb_Nombre, q_AmbienteRegistro.Reg_ID, q_AmbienteRegistro.Reg_Nombre, q_AmbienteSensores.Sensores, q_AmbienteControles.Controles, q_AmbienteAlarmas.CuentaDeSen_ID AS Alarmas " & _
				   "FROM (q_AmbienteSensores RIGHT JOIN (q_AmbienteControles RIGHT JOIN (t_Ambientes LEFT JOIN q_AmbienteAlarmas ON t_Ambientes.Amb_ID = q_AmbienteAlarmas.Amb_ID) ON q_AmbienteControles.Con_Ambiente = t_Ambientes.Amb_ID) ON q_AmbienteSensores.Sen_Ambiente = t_Ambientes.Amb_ID) LEFT JOIN q_AmbienteRegistro ON t_Ambientes.Amb_ID = q_AmbienteRegistro.Amb_ID " & _
				   "WHERE t_Ambientes.Amb_Modulo=" & ID_Mod & ";"
	'Response.Write sqlAmbientes
	rsAmbientes.open sqlAmbientes, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
	%>

	<table border=0>
		<tr class=top>
			<td width=120px>LISTA</td>
				<td width=520px>
					<a href="Alarmas.asp" title="Ver listado de Alarmas en curso">Alarmas</a>
				</td>
			<td width=120px>MAPA</td>
		</tr>

		<tr class=top>
			<td><a href="ListadoModulos.asp" title="Ver listado de los Modulos">Modulos</a></td>
			<td class=title><% =rsModulo("Mod_Nombre") %></TD>
			<td><a href="MapaGeneral.asp" title="Ver mapa de los Modulos">Modulos</a></td>
		</tr>

		<tr class=top>
			<td>Ambientes</td>
			<td>Lista de Ambientes</TD>
			<td><a href="MapaModulo.asp?ID_Mod=<% =ID_Mod %>" title="Ver mapa de los Ambientes">Ambientes</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 align="left" valign="top" colspan="2" style="position: relative;">

				<table width=100%>
					<tr class=head>
						<td width=30%>AMBIENTE </td>
						<td width=30%>PROGRAMA</td>
						<td width=20%>SENSORES</td>
						<td width=20%>CONTROLES</td>
						<td width=20%>ALARMAS</td>
					</tr>

					<%
					if rsAmbientes.EOF Then
					Else
						Do
							iAlarma = not isnull(rsAmbientes("Alarmas"))
							if iAlarma then
								strClass = "alarma"
							else
								strClass = "data"
							end if 
							%> 
							<tr class=<% =strClass %>>
								<td><a href="ListadoSensores.asp?ID_Amb=<% =rsAmbientes("Amb_ID") %>&ID_Reg=<% =rsAmbientes("Reg_ID") %>" title="Ver Puntos del ambiente <% =rsAmbientes("Amb_Nombre") %>"><% =rsAmbientes("Amb_Nombre") %></td>
								<td><% =rsAmbientes("Reg_Nombre") %></td>
								<td><% =rsAmbientes("Sensores") %></td>
								<td><% =rsAmbientes("Controles") %></td>
								<td><% =rsAmbientes("Alarmas") %></td>
							</tr>
							<%

							rsAmbientes.MoveNext
						Loop Until rsAmbientes.EOF
					End If
					%>
				</table>

			</td>
		</tr>

</table>

</BODY>
</HTML>