<%@ Language=VBScript %>
<!--#INCLUDE file="ADOVBS.inc"-->
<% 
Response.Buffer=true
DIM str_empresa, str_nombre_empresa
DIM STR_CONSULTA, str_proceso
DIM int_w, int_h
int_w="100%"
int_h="100%"


dim	str_clave, str_nombre, str_estatus, str_clave_sel, str_nombre_sel,str_division, str_division_nombre
dim str_prueba_sel(30)


str_bd= application("bd_sieps")

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

str_valido= Request.Cookies("sieps")("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


str_clave= Request.QueryString("clave")
str_proceso=Request.QueryString("proceso")
Response.Cookies("sieps")("orden")=Request.QueryString("orden")

str_nombre= ""
str_division=""
str_estatus="Activo"


if str_proceso<>"alta" then

	STR_CONSULTA = "SELECT * FROM puestos WHERE pues_clave='" & str_clave & "' AND empr_clave='" & str_empresa & "'"
	RES_DATOS.Open STR_CONSULTA, cnn,adOpenStatic,adLockReadOnly,1
	if res_datos.EOF=false then
		str_nombre= RES_DATOS.Fields("pues_nombre")
		str_division= RES_DATOS.Fields("divi_clave")
		str_estatus=RES_DATOS.Fields("pues_estatus")
	end if
	res_datos.Close
	if str_division <> empty then
		STR_CONSULTA = "SELECT * FROM division WHERE divi_clave='" & STR_DIVISION & "' AND empr_clave='" & str_empresa & "'"
		RES_DATOS.Open STR_CONSULTA, cnn,adOpenStatic,adLockReadOnly,1
		if res_datos.EOF=false then
			str_division_nombre= RES_DATOS.Fields("divi_nombre")
		end if
		res_datos.Close
	end if'
end if

' pruebas seleccionadas
For F = 1 To 30
    str_prueba_sel(i) = ""
Next
bol_existe=false

if bol_existe=false then
    STR_CONSULTA = "SELECT * FROM puestos_prueba WHERE pues_clave = '" & str_clave & "' AND empr_clave='" & str_empresa & "'"
    RES_DATOS.Open STR_CONSULTA, cnn, adOpenStatic, adLockReadOnly, 1
	F=0
    Do Until RES_DATOS.EOF
		F=F+1
        str_prueba_sel(F) = RES_DATOS.Fields("PRUE_CLAVE")
		res_datos.MoveNext
	loop
	res_datos.Close
end if



%>
<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_aceptar_1.gif";
	image2= new Image;
	image2.scr="images/btn_cancelar_1.gif";
	image3= new Image;
	image3.scr="images/btn_eliminar_1.gif";

	document.form1.TXT_CLAVE.focus();
}


function validar()
{
	var str_valida
	
	str_valida =valida_espacio(document.form1.TXT_CLAVE.value)
	if (str_valida==true){
		alert("Clave no válida...");
		document.form1.TXT_CLAVE.focus();
		return (false);
	}

	str_valida =valida_espacio(document.form1.TXT_NOMBRE.value)
	if (str_valida==true){
		alert("Nombre no válido...");
		document.form1.TXT_NOMBRE.focus();
		return (false);
	}
	
	if (document.form1.SEL_DIVISION.value == "") {
		alert("División no válida...")
		document.form1.SEL_DIVISION.focus();
		return
		}
	

	document.form1.ACCION.value="aceptar";
	document.form1.submit();
}


function eliminar()
{
	if (confirm("¿Desea eliminar el registro?")) {
		document.form1.ACCION.value="eliminar";
		document.form1.submit();
		}
}



-->
</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" onload="iniciar();">
<!--#INCLUDE FILE="uti_fondo.asp"-->
<form method="post" ACTION="puesto_abc.asp?proceso=<%=str_proceso%>" id="form1" name="form1">
<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="80%" align="left">
						<table border="0" width="100%" cellspacing="0" cellpadding="2">
							<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">
									<% if str_proceso="alta" then%>
									Alta de Puesto
									<% else%>
									Actualización de Puesto
									<%end if%>									
									</font>
								</td>
							</tr>
						</table>
					</td>
					<td width="20%" align="right" valign="center">
						<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>
	<tr  bgColor="#EFEFEF">
		<td align="right" >
			&nbsp;
		</td>
	</tr>
</table>
<table border="0" width="100%" height="100%" cellspacing="0" cellpadding="2" background="images/imagen_sieps.jpg" style="BACKGROUND-POSITION: 5px 0px; BACKGROUND-REPEAT: no-repeat">
	<tr>
		<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 align="center" border="0" width="470">
							<tr>
								<td>
									<table width="100%" Align="center" border="0" bgcolor cellspacing="0" cellpadding="0">
										<tr>
											<td align="left" NOWRAP><font class="titulo-listado">&nbsp;Datos:&nbsp; </font></td>
											<td align="left" bgcolor="#ffffff" width="100%"></td>
										</tr>
									</table>
									<hr style="margin:0">
									<table width="100%" Align="center" border="0" bgcolor cellspacing="0" cellpadding="0" bordercolor>
										<tr>
											<td>
											   <table width="100%" align="center" border="1" bgcolor="#EFEFEF" bordercolordark="#FFFFFF" cellspacing="0" bordercolor bordercolorlight="#FFFFFF">
													<tr>
														<td width="25%" align="right"><font class="etiqueta">Clave:</font></td>
														<td width="75%" bgcolor="white"><input class="input" size="10" name="TXT_CLAVE" maxlength="10" value="<%=str_clave%>" tabIndex="1" <%if str_proceso<> "alta" then Response.Write("readonly=true")%> ></td>
													</tr>
													<tr>
														<td width="25%" align="right"><font class="etiqueta">Nombre:</font></td>
														<td width="75%" bgcolor="white"><input class="input" size="59" name="TXT_NOMBRE" maxlength="50" value="<%=str_nombre%>" tabIndex="2"></td>
													</tr>
													<tr>
														<td align="right"><font class="etiqueta">División:</font></td>
														<td bgcolor="white"><select class="input" name="SEL_DIVISION" style="HEIGHT: 22px; WIDTH: 385px" tabIndex="3">
															<%	
																STR_CONSULTA = "SELECT divi_clave, divi_nombre FROM division WHERE empr_clave= '" & str_empresa & "' AND divi_estatus='Activo' ORDER BY divi_nombre"
																RES_DATOS.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly

																Response.Write("<OPTION value='" & str_division & "'><SELECTED>") & str_division_nombre

																Do Until RES_DATOS.EOF 
																	str_clave_sel=RES_DATOS.Fields("divi_clave")
																	str_nombre_sel=RES_DATOS.Fields("divi_nombre")
																	if trim(str_division) <> trim(str_clave_sel) then
																		Response.Write("<OPTION ")
																		Response.Write ("value='" & str_clave_sel & "'>")
																		Response.Write(str_nombre_sel)
																	end if
																	RES_DATOS.MoveNext 
																Loop
																RES_DATOS.Close 
																'cnn.Close

															%>
															</select>
														</td>
													</tr>
													<tr>
														<td width="25%" align="right"><font class="etiqueta">Estatus:</font></td>
														<td width="75%" bgcolor="white">
															<INPUT TYPE=radio name=RDO_ESTATUS value="1" tabIndex="3" <%if str_estatus = "Activo" then Response.write("Checked")%>><font class=input>Activo</font>&nbsp;		
															<INPUT TYPE=radio name=RDO_ESTATUS value="0" tabIndex="4" <%if str_estatus = "Desactivo" then Response.write("Checked")%>><font class=input>Desactivo</font>&nbsp;
														</td>														
													</tr>
												</table>
											</td>
										</tr>
									</table>
									<br>
									<table border="1" height="240" width="100%" bordercolor="dimgray" bgColor cellspacing="0" cellpadding="0" borderColorDark="white">
										<tr height="25">
											<td width="100%" align="middle" valign="middle" bgColor="gainsboro">
												<b><font class="titulo-listado">Selección de Pruebas</font></b>
											</td>
										</tr>
										<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"><b><font class="eti_tim_11">Sel.</font></b></td>
														<td width="75%" align="middle"><b><font class="eti_tim_11">Nombre de Prueba</font></b></td>
														<td width="15%" align="middle"><b><font class="eti_tim_11">Tiempo</font></b></td>
													</tr>

														<%
														
														
														
														STR_CONSULTA = "SELECT prue_clave, prue_nombre, prue_tiempo FROM pruebas ORDER BY prue_orden" 
														RES_DATOS.Open STR_CONSULTA, cnn,adOpenForwardOnly,adLockReadOnly,1

														i=0
														int_contador=0
														if res_datos.EOF= FALSE THEN
															Do Until RES_DATOS.EOF 
																int_contador=int_contador+1
																str_clave= RES_DATOS.Fields("prue_clave")
																str_nombre= RES_DATOS.Fields("prue_nombre")
																str_tiempo= RES_DATOS.Fields("prue_tiempo")
																hora = Mid(STR_TIEMPO, 1, 2)
																minutos = Mid(STR_TIEMPO, 3, 2)
																Segundos = Mid(STR_TIEMPO, 5, 2)
																tiempo_actual = hora & ":" & minutos & ":" & Segundos
														
														if i=0 then 
															Response.Write("<tr bgcolor=''>")
															i=1
														else
															Response.Write("<tr bgcolor='WhiteSmoke'>")
															i=0
														end if
														%>	
														

																	<td align="middle"><input TYPE="checkbox" name="<%=str_clave%>" id="<%=str_clave%>" <% 
																		bol_existe=false
																		for f=1 to 30
																			if str_prueba_sel(f) =str_clave then
																				bol_existe=true
																				exit for
																			end if
																		next
																		if bol_existe=true then
																			Response.Write(" checked=true ")
																		end if
																	%>></td>
																	<td align="left"><font class="eti_tim_11"><%=str_nombre%></font></td>
																	<td align="middle"><font class="eti_tim_11"><%=tiempo_actual%></font></td>
																</tr>
														<%
																res_datos.MoveNext
															loop
														end if
														res_datos.Close
														cnn.Close
														%>
													</tr>
												</table>
											</td>
										</tr>
									</table>
									<br>
									
									<br>
									<table Align="center" width="100%" border="0" bgcolor="#EFEFEF" cellspacing="0" cellpadding="0">
										<tr>
											<td align="center" valign="middle">
												<input TYPE="hidden" name="PROCESO" value="<%=str_proceso%>">
												<input TYPE="hidden" name="ACCION">
												<img onclick="validar()" onmouseover="document.pic_aceptar.src='images/btn_aceptar_1.gif'" onmouseout="document.pic_aceptar.src='images/btn_aceptar_0.gif'" name="pic_aceptar" src="images/btn_aceptar_0.gif" alt border="0" tabindex="5" style="vertical-align:middle" WIDTH="74" HEIGHT="26">
												<a href="puesto_listado.asp" onmouseover="document.pic_cancelar.src='images/btn_cancelar_1.gif'" onmouseout="document.pic_cancelar.src='images/btn_cancelar_0.gif'"><img name="pic_cancelar" src="images/btn_cancelar_0.gif" alt border="0" tabindex="6" style="vertical-align:middle" WIDTH="74" HEIGHT="26"></a>
												<%if str_proceso="cambio" then %>
													<img onclick="eliminar()" onmouseover="document.pic_eliminar.src='images/btn_eliminar_1.gif'" onmouseout="document.pic_eliminar.src='images/btn_eliminar_0.gif'" name="pic_eliminar" src="images/btn_eliminar_0.gif" alt border="0" tabindex="7" style="vertical-align:middle" WIDTH="74" HEIGHT="26">
												<%end if%>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
						<br>
					</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">Actualización de Puestos:</font>
				<br><br>
				<font class="etiqueta_normal">
				Capture los datos.
				<br><br>
				<b>Datos:</b>
				<br><br>
				<b><i>Clave:</i></b><br>
				Capture la clave que identifica al puesto. Puede utilizar hasta 10 dígitos alfanuméricos (letras y/o números). Procure utilizar una clave que al verla identifique fácilmente al puesto.
				<br><br>
				<b><i>Nombre:</i></b><br>
				Capture el nombre del puesto.
				<br><br>
				<b><i>Nivel:</i></b><br>
				Seleccione de la lista el nivel de aplicación (pruebas que aplicará) que corresponde al puesto.
				<br><br>
				<b><i>Estatus:</i></b><br>
				Seleccione el estatus del puesto.
				<br><br>
				<b>Opciones:</b>
				<br><br>
				<b><i>Aceptar:</i></b><br>
				Grabar los datos.
				<br><br>
				<b><i>Cancelar:</i></b><br>
				Regresar a la pantalla anterior sin grabar cambios.
				<br><br>
				<b><i>Eliminar:</i></b><br>
				Eliminar el registro actual.
				<br><br>
				
			</font>
		</td>
	</tr>
</table>
<!--#INCLUDE FILE="uti_ayuda_fin.asp"-->
</form>
</body>
</html>

