<%@ Language=VBScript%>
<!--#INCLUDE file="ADOVBS.inc"-->

<% 
dim str_sistema, str_valido,str_empresa, str_titulo, str_forma, lon_activiad, str_actividad
Dim str_provider, str_bd, str_pantalla
str_pantalla="P-075"

str_titulo = "Aspectos Ambientales"

str_bd= application("bd")

str_sistema=Request.Cookies("seiso")("sistema")
str_empresa=Request.Cookies("seiso")("empresa")
str_valido= Request.Cookies("seiso")("4")

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

dim STR_CONSULTA, RES_DATOS, RES_CONSECUTIVO
dim Cnn
dim lon_consecutivo 
dim str_origen, str_proceso
dim int_clave, str_descripcion,int_valor(15),	int_calificacion,str_significativo,str_observaciones,str_fecha_actualizacion, str_significativo_confi, str_calificacion_confi, int_calificacion_significativa, str_captura_criterios

set Cnn = server.CreateObject ("ADODB.Connection")
set RES_DATOS = server.CreateObject ("ADODB.Recordset")

Cnn.Open str_bd

str_proceso = Request.QueryString("proceso")
int_clave =Request.QueryString("cid")

str_forma =Request.QueryString("forma")
int_actividad = Request.QueryString("num_actividad")
str_producto = Request.QueryString("producto")
str_nombre_producto = Request.QueryString("nom_producto")
int_num_proceso = Request.QueryString("num_proceso")
int_sigue = Request.QueryString("num_sigue")
int_num_sigue = Request.QueryString("int_num_sigue")


Response.Cookies("seiso")("filtro")=Request.QueryString("str_filtro")
Response.Cookies("seiso")("orden")=Request.QueryString("int_orden")


STR_CONSULTA = "SELECT * FROM sei_aspectos_configuracion WHERE empr_clave =" & str_empresa & " AND sist_clave='"&str_sistema&"'"
RES_DATOS.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly,1
IF RES_DATOS.EOF=false then ' si existe
	int_calificacion_significativa = RES_DATOS.Fields("acon_calificacion_significativa")
	str_captura_criterios = RES_DATOS.Fields("acon_captura_criterios")
	str_calificacion_confi = RES_DATOS.Fields("acon_captura_calificacion")
	str_significativo_confi = RES_DATOS.Fields("acon_captura_significativo")
end if
RES_DATOS.Close
	
if str_proceso="alta" then
	lon_consecutivo=1
	STR_CONSULTA = "SELECT MAX(aspe_Clave) as ultimo FROM sei_aspectos WHERE empr_clave=" & str_empresa & " AND sist_clave ='" & str_sistema & "'"
	res_datos.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly,1
	If RES_DATOS.EOF = FALSE Then	
		IF ISNULL(res_datos.Fields("ULTIMO")) THEN 
			lon_consecutivo = 1
		ELSE	
			lon_consecutivo = res_datos.Fields("ULTIMO") + 1
		END IF
	End If
	RES_DATOS.Close
	int_clave = lon_consecutivo
	str_descripcion = ""
	int_valor(1)=""
	int_valor(2)=""
	int_valor(3)=""
	int_valor(4)=""
	int_valor(5)=""
	int_valor(6)=""
	int_valor(7)=""
	int_valor(8)=""
	int_valor(9)=""
	int_valor(10)=""
	int_valor(11)=""
	int_valor(12)=""
	int_valor(13)=""
	int_valor(14)=""
	int_valor(15)=""
	int_calificacion=0
	str_significativo="SI"
	str_observaciones=""
else
	STR_CONSULTA = "SELECT * FROM sei_aspectos WHERE aspe_clave = " & int_clave & " AND empr_clave =" & str_empresa & " AND sist_clave = '" & str_sistema & "'"
	RES_DATOS.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly,1
	IF RES_DATOS.EOF=false then ' si existe
		str_descripcion = RES_DATOS.Fields("Aspe_Descripcion")
		int_valor(1)=RES_DATOS.Fields("Aspe_Criterio_1")
		int_valor(2)=RES_DATOS.Fields("Aspe_Criterio_2")
		int_valor(3)=RES_DATOS.Fields("Aspe_Criterio_3")
		int_valor(4)=RES_DATOS.Fields("Aspe_Criterio_4")
		int_valor(5)=RES_DATOS.Fields("Aspe_Criterio_5")
		int_valor(6)=RES_DATOS.Fields("Aspe_Criterio_6")
		int_valor(7)=RES_DATOS.Fields("Aspe_Criterio_7")
		int_valor(8)=RES_DATOS.Fields("Aspe_Criterio_8")
		int_valor(9)=RES_DATOS.Fields("Aspe_Criterio_9")
		int_valor(10)=RES_DATOS.Fields("Aspe_Criterio_10")
		int_valor(11)=RES_DATOS.Fields("Aspe_Criterio_11")
		int_valor(12)=RES_DATOS.Fields("Aspe_Criterio_12")
		int_valor(13)=RES_DATOS.Fields("Aspe_Criterio_13")
		int_valor(14)=RES_DATOS.Fields("Aspe_Criterio_14")
		int_valor(15)=RES_DATOS.Fields("Aspe_Criterio_15")
		int_calificacion=RES_DATOS.Fields("Aspe_calificacion")
		str_significativo=RES_DATOS.Fields("Aspe_significativo")
		str_observaciones=RES_DATOS.Fields("Aspe_observaciones")
		RES_DATOS.Close 
		
	ELSE
		RES_DATOS.Close
		Cnn.Close
		Response.Redirect "uti_error.asp?enca=ERROR&mens=" & server.urlencode("Clave de Aspecto no existe en catálogo") & "&or=aspectos_listado.asp"	
	end if
end if
Cnn.Close
%>
<!--Nueva Presentación-->
<html>
<head>
<meta name="VI60_defaultClientScript" content="JavaScript">
<title>AS-CALIDAD</title>
<meta name="Microsoft Border" content="none, default">

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

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


function iniciar()
{
	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_DESCRIPCION.focus();

}

function validar()
{

	var str_valida
	str_valida =valida_espacio(document.form1.TXT_CLAVE.value)
	
	if (str_valida==true){
		alert("Clave no válida ...");
		return (false);
	}
	
	str_valida =valida_espacio(document.form1.TXT_DESCRIPCION.value)
	
	if (str_valida==true){
		alert("Descripción no válida ...");
		document.form1.TXT_DESCRIPCION.focus();
		return (false);
	}
		
	str_valida =valida_integer(document.form1.TXT_CALIFICACION_TOTAL.value)
	
	if (str_valida==true){
		alert("Calificación Total no válida ...");
		document.form1.TXT_CALIFICACION_TOTAL.focus();
		return (false);
	}
		
	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>

<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--

function suma_total()
		dim int_max, int_valor, int_suma

		set criterio = document.all.item("criterio")

		int_max = criterio.length
		int_suma=0
		FOR i=0 TO int_max -1
			int_valor = criterio.item(i).value
			if isnumeric(int_valor)=false then
				int_valor=0
			end if
			int_suma=int_suma+cdbl(int_valor)
		next 	
		document.form1.txt_calificacion_total.value=int_suma

End function

function onclick_pic_aceptar()
alert("entro")

	set criterio = document.all.item("criterio")
	int_max = criterio.length
	for J=1 to int_max
		str_nombre = "txt_criterio_" & J
		if not isnumeric(document.all.item("criterio").value) then
			'document.form1."&str_nombre&".value =0
		end if
	next
	valida_criterio=true
end Function
											
			

-->
</script>

</head>

<body class="body" onload="iniciar()" bgcolor="#7f7f7f" topmargin="0" leftmargin="3" rightmargin="3">
<form name="form1" id="form1" method="post" action="aspectos_abc.asp?proceso=<%=str_proceso%>">
<!--#INCLUDE FILE="uti_encabezado.asp"-->
<table height="270" width="100%" Align="center" valign="top" border="0" bgcolor="white" cellspacing="0" cellpadding="0">
  <tr>
    <td align="top">
		<table align="center" border="0" width="550">
			<tr>
				<td>
					<br>
					<table width="100%" border="0" bgcolor="#C0C0C0" cellspacing="0" cellpadding="0">
						<tr>
							<td align="left" NOWRAP><font class="titulo-listado">&nbsp;Datos del Aspecto:</font></td>
							<td align="left" bgcolor="#ffffff" width="100%"><img src="images/sin.gif" border="0" WIDTH="33" HEIGHT="25"></td>
						</tr>
					</table>
					<table Align="center" border="1" width="100%" bgcolor="#C0C0C0" cellspacing="0" cellpadding="0" bordercolor="#C0C0C0">
						<tr>
							<td>
							   <table align="center" border="1" width="100%" bgcolor="#EFEFEF" bordercolordark="#FFFFFF" cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF">
									<tr>
										<td align="right" width="20%"><font class="etiqueta">No:</font></td>
										<td><input class="input" size="5" name="TXT_CLAVE" maxlength="3" value="<%=int_clave%>" tabIndex="1" type="readOnly" readOnly></td>
									</tr>
									<tr>
										<td align="right" width="20%" valign="top"><font class="etiqueta">Descripción:</font></td>
										<td><textarea class="input" name="TXT_DESCRIPCION" cols="75" rows="2" wrap="hard" tabIndex="2"><%=str_descripcion%></textarea></td>
									</tr>
								</table>
								<table align="center" border="1" width="100%" bgcolor="#EFEFEF">
									<tr>
										<td align="middle"><font class="etiqueta">Impactos:</font></td>
									</tr>
								</table>
								<table align="center" border="1" width="100%" bgcolor="#EFEFEF">

											<%
											set cnn = server.CreateObject("ADODB.Connection")
											set RES_DATOS = server.CreateObject("ADODB.Recordset")
											
											cnn.Open str_bd
														
											
											STR_CONSULTA = "SELECT * FROM SEI_CRITERIOS_ASPECTOS WHERE crit_estatus='ACTIVO' AND empr_clave = "&str_empresa&" AND sist_clave = '"&str_sistema&"' ORDER BY 1"
											res_datos.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly,1

											I=0
											do until RES_DATOS.EOF
												I=I+1
												Response.Write("<tr height='15'>")
												Response.Write("<td  width ='5%' align='middle'><font class=etiqueta>")
												Response.Write(RES_DATOS.FIELDS("Crit_Clave"))
												Response.Write("</font></td>")
												Response.Write("<td width ='85%'><font class=etiqueta>&nbsp;")
												Response.Write(RES_DATOS.FIELDS("Crit_Descripcion") & "</font><font class=etiqueta_normal><br>&nbsp;" & RES_DATOS.FIELDS("Crit_mecanismo"))
												Response.Write("</font></td>")
												Response.Write("<td width ='10%' align='middle'><font class=etiqueta_normal>")
												str_nombre="TXT_CRITERIO_" & I
												Response.Write("</font>")
												Response.Write("<input class=input size='1' name='criterio' id='criterio'")
												Response.Write(" maxlength='5' value='"&int_valor(I)&"' onblur='suma_total()'")
												Response.Write(" tabIndex=")
												Response.Write(I+2)
												Response.Write(" >")
												Response.Write("</td>")
												Response.Write("</tr>")
												RES_DATOS.MoveNext 
											Loop
											RES_DATOS.Close
																					
										 %>
								</table>
								<table align="center" border="1" width="100%" bgcolor="#EFEFEF">
									<tr>
										<td align="right" width="28%"><font class="etiqueta">Calificación Total:</font></td>
										<td width="10%"><input class="input" size="5" name="TXT_CALIFICACION_TOTAL" maxlength="3" value="<%=int_calificacion%>" <% if str_calificacion_confi="NO" THEN Response.Write("type='readOnly' readOnly")%> tabIndex="31"></td>
										<td align="right" width="28%"><font class="etiqueta">Significativo:</font></td>
										<td width="20%"><input TYPE="radio" name="RDO_SIGNIFICATIVO" value="1" tabIndex="32" <%if str_significativo = "SI" then Response.write("Checked")%>><font class="input">SI</font>
												   <input TYPE="radio" name="RDO_SIGNIFICATIVO" value="2" tabIndex="33" <%if str_significativo = "NO" then Response.write("Checked")%>><font class="input">NO</font>
										</td>
									</tr>
								</table>
								<table align="center" border="1" width="100%" bgcolor="#EFEFEF" bordercolordark="#FFFFFF" cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF">
									<tr>
										<td align="right" width="18%" valign="top"><font class="etiqueta">Observaciones:</font></td>
											<td><textarea class="input" name="TXT_OBSERVACIONES" cols="75" rows="2" wrap="hard" tabIndex="34"><%=str_observaciones%></textarea></td>
									</tr>									
								</table>
							</td>
						</tr>
					</table>
					<table Align="center" width="100%" border="0" bgcolor="#C0C0C0" cellspacing="0" cellpadding="0">
						<tr>
							<td align="center" valign="middle" >
								<input TYPE="hidden" name="ACCION">
								<input type="hidden" name="TXT_FORMA" value="<%=str_forma%>">
								<input TYPE="hidden" name="TXT_PROCESO" value=<%=int_num_proceso%>>
								<input TYPE="hidden" name="TXT_ACTIVIDAD" value=<%=int_actividad%>>
								<input TYPE="hidden" name="TXT_PRODUCTO" value=<%=str_producto%>>
								<input TYPE="hidden" name="TXT_NOM_PRODUCTO" value=<%=str_nombre_producto%>>
								<input TYPE="hidden" name="TXT_SIGUE" value=<%=int_sigue%>>
								<input TYPE="hidden" name="TXT_NUM_SIGUE" value=<%=int_num_sigue%>>
								<img onclick="validar();" onmouseover="document.pic_aceptar.src='images/btn_aceptar_1.gif'" onmouseout="document.pic_aceptar.src='images/btn_aceptar.gif'" name="pic_aceptar" src="images/btn_aceptar.gif" alt="" border="0" tabindex="7" WIDTH="71" HEIGHT="25" style="vertical-align:middle">
								
								<a href="javascript:window.history.back(1)" onmouseover="document.pic_cancelar.src='images/btn_cancelar_1.gif'" onmouseout="document.pic_cancelar.src='images/btn_cancelar.gif'"><img  name="pic_cancelar" src="images/btn_cancelar.gif" alt="" border="0" tabindex="8" WIDTH="71" HEIGHT="25" style="vertical-align:middle"></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.gif'" name="pic_eliminar" src="images/btn_eliminar.gif" alt="" border="0" tabindex="9" WIDTH="71" HEIGHT="25" style="vertical-align:middle">
								<%end if%>
							</td>
						</tr>	
					</table>
					<br>					
				</td>
			</tr>
		</table>
    </td>
  </tr>
</table>
<!--#INCLUDE FILE="uti_calce.asp"-->
</form>
</body>
</html>
