<%@ Language=VBScript %>
<!--#INCLUDE file="ADOVBS.inc"-->
<% 
DIM str_empresa, str_nombre_empresa
DIM STR_CONSULTA, str_clave, str_nombre, str_capacidad, str_estatus
DIM int_w, int_h
int_w="100%"
int_h="100%"


str_bd= application("bd_sieps")

str_empresa= Request.Cookies("sieps")("empresa")
str_nombre_empresa=Request.Cookies("sieps")("nombre_empresa")

str_valido= Request.Cookies("seiso")("4")
str_valido="SI"

if str_valido <>"SI" then
	Response.Redirect("uti_error.asp?or=inicio.asp&enca=ERROR&mens=" & server.urlencode("El sistema no ha iniciado correctamente"))
end if

SET RES_DATOS = server.CreateObject("ADODB.Recordset")
SET CNN = SERVER.CreateObject("ADODB.CONNECTION")

cnn.Open str_bd

if Request.QueryString("orden") = empty then
	int_orden= Request.Cookies("sieps")("orden")
else
	int_orden= Request.QueryString("orden")
end if
IF int_orden = Empty Then
	int_orden= 1
end if
					


str_filtro = " turn_numero > -999 "
'AND empr_clave ='" & str_empresa & "'"
str_ordena = "ASC"

STR_CONSULTA = "SELECT turn_numero, turn_descripcion, turn_hora_inicio, turn_maximo, turn_estatus FROM turnos_evaluacion WHERE " & STR_FILTRO & " ORDER BY " & INT_ORDEN & " " & STR_ORDENA 
RES_DATOS.Open STR_CONSULTA, cnn,adOpenStatic,adLockReadOnly,1
str_registros = trim(cstr(res_datos.RecordCount)) & " Registros encontrados..."
%>
<html>
<head>
<title>SIEPS WEB</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<!--#INCLUDE FILE="uti_utilerias_cliente.asp"-->

<script LANGUAGE="javascript">
<!--

function iniciar()
{

	var image1
	image1= new Image;
	image1.scr="images/btn_nuevo_1.gif";
	image2= new Image;
	image2.scr="images/btn_salir_1.gif";
}

-->
</script>


<link REL="stylesheet" TYPE="text/css" HREF="stylesheet.css">


<meta name="Microsoft Theme" content="none, default"><meta name="Microsoft Border" content="none, default"></head>

<body class="body" topmargin="6" bottommargin="6" leftmargin="6" rightmargin="6" bgColor="slategray">
<!--#INCLUDE FILE="uti_fondo.asp"-->

<table valign="center" border="0" width="100%" cellspacing="0" cellpadding="2">
	<tr>
		<td width="100%" align="middle" valign="top">
			<table border="0" width="100%" cellspacing="2" cellpadding="0">
				<tr>
					<td width="70%" align="left">
						<table border="0" width="100%" cellspacing="0" cellpadding="1">
							<tr>
								<td width="100%" align="left">
									<font class="etiqueta_roja"><%=str_nombre_empresa%></font>
								</td>
							</tr>
							<tr>
								<td width="100%" align="left">
									<font class="titulo_modulo">Listado de Turnos</font>
								</td>
							</tr>
						</table>
					</td>
					<td width="30%" align="right" valign="center">
						<table border="0" width="100%" bordercolor="dimgray" borderColorDark="white" cellspacing="0" cellpadding="0">
							<tr>
								<td width="100%" align="right" valign="top">
									<img alt="Ayuda en línea" border="0" style="border-color: DarkBlue; margin:0;margin-right:4px; cursor:hand" src="images/img_ayuda.gif" onclick="ver_ayuda()" WIDTH="24" HEIGHT="24">&nbsp;
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
	<tr  bgColor="#EFEFEF">
		<td align="right" >
			<a href="turno_catalogo.asp?proceso=alta&orden=<%=int_orden%>" onmouseover="document.pic_cancelar.src='images/btn_nuevo_1.gif'" onmouseout="document.pic_cancelar.src='images/btn_nuevo_0.gif'"><img name="pic_cancelar" src="images/btn_nuevo_0.gif" alt border="0" tabindex="42" style="vertical-align:middle" WIDTH="74" HEIGHT="26"></a>
			<a href="registro_listado.asp" onmouseover="document.pic_salir.src='images/btn_salir_1.gif'" onmouseout="document.pic_salir.src='images/btn_salir_0.gif'"><img name="pic_salir" src="images/btn_salir_0.gif" alt border="0" tabindex="42" style="vertical-align:middle" WIDTH="74" HEIGHT="26"></a>&nbsp;
		</td>
	</tr>
</table>
<table valign="top" border="0" width="100%" height="100%" cellspacing cellpadding="2">
	<tr height="100%">
		<td align="center" valign="top">
			<table border="0" height="100%" width="99%" valign="top" bordercolor="dimgray" bgColor="white" cellspacing="0" cellpadding="2" background borderColorDark="white">
				<tr>
					<td width="100%" align="middle" valign="top">
						<table border="1" width="100%" bordercolor="white" bgColor cellspacing="0" cellpadding="2">
							<tr bgColor="gainsboro">
								<td width="10%" align="middle"><a class="link" href="turno_listado.asp?orden=1"><b>Número</b></a></td>
								<td width="45%" align="middle"><a class="link" href="turno_listado.asp?orden=2"><b>Descripción</b></a></td>
								<td width="15%" align="middle"><a class="link" href="turno_listado.asp?orden=3"><b>Hora de Inicio</b></a></td>
								<td width="15%" align="middle"><a class="link" href="turno_listado.asp?orden=4"><b>Capacidad</b></a></td>
								<td width="15%" align="middle"><a class="link" href="turno_listado.asp?orden=5"><b>Estatus</b></a></td>
							</tr>

								<%
								i=0
								if res_datos.RecordCount>0 then  res_datos.MoveFirst
								if res_datos.EOF= FALSE THEN
									Do Until RES_DATOS.EOF 
										str_clave= RES_DATOS.Fields("turn_numero")
										str_nombre= RES_DATOS.Fields("turn_descripcion")
										str_hora =RES_DATOS.Fields("turn_hora_inicio")
										str_capacidad =RES_DATOS.Fields("turn_maximo")
										str_estatus= RES_DATOS.Fields("turn_estatus")
								
								if i=0 then 
									Response.Write("<tr bgcolor='white'>")
									i=1
								else
									Response.Write("<tr bgcolor='WhiteSmoke'>")
									i=0
								end if
								%>	
								

											<td width="10%" align="center"><a class="link" href="turno_catalogo.asp?proceso=cambio&clave=<%=str_clave%>&orden=<%=int_orden%>"><%=str_clave%></a></td>
											<td width="45%" align="left"><font class="eti_tim_10"><%=str_nombre%></font></td>
											<td width="15%" align="middle"><font class="eti_tim_10"><%=str_hora%></font></td>
											<td width="15%" align="middle"><font class="eti_tim_10"><%=str_capacidad%></font></td>
											<td width="15%" align="middle"><font class="eti_tim_10"><%=str_estatus%></font></td>
										</tr>
								<%
										res_datos.MoveNext
									loop
								end if
								res_datos.Close
								cnn.Close
								%>

							<table border="0" width="100%" bordercolor="white" bgColor cellspacing="0" cellpadding="2">
								<tr>
									<td><i><font class="eti_tim_10"><%=str_registros%></font></i></td>
								</tr>
							</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
<!--#INCLUDE FILE="uti_calce.asp"-->

<%	int_ancho_ayuda="370"%>

<!--#INCLUDE FILE="uti_ayuda_inicio.asp"-->

<table Align="center" width="96%" border="0" cellspacing="0" cellpadding="4">
	<tr>
		<td width="100%" align="left" valign="top" cellspacing="0" cellpadding="0">
			<font class="titulo-listado">Listado de Turnos de Aplicación:</font>
				<br><br>
				<font class="etiqueta_normal">
				En este módulo se capturan y actualizan los turnos por medio de los cuales se establecen los horarios en los cuales se aplicarán las evaluaciones en la(s) computadora(s) del administrador.
				<br>El empleo de turnos es útil cuando se maneja una agenda y desea administrar el número de aplicaciones en relación a su capacidad para realizarlas.
				<br>Deberá tener al menos un turno capturado.
				<br><br>
				<b>Opciones:</b>
				<br><br>
				<b><i>Nuevo:</i></b><br>
				Para capturar un registro nuevo presione el botón <i>Nuevo</i> que se encuentra en la barra superior de la pantalla.
				<br><br>
				<b><i>Cambios:</i></b><br>
				Seleccione del listado la clave del registro deseado y en la siguiente pantalla realice los cambios.
				<br><br>
				<b><i>Eliminar:</i></b><br>
				Seleccione del listado la clave del registro deseado y en la siguiente pantalla confirme la eliminación.
				<br><br>
				<b><i>Salir:</i></b><br>
				Para regresar a la pantalla anterior presione el botón <i>Salir</i> que se encuentra en la barra superior.
				<br><br>
				
			</font>
		</td>
	</tr>
</table>
<!--#INCLUDE FILE="uti_ayuda_fin.asp"-->

</body>
</html>

