<%
Option Explicit
Session.LCID = 2058
'***** SI NO HA INICIADO SESION ***
If Session("Mybussiness") = "" then
Response.redirect("default.asp")
Session("ID")=Cint(0)
Else
Session("ID")= 1000
Session.Timeout = 1200
'******* EN CASO DE ERROR ****
Err.Clear
On Error Resume Next
'*** REMPLAZA
Function Sanea(Texto)
Sanea = Replace(Texto, "'", "''")
End Function
%>
<html>
<head>
<title>Sistema MIM </title>
<meta charset="ISO-8859-1" />
<meta name="viewport" content="width=device-width, initial-scale=1, user-scalable=no" />
<link rel="stylesheet" href="assets/css/main.css" />
</head>
<body class="homepage is-preload">
<!-- Header -->
<header id="header">
<div class="logo container">
<div>
<h1><a href="" id="logo">CARTA PORTE</a></h1>
</div>
</div>
</header>
<!-- Menu -->
<nav id="nav">
<!--#INCLUDE FILE="CPMenu.asp"-->
</nav>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13, Rs14
Dim Sql11, Sql12, Sql13, Sql14
'***** 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 Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2
%>
<section id="main">
<%
Dim CPTFolio, CPTRuta, IDOrigen
CPTFolio = Request("CPTFolio")
CPTRuta = Request("CPTRuta")
IDOrigen = Request("IDOrigen")
%>
<!-- Highlight -->
<section class="box highlight">
<H1>2.-Ruta</H1>
Folio <%= CPTFolio %> <BR>
<%
'***** CPORIGEN ****
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="Select CPOSECOR, CPORFCREM, CPONOMREM, CONVERT(varchar,FECHASALREM,20) as FECHASALREM, CPOSECDE, CPORFCDE, CPONOMDES, CONVERT(varchar,FECHALLEDE,20) as FECHALLEDE, " &_
"CALLEDE, NUMEXTDE, NUMINTDE, COLONIADE, MUNICIPIODE, ESTADODE, PAISDE, CPOSTALDE, " &_
"CALLERE, NUMEXTRE, NUMINTRE, COLONIARE, MUNICIPIORE, ESTADORE, PAISRE, CPOSTALRE, KMSDE " &_
"from CPOrigen " &_
"Where CPOID = "& IDOrigen &";"
Rs12.Open Sql12,Cn1,1,2
If rs12.Eof Then
Else
Dim FechaOri
FechaOri = Rs12("FECHASALREM")
%>
<Form action="CpNewD.asp" method="post">
CONSECUTIVO ORIGEN<BR>
<input tabindex="1" type="text" placeholder="CPOSECOR" Title="CPOSECOR" name="CPOSECOR" Size="15" id="CPOSECOR" value="<%= Rs12("CPOSECOR") %>" maxlength="8" onChange="javascript:this.value=this.value.toUpperCase();">
RFC ORIGEN<BR>
<input tabindex="2" type="text" placeholder="CPORFCREM" Title="CPORFCREM" name="CPORFCREM" Size="15" id="CPORFCREM" value="<%= Rs12("CPORFCREM") %>" maxlength="14" onChange="javascript:this.value=this.value.toUpperCase();">
NOMBRE ORIGEN<BR>
<input tabindex="3" type="text" placeholder="CPONOMREM" Title="CPONOMREM" name="CPONOMREM" Size="15" id="CPONOMREM" value="<%= Rs12("CPONOMREM") %>" maxlength="150" onChange="javascript:this.value=this.value.toUpperCase();">
FECHA Y HORA SALIDA<BR>
<input tabindex="4" type="text" placeholder="FECHASALREM" Title="FECHASALREM" name="FECHASALREM" Size="15" id="FECHASALREM" value="<%= FechaOri %>" maxlength="150" onChange="javascript:this.value=this.value.toUpperCase();">
CALLE ORIGEN<BR>
<input tabindex="5" type="text" placeholder="CALLERE" Title="CALLERE" name="CALLERE" Size="15" id="CALLERE" value="<%= Rs12("CALLERE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
NUMERO EXTERIOR ORIGEN<BR>
<input tabindex="6" type="text" placeholder="NUMEXTRE" Title="NUMEXTRE" name="NUMEXTRE" Size="15" id="NUMEXTRE" value="<%= Rs12("NUMEXTRE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
NUMERO INTERIOR ORIGEN<BR>
<input tabindex="7" type="text" placeholder="NUMERO INTERIOR" Title="NUMERO INTERIOR" name="NUMINTRE" Size="15" id="NUMINTRE" value="<%= Rs12("NUMINTRE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
COLONIA ORIGEN CODIGO SAT<BR>
<input tabindex="8" type="text" placeholder="COLONIARE" Title="COLONIARE" name="COLONIARE" Size="15" id="COLONIARE" value="<%= Rs12("COLONIARE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
MUNICIPIO ORIGEN CODIGO SAT<BR>
<input tabindex="9" type="text" placeholder="MUNICIPIORE" Title="MUNICIPIORE" name="MUNICIPIORE" Size="15" id="MUNICIPIORE" value="<%= Rs12("MUNICIPIORE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
ESTADO ORIGEN CODIGO SAT<BR>
<input tabindex="10" type="text" placeholder="ESTADORE" Title="ESTADORE" name="ESTADORE" Size="15" id="ESTADORE" value="<%= Rs12("ESTADORE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
PAIS ORIGEN<BR>
<input tabindex="11" type="text" placeholder="PAISRE" Title="PAISRE" name="PAISRE" Size="15" id="PAISRE" value="<%= Rs12("PAISRE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
CODIGO POSTAL ORIGEN<BR>
<input tabindex="12" type="text" placeholder="CPOSTALRE" Title="CPOSTALRE" name="CPOSTALRE" Size="15" id="CPOSTALRE" value="<%= Rs12("CPOSTALRE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
CONSECUTIVO DESTINO<BR>
<input tabindex="13" type="text" placeholder="CPOSECDE" Title="CPOSECDE" name="CPOSECDE" Size="15" id="CPOSECDE" value="<%= Rs12("CPOSECDE") %>" maxlength="8" onChange="javascript:this.value=this.value.toUpperCase();">
RFC DESTINO<BR>
<input tabindex="14" type="text" placeholder="CPORFCDE" Title="CPORFCDE" name="CPORFCDE" Size="15" id="CPORFCDE" value="<%= Rs12("CPORFCDE") %>" maxlength="14" onChange="javascript:this.value=this.value.toUpperCase();">
NOMBRE DESTINO<BR>
<input tabindex="15" type="text" placeholder="CPORFCDE" Title="CPONOMDES" name="CPONOMDES" Size="15" id="CPONOMDES" value="<%= Rs12("CPONOMDES") %>" maxlength="14" onChange="javascript:this.value=this.value.toUpperCase();">
FECHA Y HORA DESTINO<BR>
<input tabindex="16" type="text" placeholder="FECHALLEDE" Title="FECHALLEDE" name="FECHALLEDE" Size="15" id="FECHALLEDE" value="<%= Rs12("FECHALLEDE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
CALLE DESTINO<BR>
<input tabindex="17" type="text" placeholder="CALLEDE" Title="CALLEDE" name="CALLEDE" Size="15" id="CALLEDE" value="<%= Rs12("CALLEDE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
NUMERO EXTERIOR DESTINO<BR>
<input tabindex="18" type="text" placeholder="NUMEXTDE" Title="NUMEXTDE" name="NUMEXTDE" Size="15" id="NUMEXTDE" value="<%= Rs12("NUMEXTDE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
NUMERO INTERIOR DESTINO<BR>
<input tabindex="19" type="text" placeholder="NUMERO INTERIOR" Title="NUMERO INTERIOR" name="NUMINTDE" Size="15" id="NUMINTDE" value="<%= Rs12("NUMINTDE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
COLONIA DESTINO CODIGO SAT<BR>
<input tabindex="20" type="text" placeholder="COLONIADE" Title="COLONIADE" name="COLONIADE" Size="15" id="COLONIADE" value="<%= Rs12("COLONIADE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
MUNICIPIO DESTINO CODIGO SAT<BR>
<input tabindex="21" type="text" placeholder="MUNICIPIODE" Title="MUNICIPIODE" name="MUNICIPIODE" Size="15" id="MUNICIPIODE" value="<%= Rs12("MUNICIPIODE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
ESTADO DESTINO CODIGO SAT<BR>
<input tabindex="22" type="text" placeholder="ESTADODE" Title="ESTADODE" name="ESTADODE" Size="15" id="ESTADODE" value="<%= Rs12("ESTADODE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
PAIS DESTINO<BR>
<input tabindex="23" type="text" placeholder="PAISDE" Title="PAISDE" name="PAISDE" Size="15" id="PAISDE" value="<%= Rs12("PAISDE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
CODIGO POSTAL DESTINO<BR>
<input tabindex="24" type="text" placeholder="CPOSTALDE" Title="CPOSTALDE" name="CPOSTALDE" Size="15" id="CPOSTALDE" value="<%= Rs12("CPOSTALDE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
TOTAL KILOMETROS<BR>
<input tabindex="25" type="text" placeholder="KMSDE" Title="KMSDE" name="KMSDE" Size="15" id="KMSDE" value="<%= Rs12("KMSDE") %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
<input tabindex="26" type="HIDDEN" placeholder="CPTRuta" Title="CPTRuta" name="CPTRuta" Size="15" id="CPTRuta" value="<%= CPTRuta %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
<input tabindex="27" type="HIDDEN" placeholder="CPTFolio" Title="CPTFolio" name="CPTFolio" Size="15" id="CPTFolio" value="<%= CPTFolio %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
<input tabindex="28" type="HIDDEN" placeholder="IDOrigen" Title="IDOrigen" name="IDOrigen" Size="15" id="IDOrigen" value="<%= IDOrigen %>" maxlength="140" onChange="javascript:this.value=this.value.toUpperCase();">
<button tabindex="20" type="submit" name="Grabar" id="Grabar"/>ACTUALIZAR</button>
</Form>
<%
End IF
%>
</section>
</section>
<!-- Scripts -->
<script src="assets/js/jquery.min.js"></script>
<script src="assets/js/jquery.dropotron.min.js"></script>
<script src="assets/js/jquery.scrolly.min.js"></script>
<script src="assets/js/browser.min.js"></script>
<script src="assets/js/breakpoints.min.js"></script>
<script src="assets/js/util.js"></script>
<script src="assets/js/main.js"></script>
<%
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
%>