<%
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>
<B>***** CAPTURA DE RUTAS ****</B>
<hr>
<%
Dim Rs10, Sql10
Set Rs10 = Server.CreateObject("ADODB.Recordset")
Sql10 = "Select * from rutam where usmruta = '"& Nombre &"';"
Rs10.Open Sql10,Cn1,1,2
Do While Not Rs10.EOF
%>
<a href="<%= Rs10("memruta") %>.asp"><img src="Image/<%= Rs10("nomruta") %>.gif" border=0 Alt=<%= Rs10("nomruta") %>></a>
<%
Rs10.MoveNext
Loop
%>
<hr>
<B><<<<< BUSQUEDA DE RUTAS >>>>> </B>
<BR>
<Form action="Rutas.asp" Name="Filtro" Method="Post">
<TABLE Border="0" Cellspacing="1" Cellpadding="2">
<Tr>
<td Class="Normalb">Filtrar Por: </td>
<td Class="Normalb">
<Select NAME="FiltroA" Class="Normalb">
<Option Value="DOCRDET">Documento</Option>
<Option Value="NUMRENC">Folio</Option>
<Option Value="FECRENC">Fecha</Option>
<Option Value="NOMOPER">Operador</Option>
<Option Value="RUTRENC">Ruta</Option>
</Select>
</Td>
<Td Class="Normalb">
<Select NAME="FiltroB" Class="Normalb">
<Option Value="Like">Contiene</Option>
<Option Value="=">Igual que</Option>
<Option Value="<">Menor que</Option>
<Option Value=">">Mayor que</Option>
<Option Value="<>">Diferente a</Option>
</Select>
</td>
<Td Class="Normalb">
<Input Type="Text" Class="Normalb" Name="FiltroC" Size="15" Value="" Style="Text-Align:Right" OnChange="javascript:this.value=this.value.toUpperCase();">
</td>
<Td Class="Normalb">
<input type="Submit" value="Filtrar" class="Normalb">
</td>
</Tr>
</Table>
</Form>
<%
Dim Rs11, Sql11, Rs12, Sql12
Dim FiltroA, FiltroB, FiltroC, FiltroD, TipoO
Dim Msga
Dim num_Registros, registros_mostrados, Ncampo, CampoR
Dim MiColor, FilaColor, TipoD, StaR,StaRED
FiltroA = Ucase(Request("FiltroA"))
FiltroB = Ucase(Request("FiltroB"))
FiltroC = Ucase(Request("FiltroC"))
TipoO = Ucase(Request("TipoO"))
'******* ABRE LA CONDICIONAL CUANDO LOS TRES FILTROS SON NULOS****'
If FiltroA="" And FiltroB="" And FiltroC = "" Then
%>
<B> ***** BUSCAR UNA COTIZACION ******</B>
<BR>
<%
'******** EN CASO DE QUE ALGUNO DE LAS CONDICIONALES NO SEA NULA ******
Else
If FiltroB = "LIKE" Then
FiltroD = "'%" & UCase(Request("FiltroC")) & "%'"
Else
FiltroD = "'" & UCase(Request("FiltroC")) & "'"
End If
If TipoO = "" Or Isnull(TipoO) Then
TipoO = "DOCRDET"
Else
TipoO = TipoO
End If
Msga = FiltroA & " " & FiltroB & " " & FiltroD & " order by " & TipoO & " desc "
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="select NUMRENC, FECRENC, MtorT, NOMOPER, RUTRENC, DOCRDET, TIPRDET, DESTAREMAL, STASRDET, OBSRDET " &_
"From RUTAENC LEFT JOIN RUTADET ON NUMRENC = NUMRDET LEFT JOIN RUTAOPER ON OPERENC = IDOPER " &_
"LEFT JOIN fremenc ON numfreme = DOCRDET LEFT JOIN STAREMAL ON IDSTAREMAL = STALFREME " &_
"WHERE " & msga & ";"
Rs12.Open Sql12,Cn1,1,2
'***** SI NO EXISTEN REGISTROS *****
If Rs12.Eof Then
%>
<%
'**** EN CASO DE QUE SI EXISTEN REGISTROS ****
Else
'Numero de Paginas
If Request("pag")<>"" Then
Session("pagina")=Request("pag")
Else
Session("pagina")=1
End If
'Registros por Pagina
num_registros = 100
'Dimensionamos las paginas y determinamos la pagina actual
Rs12.PageSize=num_registros
Rs12.AbsolutePage=Session("pagina")
%>
<hr>
<b>Pagina <%=Session("pagina")%> De <%=Rs12.PageCount%>
<br>
Registros Encontrados: <%=Rs12.RecordCount%></b>
<hr>
<Table border="1" cellspacing="1" cellpadding="2" Width="800px">
<Tr bgcolor="#D2D4D7" Class="Normalb">
<Td>FOLIO</td>
<Td>FECHA</td>
<Td>STATUSR</td>
<Td>OPERADOR</td>
<Td>RUTA</td>
<Td>DOCUMENTO</td>
<Td>TIPO</td>
<Td>STATUS</td>
<Td>STATUS RUT ENT.</td>
<Td>OBSERV. ENTREGA</td>
</Tr>
<%
registros_mostrados = 0
Do While (Not RS12.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
If FilaColor = 0 then
Micolor= "#d8d8d8"
FilaColor = 1
Else
MiColor= "#ffffff"
FilaColor = 0
End If
TipoD = Rs12("Tiprdet")
StaR = Rs12("MtorT")
StaRED = Rs12("STASRDET")
If TipoD = 1 Then
TipoD = "REMISION"
Else If TipoD = 2 Then
TipoD = "ORDEN DE COMPRA"
Else If TipoD = 3 Then
TipoD = "DEVOLUCION"
Else If TipoD = 4 Then
TipoD = "NOTA DE SALIDA"
End If
End If
End If
End If
If StaR = 0 Then
StaR = "EN PROCESO"
Else If StaR = 1 Then
StaR = "EN TRANSITO"
Else If StaR = 2 Then
StaR = "FINALIZADA"
End If
End If
End If
If StaRED = 0 Then
StaRED = "X CONFIRMAR"
Else If StaRED = 1 Then
StaRED = "ENTREGA COMPLETA"
Else If StaRED = 2 Then
StaRED = "NO SE ENTREGO"
Else If StaRED = 3 Then
StaRED = "ENTREGA PARCIAL"
End If
End If
End If
End If
%>
<Tr>
<Td Class="Normal" Align="Right" Bgcolor=<%=MiColor%>><%= Rs12("numrenc") %></td>
<Td Class="Normal" Align="Right" Bgcolor=<%=MiColor%>><%= Rs12("fecrenc") %></td>
<Td Class="Normal" Align="Right" Bgcolor=<%=MiColor%>><%= StaR %></td>
<Td Class="Normal" Align="Left" Bgcolor=<%=MiColor%>><%= Rs12("nomoper") %></td>
<Td Class="Normal" Align="Left" Bgcolor=<%=MiColor%>><%= Rs12("rutrenc") %></td>
<Td Class="Normal" Align="Right" Bgcolor=<%=MiColor%>><%= Rs12("docrdet") %></td>
<Td Class="Normal" Align="Left" Bgcolor=<%=MiColor%>><%= TipoD %></td>
<Td Class="Normal" Align="Left" Bgcolor=<%=MiColor%>><%= Rs12("DESTAREMAL") %></td>
<Td Class="Normal" Align="Left" Bgcolor=<%=MiColor%>><%= StaRED %></td>
<Td Class="Normal" Align="Left" Bgcolor=<%=MiColor%>><%= Rs12("OBSRDET") %></td>
</Tr>
<%
Rs12.Movenext
Loop
%>
<Tr>
<Td colspan="7" align="center">
<%
i=0
While i<Rs12.PageCount
i=i+1
%>
<a Href="Rutas.asp?TipoO=<%= TipoO %>&FiltroA=<%= FiltroA %>&FiltroB=<%= FiltroB %>&FiltroC=<%= FiltroC %>&pag=<%=i%>"><%= i %></a>
<%
Wend
%>
</td>
</tr>
</Table>
<hr>
<b>Pagina <%=Session("pagina")%> De <%=Rs12.PageCount%>
<br>
Registros Encontrados: <%=Rs12.RecordCount%></b>
<hr>
<%
End If
End If
%>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>