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

<HTML>
<HEAD>
	<title>Piscitrol: Muestras</title>
	<LINK REL="stylesheet" TYPE="text/css" HREF="Estilos.css">
</HEAD>

<BODY>

	<%
	ID_Sen = Request.QueryString("ID_Sen")
	ID_Reg = Request.QueryString("ID_Reg")
	FechaFin = Request.QueryString("FechaFin")
	
	set rsSensor = server.CreateObject("ADODB.Recordset")
	sqlSensor = "SELECT t_Modulos.Mod_Nombre, t_Modulos.Mod_ID, t_Ambientes.Amb_Nombre, t_Ambientes.Amb_ID, t_Sensores.Sen_Ubicacion, t_Sensores.Sen_AlarmaHOn, t_Sensores.Sen_AlarmaLOn, t_TipoVariables.TVa_Variable, t_TipoVariables.TVa_Unidades, q_AmbienteRegistro.Reg_ID " & _
				"FROM (t_Modulos INNER JOIN ((t_TipoVariables INNER JOIN t_CatSensores ON t_TipoVariables.TVa_ID = t_CatSensores.CSe_Variable) INNER JOIN (t_Ambientes INNER JOIN t_Sensores ON t_Ambientes.Amb_ID = t_Sensores.Sen_Ambiente) ON t_CatSensores.CSe_ID = t_Sensores.Sen_Tipo) ON t_Modulos.Mod_ID = t_Ambientes.Amb_Modulo) LEFT JOIN q_AmbienteRegistro ON t_Ambientes.Amb_ID = q_AmbienteRegistro.Amb_ID " & _
				"WHERE Sen_ID=" & ID_Sen & ";"
	'Response.Write sqlSensor
	rsSensor.open sqlSensor, 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><% =rsSensor("Mod_Nombre") %></TD>
			<td><a href="MapaGeneral.asp" title="Ver mapa de los Modulos">Modulos</a></td>
		</tr>

		<tr class=top>
			<td><a href="ListadoAmbientes.asp?ID_Mod=<% =rsSensor("Mod_ID") %>" title="Ver listado de los Ambientes">Ambientes</a></td>
			<td><% =rsSensor("Amb_Nombre") %></TD>
			<td><a href="MapaModulo.asp?ID_Mod=<% =rsSensor("Mod_ID") %>" title="Ver listado de los Ambientes">Ambientes</a></td>
		</tr>

		<%
		if ID_Reg <> "" then
			set rsRegistro = server.CreateObject("ADODB.Recordset")
			sql = "SELECT Reg_Nombre, Reg_Ambiente, Reg_FechaIni, Reg_FechaFin " & _
				  "FROM t_Registros " & _
				  "WHERE Reg_ID=" & ID_Reg & ";"
			'Response.Write sql
			rsRegistro.open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
			%>
			<tr class=top>
				<td><a href="RegistrosAmbiente.asp?ID_Amb=<% =rsSensor("Amb_ID") %>" title="Ver listado de los Registros">Registros</a></td>
				<td><a href="Registro.asp?ID_Reg=<% =ID_Reg %>" title="Ver detalle del Registro"><% =rsRegistro("Reg_Nombre") %></a></TD>
				<td><a href="RegistrosAmbiente.asp?ID_Amb=<% =rsSensor("Amb_ID") %>" title="Ver listado de los Registros">Registros</a></td>
			</tr>
			<%
		end if
		%>

		<tr class=top>
			<td><a href="ListadoSensores.asp?ID_Amb=<% =rsSensor("Amb_ID") %>" title="Ver listado de los Sensores">Sensores</a></td>
			<td class=title><% =rsSensor("TVa_Variable") %><% =" " %><% =rsSensor("Sen_Ubicacion") %><% =" [" %><% =rsSensor("TVa_Unidades") %>]</TD>
			<td><a href="MapaAmbiente.asp?ID_Amb=<% =rsSensor("Amb_ID") %>" title="Ver mapa del Ambiente">Sensores</a></td>
		</tr>

		<tr>
			<td class="opcion" valign="top"><!-- OPCIONES -->
				<table width="100%">
					<tr class="menu"><td align=center>Opciones</td></tr>
					<tr><td><a href="ListadoSensores.asp?ID_Amb=<% =rsSensor("Amb_ID") %>&ID_Reg=<% =ID_Reg %>" title="Ver Sensores">Sensores</a></td></tr>
					<tr><td><a href="ListadoControles.asp?ID_Amb=<% =rsSensor("Amb_ID") %>" title="Ver Controles">Controles</a></td></tr>
					<tr><td><a href="TablaSensor.asp?ID_Prg=<% =ID_Prg%>&ID_Sen=<% =ID_Sen%>" title="Listado de datos mostrados en gráfico">Tabla</a></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 border=0 align=center>

					<tr><td>
						<%
						if ID_Reg = "" then
							%>
							No hay Registro definido
							<%
						else
							if isdate(rsRegistro("Reg_FechaFin")) then
								FechaFin = rsRegistro("Reg_FechaFin")
							else
								FechaFin = Now()
							end if
							set rsMuestras = server.CreateObject("ADODB.Recordset")
							sql = "SELECT Mue_FechaHora, Mue_Valor, Sen_AlarmaAlta, Sen_AlarmaBaja " & _
								  "FROM t_Muestras INNER JOIN t_Sensores ON t_Muestras.Mue_Sensor = t_Sensores.Sen_ID " & _
								  "WHERE Sen_ID=" & ID_Sen & " AND " & _
										"Mue_FechaHora>=#" & Fecha2String(rsRegistro("Reg_FechaIni")) & "# And " & _
										"Mue_FechaHora<=#" & Fecha2String(FechaFin) & "# " & _
								  "ORDER BY Mue_FechaHora;"
							'Response.Write sql
							rsMuestras.open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText

							if rsMuestras.EOF then
								%>
								No hay Muestras en el Registro
								<%
							else
								sSensor = rsSensor("TVa_Variable")
								if  rsSensor("Sen_Ubicacion") <> "" then
									sSensor = sSensor & " " &  rsSensor("Sen_Ubicacion")
								end if
								%>
								<OBJECT CLASSID="clsid:5220CB21-C88D-11cf-B347-00AA00A28331">
									<PARAM NAME="LPKPath" VALUE="Solsis.lpk">
								</OBJECT>
								<OBJECT CLASSID="clsid:BC529890-A302-11D6-A401-444553540000"
										CODEBASE="ChartXY.cab#Version=1,0,0,31"
										ALIGN="CENTER" WIDTH=620 HEIGHT=400 ID="C1">
									<PARAM NAME="Caption" VALUE="">
									<PARAM NAME="BackColor" VALUE="16777200">
									<PARAM NAME="ForeColor" VALUE="4194304">
									<PARAM NAME="Font" VALUE="Comic Sans MS">
								</OBJECT>

								<SCRIPT Language="VBS" >
									<!--
									
									C1.Color(0) = 8388408
									C1.Titulo(0) = "Baja"
									C1.Color(1) = 3418105
									C1.Titulo(1) = "Alta"
									C1.Color(2) = 8388608
									C1.Titulo(2) = "<% =sSensor %>"
									<%
									index = 0
									do
										%>
										<%
										if (rsMuestras("Sen_AlarmaBaja") <> "") then
										%>
											C1.Valor(0, <% =index %>) = "<% =rsMuestras("Sen_AlarmaBaja") %>"
											C1.Instante(0, <% =index %>) = "<% =rsMuestras("Mue_FechaHora") %>"
										<%
										end if
										%>
										<%
										if (rsMuestras("Sen_AlarmaAlta") <> "") then
										%>
											C1.Valor(1, <% =index %>) = "<% =rsMuestras("Sen_AlarmaAlta") %>"
											C1.Instante(1, <% =index %>) = "<% =rsMuestras("Mue_FechaHora")  %>"
										<%
										end if
										%>
										C1.Valor(2, <% =index %>) = "<% =rsMuestras("Mue_Valor") %>"
										C1.Instante(2, <% =index %>) = "<% =rsMuestras("Mue_FechaHora")  %>"
										<%
										index = index + 1
										rsMuestras.MoveNext
									loop until index >= 1439 or rsMuestras.EOF
									%>
									C1.Refresh
									-->
								</SCRIPT>
								<%
							end if
						end if
						%>
					</td></tr>
				</table>
			</td>

		</tr>
</BODY>
</HTML>