<!--#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

	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
	end if

	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
		%>
		<table border=0 align=center width="100%">
			<tr class=head>
				<td align=right width=20%>Modulo</td>
				<td align=left><% =rsSensor("Mod_Nombre") %></td>
			</tr>
			<tr class=head>
				<td align=right width=20%>Ambiente</td>
				<td align=left><% =rsSensor("Amb_Nombre") %></td>
			</tr>
			<tr class=head>
				<td align=right width=20%>Sensor</td>
				<td align=left><% =rsSensor("TVa_Variable") %><% =" " %><% =rsSensor("Sen_Ubicacion") %><% =" [" %><% =rsSensor("TVa_Unidades") %>]</td>
			</tr>
			<tr class=head>
				<td align=right width=20%>Registro</td>
				<td align=left><% =rsRegistro("Reg_Nombre") %></td>
			</tr>
		</table>
		<br>
		<table border=0 align=center width="100%">
			<tr class="head">
				<td align=center width=25%>Instante</td>
				<td align=center width=25%>Valor</td>
				<td align=center width=25%>Alta</td>
				<td align=center width=25%>Baja</td>
			</tr>
			<%
			index = 0
			do
				%>
				<tr class="data">
					<td align=center><% =rsMuestras("Mue_FechaHora") %></td>
					<td align=center><% =rsMuestras("Mue_Valor") %></td>
					<td align=center><% =rsMuestras("Sen_AlarmaAlta") %></td>
					<td align=center><% =rsMuestras("Sen_AlarmaBaja") %></td>
				</tr>
				<%
				rsMuestras.MoveNext
				index = index + 1
			loop until index = 1960 or rsMuestras.EOF
			%>
		</table>
		<%
	end if
	%>
</BODY>
</HTML>