<%
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">
<!-- 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:60px; left:10">
<center>
<%
Dim Rs11, Sql11
Dim Cliente
Dim Csoord, Cpeord
Cliente = Request("Cliente")
%>
<Form action="Fpedbcli.asp" name="BuscaCli" method="Post">
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<Tr>
<TD align="Center" class="normalw" bgcolor="#006699">Buscar Clave Cliente</td>
</tr>
<tr>
<Td align="center" class="normal">
<input type="text" class="normalb" Value="" name="Cliente" size="19" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();"></td>
</Td>
</tr>
<Tr>
<td Colspan="3" Align="Center"> <input type="submit" value="Buscar" class="normalc"></td>
</tr>
</Table>
<hr>
</form>
<%
If Cliente = "" or Isnull(Cliente) Then
%>
***** BUSCAR UN CLIENTE *****
<%
Else
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "SELECT TOP (100) PERCENT dbo.FPEDDET.NPEFPEDD, dbo.FPEDDET.SECFPEDD, dbo.FPEDDET.CANFPEDD, dbo.FPEDDET.CPEFPEDD, dbo.FPEDDET.CODFPEDD, " &_
"dbo.Inventarios.NOMINV, dbo.FPEDDET.FPEFPEDD, dbo.FPEDENC.STAFPEDE, dbo.CORDDET.NUMORD, dbo.CORDDET.SECORD, dbo.CORDDET.CSOORD, " &_
"dbo.CORDDET.CPEORD, dbo.CORDDET.NREORD, dbo.MULTIALMACEN.EXIRMUL " &_
"FROM dbo.FPEDDET INNER JOIN " &_
"dbo.FPEDENC ON dbo.FPEDDET.NPEFPEDD = dbo.FPEDENC.NUMFPEDE INNER JOIN " &_
"dbo.CLIENTES ON dbo.FPEDDET.CLIFPEDD = dbo.CLIENTES.CLACLI INNER JOIN " &_
"dbo.Inventarios ON dbo.FPEDDET.CODFPEDD = dbo.Inventarios.CVEINV INNER JOIN " &_
"dbo.MULTIALMACEN ON dbo.FPEDDET.CODFPEDD = dbo.MULTIALMACEN.ARTMUL AND dbo.FPEDDET.ALMFPEDD = dbo.MULTIALMACEN.ALMMUL LEFT OUTER JOIN " &_
"dbo.CORDDET ON dbo.FPEDDET.NPEFPEDD = dbo.CORDDET.PINORD AND dbo.FPEDDET.SECFPEDD = dbo.CORDDET.PPIORD " &_
"WHERE (dbo.FPEDDET.CPEFPEDD > 0) AND (dbo.FPEDENC.STAFPEDE = 'A') AND (dbo.FPEDDET.CLIFPEDD = '"& Cliente &"') OR " &_
"(dbo.FPEDDET.CPEFPEDD > 0) AND (dbo.FPEDENC.STAFPEDE = 'P') AND (dbo.FPEDDET.CLIFPEDD = '"& Cliente &"') OR " &_
"(dbo.FPEDDET.CPEFPEDD > 0) AND (dbo.FPEDENC.STAFPEDE = 'R') AND (dbo.FPEDDET.CLIFPEDD = '"& Cliente &"') " &_
"ORDER BY dbo.FPEDDET.NPEFPEDD, dbo.FPEDDET.SECFPEDD;"
Rs11.Open Sql11,cn1,1,2
If Rs11.Eof Then
%>
No Existen Datos Para el Cliente <%= Cliente %>
<%
Else
%>
<a href="Fpedbclixls.asp?Cliente=<%= Cliente %>"> Descargar a Excel</a>
<Table border="0" cellspacing="1" cellpadding="1">
<Tr bgcolor="#336699">
<td><font class="n_verdana">Pedido</td>
<td><font class="n_verdana">Partida</font></td>
<td><font class="n_verdana">Solicitado</td>
<td><font class="n_verdana">Pendiente</td>
<td><font class="n_verdana">Codigo</td>
<td><font class="n_verdana">Descripcion</td>
<td><font class="n_verdana">Fec_Prom</td>
<td><font class="n_verdana">Status</td>
<td><font class="n_verdana">Orden</td>
<td><font class="n_verdana">Par_Ord</td>
<td><font class="n_verdana">Solicitado</td>
<td><font class="n_verdana">Pendiente</td>
<td><font class="n_verdana">Recepcion</td>
<td><font class="n_verdana">Existencias</td>
</Tr>
<%
Do While Not Rs11.Eof
Csoord = Rs11("CsoOrd")
If Csoord = "" or Isnull(Csoord) then
Csoord = 0
Else
CsoOrd = Csoord
End If
Cpeord = Rs11("CpeOrd")
If Cpeord = "" or Isnull(Cpeord) then
Cpeord = 0
Else
CpeOrd = Cpeord
End If
%>
<tr >
<td align="Right"><font class="n_verdana_simple"><%= Rs11("npefpedd") %></font></td>
<td align="Right"><font class="n_verdana_simple"><%= Rs11("secfpedd") %></font></td>
<td align="Right"><font class="n_verdana_simple"><%= formatnumber(Rs11("canfpedd")) %></font></td>
<td align="Right"><font class="n_verdana_simple"><%= formatnumber(Rs11("cpefpedd")) %></font></td>
<td align="Left"><font class="n_verdana_simple"><%= Rs11("codfpedd") %></font></td>
<td align="Left"><font class="n_verdana_simple"><%= Rs11("nominv") %></font></td>
<td align="Left"><font class="n_verdana_simple"><%= Rs11("fpefpedd") %></font></td>
<td align="Center"><font class="n_verdana_simple"><%= Rs11("stafpede") %></font></td>
<td align="Right"><font class="n_verdana_simple"><%= Rs11("numord") %></font></td>
<td align="Right"><font class="n_verdana_simple"><%= Rs11("secord") %></font></td>
<td align="Right"><font class="n_verdana_simple"><%= Formatnumber(Csoord) %></font></td>
<td align="Right"><font class="n_verdana_simple"><%= Formatnumber(Cpeord) %></font></td>
<td align="Right"><font class="n_verdana_simple"><%= Rs11("nreord") %></font></td>
<td align="Right"><font class="n_verdana_simple"><%= Formatnumber(Rs11("exirmul")) %></font></td>
</tr>
<%
Rs11.Movenext
loop
%>
</Table>
<%
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()
%>