<%
Option Explicit
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
<script language="javascript">
stat=1
function frm_submit(frm,rec)
{
var msgDel,check
check = 0
msgDel = "Desea continuar ?"
if (rec == 1)
{
if(frm.chk.checked == false){
check = 0
}
else{
check= 1
}
}
else if(rec > 1 )
{
for(i=0;i<frm.chk.length;i++)
{
if(frm.chk[i].checked == true)
{
check = 1;
break;
}
}
}
if (check == 0)
{
alert("Active la casilla para continuar")
return;
}
else if(check == 1)
{
ok = confirm(msgDel)
if (ok == false)
{
return;
}
else
{
frm.submit()
}
}
}
function en_dis(frm,RecCount,val){
var chkLength
// tg= document.getElementById(tag_id1).className
//if (tg =='slected'){
//for (i=1;i<5;i++){
//eval("document.getElementById(tag_id"+i+").className=''")
//}}
//else{
//for (i=1;i<5;i++){
//eval("document.getElementById(tag_id"+i+").className='slected'")
//}
//}
//tg_id.className='slected'
if (RecCount>1){
chkLength=frm.chk.length
}
else
{
chkLength=1
frm.chkMain.checked=frm.chk.checked
if (stat==1){
eval("document.frm."+val+".disabled=false")
stat=0
}
else{
eval("document.frm."+val+".disabled=true")
stat=1
}
return;
}
for(i=0;i<=chkLength-1;i++){
if(frm.chk[i].checked==false){
frm.chkMain.checked=false
break;
}
else{
frm.chkMain.checked=true
}
}
tt= eval("document.frm."+val+".disabled")
if (tt== true){
eval("document.frm."+val+".disabled=false")
}
else
eval("document.frm."+val+".disabled=true")
}
function chk_all(frm,RecCount){
var chkLength
if (RecCount>1)
{
chkLength=frm.chk.length
}
else if (RecCount==1)
{
chkLength=1
frm.chk.checked=frm.chkMain.checked
if (stat==1){
document.frm.txt_0.disabled=false
stat=0
}
else{
document.frm.txt_0.disabled=true
stat=1
}
return;
}
if(frm.chkMain.checked==true){
for (i=0;i<=chkLength-1;i++){
frm.chk[i].checked=true
//frm.txt[i].disabled= false
eval("frm.txt_"+i+".disabled= false")
}
}
else
{
for (i=0;i<=chkLength-1;i++){
frm.chk[i].checked=false
//frm.txt[i].disabled= true
eval("frm.txt_"+i+".disabled= true")
}
}
return;
}
</script>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
// End -->
</script>
</head>
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>
<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>
<div class="normal" style="position:absolute; top:40px; left:15">
<hr>
<center>
<%
Dim rs10, sql10, rs12, sql12
Dim Prod, Dcor, Linea, Sublinea, Alma
Dim ColorFilial, NegritaFilial
Prod = request("Prod")
Dcor = request("Dcor")
Linea = request("Linea")
Sublinea = request("Sublinea")
Alma = request("Alma")
Dim Numord
Dim CasillaA
Numord = request("Numord")
'set rs10 = server.CreateObject("ADODB.Recordset")
'sql10="select regore, Numore,Proore, fecore, Ivaore, Monore, Tcaore, Labore, Embore, Subore, Ivtore, totore, obsore, Staore " &_
'"Cveprv, Nomprv, Cladiv, desdiv " &_
'"From Cordenc, Proveedores, Monedas " &_
'"where proore = cveprv and cladiv = monore and numore = "& Numord &";"
'rs10.open sql10,cn1,1,2
set rs10 = server.CreateObject("ADODB.Recordset")
sql10="Select * from Cordenc, Proveedores, Monedas where proore = cveprv and cladiv = monore and numore = "& Numord &";"
rs10.open sql10,cn1,1,2
If Rs10("PPagoOre") = 0 Then
CasillaA = ""
Else If Rs10("PPagoOre") = 1 Then
CasillaA = "checked"
End If
End If
%>
<br>
<TABLE border=0 cellspacing=1 cellpadding=1 width=740px bordercolor=#c0c0c0>
<FORM action="Proord.asp" name="Proord" method='post'>
<tr>
<td class="normalc"><B>Proveedor:</td>
<td class="normalc">
<input type="Text" class="Normalb" name="Provee" size=12 value="<%= rs10("proore") %>" onChange="javascript:this.value=this.value.toUpperCase();">
<input type="Hidden" class="Normalb" name="Norden" size=12 value="<%= rs10("numore") %>" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
<td class="normalc" colspan=2><B><%= rs10.fields("Nomprv") %></td>
<td class="normalc"><B>Orden:</td>
<td class="normalc"><B>( <%= rs10.fields("numore") %> )
<input type="submit" value="Cambiar" class="Normalb">
</td>
</tr>
</form>
<FORM action="Ordenup.asp" name="frm" method='post'>
<tr>
<td class="normalc"><B>Fecha Orden:</td>
<td class="normalc"><B><%= rs10.fields("fecore") %> </td>
<td class="normalc"><B>IVA:</td>
<td class="normalc"><B><input type=text class=normalb name="Impu" size=3 value="<%= rs10.fields("ivaore") %>" onChange="javascript:this.value=this.value.toUpperCase();"> %</td>
<Td></td>
<Td></td>
</tr>
<tr>
<td class="normalc"><B>Moneda:</td>
<td class="normalc">
<%
Dim rs13, sql13
set rs13 = server.CreateObject("ADODB.Recordset")
Sql13 ="select * from Monedas"
rs13.Open SQL13, cn1
response.write "<SELECT NAME=Moneda class=normalb>"
response.write "<option value='" & rs10("monore") & "' Selected>" & rs10("desdiv")
while not rs13.EOF
response.write "<OPTION value=" & rs13("cladiv") & ">" & rs13("desdiv")
rs13.MoveNext
wend
response.write "</select>"
%>
</td>
<td class="normalc"><B>Status:</td>
<td class="normalc">
<input type=text class=normalb name="Status" size=3 value="<%= Rs10("Staore") %>" onChange="javascript:this.value=this.value.toUpperCase();">
</tD>
</td>
<td class="normalc"><B>Origen</td>
<td class="normalc">
<%
Dim Origen
If Rs10("Oriore") = 0 then
Origen = "Nacional"
Else
Origen = "Importacion"
End If
%>
<SELECT NAME="Origen" class="normalb">
<option value="<%= Rs10("oriore") %>" Selected><%= Origen %></option>
<optgroup label="Cambiar Por :">
<option value="0">Nacional</option>
<option value="1">Importacion</option>
</select>
</tD>
</tr>
</table>
</div>
<div class="normal" style="position:absolute; top:150px; left:15">
<hr>
<input type="Hidden" name="Numord" value="<%= Numord %>" size="12" class="normalc">
<%
Dim rs7, sql7
Dim FilialB, Minimo
set rs7 = server.CreateObject("ADODB.Recordset")
Sql7 ="select Regord, numord, secord, almord, codord, nominv, desalm, csoord, cpeord, pliord, desord, punord, fpord, " &_
"case when SMAXINV = 0 then '' when SMAXINV >0 AND (Exirmul - Capmul - RSEM + Cxrmul) > SMAXINV then 'SOBREINVENTARIADO' ELSE '' end as dif, (Exirmul - Capmul - RSEM + Cxrmul),"&_
"pinord, ppiord, pveord, tcaord, ptcord, ucomul,cpmul," &_
"(SELECT min(columnx) FROM ( VALUES(coatza),(mexico),(puebla), (GUADALAJARA) ) AS UNIQUECOLUMN(columnx) where columnx > 0) AS Minimo, COATZA, MEXICO, PUEBLA, TOLUCA, GUADALAJARA, nparte " &_
"from corddet, Inventarios, almacenes, multialmacen where numord = "& numord &" " &_
"and cveinv = codord and cpeord > 0 and cveinv=artmul and almmul=almord and almord = claalm AND artmul = codord order by secord asc;"
rs7.Open SQL7, cn1, 1, 2
%>
<TABLE border=1 cellspacing=1 cellpadding=1 bordercolor=#c0c0c0 width="800px">
<tr>
<td class="normalb" align="center" Colspan=1><input type="checkbox" name="chkMain" onClick="JavaScript:chk_all(document.frm,<%=rs7.recordcount%>)"></td>
<td class="normalb"><b>Item</b></td>
<td class="normalb"><b>Cantidad</b></td>
<td class="normalB"><b>Can Pen.</b></td>
<td class="normalB"><b>Almacen</b></td>
<td class="normalB"><b>Codigo</b></td>
<td class="normalB"><b>Descripcion</b></td>
<td class="normalB"><b>Num. Parte</b></td>
<td class="normalB"><b>Precio</b></td>
<td class="normalB"><b>Desc.</b></td>
<td class="normalB"><b>Unitario</b></td>
<td class="normalB"><b>Entrega</b></td>
<td class="normalB"><b>Utilidad</b></td>
<td class="normalB"><b>U.Costo</b></td>
<td class="normalB"><b>C.Promedio</b></td>
<td class="normalB"><b>P. Int.</b></td>
<td class="normalB"><b>P.P.I.</b></td>
<td class="normalB" colspan=4><b>Accion</b></td>
<!--<td class="normalB" colspan=2><b>Filiales</b></td>-->
<td class="normalB"><b>Sta Inv</b></td>
</tr>
<%
Dim Color, Colorfila
dim count,bg_color
Dim TipoCam
Dim Utilidad, Negrita, PrecioV
count = 0
For i = 0 to rs7.RecordCount - 1
if (count Mod 2= 0) then bg_color="#ffffff" else bg_color="#EFF5F3" end if
If rs7("pinord") > 0 then
TipoCam = " "
Else
TipoCam = ""
End If
If Cdbl(rs7("pveord")) = 0 then
Utilidad = 100
Else
Utilidad = ((1 - (Cdbl(rs7("Punord")) * Cdbl(rs7("tcaord"))) / (Cdbl(rs7("ptcord")) * Cdbl(rs7("pveord")))) * 100)
'Utilidad = 100
End If
If Utilidad < 15 then
Negrita = "<b><Font Color=#F52C26>"
Else
Negrita = "<Font Color=#000000>"
End If
if colorfila = 0 then
Color= "#d8d8d8"
Colorfila = 1
else
Color= "#ffffff"
Colorfila = 0
end if
Minimo = Rs7("Minimo")
If Minimo = "" Or Isnull(Minimo) Then
Minimo = 0
Else
Minimo = Minimo
End If
If Cdbl(Minimo) = Cdbl(Rs7("Coatza")) Then
FilialB = "COATZA"
Else If Cdbl(Minimo) = Cdbl(Rs7("Mexico")) Then
FilialB = "MEXICO"
Else If Cdbl(Minimo) = Cdbl(Rs7("PUEBLA")) Then
FilialB = "PUEBLA"
Else If Cdbl(Minimo) = Cdbl(Rs7("TOLUCA")) Then
FilialB = "TOLUCA"
Else If Cdbl(Minimo) = Cdbl(Rs7("GUADALAJARA")) Then
FilialB = "GUADALAJARA"
End If
End If
End If
End If
End If
If FilialB = Negocio Then
ColorFilial = "<b><Font Color=#000000>"
Else
ColorFilial = "<b><Font Color=#FB1F02>"
End If
%>
<tr>
<td Class="Normal align="center" bgcolor=<%= Color %>><input type="checkbox" name="chk" value="<%=i%>" onClick="JavaScript:en_dis(document.frm,<%=rs7.recordcount%>,'txt_<%=i%>')">
</td>
<td Class="Normal" align="center" bgcolor=<%= Color %>>
<input type="text" name="Item_<%=i%>" value="<% =Cint(rs7("secord"))%>" size="5" class="normalc" style="background-color:<%=color%>; text-align:right">
</td>
<td Class="Normal" align="Right" bgcolor=<%= Color %>>
<input type="text" name="Cant_<%=i%>" value="<%= rs7("csoord") %>" size="8" class="normalc" style="background-color:<%=color%>; text-align:right" <%= TipoCam %>>
<input type="hidden" name="Cori_<%=i%>" value="<%= rs7("csoord") %>" size="8" class="normalc" style="background-color:<%=color%>; text-align:right" <%= TipoCam %>>
<input type="hidden" name="Cod_<%=i%>" value="<%= rs7("codord") %>" size="8" class="normalc" style="background-color:<%=color%>; text-align:right" <%= TipoCam %>>
<input type="hidden" name="Almo_<%=i%>" value="<%= rs7("almord") %>" size="8" class="normalc" style="background-color:<%=color%>; text-align:right" <%= TipoCam %>>
</td>
<td Class="Normal" align="Right" bgcolor=<%= Color %>>
<input type="text" name="Pen_<%=i%>" value="<%= rs7("cpeord") %>" size="8" class="normalc" style="background-color:<%=color%>; text-align:right" <%= TipoCam %>>
</td>
<td Class="Normal" align="center" bgcolor=<%= Color %>><% =rs7("desalm")%></td>
<td Class="Normal" align="Left" bgcolor=<%= Color %>>
<a href="Distribucion.asp?Codigo=<% =rs7("codord")%>" onclick="NewWindow(this.href,'Distro','600','450','yes');return false;"><% =rs7("codord")%></a>
</td>
<td Class="Normal" align="Left" bgcolor=<%= Color %>><% =rs7("nominv")%></td>
<td class="normal" bgcolor="<%= Color %>" width="10px">
<%
dim rs40, sql40
dim Codinp
Codinp = Rs7("codord")
'****** Tabla Nparteinv ****
Set Rs40 = Server.CreateObject("ADODB.Recordset")
Sql40="Select * From Nparteinv " &_
"Where Codnpinv = '"& Codinp &"';"
Rs40.Open Sql40,Cn1,1,2
If Rs40.EOF Then%>
N/A
<%
Else
%>
<SELECT NAME="Np_<%= i %>" tabindex="4" id="TablaOpc">
<option value="" Selected>Todos </Option>
<%
Do While Not Rs40.EOF
%>
<OPTION value="<%= Rs40("Npinv") %>"> <%= rs40("Marca") &" - "& Rs40("Npinv") %> </Option>
<%
Rs40.Movenext
Loop
%>
</Select>
<%
Rs40.Close
End If
%>
</td>
<td Class="Normal" align="center" bgcolor=<%= Color %>>
<input type="text" name="Pre_<%=i%>" value=<% =Csng(rs7("pliord"))%> size="8" class="normalc" style="background-color:<%=color%>; text-align:right"></td>
<td Class="Normal" align="Right" bgcolor=<%= Color %>>
<input type="text" name="Desc_<%=i%>" value="<% =FormatNumber(rs7("desord"))%>" size="4" class="normalc" style="background-color:<%=color%>; text-align:right">%</td>
<td Class="Normal" align="Right" bgcolor=<%= Color %>><% =Formatcurrency(rs7("punord"))%></td>
<td Class="Normal" align="center" bgcolor=<%= Color %>>
<input type="text" name="Fent_<%=i%>" value="<% =rs7("fpord")%>" size="9" class="normalc" style="background-color:<%=color%>; text-align:right">
</td>
<td Class="Normal" align="Right" bgcolor=<%= Color %>><%= Negrita %><%= Formatnumber(Utilidad) %> %</td>
<%
If Rs10("MONORE") = 1 then
%>
<td Class="Normal" align="Right" bgcolor=<%= Color %>><%= Formatcurrency(Rs7("UCOMUL")) %></Td>
<%
Else
%>
<td Class="Normal" align="Right" bgcolor=<%= Color %>><%= Formatcurrency(Cdbl(Rs7("UCOMUL")) / Cdbl(Rs10("TCADIV"))) %></Td>
<%
End If
%>
<%
If Rs10("MONORE") = 1 then
%>
<td Class="Normal" align="Right" bgcolor=<%= Color %>><%= Formatcurrency(Rs7("CPMUL")) %></Td>
<%
Else
%>
<td Class="Normal" align="Right" bgcolor=<%= Color %>><%= Formatcurrency(Cdbl(Rs7("CPMUL")) / Cdbl(Rs10("TCADIV"))) %></Td>
<%
End If
%>
<td Class="Normal" align="Right" bgcolor=<%= Color %>><%= rs7("pinord") %></td>
<td Class="Normal" align="Right" bgcolor=<%= Color %>><%= rs7("ppiord") %></td>
<td Class="Normal" align="center" bgcolor=<%= Color %>>
<a href="Cordirmodi.asp?regi=<%=rs7("regord")%>&Numord=<%= Rs7("Numord") %>&pedi=<%= Rs7("pinord") %>&parti=<%= Rs7("ppiord") %>" onclick="NewWindow(this.href,'Actualizar','500','350','yes');return false;">
<img src="image/Modificar.gif" border="0" height="16px" alt="Modificar Pedido"></a></td>
<td Class="Normal" align="center" bgcolor=<%= Color %>>
<a href="Cordobs.asp?regi=<%=rs7("regord")%>" onclick="NewWindow(this.href,'name1','500','350','yes');return false;">
<img src="image/Agregar.gif" border="0" height="16px" alt="Observaciones"></a></td>
<td Class="Normal" align="center" bgcolor=<%= Color %>>
<a href="Cordmdel.asp?regi=<%=rs7("regord")%>&Numord=<%= numord %>&Mone=<%= Rs10("Monore") %>&Iva=<%= rs10("Ivaore") %>&Prod=<%= Prod %>&Dcor=<%= Dcor %>&Linea=<%= Linea %>&Sublina=<%= Sublinea %>&Alma=<%= Alma %>">
<img src="image/eliminar.gif" border="0" height="16px" alt="Eliminar"></a>
</td>
<td Class="Normal align="center" bgcolor=<%= Color %>>
<input type="Hidden" name="txt_<%=i%>" value="<% = rs7("regord")%>" disabled style="border:1px solid:#000000;background:<%=bg_color%>" class="n_verdana_simple">
</td>
<!--
<td Class="normal" bgcolor="<%= Color %>" width="60px" align="right">
<a href="Cmenor.asp?Code=<%= rs7("codord") %>" onclick="NewWindow(this.href,'Cmenor','800','450','yes');return false;">
<%= ColorFilial %><%= Formatnumber(Minimo) %>
</td>
<td Class="normal" bgcolor="<%= Color %>" width="200px"><%= ColorFilial %><%= Filialb %></td>-->
<td Class="normal" bgcolor="<%= Color %>" width="200px"><%= ColorFilial %><%= rs7("dif") %></td>
</tr>
<tr>
<%
rs7.Movenext
count=count+1
Next
%>
<TR>
<td class="normal" COLSPAN=8 align=right><B>Subtotal:</td>
<td class="normalb" align=right><%= FormatCurrency(rs10.fields("Subore")) %></td>
</tr>
<tr>
<td class="normal" COLSPAN=8 align=right><B>Iva:</td>
<td class="normalb" align=right><%= FormatCurrency(rs10.fields("ivtore")) %></td>
</tr>
<tr>
<td class="normal" COLSPAN=8 align=right><B>Total:</td>
<td class="normalb" align=right><%= FormatCurrency(rs10.fields("Totore")) %></td>
</TR>
<tr>
<td width="60" colspan=2 Class="normal">LAB:</td>
<td colspan=12 Class="normal"><input type="text" name="lab" value="<% =rs10("labore")%>" size="70" class="normalc" onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td width="60" colspan=2 Class="normal">Embarcar:</td>
<td colspan=12 Class="normal"><textarea name="Embarque" cols="150" rows="3" class="normalc" onChange="javascript:this.value=this.value.toUpperCase();"><% =rs10("embore")%></textarea></td>
</tr>
<tr>
<td width="60" colspan=2 Class="normal">Observaciones:</td>
<td colspan=12 Class="normal"><textarea name="Obs" cols="150" rows="3" class="normalc" onChange="javascript:this.value=this.value.toUpperCase();"><% =rs10("obsore")%></textarea></td>
</tr>
<tr>
<td width="60" colspan=2 Class="normal">Dias de Credito</td>
<td colspan=12 Class="normal"><input type="text" name="DiasC" value="<% =rs10("Diasore")%>" size="5" class="normalc" onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<tr>
<td width="60" colspan=2 Class="normal">Condiciones de Pago</td>
<td colspan=12 Class="normal"><input type="text" name="condiciones" value="<% =rs10("condiciones")%>" size="70" class="normalc" onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<tr>
<td width="60" colspan=2 Class="normal">Pronto Pago</td>
<td colspan=12 Class="normal">
<input Type="checkbox" Name="ProntoP" value="1" <%= CasillaA %> ></Td>
</td>
</tr>
<tr>
<tr>
<td width="60" colspan=2 Class="normal">Descuento Pronto Pago</td>
<td colspan=12 Class="normal"><input type="text" name="Descore" value="<% =rs10("Descore")%>" size="5" class="normalc" onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td colspan =14 align=center Class="normal">
<br>
<input value="Actualizar" type="button" onclick="frm_submit(document.frm,<%=rs7.recordcount%>)" id=bt name=bt class="normalc"></td>
</tr>
</table>
</form>
<hr>
<b>Buscador</b>
<FORM action="Ordenmodi.asp" name="Ordendir" method='post'>
<TABLE border=0 cellspacing=0 cellpadding=0>
<tr>
<td class="normal">Codigo:</td>
<td>
<input type="text" class="normalb" name="Prod" size=15 onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</tr>
<tr>
<td class="normal">Descripcion:</td>
<td><input type="text" class="normalb" name="Dcor" size=40 onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td class="normal">
Seleccione Una linea: </td>
<td class="normal">
<%
dim rs5, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select * from lineas order by deslin"
rs5.open sql5,cn1,1,2
rs5.MoveFirst
response.write "<SELECT NAME=Linea>"
response.write "<option value='' Selected>" & "Todos"
while not rs5.EOF
response.write "<OPTION value=" & rs5("Clalin") & ">" & rs5("deslin")
rs5.MoveNext
wend
response.write "</select>"
%>
<%
rs5.close
%>
</td>
</tr>
<tr>
<td class="normal">
Seleccione Una Sublinea: </td>
<td class="normal">
<%
dim rs30, sql30
set rs30 = server.CreateObject("ADODB.Recordset")
sql30 = "select * from sublineas order by dessli asc;"
rs30.open sql30,cn1,1,2
rs30.MoveFirst
response.write "<SELECT NAME=Sublinea>"
response.write "<option value='' Selected>" & "Todos"
while not rs30.EOF
response.write "<OPTION value=" & rs30("Clasli") & ">" & rs30("dessli")
rs30.MoveNext
wend
response.write "</select>"
%>
<%
rs7.close
%>
</td>
</tr>
<tr>
<td class="normal">
Seleccione Un Almacen: </td>
<td class="normal">
<%
dim rs6, sql6
set rs6 = server.CreateObject("ADODB.Recordset")
sql6 = "select * from almacenes where staalm = 'A' order by desalm;"
rs6.open sql6,cn1,1,2
rs6.MoveFirst
response.write "<SELECT NAME=Alma>"
response.write "<option value='' Selected>" & "Todos"
while not rs6.EOF
response.write "<OPTION value=" & rs6("Claalm") & ">" & rs6("desalm")
rs6.MoveNext
wend
response.write "</select>"
%>
<%
rs6.close
%>
</td>
<td> 
<input type="hidden" class="normalb" name="Numord" value=<%= Numord %> size=40 onChange="javascript:this.value=this.value.toUpperCase();">
<input type="submit" value="Filtrar" class=normalb></td>
</tr>
</table>
</form>
<HR>
<%
Dim rs31, sql31
Dim Numreg, Numcam, NCampo, Nmostrado
'Numero de Paginas
If Request("pag")<>"" Then
Session("Pag")=Request("pag")
Else
Session("Pag")=1
End If
set rs31 = server.CreateObject("ADODB.Recordset")
sql31 = "select * " &_
"from Inventarios, Multialmacen, almacenes where artmul = cveinv " &_
"and artmul like '%" & Ucase(Request("Prod")) & "%'" &_
"and Nominv like '%" & Ucase(Request("Dcor")) & "%' " &_
"and lininv like '%" & Ucase(Request("linea")) & "%' " &_
"and slininv like '%" & Ucase(Request("Sublinea")) & "%' " &_
"and almmul like '%" & Ucase(Request("alma")) & "%' and cveinv not like '%mensaje%'" &_
"and almmul = claalm;"
rs31.open sql31,cn1,1,2
'Registros por Pagina
numreg = 30
'Dimensionamos las paginas y determinamos la pagina actual
If Dcor = "" and Prod = "" then
%>
<b> Favor de Buscar Un Producto
</b>
<%
else
%>
<%
If rs31.Eof then %>
<tr>
<td align="center" Class="normal" bgcolor="#d8d8d8" Colspan=6>
<b>No se Encontraron Productos Bajo ese Criterio</td><b>
<%
else
RS31.PageSize=numreg
RS31.AbsolutePage=Session("Pag")
%>
Pagina <b><%=Session("Pag")%></b> De <b><%=RS31.PageCount%></b>
<br>
Registros Encontrados: <b><%=RS31.RecordCount%></b>
<br><br>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0 width="800px">
<tr>
<td align="center" Class="normal" bgcolor="#d8d8d8">Almacen</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Cantidad</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Unidad</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Codigo</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Descripcion</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Precio</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Descuento</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">F. Entrega</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">Accion</td>
</tr>
<%
Nmostrado = 0
While (Not RS31.eof And Nmostrado < numreg)
Nmostrado = Nmostrado +1
%>
<tr>
<FORM action="OrdTmod.asp" name="Movmaqpnw" method='post'>
<td align="Left" Class="normal" bgcolor="#d8d8d8"><%= rs31("desalm") %></td>
<td align="center" Class="normal" bgcolor="#d8d8d8">
<input Type="Text" Name="Cantidad" size="10" Class="Normalc" Value="1" style="background-color:#d8d8d8; text-align:right" onChange="javascript:this.value=this.value.toUpperCase();">
<input Type="Hidden" Name="Regi" size="10" Class="Normalc" Value="<%= rs31("regmul") %>">
<input Type="Hidden" Name="Code" size="10" Class="Normalc" Value="<%= rs31("Cveinv") %>">
<input Type="Hidden" Name="Prod" size="10" Class="Normalc" Value="<%= Prod %>">
<input Type="Hidden" Name="Dcor" size="10" Class="Normalc" Value="<%= Dcor %>">
<input Type="Hidden" Name="Linea" size="10" Class="Normalc" Value="<%= Linea %>">
<input Type="Hidden" Name="Sublinea" size="10" Class="Normalc" Value="<%= Sublinea %>">
<input Type="Hidden" Name="Alma" size="10" Class="Normalc" Value="<%= alma %>">
<input Type="Hidden" Name="Numord" size="10" Class="Normalc" Value="<%= Numord %>">
<input Type="Hidden" Name="Provee" size="10" Class="Normalc" Value="<%= rs10("proore") %>">
<input Type="Hidden" Name="Iva" size="10" Class="Normalc" Value="<%= rs10("Ivaore") %>">
<input Type="Hidden" Name="Mone" size="10" Class="Normalc" Value="<%= rs10("monore") %>">
</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8"><%= rs31("udminv") %></td>
<td align="left" Class="normal" bgcolor="#d8d8d8">
<a href="Distribucion.asp?Codigo=<%= rs31("cveinv") %>" onclick="NewWindow(this.href,'Distro','600','450','yes');return false;"><%= rs31("cveinv") %></a>
</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8"><%= rs31("nominv") %></td>
<td align="Right" Class="normal" bgcolor="#d8d8d8">
<input Type="Text" Name="Precio" size="12" Class="Normalc" Value="<%= Csng(rs31("ucomul")) %>" style="background-color:#d8d8d8; text-align:right" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
<td align="Right" Class="normal" bgcolor="#d8d8d8">
<input Type="Text" Name="Des" size="5" Class="Normalc" Value="0.00" style="background-color:#d8d8d8; text-align:right" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
<td align="Right" Class="normal" bgcolor="#d8d8d8">
<input Type="Text" Name="Fentrega" size="12" Class="Normalc" Value="<%= date() + 1 %>" style="background-color:#d8d8d8; text-align:right" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
<td align="center" Class="normal" bgcolor="#d8d8d8"><input type="submit" value="Agregar" class="normal" style="background-color:#d8d8d8"></td>
</form>
</tr>
<%
RS31.MoveNext
Wend
End If
%>
<tr>
<td colspan="7" align="center">
<%
i=0
While i<RS31.PageCount
i=i+1
%>
<b><a href="Ordenmodi.asp?pag=<%=i%>&Prod=<%=Prod%>&Dcor=<%=Dcor%>&Numord=<%=Numord%>"><%=i%></a></b>
<%
Wend
%>
</td>
</tr>
</table>
<%
End If
%>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>