<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@ Language=VBScript %>
<!--#INCLUDE file="ADOVBS.inc"-->
<% 
Response.Buffer=true
DIM str_empresa, str_nombre_empresa, user_type
DIM STR_CONSULTA
DIM str_estatus, str_estilo, int_w, int_h
int_w="100%"
int_h="100%"

Response.Cookies("sieps")("orden")=""

dim col_cliente, col_division, col_depto, col_puesto, col_categoria
col_cliente=0
col_division=1
col_depto=1
col_puesto=1
col_categoria=1

str_bd= application("bd_sieps")

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

session("empresa") = str_empresa
session("nombre_empresa") = str_nombre
session("usuario_clave") = str_usuario

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

int_g_aplicacion=0
int_g_actualizacion=0
int_G_Divisiones=0
int_G_Departamentos=0
int_G_categorias=0
int_G_Puestos=0
int_G_Turnos=0
int_G_Usuarios=0
int_G_Bajar=0
int_cambiar_password=0

dim usr
usr=" 1ro: "
'usuarios
STR_CONSULTA = "SELECT * FROM usuario WHERE usua_clave='" & str_usuario & "' AND empr_clave='" & str_empresa & "'"
RES_DATOS.Open STR_CONSULTA, cnn,adOpenStatic,adLockReadOnly,1
if res_datos.EOF=false then
	int_G_Aplicacion= res_datos.Fields("usua_g_aplicacion")
	int_G_Actualizacion= res_datos.Fields("usua_g_actualizacion")
	int_G_Divisiones= res_datos.Fields("usua_g_divisiones")
	int_G_Departamentos= res_datos.Fields("usua_g_departamentos")
	int_G_categorias= res_datos.Fields("usua_g_categorias")
	int_G_puestos= res_datos.Fields("usua_g_puestos")
	int_G_turnos= res_datos.Fields("usua_g_turnos")
	int_G_usuarios= res_datos.Fields("usua_g_usuarios")
	int_G_cambiar_password= res_datos.Fields("usua_g_password")
	int_G_bajar= res_datos.Fields("usua_g_bajar")
	usr=usr & int_G_Divisiones
	' Para saber el tipo de usuario y asi habilitar o desabilitar funciones
	user_type = res_datos.Fields("Tipo_Usuario")
end if
res_datos.Close

int_G_Bajar=1

str_filtro = " soli_folio <> 0"
int_orden ="1"
str_ordena = "ASC"

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

if Request.QueryString("fecha") = empty then
	str_fecha_sel= Request.Cookies("sieps")("fecha_sel")
else
	str_fecha_sel= Request.QueryString("fecha")
end if

if Request.QueryString("estilo") = empty then
	str_estilo= Request.Cookies("sieps")("estilo_str")
else
	str_estilo= Request.QueryString("estilo")
end if
if str_estilo=empty then str_estilo=99

if Request.QueryString("estatus") = empty then
	str_estatus= Request.Cookies("sieps")("estatus")
else
	str_estatus= Request.QueryString("estatus")
end if
if str_estatus = empty then
	str_estatus="Todos"
end if

str_filtro = " empr_clave ='" & str_empresa & "'"

if str_estatus<> "Todos" then
	str_filtro = str_filtro & " AND soli_estatus='" & str_estatus & "'"
end if

dim nom_mes(12)
nom_mes(1) = "Enero"
nom_mes(2) = "Febrero"
nom_mes(3) = "Marzo"
nom_mes(4) = "Abril"
nom_mes(5) = "Mayo"
nom_mes(6) = "Junio"
nom_mes(7) = "Julio"
nom_mes(8) = "Agosto"
nom_mes(9) = "Septiembre"
nom_mes(10) = "Octubre"
nom_mes(11) = "Noviembre"
nom_mes(12) = "Diciembre"


if str_fecha_sel = empty then

	str_fecha_sel=date()
	int_dia = day(date())
	int_mes = month(date())
	int_year = year(date())
else
	int_dia = day(str_fecha_sel)
	int_mes = month(str_fecha_sel)
	int_year = year(str_fecha_sel)
	str_fecha = int_mes & "/" & int_dia & "/" & int_year

end if

	

str_filtro_fecha=empty
	
select case str_estilo
	case 1 
		select case weekday(str_fecha_sel,1)
			case 1
				nom_dia ="Domingo"
			case 2
				nom_dia ="Lunes"
			case 3
				nom_dia ="Martes"
			case 4
				nom_dia ="Miércoles"
			case 5
				nom_dia ="Jueves"
			case 6
				nom_dia ="Viernes"
			case 7
				nom_dia ="Sábado"
		end select
		
		str_sel_2 =  int_dia & " de " & nom_mes(int_mes) & " del " & int_year
		str_fecha = int_mes & "/" & int_dia & "/" & int_year
		str_filtro_fecha = " soli_fecha_aplicacion = #" & str_fecha & "#"
	case 7
		int_dia_s=weekday(str_fecha_sel,1)
			
		str_fecha_ini_e = cdate(str_fecha_sel) - (int_dia_s-1)
		int_dia_i = day(str_fecha_ini_e)
		int_mes_i = month(str_fecha_ini_e)
		int_year_i = year(str_fecha_ini_e)
		str_fecha_ini = int_mes_i & "/" & int_dia_i & "/" & int_year_i
			
		str_fecha_fin_e = cdate(str_fecha_sel) 
		str_fecha_fin_e = cdate(str_fecha_fin_e) + int(7 - int_dia_s)
			
		int_dia_f = day(str_fecha_fin_e)
		int_mes_f = month(str_fecha_fin_e)
		int_year_f = year(str_fecha_fin_e)
		str_fecha_fin = int_mes_f & "/" & int_dia_f & "/" & int_year_f
		str_filtro_fecha = " soli_fecha_aplicacion >= #" & str_fecha_ini & "# AND soli_fecha_aplicacion <= #" & str_fecha_fin & "#"

		str_sel_2 =  int_dia_i & " al " & int_dia_f & " de " & nom_mes(int_mes) & " del " & int_year
	case 31
		str_filtro_fecha = " month(soli_fecha_aplicacion) = " & int_mes & " AND year(soli_fecha_aplicacion) = " & int_year
		str_sel_2 =  nom_mes(int_mes) & " del " & int_year
	case 99
		str_sel_2 =  "Todos los Candidatos en Base de Datos"
end select
	
if str_filtro_fecha <> empty then
	str_filtro= str_filtro & " AND " & str_filtro_fecha
end if

STR_CONSULTA = "SELECT soli_folio, soli_nombre, empr_clave, divi_clave, depa_clave, pues_clave, cate_clave, "
STR_CONSULTA = STR_CONSULTA & "soli_fecha_aplicacion, soli_hora, soli_estatus, notificado "
STR_CONSULTA = STR_CONSULTA & "FROM solicitud 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 xmlns="http://www.w3.org/1999/xhtml" xml:lang="mx" lang="es">

<head>
	<title>Sieps-Panel de Control</title>
	<!--#INCLUDE FILE="uti_utilerias_cliente.asp"-->
	<script type="text/javascript" src="js/lib/prototype-1.6.0.2.js"></script>
	<script type="text/javascript" src="js/funciones/functionsAll.js"></script>
	<script type="text/javascript" src="js/funciones/functionsAjax.js"></script>
	<link REL="stylesheet" TYPE="text/css" HREF="stylesheet.css">
	<link rel="stylesheet" type="text/css" href="menu_style.css">
	<script LANGUAGE="javascript">
	<!--
		function filtro()
		{
			str_estatus = document.getElementById("SEL_ESTATUS").value;
			str_estilo = document.getElementById("estilo_str").value;
			str_fecha_sel= document.getElementById("fecha_sel").value;
			window.navigate("registro_listado.asp?estatus="+str_estatus+"&estilo="+str_estilo+"&fecha="+str_fecha_sel);
		}

		function aplicacion(folio)
		{
			destino ="aplicacion.asp"
			document.form1.FOLIO.value = folio
			document.form1.action=destino
			document.form1.submit();
		//	window.navigate(destino)
		}

		function define_estilo(estilo)
		{
			document.getElementById("estilo_str").value= estilo;
			filtro()
		}

		function iniciar()
		{
			thisMonth();
		}

		function actualizar(proceso,folio)
		{
			document.form1.PROCESO.value = proceso
			document.form1.FOLIO.value = folio
			document.form1.submit();
		}

		function seleccion_item(folio)
		{			
			document.getElementById("r"+folio).className="seleccion_over"			
		}

		function desseleccion_item(folio)
		{
			document.getElementById("r"+folio).className="seleccion"			
		}
	//-->
	</script>	
</head>

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

<table id="tableHeader" style="BACKGROUND-POSITION: 10px 10px; BACKGROUND-REPEAT: no-repeat; border:0px; width:100%; padding:1px; background-image: url(images/imagen_sieps.jpg);" >
	<tr>
		<td valign="bottom">
			<table id="tableTitle_Y_Calendar" style="border:1px; width:100%; padding: 2px;">
				<tr>
					<td style="width:85%; text-align:center;" valign="bottom">
						<table id="tableTitleEmpresa" style="border:0px; width:100%; padding:0px;">
							<tr>
								<td width="100%" align="middle">
									<font class="etiqueta_roja"><%=str_nombre_empresa%></font>
								</td>
								<td width="1%" align="center" valign="middle">
									<img alt="Ayuda en línea" border="0" style="border-color: DarkBlue; margin:0; cursor:pointer;" src="images/img_ayuda.gif" onClick="openHelp()" WIDTH="24" HEIGHT="24">
								</td>
							</tr>
							<tr>
								<td width="100%" align="middle">
									<font class="titulo_modulo">Modulo de Administrador</font>
								</td>
							</tr>
						</table>
						<table height="100" valign="bottom" border="0" width="100%" bordercolor="dimgray" borderColorDark="white" bgColor cellspacing="0" cellpadding="0">
							<tr>
								<td width="30%" nowrap>&nbsp;</td>
								<td width="70%" nowrap align="middle" valign="middle">									
									<table border="0" width="100%" bordercolor="dimgray" borderColorDark="white" cellspacing="0" cellpadding="0">
										<tr>
											<td width="22%" align="middle" valign="middle"><div align="right"><font class="eti_ari_10">Selección:</font>
										    </div></td>
											<td width="42%" align="middle" valign="middle"><div align="center"><b><font class="eti_azul_11"><%=str_sel_2%></font></b></div></td>
											<td width="36%" align="middle" valign="middle"><div align="right"><font class="eti_ari_10">Estatus:
											  
											  <select class="eti_ari_10_b" id="SEL_ESTATUS" name="SEL_ESTATUS" tabindex="1" onChange="filtro()">
											    <option value="Todos" <%if str_estatus="Todos" Then Response.Write("selected")%>>Todos
										        <option value="Solicitud" <%if str_estatus="Solicitud" Then Response.Write("selected")%>>Solicitud
										        <option value="Aplicado" <%if str_estatus="Aplicado" Then Response.Write("selected")%>>Aplicado
									            <option value="Evaluado" <%if str_estatus="Evaluado" Then Response.Write("selected")%>>Evaluado
									            <option value="Cancelado" <%if str_estatus="Cancelado" Then Response.Write("selected")%>>Cancelado
							                </select>
										    </font></div></td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
					</td>
				    <td width="15%" align="center" valign="middle">
						<!--#INCLUDE FILE="uti_calendario.asp"-->
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>

<div id="containerMenuTemp">
		<div class="menu-wrapper">
			<ul>
            	<li><a href="http://manemployee.com/captura_fotografia/login_administrador.php"><img alt="fotografías almacenadas" src="images/cam.gif" width="30" height="30" /></a></li>
                </li>
				<li >
					<a onClick="actualizar('alta','0')" >
						<img alt="generar un registro nuevo" src="images/img_reg_nuevo.gif"
							 WIDTH="30" HEIGHT="29">
					</a>
				</li>
				<li >
					<a href="#">
						<img alt="Menú de opciones" border="0"  src="images/img_menu.gif"  
				  			 WIDTH="30" HEIGHT="29" >
					</a>
					<div class="sub">
						<ul>
						<%if user_type=1 then %>
							<li>
								<a href="inbox.asp?inbox=empresa">Empresas</a>
							</li>
						<% end if %>
							<li>
								<a href="division_listado.asp">Divisiones</a>
							</li>												
							<li>
								<a href="departamento_listado.asp">Departamentos</a>
							</li>
							<li>
								<a href="puesto_listado.asp">Puestos</a>
							</li>
							<li>
								<a href="categoria_listado.asp">Categorias</a>
							</li>
							<li>
								<a href="turno_listado.asp">Turnos de aplicaci&oacute;n</a>
							</li>
							<li>
								<a href="usuario_listado.asp">Usuarios</a>
							</li>
							<li>
								<a href="cambiar_password.asp">Cambiar password</a>
							</li>
						</ul>
						<div class="btm-bg"></div>
			   		</div>
				</li>
				<li >
					<a href="index.asp">
						<img alt="Iniciar sessión con otro usuario" src="images/img_usuario.gif" 
							 WIDTH="25" HEIGHT="25">
					</a>
				</li>
				<li >
					<a href="#">
						<img alt="ver registros del día" src="images/img_reg_dia.gif" 
							 onClick="define_estilo(1)" WIDTH="30" HEIGHT="29">
					</a>
				</li>
				<li >
					<a href="#">
						<img alt="ver registros de la semana" src="images/img_reg_semana.gif" 
							 onClick="define_estilo(7)" WIDTH="30" HEIGHT="29">
					</a>
				</li>
				<li >
					<a href="#">
						<img alt="ver registros del mes" src="images/img_reg_mes.gif" 
							 onClick="define_estilo(31)" WIDTH="30" HEIGHT="29">
					</a>
				</li>
				<li >
					<a href="#">
						<img alt="ver todos los registros" src="images/img_reg_todos.gif" 
							 onClick="define_estilo(99)" WIDTH="30" HEIGHT="29">
					</a>
				</li>
			</ul>			
		</div>				
</div>
		
		
<div style="clear:both;">&nbsp;</div>

<table border="0" width="98%" height="100%" cellspacing="0" cellpadding="1" align="center">
	<tr height="100%">
		<td width="100%" align="center" valign="top">
			<table border="1" width="100%" bordercolor="white" bgColor cellspacing="0" cellpadding="1">
				<tr bgColor="gainsboro">
					<%if int_g_aplicacion=1 then %>
						<td width="10" align="middle"></td>
					<% end if %>
						<td width="30%" align="middle"><a class="link" href="registro_listado.asp?orden=2"><b>Nombre</b></a></td>
					<%if col_cliente=1 then %>
						<td width="10%" align="middle"><a class="link" href="registro_listado.asp?orden=3"><b>Empresa</b></a></td>
					<% end if %>
					<%if col_division=1 then %>
						<td width="10%" align="middle"><a class="link" href="registro_listado.asp?orden=4"><b>División</b></a></td>
					<% end if %>
					<%if col_depto=1 then %>
						<td width="10%" align="middle"><a class="link" href="registro_listado.asp?orden=5"><b>Depto.</b></a></td>
					<% end if %>
					<%if col_puesto=1 then %>
						<td width="10%" align="middle"><a class="link" href="registro_listado.asp?orden=6"><b>Puesto</b></a></td>
					<% end if %>
					<%if col_categoria=1 then %>
						<td width="10%" align="middle"><a class="link" href="registro_listado.asp?orden=7"><b>Categoría</b></a></td>
					<% end if %>
					<td width="10%%" align="middle"><a class="link" href="registro_listado.asp?orden=8"><b>Fecha</b></a></td>
					<td width="7%%" align="middle"><a class="link" href="registro_listado.asp?orden=9"><b>Hora</b></a></td>
					<td width="10%" align="middle">
						<a class="link" href="registro_listado.asp?orden=10"><b>Estatus</b></a>
					</td>	
					<td width="10%" align="middle">
						<a class="link" href="#"><b>Notificado</b></a>
					</td>
					<%if int_g_bajar=1 then %>
						<td width="10" align="middle" nowrap></td>
					<% end if %>
				</tr>

					<%
					i=0
					if res_datos.RecordCount>0 then  res_datos.MoveFirst
					if res_datos.EOF= FALSE THEN
						Do Until RES_DATOS.EOF 
							lon_folio= RES_DATOS.Fields("soli_folio")
							str_nombre= RES_DATOS.Fields("soli_nombre")
							str_cliente= RES_DATOS.Fields("empr_clave")
							str_division= RES_DATOS.Fields("divi_clave")
							str_departamento= RES_DATOS.Fields("depa_clave")
							str_puesto= RES_DATOS.Fields("pues_clave")
							str_categoria= RES_DATOS.Fields("cate_clave")
							str_fecha= RES_DATOS.Fields("soli_fecha_aplicacion")
							str_hora= RES_DATOS.Fields("soli_hora")
							str_estatus_r= RES_DATOS.Fields("soli_estatus")
							notificado = RES_DATOS.Fields("notificado")
					if i=0 then 
						Response.Write("<tr bgcolor='white'>")
						i=1
					else
						Response.Write("<tr bgcolor='WhiteSmoke'>")
						i=0
					end if
					%>										
				<%if int_g_aplicacion=1 then %>
				<td>
					<img alt="Aplicar Evaluación" style="margin:0; cursor:pointer; " src="images/btn_aplicacion.gif" width="18" height="16" 
						 onClick="aplicacion(<%=lon_folio%>)" />
				</td>
				<%end if%>
				<td width="30%" align="left">
					<span class="seleccion" id="r<%=lon_folio%>" style="cursor: pointer; color:blue;" onmouseover="seleccion_item(<%=lon_folio%>)" onmouseout="desseleccion_item(<%=lon_folio%>)" onclick="actualizar('cambio',<%=lon_folio%>)">
						<%=str_nombre%>
					</span>				
				</td>
				<%if col_cliente=1 then %>
				<td width="10%" align="middle">
					<span class="eti_tim_10"><%=str_cliente%></span>
				</td>
				<%end if%>
				<%if col_division=1 then %>
				<td width="10%" align="middle">
					<span class="eti_tim_10">
						<%=str_division%>
					</span>
				</td>
				<%end if%>
				<%if col_depto=1 then %>
				<td width="10%" align="middle">
					<span class="eti_tim_10">
						<%=str_departamento%>
					</span>
				</td>
				<%end if%>
				<%if col_puesto=1 then %>
				<td width="10%" align="middle">
					<span class="eti_tim_10">
						<%=str_puesto%>
					</span>
				</td>
				<%end if%>
				<%if col_categoria=1 then %>
				<td width="10%" align="middle">
					<span class="eti_tim_10">
						<%=str_categoria%>
					</span>
				</td>
				<%end if%>
				<td width="10%" align="middle"><span class="eti_tim_10"><%=str_fecha%></span></td>
				<td width="7%" align="middle"><span class="eti_tim_10"><%=str_hora%></span></td>
				<td width="10%" align="middle">
					<span class="eti_tim_10">
						<%=str_estatus_r%>
					</span>
				</td>
				<td width="10%" align="middle">
						<%							
							notificadoLabel = "Sin notificar"
							className = "notNotification"
							if notificado then
								notificadoLabel = "Notificado"
								className = "yesNotification"
							end if							
						%>
					<span class="<%=className%>">
						<%=notificadoLabel%>
					</span>
				</td>
				<%if int_g_bajar=1 then %>
				<td width="10" align="middle">
					<img alt="Bajar Registro" style="width:16px; height:16px; margin:0; cursor:pointer;" src="images/btn_bajar.gif" onClick="downCSVFile(<%=lon_folio%>)" />
				</td>
				<%end if%>
			</tr>
					<%
					res_datos.MoveNext
				loop
			end if
			res_datos.Close
			cnn.Close
			%>
			</table>
			<table border="1" width="100%" bordercolor="white" bgColor cellspacing="1" cellpadding="2">
				<tr bgColor="gainsboro">
					<td><i><span class="eti_tim_10"><%=str_registros%></span></i></td>
				</tr>
			</table>
			
			<form method="post" ACTION="registro_actualizacion.asp" id="form1" name="form1">
				<input TYPE="hidden" name="PROCESO">							
				<input TYPE="hidden" name="FOLIO" id="folio">							
				<input TYPE="hidden" id="estilo_str" name="estilo_str" value="<%=str_estilo%>">							
				<input TYPE="hidden" id="estatus" name="estatus" value="<%=str_estatus%>">							
				<input TYPE="hidden" id="fecha_sel" name="fecha_sel" value="<%=str_fecha_sel%>">							
				<input TYPE="hidden" name="orden" value="<%=int_orden%>">							
				<input TYPE="hidden" name="g_aplicacion" value="<%=int_g_aplicacion%>">							
				<input TYPE="hidden" name="g_actualizacion" value="<%=int_g_actualizacion%>">							
				<input TYPE="hidden" name="g_divisiones" value="<%=int_g_divisiones%>">							
				<input TYPE="hidden" name="g_departamentos" value="<%=int_g_departamentos%>">							
				<input TYPE="hidden" name="g_categorias" value="<%=int_g_categorias%>">							
				<input TYPE="hidden" name="g_puestos" value="<%=int_g_puestos%>">							
				<input TYPE="hidden" name="g_turnos" value="<%=int_g_turnos%>">							
				<input TYPE="hidden" name="g_usuarios" value="<%=int_g_usuarios%>">							
				<input TYPE="hidden" name="g_cambiar_password" value="<%=int_g_usuarios%>">							
				<input TYPE="hidden" name="g_bajar" value="<%=int_g_bajar%>">							

			</form>
		</td>
	</tr>
</table>
<!--#INCLUDE FILE="uti_calce.asp"-->
<%	int_ancho_ayuda="370"%>

	<div id="help" style="display:none;" >
		<!--#INCLUDE FILE="uti_ayuda.asp"-->
	</div>

</body>
</html>

