<%@Language="VBScript"%>
<%
Option Explicit
Dim Code, Desc, Linea, Sublinea
Code = request("Code")
Desc = request("Desc")
Linea = request("Linea")
subLinea = request("subLinea")
%>
<%
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
<script type="text/javascript" src="Java/Precios.js"></script>
</head>
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normal" style="position:absolute; top:60px; left:10">
<Center>
<b>***** Captura de Minimos *****</b>
<hr>
<%
Dim Rs11, Sql11, Rs12, Sql12, Rs13, Sql13, Rs14, Sql14
Dim Count, bg_color
Dim msa, msb
%>
<Form action="Minimo.asp" name="BuscaMov" method='POST'>
<TABLE border=0 cellspacing=0 cellpadding=2 class="normal">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Codigo</td>
<TD align="Left" class="normalw" bgcolor="#006699">Descripcion</td>
<TD align="Left" class="normalw" bgcolor="#006699">Linea</td>
<TD align="Left" class="normalw" bgcolor="#006699">Sublinea</td>
</tr>
<tr>
<Td align="center" class="normal">
<input type="text" class="normalb" Value="<%= Code %>" name="Code" size="12" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();"></td>
<Td align="center" class="normal">
<input type="text" class="normalb" Value="<%= Desc %>" name="Desc" size="30" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();"></td>
<Td align="center" class="normal">
<%
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 ="select Clalin, Deslin from Lineas;"
Rs11.Open Sql11, Cn1
%>
<SELECT NAME="Linea" class="normalb">
<OPTION value="">Todas</option>
<%
Do While Not Rs11.EOF
%>
<OPTION value="<%= Rs11("Clalin") %>"><%= Rs11("Deslin") %></option>
<%
Rs11.MoveNext
Loop
%>
</Select>
</td>
<Td align="center" class="normal">
<%
Set Rs13 = server.CreateObject("ADODB.Recordset")
Sql13 ="select Clasli, Dessli from subLineas;"
Rs13.Open Sql13, Cn1
%>
<SELECT NAME="SubLinea" class="normalb">
<OPTION value="">Todas</option>
<%
Do While Not Rs13.EOF
%>
<OPTION value="<%= Rs13("Clasli") %>"><%= Rs13("Dessli") %></option>
<%
Rs13.MoveNext
Loop
%>
</Select>
</td>
</tr>
<Tr>
<td Colspan="4" Align="Center"> <input type="submit" value="Buscar" class="normalc"></td>
</tr>
</Table>
</form>
<%
If Linea = "" then
msa = ""
Else
msa = " And Lininv = "& Linea &" "
End If
If Code = "" and Desc = "" Then
Else
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "select Regmul, ARTMUL, DESMUL, UDMINV, SMIMUL, SMAMUL " &_
"FROM MULTIALMACEN, Inventarios " &_
"WHERE CVEINV = ARTMUL AND ALMMUL = 1 AND ARTMUL like '%"& Code &"%' and DESMUL like '%"& Desc &"%' " & msa & " order by ARTMUL;"
Rs12.Open Sql12,cn1,1,2
If Rs12.Eof then
else
%>
<FORM action="Minimoup.asp" name="frm" method='post'>
<input type="Hidden" class="normalb" Value="<%= code %>" name="Code" size="12" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();">
<input type="Hidden" class="normalb" Value="<%= desc %>" name="Desc" size="12" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();">
<table border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#336699">
<td align="center">
<input type="checkbox" name="chkMain" onClick="JavaScript:chk_all(document.frm,<%=rs12.recordcount%>)">
</td>
<td class="Normalw">Codigo</td>
<td class="Normalw">Descripcion</td>
<td class="Normalw">UDM</td>
<td class="Normalw">Minimo</td>
<td class="Normalw">Maximo</td>
</tr>
<%
count = 0
For i = 0 to Rs12.RecordCount - 1
if (count Mod 2= 0) then
bg_color="#ffffff"
Else
bg_color="#EFF5F3"
End if
%>
<tr bgcolor="<%=bg_color%>" >
<td align="center" >
<input type="checkbox" name="chk" value="<%=i%>" onClick="JavaScript:en_dis(document.frm,<%=Rs12.recordcount%>,'txt_<%=i%>')">
</td>
<td align="left" Class="Normal"><%= Rs12("Artmul") %></td>
<td align="left" Class="Normal"><%= Rs12("Desmul") %></td>
<td align="left" Class="Normal"><%= Rs12("UDMinv") %></td>
<td align="left" Class="Normal">
<input type="text" class="normalb" name="Min_<%=i%>" size="7" Value="<%= Rs12("Smimul") %>" style="Text-align:Right">
</td>
<td align="left" Class="Normal">
<input type="text" class="normalb" name="Max_<%=i%>" size="7" Value="<%= Rs12("Smamul") %>" style="Text-align:Right">
</td>
<td>
<input type="Hidden" name="txt_<%=i%>" value="<% = Rs12("regmul")%>" size="7" disabled style="border:1px; text-align:Right; solid:#000000;background:<%=bg_color%>" class="n_verdana_simple">
</td>
</tr>
<%
Rs12.Movenext
count=count+1
Next
%>
<tr>
<td colspan="7" align=center>
<input value="Aceptar" type="button" class="normalc" onclick="frm_submit(document.frm,<%=Rs12.recordcount%>)" id=bt name=bt>
</td>
</tr>
</table>
<br>
</form>
<%
End If
End If
%>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>