<%
Option Explicit
%>
<!--#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 style="position:absolute; top:80px;">
<center>
<%
Dim Rs11, Sql11
Dim FechaI, FechaF
Dim Solicitado, Surtido, Pendiente, Pedido, Remision, DiasE, Califica
FechaI = Request("FechaI")
FechaF = Request("FechaF")
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select * From Medfactura where Fecfface between '"& FechaI &"' and '"& FechaF &"';"
Rs11.Open Sql11,Cn1,1,2
If Rs11.Eof Then
%>
No Existen Registros De la Fecha Inicial <%= FechaI %> y La Fecha Final <%= FechaF %>
<%
Else
%>
<TABLE border=1 cellspacing=2 cellpadding=2 class="normal">
<tr>
<td Class="Normalc">Factura</td>
<td Class="Normalc">Fecha</td>
<td Class="Normalc">Status</td>
<td Class="Normalc">Cliente</td>
<td Class="Normalc">Partida</td>
<td Class="Normalc">Almacen</td>
<td Class="Normalc">Codigo</td>
<td Class="Normalc">Cantidad</td>
<td Class="Normalc">F.P.E.</td>
<td Class="Normalc">Remision</td>
<td Class="Normalc">Pedido</td>
<td Class="Normalc">Solicitado</td>
<td Class="Normalc">Surtido</td>
<td Class="Normalc">Pendiente</td>
<td Class="Normalc">Atraso</td>
<td Class="Normalc">Calificacion</td>
</tr>
<%
Do While Not Rs11.Eof
Solicitado = Rs11("canfpedd")
Surtido = Rs11("csufpedd")
Pendiente = Rs11("cpefpedd")
Pedido = Rs11("Npefpedd")
Remision = Rs11("nrefremd")
DiasE = Rs11("Fecfface") - Rs11("Fpeffacd")
If Isnull(Solicitado) then
Solicitado = 0
Else
Solicitado = Solicitado
End If
If Isnull(Surtido) then
Surtido = 0
Else
Surtido = Surtido
End If
If Isnull(Pendiente) then
Pendiente = 0
Else
Pendiente = Pendiente
End If
If Isnull(Pedido) then
Pedido = 0
Else
Pedido = Pedido
End If
If Isnull(Remision) then
Remision = 0
Else
Remision = Remision
End If
If Cdbl(DiasE) < 1 then
Califica = 100
Else If Cdbl(DiasE) = 1 then
Califica = 90
Else If Cdbl(DiasE) = 2 then
Califica = 80
Else If Cdbl(DiasE) = 3 then
Califica = 70
Else If Cdbl(DiasE) = 4 then
Califica = 65
Else If Cdbl(DiasE) = 5 or Cdbl(DiasE) = 6 or Cdbl(DiasE) = 7 or Cdbl(DiasE) = 8 or Cdbl(DiasE) = 9 or Cdbl(DiasE) = 10 then
Califica = 60
Else If Cdbl(DiasE) = 11 or Cdbl(DiasE) = 12 or Cdbl(DiasE) = 13 then
Califica = 55
Else If Cdbl(DiasE) > 13 then
Califica = 0
End If
End If
End If
End If
End If
End If
End If
End If
%>
<tr>
<td Class="Normalc"><%= Rs11("Numfface") %></td>
<td Class="Normalc"><%= Rs11("fecfface") %></td>
<td Class="Normalc"><%= Rs11("stafface") %></td>
<td Class="Normalc"><%= Rs11("cliffacd") %></td>
<td Class="Normalc" align="right"><%= Rs11("secffacd") %></td>
<td Class="Normalc" align="right"><%= Rs11("almffacd") %></td>
<td Class="Normalc"><%= Rs11("codffacd") %></td>
<td Class="Normalc" align="right"><%= FormatNumber(Rs11("canffacd")) %></td>
<td Class="Normalc"><%= Rs11("fpeffacd") %></td>
<td Class="Normalc" align="right"><%= Remision %></td>
<td Class="Normalc" align="right"><%= Pedido %></td>
<td Class="Normalc" align="right"><%= Formatnumber(Solicitado) %></td>
<td Class="Normalc" align="right"><%= Formatnumber(Surtido) %></td>
<td Class="Normalc" align="right"><%= Formatnumber(Pendiente) %></td>
<td Class="Normalc" align="right"><%= Formatnumber(DiasE) %></td>
<td Class="Normalc" align="right"><%= Formatnumber(Califica) %></td>
</tr>
<%
Rs11.MoveNext
Loop
End If
%>
</table>
<hr>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>