<% Option Explicit %>
<% Session.LCID = 2058 %>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="refe.css">
<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:0px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>
<div class="normalw" style="position:absolute; top:5px;">
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:60px; left:10">
<%
Dim Ses, Provee, Mone, Iva, Prod, Dcor, Linea, Sublinea, Alma, Origen, ProdAnt, FilialB, ColorFilial, Minimo
Dim rs10, sql10
Provee = server.HtmlEncode(Request("Provee"))
Mone = Request("Mone")
Origen = Request("Origen")
Iva = server.HtmlEncode(Request("Iva"))
Prod = request("Prod")
ProdAnt = Request("prodAnt")
Dcor = request("Dcor")
Linea = request("Linea")
Sublinea = request("Sublinea")
Alma = request("Alma")
Dim rs30, sql30
set rs30 = server.CreateObject("ADODB.Recordset")
sql30 = "Select Cveprv, Nomprv from Proveedores where cveprv = '"& Provee &"';"
rs30.open sql30,cn1,1,2
Dim rs31, sql31
set rs31 = server.CreateObject("ADODB.Recordset")
sql31 = "Select * from Monedas where cladiv = "& Mone &";"
rs31.open sql31,cn1,1,2
%>
<center>
Proveedor: <%= rs30("Nomprv") %><br>
Moneda: <%= rs31("Desdiv") %> ( <%= Formatcurrency(rs31("Tcadiv")) %> )<br>
Iva: <%= Iva %><br>
<b>Partidas Capturadas De la Orden de Compra</b>
<%
Ses = Session.SessionID
set rs10 = server.CreateObject("ADODB.Recordset")
sql10="select desalm, cantdord, udminv, codtdord, nominv, pretdord, divisas.desdiv as Divisa, round(CASE WHEN MONTDORD = 2 THEN UCOMUL/DIVISAS.TCADIV ELSE UCOMUL END ,2) AS UCOSTO," &_
" round(CASE WHEN MONTDORD = 2 THEN CPMUL/DIVISAS.TCADIV ELSE CPMUL END,2) AS CPROMEDIO," &_
"case when SMAXINV = 0 then '' when SMAXINV >0 AND (Exirmul - Capmul - RSEM + Cxrmul) > SMAXINV then 'SOBREINVENTARIADO' ELSE '' end as dif, (Exirmul - Capmul - RSEM + Cxrmul),"&_
"destdord, unitdord, fptdord, pincord, ppicord, pvecord, cambios.desdiv as Cambios, tcatdord, ptccord, regtdord, " &_
"(SELECT min(columnx) FROM ( VALUES(coatza),(mexico),(puebla), (guadalajara) ) AS UNIQUECOLUMN(columnx) where columnx > 0) AS Minimo, COATZA, MEXICO, PUEBLA, TOLUCA, GUADALAJARA, nparte " &_
"from monedas as Divisas, monedas as cambios, corddtem, inventarios, almacenes, Multialmacen " &_
"where divisas.cladiv = montdord and cambios.cladiv = pmocord and cveinv= artmul and almmul= claalm and doctdord = "& Ses &" " &_
"and codtdord = cveinv and almtdord = claalm order by PINCORD ASC, PPICORD ASC;"
rs10.open sql10,cn1,1,2
%>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0 width="900px">
<tr>
<td Class="normal">Almacen</td>
<td Class="normal">Cantidad</td>
<td Class="normal">U.M.</td>
<td Class="normal">Codigo</td>
<td Class="normal">Descripcion</td>
<td Class="normal">Num. de parte</td>
<td Class="normal">Precio</td>
<td Class="normal">Moneda</td>
<td Class="normal">Desc</td>
<td Class="normal">Unitario</td>
<td Class="normal">Ucosto</td>
<td Class="normal">Cpromedio</td>
<td Class="normal">F. Entrega</td>
<td Class="normal">Pedido</td>
<td Class="normal">Partida</td>
<td Class="normal">Venta</td>
<td Class="normal">Moneda</td>
<td Class="normal">Importe</td>
<td Class="normal">Utilidad</td>
<td Class="normal" Colspan="3">Acciones</td>
<!--<td Class="normal" Colspan="2">Filiales</td>-->
<td Class="normal">Sta Exis</td>
</tr>
<%
If rs10.Eof then %>
<tr>
<td align="center" Class="normal" bgcolor="#d8d8d8" Colspan=13>
No Hay partidas Capturadas</td>
<%
else
Dim CFila, Color, TImpo, Modi, Tmodi, Utilidad, Negrita
Timpo = 0
While (Not RS10.eof)
If Cdbl(rs10("pvecord")) = 0 then
Utilidad = 100
Else
Utilidad = ((1 - (Cdbl(rs10("Unitdord")) * Cdbl(rs10("tcatdord"))) / (Cdbl(rs10("ptccord")) * Cdbl(rs10("pvecord")))) * 100)
End If
If Utilidad < 15 then
Negrita = "<b><Font Color=#F52C26>"
Else
Negrita = "<Font Color=#000000>"
End If
Modi = rs10("pincord")
If modi = 0 then
Tmodi = " "
else
Tmodi = ""
end If
Timpo = cdbl(Timpo) + (Cdbl(rs10("cantdord")) * Cdbl(rs10("pretdord")))
if CFila = 0 then
Color= "#d8d8d8"
CFila = 1
else
Color= "#ffffff"
Cfila = 0
end if
Minimo = Rs10("Minimo")
If Minimo = "" Or Isnull(Minimo) Then
Minimo = 0
Else
Minimo = Minimo
End If
If Cdbl(Minimo) = Cdbl(Rs10("Coatza")) Then
FilialB = "COATZA"
Else If Cdbl(Minimo) = Cdbl(Rs10("Mexico")) Then
FilialB = "MEXICO"
Else If Cdbl(Minimo) = Cdbl(Rs10("PUEBLA")) Then
FilialB = "PUEBLA"
Else If Cdbl(Minimo) = Cdbl(Rs10("TOLUCA")) Then
FilialB = "TOLUCA"
Else If Cdbl(Minimo) = Cdbl(Rs10("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>
<FORM action="Cordirmod.asp" NAME="Cordirmod" method='post'>
<td Class="normal" bgcolor="<%= Color %>" width="50px" align="Right"><%= rs10("desalm") %></td>
<td Class="normal" bgcolor="<%= Color %>" width="50px">
<input Type="Text" name="Cantidad" Value=<%= Ccur(rs10("cantdord")) %> size="7" Class="normal" <%= Tmodi %> style="Text-align:right; background-color:<%= Color %>">
<input Type="Hidden" Name="Regi" size="10" Class="Normalc" Value=<%= rs10("regtdord") %>>
<input Type="Hidden" Name="Code" size="10" Class="Normalc" Value=<%= rs10("codtdord") %>>
<input Type="Hidden" Name="Provee" size="10" Class="Normalc" Value="<%= Provee %>">
<input Type="Hidden" Name="Mone" size="10" Class="Normalc" Value="<%= Mone %>">
<input Type="Hidden" Name="Iva" size="10" Class="Normalc" Value="<%= Iva %>">
<input Type="Hidden" Name="Origen" size="10" Class="Normalc" Value="<%= Origen %>">
<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 %>">
</td>
<td Class="normal" bgcolor="<%= Color %>" width="20px"><%= rs10("udminv") %></td>
<td Class="normal" bgcolor="<%= Color %>" width="60px">
<a href="Distribucion.asp?Codigo=<%= rs10("codtdord") %>" onclick="NewWindow(this.href,'Distro','600','450','yes');return false;"><%= rs10("codtdord") %></a>
</td>
<td Class="normal" bgcolor="<%= Color %>" width="200px"><%= rs10("nominv") %></td>
<td class="normal" bgcolor="<%= Color %>" width="10px">
<%
dim rs21, sql21
dim Cod
Cod = rs10("codtdord")
'****** Tabla Nparteinv ****
Set Rs21 = Server.CreateObject("ADODB.Recordset")
Sql21="Select * From Nparteinv " &_
"Where Codnpinv = '"& Sanea(Cod) &"';"
Rs21.Open Sql21,Cn1,1,2
If Rs21.EOF Then
%>
<option value="" Selected>NA </Option>
<%
Else
%>
<SELECT NAME="Npoc" tabindex="4" id="TablaOpc">
<option value="" Selected><%= rs10("nparte") %> </Option>
<%
Do While Not Rs21.EOF
%>
<OPTION value="<%= Rs21("Npinv") %>"> <%= rs21("Pronpinv") &" - "& Rs21("Npinv") %> </Option>
<%
Rs21.Movenext
Loop
%>
</Select>
<%
Rs21.Close
End If
%>
</td>
<td Class="normal" bgcolor="<%= Color %>" width="30px">
<input Type="Text" name="Precio" Value="<%= Csng(rs10("pretdord")) %>" size="6" Class="normal" style="Text-align:right; background-color:<%= Color %>">
</td>
<td Class="normal" bgcolor="<%= Color %>" width="200px"><%= rs10("divisa") %></td>
<td Class="normal" bgcolor="<%= Color %>" width="40px">
<input Type="Text" name="Des" Value="<%= Csng(rs10("destdord")) %>" size="2" Class="normal" style="Text-align:right; background-color:<%= Color %>">
</td>
<td Class="normal" bgcolor="<%= Color %>" width="60px" align="Right"><%= FormatCurrency(rs10("unitdord")) %></td>
<td Class="normal" bgcolor="<%= Color %>" width="60px" align="Right"><%= cdbl(rs10("Ucosto")) %></td>
<td Class="normal" bgcolor="<%= Color %>" width="60px" align="Right"><%= cdbl(rs10("Cpromedio")) %></td>
<td Class="normal" bgcolor="<%= Color %>" width="60px">
<input Type="Text" name="Fentrega" Value="<%= rs10("fptdord") %>" size="10" Class="normal" style="Text-align:right; background-color:<%= Color %>">
</td>
<td Class="normal" bgcolor="<%= Color %>" width="60px" align="right">
<input Type="text" Name="PedI" size="10" Class="Normalc" Value="<%= rs10("pincord") %>">
</td>
<td Class="normal" bgcolor="<%= Color %>" width="60px" align="right">
<input Type="text" Name="Parti" size="10" Class="Normalc" Value="<%= rs10("ppicord") %>">
</td>
<td Class="normal" bgcolor="<%= Color %>" width="60px" align="right"><%= Formatnumber(rs10("pvecord")) %> </td>
<td Class="normal" bgcolor="<%= Color %>" width="200px"><%= rs10("Cambios") %></td>
<td Class="normal" bgcolor="<%= Color %>" width="60px" align="Right"><%= FormatCurrency(Cdbl((rs10("pretdord"))) * Cdbl(rs10("cantdord")))%></td>
<td Class="normal" bgcolor="<%= Color %>" width="60px" align="right"><%= Negrita %><%= Formatnumber(Utilidad) %> %</td>
<td Class="normal" bgcolor="<%= Color %>">
<input type="image" src="image/Modificar.gif" value="Accesar" width="16px" Alt="Modificar">
</td>
</form>
<FORM action="Cordirdel.asp" NAME="Cordirdel" method='post'>
<td Class="normal" bgcolor="<%= Color %>">
<input Type="Hidden" Name="Regi" size="10" Class="Normalc" Value=<%= rs10("regtdord") %>>
<input Type="Hidden" Name="Provee" size="10" Class="Normalc" Value="<%= Provee %>">
<input Type="Hidden" Name="Mone" size="10" Class="Normalc" Value="<%= Mone %>">
<input Type="Hidden" Name="Iva" size="10" Class="Normalc" Value="<%= Iva %>">
<input Type="Hidden" Name="origen" size="10" Class="Normalc" Value="<%= Origen %>">
<input Type="Hidden" Name="Prod" size="10" Class="Normalc" Value="<%= Prod %>">
<input Type="Hidden" Name="ProdAnt" size="10" Class="Normalc" Value="<%= ProdANt %>">
<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="image" src="image/Eliminar.gif" value="Accesar" width="13px" Alt="Eliminar">
</td>
</form>
<td bgcolor="<%= Color %>" Class="Normal">
<a href="Cordirobs.asp?regi=<%=rs10("regtdord")%>&provee="&Provee&"&Mone="&Mone&"&Iva="&Iva&"&Origen="& Origen &"&Prod="&Prod&"&Dcor="&Dcor&"&Linea="&Linea&"&Sublinea="&Sublinea&"&Alma="&Alma&"" 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" bgcolor="<%= Color %>" width="60px" align="right">
<a href="Cmenor.asp?Code=<%= rs10("codtdord") %>" onclick="NewWindow(this.href,'Cmenor','800','450','yes');return false;">
<%= ColorFilial %><%= Formatnumber(Minimo) %>
</A>
</td>
<td Class="normal" bgcolor="<%= Color %>" width="200px"><%= ColorFilial %><%= Filialb %></td>
</td>
-->
<td Class="normal" bgcolor="<%= Color %>" width="200px"><%= ColorFilial %><%= rs10("dif") %></td>
</tr>
<%
RS10.MoveNext
Wend
End If
%>
<%
Dim FImpo
FImpo = 0
FImpo = Fimpo + TImpo
%>
<tr>
<td Class="Normal" colspan="15" align="Right">
<%= FormatCurrency(Fimpo) %></td>
</tr>
</table>
<FORM action="Ordengen.asp" name="Ordengen" method='post'>
<input Type="Hidden" Name="Subtotal" size="10" Class="Normalc" Value="<%= Fimpo %>">
<input Type="Hidden" Name="Ivaf" size="10" Class="Normalc" Value="<%= (Fimpo * Iva)/100 %>">
<input Type="Hidden" Name="Total" size="10" Class="Normalc" Value="<%= Fimpo + ((Fimpo * Iva)/100) %>">
<input Type="Hidden" Name="Provee" size="10" Class="Normalc" Value="<%= Provee %>">
<input Type="Hidden" Name="Mone" size="10" Class="Normalc" Value="<%= Mone %>">
<input Type="Hidden" Name="Iva" size="10" Class="Normalc" Value="<%= Iva %>">
<input Type="Hidden" Name="Origen" size="10" Class="Normalc" Value="<%= Origen %>">
<Input type="Submit" value="Guardar" Class="normal">
</form>
<hr>
<b>Buscador</b>
<FORM action="Ordendir.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">Codigo Anterior:</td>
<td>
<input type="text" class="normalb" name="Prodant" 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 rs7, sql7
set rs7 = server.CreateObject("ADODB.Recordset")
sql7 = "select * from sublineas order by dessli asc;"
rs7.open sql7,cn1,1,2
rs7.MoveFirst
response.write "<SELECT NAME=Sublinea>"
response.write "<option value='' Selected>" & "Todos"
while not rs7.EOF
response.write "<OPTION value=" & rs7("Clasli") & ">" & rs7("dessli")
rs7.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" Name="Provee" size="10" Class="Normalc" Value="<%= Provee %>">
<input Type="Hidden" Name="Mone" size="10" Class="Normalc" Value="<%= Mone %>">
<input Type="Hidden" Name="Iva" size="10" Class="Normalc" Value="<%= Iva %>">
<input Type="Hidden" Name="Origen" size="10" Class="Normalc" Value="<%= Origen %>">
<input type="submit" value="Filtrar" class=normalb></td>
</tr>
</table>
</form>
<HR>
<%
Response.Flush
Dim rs12, sql12
Dim Numreg, Numcam, NCampo, Nmostrado
'Numero de Paginas
If Request("pag")<>"" Then
Session("Pag")=Request("pag")
Else
Session("Pag")=1
End If
set rs12 = server.CreateObject("ADODB.Recordset")
sql12 = "select * " &_
"from Inventarios, Multialmacen, almacenes where artmul = cveinv " &_
"and artmul like '%" & Ucase(Request("Prod")) & "%'" &_
"and Codeant like '%" & Ucase(Request("ProdAnt")) & "%'" &_
"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;"
rs12.open sql12,cn1,1,2
'Registros por Pagina
numreg = 30
'Dimensionamos las paginas y determinamos la pagina actual
If Dcor = "" and Prod = "" and linea = "" and Sublinea = "" and ProdAnt = "" then
%>
<b> Favor de Buscar Un Producto
</b>
<%
else
%>
<%
If rs12.Eof then %>
<tr>
<td align="center" Class="normal" bgcolor="#d8d8d8" Colspan=6>
<b>No se Encontraron Productos Bajo ese Criterio</td><b>
<%
else
RS12.PageSize=numreg
RS12.AbsolutePage=Session("Pag")
%>
Pagina <b><%=Session("Pag")%></b> De <b><%=RS12.PageCount%></b>
<br>
Registros Encontrados: <b><%=RS12.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 RS12.eof And Nmostrado < numreg)
Nmostrado = Nmostrado +1
%>
<tr>
<FORM action="OrdTgra.asp" name="Movmaqpnw" method='post'>
<td align="Left" Class="normal" bgcolor="#d8d8d8"><%= rs12("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="<%= rs12("regmul") %>">
<input Type="Hidden" Name="Provee" size="10" Class="Normalc" Value="<%= Provee %>">
<input Type="Hidden" Name="Mone" size="10" Class="Normalc" Value="<%= Mone %>">
<input Type="Hidden" Name="Iva" size="10" Class="Normalc" Value="<%= Iva %>">
<input Type="Hidden" Name="Origen" size="10" Class="Normalc" Value="<%= Origen %>">
<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="Code" size="10" Class="Normalc" Value="<%= Rs12("Cveinv") %>">
</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8"><%= rs12("udminv") %></td>
<td align="left" Class="normal" bgcolor="#d8d8d8">
<a href="Distribucion.asp?Codigo=<%= rs12("cveinv") %>" onclick="NewWindow(this.href,'Distro','600','450','yes');return false;"><%= rs12("cveinv") %></a>
</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8"><%= rs12("nominv") %></td>
<td align="Right" Class="normal" bgcolor="#d8d8d8">
<input Type="Text" Name="Precio" size="12" Class="Normalc" Value="<%= Csng(rs12("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>
<%
RS12.MoveNext
Wend
End If
%>
<tr>
<td colspan="7" align="center">
<%
i=0
While i<RS12.PageCount
i=i+1
%>
<b><a href="Ordendir.asp?pag=<%=i%>&provee=<%=Provee%>&Mone=<%=Mone%>&Iva=<%=Iva%>&Origen=<%= Origen %>&Prod=<%=Prod%>&Dcor=<%=Dcor%>&Linea=<%=Linea%>&Sublinea=<%=Sublinea%>&Alma=<%=Alma%>"><%=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()
%>