<%
Option Explicit
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<%
Dim Colada, Codigo, Recepcion, Proveedor, Certi
Colada = request("Colada")
Codigo = request("Codigo")
Recepcion = request("Recepcion")
Proveedor = request("Proveedor")
Certi = request("Certi")
%>
<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>
<center>
<!--#include file="empresa.asp"--><br><br>
<%
Dim Rs11, Rs12
Dim Sql11, Sql12
Dim Proceso, ColorBG
Dim Contado, TipoProd, TipoP
Response.Expires = 0
Response.Buffer = True
'la siguiente linea escribe el encabezado... produciendo el refresh.
Response.AddHeader "Refresh", "30"
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select Numfreme, Fecfreme, Clifreme, Nomcli, Stafreme, Mtore, Confreme, max(MTOB) as usuario, Recoger, Tipoprod, surtidor " &_
"From Fremenc, Clientes, Fremdet " &_
"Where Clifreme = Clacli " &_
"and (Mtore = 0 or Mtore = 1 or Mtore = 2 or Mtore = 3) and (Stafreme = 'A') and NUMFREME = NREFREMD and embdire = 0 " &_
"group By Numfreme, Fecfreme, Clifreme, Nomcli, Stafreme, Mtore, Confreme, MTOB, Recoger, Tipoprod,surtidor " &_
"Order by numfreme desc;"
Rs11.Open Sql11,cn1,1,2
If Rs11.Eof Then
Else
%>
<B>***** Remisiones pendientes de Separar *****</B>
<br>
<TABLE border=0 cellspacing=2 cellpadding=2 class="normal">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Remision </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">Tipo </td>
<TD align="Left" class="normalw" bgcolor="#006699">Condiciones_Pago </td>
<TD align="Left" class="normalw" bgcolor="#006699">Proceso </td>
<TD align="Left" class="normalw" bgcolor="#006699">Asignado a: </td>
<TD align="Left" class="normalw" bgcolor="#006699">Usuario </td>
</tr>
<%
Do While Not Rs11.Eof
Proceso = Rs11("Mtore")
Contado = Rs11("Recoger")
TipoProd = Rs11("TipoProd")
If TipoProd = 0 Then
TipoP = "TUBERIA"
Else If TipoProd = 1 Then
TipoP = "CONEXIONES"
Else If TipoProd = 2 Then
TipoP = "RECUBRIMIENTOS"
End If
End If
End If
If Contado = True Then
ColorBG = "#FC720C"
Else
ColorBG = "#D1D3D3"
If proceso = 0 Then
ColorBG = "#D1D3D3"
Else
ColorBg = "#26FD10"
End IF
End If
%>
<Tr>
<Td align="Right" class="normalb" bgcolor="<%= ColorBg %>">
<a href="StatusRevaD.asp?Nremision=<%= Rs11("Numfreme") %> " onclick="NewWindow(this.href,'Fmaqp','790','470','yes');return false;">
<%= Rs11("Numfreme") %>
</a>
</td>
<Td align="Right" class="normalb" bgcolor="<%= ColorBg %>"><%= Rs11("Fecfreme") %> </td>
<Td align="Left" class="normalb" bgcolor="<%= ColorBg %>">
<a href="StaRemdet.asp?Remision=<%= Rs11("Numfreme") %>" onclick="NewWindow(this.href,'<%= Rs11("Numfreme") %>','790','470','yes');return false;">
<%= Rs11("Clifreme") %> </td>
<Td align="Left" class="normalb" bgcolor="<%= ColorBg %>"><%= Rs11("Nomcli") %> </td>
<Td align="Center" class="normalb" bgcolor="<%= ColorBg %>"><%= Rs11("Stafreme") %> </td>
<Td align="Left" class="normalb" bgcolor="<%= ColorBg %>"><%= TipoP %> </td>
<Td align="Center" class="normalb" bgcolor="<%= ColorBg %>"><%= Rs11("Confreme") %> </td>
<Td align="Center" class="normalb" bgcolor="<%= ColorBg %>"><%= Rs11("Mtore") %> </td>
<Td align="Center" class="normalb" bgcolor="<%= ColorBg %>"><%= Rs11("surtidor") %> </td>
<Td align="Center" class="normalb" bgcolor="<%= ColorBg %>"><%= Rs11("Usuario") %> </td>
</Tr>
<%
Rs11.Movenext
Loop
%>
</Table>
<%
End If
%>
<br><br>
<center>
<%
Set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12 = "Select Numsae, Fecsae, Prosae, Nomprv, Mtore, max(MTOB) as usuario " &_
"From Csalenc, Proveedores, Csaldet " &_
"Where Prosae = Cveprv " &_
"and (Mtore = 0 or Mtore = 1 or Mtore = 2 or Mtore = 3) and Numsae = Numsad " &_
"group By Numsae, Fecsae, Prosae, Nomprv, Mtore " &_
"Order by Numsae desc;"
Rs12.Open Sql12,cn1,1,2
If Rs12.EOF Then
Else
%>
<B>***** Notas de Salida pendientes de Separar *****</B>
<br>
<TABLE border=0 cellspacing=2 cellpadding=2 class="normal">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Nota de Salida </td>
<TD align="Left" class="normalw" bgcolor="#006699">Fecha </td>
<TD align="Left" class="normalw" bgcolor="#006699">Clave </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">Usuario </td>
</tr>
<%
Do While Not Rs12.Eof
%>
<Tr>
<Td align="Right" class="normalb" bgcolor="<%= ColorBg %>">
<a href="StatusSalvaD.asp?Salida=<%= Rs12("Numsae") %> " onclick="NewWindow(this.href,'Fmaqp','790','470','yes');return false;">
<%= Rs12("Numsae") %>
</a>
</td>
<Td align="Right" class="normalb" bgcolor="<%= ColorBg %>"><%= Rs12("Fecsae") %> </td>
<Td align="Left" class="normalb" bgcolor="<%= ColorBg %>"><%= Rs12("Prosae") %> </td>
<Td align="Left" class="normalb" bgcolor="<%= ColorBg %>"><%= Rs12("Nomprv") %> </td>
<Td align="Center" class="normalb" bgcolor="<%= ColorBg %>"><%= Rs12("Mtore") %> </td>
<Td align="Center" class="normalb" bgcolor="<%= ColorBg %>"><%= Rs12("Usuario") %> </td>
</Tr>
<%
Rs12.Movenext
Loop
%>
<%
End If
%>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>