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


<HTML>

<HEAD>
	<TITLE>Piscitrol: Mapa Ambiente</TITLE>
	<LINK REL="stylesheet" TYPE="text/css" HREF="Estilos.css">
	<% =sReload %>
</HEAD>

<BODY>

	<%

	ID_Amb = Request.QueryString("ID_Amb")
	if Request.QueryString("ID_Reg") <> "" then
		ID_Reg = Request.QueryString("ID_Reg")
	else
		set rsMaxReg = server.CreateObject("ADODB.Recordset")
		sSQL = "SELECT Max(t_Registros.Reg_FechaFin) AS MaxOfReg_FechaFin " & _
			   "FROM t_Registros " & _
			   "WHERE Reg_Ambiente=" & ID_Amb & ";"
		'Response.Write sSQL
		rsMaxReg.open sSQL, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
		if not rsMaxReg.EOF then
			if isdate(rsMaxReg("MaxOfReg_FechaFin")) then
				set rsRegistro = server.CreateObject("ADODB.Recordset")
				sSQL = "SELECT Reg_ID " & _
					   "FROM t_Registros " & _
					   "WHERE Reg_FechaFin=#" & Fecha2String(rsMaxReg("MaxOfReg_FechaFin")) & "# " & _
							 "AND Reg_Ambiente=" & ID_Amb & ";"
				'Response.Write sSQL
				rsRegistro.open sSQL, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
				if not rsRegistro.EOF then
					ID_Reg = rsRegistro("Reg_ID")
				end if
			end if
		end if
	end if

	set rsAmbiente = server.CreateObject("ADODB.Recordset")

	sqlAmbiente = "SELECT Mod_ID, Mod_Nombre, Amb_Nombre, Amb_Imagen " & _
				  "FROM t_Modulos LEFT JOIN t_Ambientes ON t_Modulos.Mod_ID = t_Ambientes.Amb_Modulo " & _
				  "WHERE Amb_ID= " & ID_Amb & " " & _
				  "GROUP BY t_Modulos.Mod_ID, t_Modulos.Mod_Nombre, t_Ambientes.Amb_Nombre, t_Ambientes.Amb_Imagen;"
	rsAmbiente.open sqlAmbiente, cn, adOpenForwardOnly, adLockReadOnly, adCmdText

	set rsSensores = server.CreateObject("ADODB.Recordset")
	sqlSensores = "SELECT TVa_Variable, Sen_Ubicacion, Sen_ID, Sen_Top, Sen_Left, Sen_Width, Sen_Height, CSe_Imagen, Sen_Valor, Sen_AlarmaHOn, Sen_AlarmaLOn, TVa_Unidades " & _
				  "FROM t_TipoVariables INNER JOIN (t_CatSensores INNER JOIN t_Sensores ON t_CatSensores.CSe_ID = t_Sensores.Sen_Tipo) ON t_TipoVariables.TVa_ID = t_CatSensores.CSe_Variable " & _
				  "WHERE Sen_Ambiente= " & ID_Amb & ";"
	'Response.Write sqlSensores
	rsSensores.open sqlSensores, cn, adOpenDynamic, adLockReadOnly, adCmdText

	set rsControles = server.CreateObject("ADODB.Recordset")
	sqlControles = "SELECT Con_ID, CCo_Actuador, Con_Ubicacion, Con_Estado, Con_Top, Con_Left, Con_Width, Con_Height, CCo_TxtOn, CCo_TxtOff, CCo_ImgOn, CCo_ImgOff " & _
				   "FROM t_TipoControles INNER JOIN (t_CatControles INNER JOIN t_Controles ON t_CatControles.CCo_ID = t_Controles.Con_Tipo) ON t_TipoControles.TCo_ID = t_CatControles.CCo_Tipo " & _
				   "WHERE Con_Ambiente= " & ID_Amb & ";"
	'Response.Write sqlControles
	rsControles.open sqlControles, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
	%>

	<table border=0>
		<tr class=top>
			<td width=120px>LISTA</td>
				<td width=540px>
					<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><% =rsAmbiente("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=<% =rsAmbiente("Mod_ID") %>" title="Ver listado de los Ambientes">Ambientes</a></td>
			<td class=title><% =rsAmbiente("Amb_Nombre") %></TD>
			<td><a href="MapaModulo.asp?ID_Mod=<% =rsAmbiente("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=<% =ID_Amb %>" 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=<% =ID_Amb %>" title="Ver listado de los Registros">Registros</a></td>
			</tr>
			<%
		end if
		%>

		<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=<% =ID_Amb %>&ID_Reg=<% =ID_Reg %>" title="Ver Sensores">Sensores</a></td></tr>
					<tr><td><a href="ListadoControles.asp?ID_Amb=<% =ID_Amb %>" title="Ver Controles">Controles</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;">

				<img src="Mapas\<% Response.Write rsAmbiente("Amb_Imagen") %>" 
				     width="640" 
					 height="400" 
					 usemap="#Map1" 
					 border="0" 
					 vspace="0"
					 hspace="0">
				<%
					
				If Not rsSensores.Eof then
					%>
					<map name="Map1">
					<%
					Do Until rsSensores.EOF
					
						sSensor = rsSensores("TVa_Variable")
						if  rsSensores("Sen_Ubicacion") <> "" then
							sSensor = sSensor & " " &  rsSensores("Sen_Ubicacion")
						end if

						if rsSensores("Sen_Left")<>"" And _
						   IsNumeric(rsSensores("Sen_Left")) And _
						   IsNumeric(rsSensores("Sen_Top")) And _
						   IsNumeric(rsSensores("Sen_Width")) And _
						   IsNumeric(rsSensores("Sen_Height")) Then
							%>
							<area shape="rect"
							      coords="<% Response.Write rsSensores("Sen_Left") & ", " & _
															rsSensores("Sen_Top") & ", " & _
															rsSensores("Sen_Left") + rsSensores("Sen_Width")  & ", " & _
															rsSensores("Sen_Top") + rsSensores("Sen_Height") %>"
							      title="Ver sensor <% =sSensor %>"
							      href="GraficoSensor.asp?ID_Sen=<% =rsSensores("Sen_ID") %>&ID_Reg=<% =ID_Reg %>">
							<%
						end if
						rsSensores.MoveNext								
					Loop 
						%>
					</map>
					<%

					rsSensores.MoveFirst
				
					Do Until rsSensores.EOF 
						numero=numero+1

						sSensor = rsSensores("TVa_Variable")
						if  rsSensores("Sen_Ubicacion") <> "" then
							sSensor = sSensor & " " &  rsSensores("Sen_Ubicacion")
						end if

						if IsNumeric(rsSensores("Sen_Left")) And _
						   IsNumeric(rsSensores("Sen_Top")) And _
						   IsNumeric(rsSensores("Sen_Width")) And _
						   IsNumeric(rsSensores("Sen_Height")) Then
							if Not IsNull(rsSensores("Sen_Valor")) then
								Valor = FormatNumber(rsSensores("Sen_Valor"),1)
							else
								Valor = ""
							end if 
							%>
							<span  class="Mapa" id="<%=numero%>" style="position:absolute; text-align: center; 
													left:<%=rsSensores("Sen_Left")%>px;
													top:<%=rsSensores("Sen_Top")%>px; 
													width:<%=rsSensores("Sen_Width")%>px;
													height:<%=rsSensores("Sen_Height")%>px;
													z-index:<%=numero%>; ">
								<a class="Mapa" style="text-decoration: none; 
									<% 
									if rsSensores("Sen_AlarmaHOn") or rsSensores("Sen_AlarmaLOn") Then
										Response.Write "color: red;"
									end if 
									%>" 
								   href="GraficoSensor.asp?ID_Sen=<% =rsSensores("Sen_ID") %>&ID_Reg=<% =ID_Reg %>" 
								   title="ir a grafico sensores"><% =sSensor %><br><% =Valor %>&nbsp<% =rsSensores("TVa_Unidades") %></a>
							</span>
							<%
						end if
						rsSensores.MoveNext								
					Loop 
				End If

				If Not rsControles.EOF then
					Do Until rsControles.EOF 
						numero=numero+1
						if IsNumeric(rsControles("Con_Left")) And _
						   IsNumeric(rsControles("Con_Top")) And _
						   IsNumeric(rsControles("Con_Width")) And _
						   IsNumeric(rsControles("Con_Height")) Then
							control = rsControles("CCo_Actuador")
							if rsControles("Con_Ubicacion") <> "" then
								control = control & " " & rsControles("Con_Ubicacion")
							end if
							if rsControles("Con_Estado") then
								imagen = rsControles("CCo_ImgOn")
								estado = rsControles("CCo_TxtOn")
							else
								imagen = rsControles("CCo_ImgOff")
								estado = rsControles("CCo_TxtOff")
							end if
							if imagen <> "" then
								%>
								<span id="<%=numero%>" style="position:absolute;
															left:<%=rsControles("Con_Left")%>px;
															top:<%=rsControles("Con_Top")%>px; 
															width:<%=rsControles("Con_Width")%>px;
															height:<%=rsControles("Con_Height")%>px;
															z-index:<%=numero%>; 
															visibility: visible">
									<img src="Image/<% =imagen %>">
								</span>
								<%
							end if
							%>
							<span class="Mapa" id="<%=numero%>" style="position:absolute; text-align: center;
																	   left:<%=rsControles("Con_Left")%>px;
																	   top:<%=rsControles("Con_Top")%>px; 
																	   width:<%=rsControles("Con_Width")%>px;
																	   height:<%=rsControles("Con_Height")%>px;
																	   z-index:<%=numero%>; ">
								<% =control %><br><% =estado %>
							</span>
							<%
						end if
						rsControles.MoveNext								
					Loop 
				End If
				%>
			</td>
		</tr>

	</table>

</BODY>
</HTML>
