<%
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
Dim rs11,sql11
Dim Fpednum, Prod, Dcor, Linea, Sublinea, Alma
Dim Mone, Tprecio, Lprecio, Tcam, ProdAnt
Dim Cliente
Dim TipoCliente, TipoCampo
Fpednum = request("Fpednum")
Prod = request("Prod")
Dcor = request("Dcor")
Linea = request("Linea")
Sublinea = request("Sublinea")
ALma = request("Alma")
Cliente = request("cliente")
ProdAnt = Request("prodAnt")
set rs10 = server.CreateObject("ADODB.Recordset")
sql10="Select numfpede, fecfpede, Clifpede, esqfpede, ivafpede, retfpede, Monfpede, subfpede, Ivtfpede, Totfpede, Centrega, " &_
"Labfpede, embfpede, obsfpede, obscom, atefpede, confpede, Clacli, Nomcli, tpecli, stafpede, Hrecibo, " &_
"Cladiv, desdiv, Tcadiv " &_
"from fpedenc, Clientes, Monedas " &_
"where numfpede = "& Fpednum &" and monfpede = cladiv "&_
"And Clacli = clifpede;"
rs10.open sql10,cn1,1,2
Mone = rs10("monfpede")
tcam = rs10("Tcadiv")
Tprecio = rs10("Tpecli")
If Cliente = "" or Isnull("Cliente") then
Cliente = Rs10("Clacli")
Else
Cliente = Cliente
End If
set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11="Select Clacli, Nomcli, TipoCli from Clientes where Clacli = '"& Cliente &"';"
Rs11.Open Sql11,cn1,1,2
TipoCliente = Rs11("TipoCli")
If TipoCliente = "F" Then
TipoCampo = ""
Else
TipoCampo = "Readonly"
End If
%>
<FORM action="Fpedup.asp" name="frm" method='post'>
<TABLE border=0 cellspacing=1 cellpadding=1 width=740px bordercolor=#c0c0c0>
<tr>
<td class="normalc"><B>Cliente:</td>
<td class="normalc" align="Left" Colspan="3">
<a href="BFpedClim.asp?Cliente=<%= Cliente %>&Fpednum=<%= Fpednum %>"
onclick="NewWindow(this.href,'Bfpedclim','500','500','yes');return false;"">
<b>( <%= Rs11("Clacli") %>) <%= Rs11("NomCli") %></b>
<input type="Hidden" name="ClienteN" value="<%= Rs11("Clacli") %>" size="12" class="normalc">
</td>
<td class="normalc"><B>Pedido:</td>
<td class="normalc"><B>( <%= rs10.fields("numfpede") %> )</td>
</tr>
<tr>
<td class="normalc"><B>Fecha Pedido:</td>
<td class="normalc"><B><%= rs10.fields("fecfpede") %> </td>
<td class="normalc"><B>IVA:</td>
<td class="normalc">
<%
Dim rs51, sql51
set rs51 = server.CreateObject("ADODB.Recordset")
Sql51 ="select * from esquemaiva;"
rs51.Open SQL51, cn1
%>
<SELECT NAME=Esquema class=normalb>
<optgroup label="Seleccionado:">
<option value=<%= rs10("ESQfpede") %> Selected>Iva: <%= rs10("ivafpede") %> % | Retencion: <%= rs10("Retfpede") %> %</option>
<optgroup label=" Iva | Retencion">
<!----
<%
while not rs51.EOF
%>
<OPTION value="<%= rs51("regiva") %>">Iva: <%= rs51("Iva") %> % | Retencion: <%= rs51("Retencion") %> %</option>
<%
rs51.MoveNext
wend
response.write "</select>"
%>
--->
</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("monfpede") & "' Selected>" & rs10("desdiv")
while not rs13.EOF
response.write "<OPTION value=" & rs13("cladiv") & ">" & rs13("desdiv")
rs13.MoveNext
wend
response.write "</select>"
%>
</td>
</tr>
</table>
</div>
<div class="normal" style="position:absolute; top:150px; left:15">
<hr>
<input type="Hidden" name="Fpednum" value="<%= Fpednum %>" size="12" class="normalc">
<input type="Hidden" name="Status" value="<%= Rs10("stafpede") %>" size="12" class="normalc">
<%
Dim rs7, sql7
set rs7 = server.CreateObject("ADODB.Recordset")
Sql7 ="select * from Fpeddet, Inventarios, almacenes where npefpedd = "& Fpednum &" " &_
"and cveinv = codfpedd and cpefpedd > 0 and almfpedd = claalm order by secfpedd 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>Almacen</b></td>
<td class="normalB"><b>Codigo</b></td>
<td class="normalB"><b>Descripcion</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>Emb Dir</b></td>
<td class="normalB" Colspan =2><b>Accion</b></td>
</tr>
<%
Dim Color, Colorfila
Dim count,bg_color, embdir, Temba
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 colorfila = 0 then
Color= "#d8d8d8"
Colorfila = 1
else
Color= "#ffffff"
Colorfila = 0
end if
Temba = rs7("embdir")
If Temba = 0 then
Embdir = ""
Else
Embdir = "checked"
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("secfpedd"))%>" 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("canfpedd") %>" size="8" class="normalc" style="background-color:<%=color%>; text-align:right">
</td>
<td Class="Normal" align="center" bgcolor=<%= Color %>><% =rs7("desalm")%></td>
<td Class="Normal" align="Left" bgcolor=<%= Color %>>
<a href="Distribucion.asp?Codigo=<% =rs7("codfpedd")%>" onclick="NewWindow(this.href,'Distro','600','450','yes');return false;"><% =rs7("codfpedd")%></a>
</td>
<td Class="Normal" align="LEFT" bgcolor=<%= Color %>><% =rs7("nominv")%></td>
<td Class="Normal" align="center" bgcolor=<%= Color %>>
<input type="text" name="Pre_<%=i%>" value=<% =Csng(rs7("prefpedd"))%> size="12" class="normalc" style="background-color:<%=color%>; text-align:right" <%= TipoCampo %>></td>
<td Class="Normal" align="Right" bgcolor=<%= Color %>>
<input type="text" name="Desc_<%=i%>" value="<% =FormatNumber(rs7("desfpedd"))%>" size="4" class="normalc" style="background-color:<%=color%>; text-align:right" readonly>%</td>
<td Class="Normal" align="Right" bgcolor=<%= Color %>><% =Formatcurrency(rs7("Unifpedd"))%></td>
<td Class="Normal" align="center" bgcolor=<%= Color %>>
<input type="text" name="Fent_<%=i%>" value="<% =rs7("fpefpedd")%>" size="12" class="normalc" style="background-color:<%=color%>; text-align:right">
</td>
<td Class="Normal" align="center" bgcolor=<%= Color %>>
<input type="checkbox" name="Embar_<%=i%>" value=1 <%= Embdir %>>
</td>
<td Class="Normal" align="center" bgcolor=<%= Color %>>
<a href="Fpedmdel.asp?regi=<%=rs7("regfpedd")%>&FPednum=<%=Fpednum%>&Prod=<%=Prod%>&Dcor=<%=Dcor%>&Linea=<%=Linea%>&Sublinea=<%=Sublinea%>&Alma=<%=Alma%>">
<img src="image/Eliminar.gif" border="0" height="15px" alt="Eliminar"></a>
</td>
<td Class="Normal" align="center" bgcolor=<%= Color %>>
<a href="Fpedupobs.asp?regi=<%=rs7("regfpedd")%>" 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 %>>
<input type="Hidden" name="txt_<%=i%>" value="<% = rs7("regfpedd")%>" disabled style="border:1px solid:#000000;background:<%=bg_color%>" class="n_verdana_simple">
</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("Subfpede")) %></td>
</tr>
<tr>
<td class="normal" COLSPAN=8 align=right><B>Iva:</td>
<td class="normalb" align=right><%= FormatCurrency(rs10.fields("ivtfpede")) %></td>
</tr>
<tr>
<td class="normal" COLSPAN=8 align=right><B>Total:</td>
<td class="normalb" align=right><%= FormatCurrency(rs10.fields("Totfpede")) %></td>
</TR>
<tr>
<td width="60" colspan=2 Class="normal">Atencion:</td>
<td colspan=12 Class="normal"><input type="text" name="Ate" value="<% =rs10("atefpede")%>" size="70" class="normalc" onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<tr>
<td width="60" colspan=2 Class="normal">Cond. Pago:</td>
<td colspan=12 Class="normal"><input type="text" name="Cond" value="<% =rs10("confpede")%>" size="70" class="normalc" onChange="javascript:this.value=this.value.toUpperCase();" readonly></td>
</tr>
<tr>
<td width="60" colspan=2 Class="normal">Pedido del Cliente:</td>
<td colspan=12 Class="normal"><input type="text" name="lab" value="<% =rs10("labfpede")%>" 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("embfpede")%></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("obsfpede")%></textarea></td>
</tr>
<tr>
<td width="60" colspan=2 Class="normal">Obs. Compras:</td>
<td colspan=12 Class="normal"><textarea name="Obsc" cols="150" rows="3" class="normalc" onChange="javascript:this.value=this.value.toUpperCase();"><% =rs10("obscom")%></textarea></td>
</tr>
<td width="60" colspan=2 Class="normal">Horario de Recibo:</td>
<td colspan=12 Class="normal"><input type="text" name="Hrecibo" value="<%= rs10("Hrecibo")%>" size="100" class="normalc" onChange="javascript:this.value=this.value.toUpperCase();"></td>
</tr>
<td width="60" colspan=2 Class="normal">Contacto de Entrega:</td>
<td colspan=12 Class="normal"><input type="text" name="Centrega" value="<%= rs10("Centrega")%>" size="70" 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="fpedmodi.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 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("desalm") & ">" & rs6("desalm")
rs6.MoveNext
wend
response.write "</select>"
%>
<%
rs6.close
%>
</td>
<td> 
<input type="hidden" class="normalb" name="Fpednum" value=<%= Fpednum %> 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, Divisa, Tcaprod
'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, monedas 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 desalm like '%" & Ucase(Request("Alma")) & "%' " &_
"and almmul = claalm and mplinv = cladiv;"
rs31.open sql31,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 Alma = "" and ProdAnt = "" then
%>
<b> Favor de Buscar Un Producto
</b>
<%
else
%>
<%
Response.Flush
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">Existencias</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
If Tprecio = 1 Then
Lprecio = rs31("plainv")
Else If Tprecio = 2 Then
Lprecio = rs31("plbinv")
Else if Tprecio = 3 Then
Lprecio = rs31("plcinv")
End If
End If
End If
Tcaprod = rs31("Tcadiv")
Divisa = (Cdbl(Lprecio) * Cdbl(tcaprod)) / Cdbl(Tcam)
%>
<tr>
<FORM action="FpedTmod.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="Fpednum" size="10" Class="Normalc" Value="<%= fpednum %>">
<input Type="Hidden" Name="Cliente" size="10" Class="Normalc" Value="<%= rs10("Clacli") %>">
<input Type="Hidden" Name="Esquema" size="10" Class="Normalc" Value="<%= rs10("esqfpede") %>">
<input Type="Hidden" Name="Mone" size="10" Class="Normalc" Value="<%= rs10("monfpede") %>">
<input Type="Hidden" Name="Alma" size="10" Class="Normalc" Value="<%= Alma %>">
<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 %>">
</td>
<td align="Right" Class="normal" bgcolor="#d8d8d8"><%= Formatnumber(Cdbl(rs31("exirmul")) - Cdbl(rs31("capmul")) + Cdbl(rs31("EMBDIRE"))) %></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(Divisa) %>" style="background-color:#d8d8d8; text-align:right" <%= TipoCampo %> 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() %>" 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="Fpedmodi.asp?pag=<%=i%>&Fpednum=<%=Fpednum%>&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()
%>