<%
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>
<%
Response.Expires = 0
Response.Buffer = True
'la siguiente linea escribe el encabezado... produciendo el refresh.
Response.AddHeader "Refresh", "5"
%>
<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>
<hr>
<%
Dim Rs12, Sql12
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "select Numfpede, Fecfpede, Clifpede, nomcli, stafpede, HFDCFPEDE, Obsfpede, MOSFPEDE, Recoge, ReqcFpede, EdirFpede " &_
"from FPEDENC, CLIENTES " &_
"Where CLIFPEDE = CLACLI and FDCFPEDE > '' AND FDVFPEDE > '' and Impalma is null " &_
"Order By HFDCFPEDE asc "
Rs12.Open Sql12,cn1,1,2
If Rs12. Eof Then
Else
%>
<B>***** IMPRESION DE PEDIDOS ***** </B>
<TABLE border=0 cellspacing=2 cellpadding=2 class="normal">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Pedido </td>
<TD align="Left" class="normalw" bgcolor="#006699">Fecha </td>
<TD align="Left" class="normalw" bgcolor="#006699">Cliente </td>
<TD align="Left" class="normalw" bgcolor="#006699">Nombre </td>
<TD align="Left" class="normalw" bgcolor="#006699">Status </td>
<TD align="Left" class="normalw" bgcolor="#006699">Observaciones </td>
<TD align="Left" class="normalw" bgcolor="#006699">Requi. Comp. </td>
<TD align="Left" class="normalw" bgcolor="#006699">Emb. Dir. </td>
</tr>
<%
Do While Not Rs12.Eof
Dim ObsMos, Mostrador, RequiC, Embdire
Mostrador = Rs12("MOSFPEDE")
If Mostrador = true THEN
ObsMos =Rs12("Obsfpede")
Else
ObsMos =""
End If
Dim RecogeC, ColorLinea
RecogeC = Rs12("RECOGE")
If RecogeC = true or Mostrador = true THEN
ColorLinea ="#FF5733"
Else
ColorLinea ="#ffffff"
End If
If Rs12("ReqcFpede") = true then
RequiC = "Si"
Else
RequiC= "No"
End If
If Rs12("EdirFpede") = true then
Embdire = "Si"
Else
Embdire= "No"
End If
%>
<Tr>
<Td align="Right" class="normalb" bgcolor="<%= ColorLinea %>">
<a href="Fpedalma.asp?Fpednum=<%= Rs12("Numfpede") %>" onclick="NewWindow(this.href,'IMPALMA','600','450','yes');return false;"><%= Rs12("Numfpede") %></a>
</td>
<Td align="Left" class="normalb" bgcolor="<%= ColorLinea %>"><%= Rs12("HFDCFPEDE") %> </td>
<Td align="Left" class="normalb" bgcolor="<%= ColorLinea %>"><%= Rs12("Clifpede") %> </td>
<Td align="Left" class="normalb" bgcolor="<%= ColorLinea %>"><%= Rs12("Nomcli") %> </td>
<Td align="center" class="normalb" bgcolor="<%= ColorLinea %>"><%= Rs12("Stafpede") %> </td>
<Td align="center" class="normalb" bgcolor="<%= ColorLinea %>"><%= ObsMos %> </td>
<Td align="center" class="normalb" bgcolor="<%= ColorLinea %>"><%= RequiC %> </td>
<Td align="center" class="normalb" bgcolor="<%= ColorLinea %>"><%= Embdire %> </td>
</tr>
<%
Rs12.Movenext
Loop
%>
</Table>
<%
End If
%>
<HR>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>