<%
Option Explicit
Session.LCID = 2058
'***** SI NO HA INICIADO SESION ***
If Session("Mybussiness") = "" then
Response.redirect("default.asp")
Else
Session.Timeout = 1200
'******* EN CASO DE ERROR ****
Err.Clear
On Error Resume Next
'*** REMPLAZA
Function Sanea(Texto)
Sanea = Replace(Texto, "'", "''")
End Function
%>
<!DOCTYPE html>
<HTML>
<HEAD>
<meta charset="ISO-8859-1" />
<TITLE>SISTEMA MIM <%= Session("Mybussiness") %> USUARIO: <%= Session("MyName") %></TITLE>
<link href="css/IndicadorA.css" rel="stylesheet" />
<!-- JavaScript para enviar a una pagina emergente -->
<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>
<%
'***** Variables a la base de datos ****
Dim Cn1, Cn2
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18, Rs19, Rs20, Rs21, Rs22, Rs23, Rs24, Rs25, Rs26, Rs27, Rs28, Rs29
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24, Sql25, Sql26, Sql27, Sql28, Sql29
'***** Conexion a la Base de Datos
Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database="& Session("Mybussiness") &""
'***** Conexion a la Base de Datos
Set Cn2 = Server.CreateObject( "ADODB.Connection" )
Cn2.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMINDMEX;PWD=IW2BF01;Database="& Session("Mybussiness") &""
'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2
%>
<Header>
<%= Rs11("Nombre") %><br>
<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
<%= Rs11("Poblacion") %>
</header>
<SECTION>
<CENTER>
<BR><BR>
<%
Dim Remision, FechaF
Remision = Request("Remision")
FechaF = Request("FechaF")
%>
<Form action="TrackingRem.asp" name="TrackingRem" method="Post">
<Table Id="TbLinea">
<Tr>
<Td>Numero Remision:</td>
<Td Id="TdLineaHeader">
<input tabindex="1" type="Text" placeholder="Remision" Title="Remision" name="Remision" id="TdProveedorRight" value="<%= Remision %>" Size="10px" onChange="javascript:this.value=this.value.toUpperCase();" />
</Td>
</Tr>
<Tr>
<Td>Fecha:</td>
<Td Id="TdLineaHeader">
<input tabindex="1" type="Text" placeholder="FechaF" Title="FechaF" name="FechaF" id="TdProveedorRight" value="<%= date() %>" Size="10px" onChange="javascript:this.value=this.value.toUpperCase();" />
</Td>
</Tr>
<Tr>
<Td align="center" Id="TdLineaHeader">
<button tabindex="4" type="submit" name="Buscar" id="TdProveedorLeft"/>Buscar</button>
</Td>
</Tr>
</Table>
<%
If remision = "" or FechaF = "" Then
Else
'***** Conexion A la Tabla Remisiones ****
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="SELECT NUMFREME AS REMISION, ANTFREMD AS PEDIDO, SIGFREMD AS FACTURA, NUMRDET AS FOLIO_RUTA, " &_
"NOMCLI AS CLIENTE, NOMVEND AS VENDEDOR, USUFPEDE AS CAPTURO " &_
"FROM FREMDET " &_
"LEFT JOIN FREMENC ON NUMFREME = NREFREMD " &_
"left join RUTADET ON NUMFREME = DOCRDET " &_
"LEFT JOIN CLIENTES ON CLIFREME = CLACLI " &_
"LEFT JOIN VENDEDORES ON VENCLI = CVEVEND " &_
"LEFT JOIN FPEDENC ON NUMFPEDE = ANTFREMD " &_
"WHERE (cast(FECFREME as date) = '"& FechaF &"') "&_
"or ( NUMFREME = "& Remision &")" &_
"GROUP BY NUMFREME, ANTFREMD, SIGFREMD, NUMRDET, NOMCLI, NOMVEND, USUFPEDE;"
Rs12.Open Sql12,Cn1,1,2
If Rs12.EOF Then
Else
%>
<BR><BR>
<Table Id="TbMes">
<Tr>
<Td Id="TdMesHeader">REMISION</Td>
<Td Id="TdMesHeader">PEDIDO</Td>
<Td Id="TdMesHeader">FACTURA</Td>
<Td Id="TdMesHeader">FOLIO_RUTA</Td>
<Td Id="TdMesHeader">CLIENTE</Td>
<Td Id="TdMesHeader">VENDEDOR</Td>
<Td Id="TdMesHeader">CAPTURO</Td>
</Tr>
<%
Do While Not Rs12.EOF
%>
<Tr>
<Td Id="TdMesLeft">
<a href="Fremcerc.asp?Nremision=<%= Rs12("REMISION") %>" onclick="NewWindow(this.href,'Remision','790','470','yes');return false;">
<%= Rs12("REMISION") %>
</a>
</Td>
<Td Id="TdMesLeft">
<a href="Staremdet.asp?Remision=<%= Rs12("REMISION") %>" onclick="NewWindow(this.href,'<%= Rs12("REMISION") %>','790','470','yes');return false;">
<%= Rs12("PEDIDO") %>
</a>
</Td>
<Td Id="TdMesLeft">
<a href="ffacgesV.asp?Nfactura=<%= Rs12("FACTURA") %>" onclick="NewWindow(this.href,'<%= Rs12("FACTURA") %>','790','470','yes');return false;">
<%= Rs12("FACTURA") %>
</a>
</Td>
<Td Id="TdMesLeft">
<a href="Rutapar.asp?FolioR=<%= Rs12("FOLIO_RUTA") %>" onclick="NewWindow(this.href,'FOLIO_RUTA','790','470','yes');return false;">
<%= Rs12("FOLIO_RUTA") %>
</a>
</Td>
<Td Id="TdMesLeft">
<a href="StatusRevaD.asp?Nremision=<%= Rs12("remision") %>" onclick="NewWindow(this.href,'Fmaqp','790','470','yes');return false;">
<%= Rs12("CLIENTE") %>
</Td>
<Td Id="TdMesLeft"><%= Rs12("VENDEDOR") %></Td>
<Td Id="TdMesLeft"><%= Rs12("CAPTURO") %></Td>
</Tr>
<%
Rs12.Movenext
Loop
%>
<%
End If
End If
%>
</SECTION>
<%
If Err.Number <> 0 Then
%>
<br><br>
Número de Error: <%= Err.Number %><BR>
Descripción: <%= Err.Description %><BR>
Origen: <%= Err.Source %><BR>
Linea: <%= Err.Line %><BR>
<br>
<%
Else
'****** FIN DE LOS ERRORES ***
End If
%>
</BODY>
</HTML>
<%
'FIN DE SESION
End If
%>