diff --git a/.gitignore b/.gitignore
index 832ad61b6..abd10f2bf 100644
--- a/.gitignore
+++ b/.gitignore
@@ -259,6 +259,7 @@ paket-files/
# JetBrains Rider
.idea/
*.sln.iml
+*.sln.iml
# CodeRush
.cr/
diff --git a/App_WebReferences/Cancelacion.rar b/App_WebReferences/Cancelacion.rar
deleted file mode 100644
index 61ebcd9c4..000000000
Binary files a/App_WebReferences/Cancelacion.rar and /dev/null differ
diff --git a/Ashx/SigFoxDecodeExample.aspx b/Ashx/SigFoxDecodeExample.aspx
deleted file mode 100644
index ffb0a425c..000000000
--- a/Ashx/SigFoxDecodeExample.aspx
+++ /dev/null
@@ -1,193 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="SigFoxDecodeExample.aspx.vb" Inherits="Ashx_SigFoxDecodeExample" %>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Ashx/SigFoxDecodeExample.aspx.vb b/Ashx/SigFoxDecodeExample.aspx.vb
deleted file mode 100644
index 8720d0a6b..000000000
--- a/Ashx/SigFoxDecodeExample.aspx.vb
+++ /dev/null
@@ -1,11 +0,0 @@
-Imports System.Collections
-Partial Class Ashx_SigFoxDecodeExample
- Inherits System.Web.UI.Page
-
- Public Sub Page_Load() Handles Me.Load
- Dim ObjNotificaciones As New ClsSisNotificaciones
- ObjNotificaciones.ObtenerNotificaciones()
- ObjNotificaciones.Dispose()
- End Sub
-
-End Class
diff --git a/ClsTSoft.vb b/ClsTSoft.vb
deleted file mode 100644
index 89d7d82ed..000000000
--- a/ClsTSoft.vb
+++ /dev/null
@@ -1,155 +0,0 @@
-Imports Microsoft.VisualBasic
-Imports System.Collections.Generic
-Imports System.Linq
-Imports System.Web
-Imports System.Data
-Imports System.Text
-Imports Extensiones
-
-Public Class ClsTSoft
- Inherits ClsClaseBase
-
- Public Sub New()'(Optional adsObj As ClsClaseBase = Nothing)
- 'MyBase.New(adsObj)
- End Sub
-#Region "CRUD_Remisiones"
- Public Function AddRemisiones(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicio As String, GeoFin As String, Fecha As Date) As Boolean
- Dim Retorno As Boolean = False
-
- SqlDataAdapter("PA_GPS_RemisionesAdd")
-
- With SqlAdapter.SelectCommand.Parameters
- .Add("@FolioRemision", SqlDbType.VarChar).Value = FolioRemision
- .Add("@NoEconomico", SqlDbType.VarChar).Value = NoEconomico
- .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
- .Add("@GeoInicio", SqlDbType.VarChar).Value = GeoInicio
- .Add("@GeoFin", SqlDbType.VarChar).Value = GeoFin
- .Add("@Fecha", SqlDbType.Date).Value = Fecha
- End With
-
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
-
- Return Retorno
- End Function
-
- Public Function UpdateEstatusRemisiones(CveRemision As Integer, CveEstatus As Integer) As Boolean
- Dim Retorno As Boolean = False
-
- SqlDataAdapter("PA_GPS_RemisionesEstatusUpdate")
-
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveRemision", SqlDbType.Int).Value = CveRemision
- .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
- End With
-
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
-
- Return Retorno
- End Function
-
- Public Function GetRemisiones(CveCliente As Integer) As Boolean
- Dim Retorno As Boolean = False
-
- SqlDataAdapter("PA_GPS_RemisionesGet")
-
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
- End With
-
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
-
- Return Retorno
- End Function
-
- 'Public Function UpRemisiones(CveRemision As Integer, FolioRemision As String, CveDispositivo As Integer, CveEstatus As Integer, GeoInicio As String, GeoFin As String,
- ' Lat As String, Lon As String) As Boolean
- ' Dim strSQL As New StringBuilder()
- ' Dim retorno As Boolean = False
- ' strSQL.Append(" UPDATE TSoft_Remisiones Set ")
- ' strSQL.Append(" FolioRemision=@FolioRemision")
- ' strSQL.Append(", CveDispositivo =@CveDispositivo")
- ' strSQL.Append(", CveEstatus =@CveEstatus")
- ' strSQL.Append(", GeoInicio =@GeoInicio")
- ' strSQL.Append(", GeoFin =@GeoFin")
- ' strSQL.Append(", Lat =@Lat")
- ' strSQL.Append(", Lon =@Lon")
- ' strSQL.Append(" WHERE [CveRemision]=@CveRemision ")
- ' DataAdapter(strSQL.ToString())
- ' addParameters("@CveRemision", SqlDbType.Int, CveRemision)
- ' addParameters("@FolioRemision", SqlDbType.VarChar, FolioRemision)
- ' addParameters("@CveDispositivo", SqlDbType.Int, CveDispositivo)
- ' addParameters("@CveEstatus", SqlDbType.Int, CveEstatus)
- ' addParameters("@GeoInicio", SqlDbType.VarChar, GeoInicio)
- ' addParameters("@GeoFin", SqlDbType.VarChar, GeoFin)
- ' addParameters("@Lat", SqlDbType.VarChar, Lat)
- ' addParameters("@Lon", SqlDbType.VarChar, Lon)
-
- ' retorno = RunQuery("Ocurrió un error al actualizar el Remisiones.")
- ' strSQL.Clear()
- ' Return retorno
- 'End Function
-
- Public Function RemoveRemisiones(CveRemision As Integer) As Boolean
- Dim strSQL As New StringBuilder()
- Dim retorno As Boolean = False
- strSQL.Append(" DELETE FROM TSoft_Remisiones ")
- strSQL.Append(" WHERE [CveRemision]=@CveRemision ")
- DataAdapter(strSQL.ToString())
- addParameters("@CveRemision", SqlDbType.Int, CveRemision)
- retorno = RunQuery("Ocurrió un error al eliminar el Remisiones.")
- strSQL.Clear()
- Return retorno
- End Function
-#End Region
-#Region "Otros"
-
- Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As Integer) As Boolean
- Dim strSQL As New StringBuilder()
- Dim retorno As Boolean = False
- strSQL.AppendLine(" BEGIN")
- strSQL.AppendLine(" DECLARE @Lat AS VARCHAR(20)=''")
- strSQL.AppendLine(" DECLARE @Lon AS VARCHAR(20)=''")
- strSQL.AppendLine(" DECLARE @CveRemision AS INT =(SELECT TOP 1 REM.CveRemision FROM TSoft_Remisiones REM WHERE FolioRemision= @FolioRemision)")
- strSQL.AppendLine(" Declare @CveDispositivo AS INT=( SELECT TOP 1 REM.CveDispositivo FROM TSoft_Remisiones REM WHERE CveRemision=@CveRemision)")
- strSQL.AppendLine(" SELECT Top 1 @Lat= Geom.Lat ,@Lon=Geom.Long FROM GPS_Posiciones WHERE CveDispositivo=@CveDispositivo ORDER BY FechaTrama")
- strSQL.AppendLine(" UPDATE TSoft_Remisiones SET CveEstatus=@CveEstatus WHERE CveRemision=@CveRemision")
- strSQL.AppendLine(" INSERT INTO [TSoft_RemisionesHistorial] ([CveRemisison], [CveEstatus], [Lat], [Lon]) VALUES (@CveRemision, @CveEstatus, @Lat, @Lon)")
- strSQL.AppendLine(" END")
- DataAdapter(strSQL.ToString())
- addParameters("@FolioRemision", SqlDbType.VarChar, FolioRemision)
- addParameters("@CveEstatus", SqlDbType.Int, CveEstatus)
- retorno = RunQuery("Ocurrió un error al agregar el Remisiones.")
- strSQL.Clear()
- Return retorno
- End Function
- Public Function GETRemisionesHistorial(FolioRemision As String, NoEconomico As String) As Boolean
- Dim strSQL As New StringBuilder()
- Dim retorno As Boolean = False
- strSQL.AppendLine(" Declare @CveDispositivo AS INT=(SELECT S_Di.CveDispositivo FROM GPS_Dispositivos AS S_Di WHERE NoEconomico=@NoEconomico AND CveCliente=183798)")
- strSQL.AppendLine(" SELECT @NoEconomico AS NoEconomico, REMHIST.Fecha,REMHIST.Lat,REMHIST.Lon,REM.FolioRemision,REMHIST.CveEstatus FROM TSoft_Remisiones REM")
- strSQL.AppendLine(" INNER JOIN TSoft_RemisionesHistorial REMHIST ON REMHIST.CveRemisison=REM.CveRemision")
- strSQL.AppendLine(" WHERE CveDispositivo=@CveDispositivo AND FolioRemision= @FolioRemision ORDER BY REMHIST.Fecha DESC")
- DataAdapter(strSQL.ToString())
- addParameters("@FolioRemision", SqlDbType.VarChar, FolioRemision)
- addParameters("@NoEconomico", SqlDbType.VarChar, NoEconomico)
- retorno = RunQuery("Ocurrió un error al agregar el Remisiones.")
- strSQL.Clear()
- Return retorno
- End Function
-#End Region
-End Class
diff --git a/Rene.aspx b/Rene.aspx
deleted file mode 100644
index 0025466ed..000000000
--- a/Rene.aspx
+++ /dev/null
@@ -1,26 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Rene.aspx.vb" Inherits="Rene" %>
-
-
- CP
-
-
-
-
- E
-
-
- HB
-
-
- H
-
-
- HA
-
-
- C
-
-
-
-
-
diff --git a/Rene.aspx.vb b/Rene.aspx.vb
deleted file mode 100644
index 11740503c..000000000
--- a/Rene.aspx.vb
+++ /dev/null
@@ -1,88 +0,0 @@
-
-Imports System.Net
-Imports System.Net.NetworkInformation
-
-Partial Class Rene
- Inherits System.Web.UI.Page
-
- Private Sub Rene_Load(sender As Object, e As EventArgs) Handles Me.Load
-
- 'Dim Correo As New ClsSisMail
-
- If Not IsPostBack Then
- IpAddress()
- End If
-
- 'Correo.SendMail(Nothing, "rene.molina@adsistemas.mx", "asunto", "Body", CCP:="rene.molina@adsistemas.mx;julian@adsistemas.mx;rene.molina@adsistemas.mx;julian@adsistemas.mx;paola@adsistemas.mx;")
- End Sub
-
- Private Sub IpAddress()
- Dim ClientIP As String = String.Empty
- Dim Tipo As String = String.Empty
- Dim HTML As String = String.Empty
- Dim IP As String = String.Empty
-
- IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
- If Not String.IsNullOrEmpty(IP) Then
- Dim ipRange As String() = IP.Trim().Split(","c)
- Dim le As Integer = ipRange.Length - 1
- ClientIP = ipRange(le)
- Tipo = "1: "
- End If
- HTML &= (ClientIP)
- HTML &= ("
")
- HTML &= (Tipo)
-
- IP = Request.ServerVariables("HTTP_X_CLUSTER_CLIENT_IP")
- If Not String.IsNullOrEmpty(IP) Then
- ClientIP = IP
- Tipo = "2: "
- End If
- HTML &= (ClientIP)
- HTML &= ("
")
- HTML &= (Tipo)
-
- If IP = Request.ServerVariables("REMOTE_ADDR") Then
- ClientIP = Request.ServerVariables("REMOTE_ADDR")
- Tipo = "3: "
- End If
- HTML &= (ClientIP)
- HTML &= ("
")
- HTML &= (Tipo)
-
- HTML &= ("
Tipo 4: ")
- HTML &= (System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.GetValue(0).ToString())
-
- HTML &= ("
Tipo 5: ")
- HTML &= (HttpContext.Current.Request.Params("HTTP_CLIENT_IP"))
-
- HTML &= ("
Tipo 6: ")
- HTML &= (HttpContext.Current.Request.UserHostAddress)
-
-
-
-
- Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
- Dim sMacAddress As String = String.Empty
- Dim ipv4 As String = String.Empty
- For Each adapter As NetworkInterface In nics
- If sMacAddress = String.Empty Then
- ' only return MAC Address from first card
- Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
- sMacAddress = adapter.GetPhysicalAddress().ToString()
- ipv4 = adapter.GetIPv4Statistics().ToString
- HTML &= ("
Tipo 7: " & sMacAddress & " - " & ipv4)
- End If
- Next
- ' To Get IP Address
-
- HTML &= ("
Tipo 8: ")
- Dim IPHost As String = Dns.GetHostName()
- Dim IP2 As String = Dns.GetHostByName(IPHost).AddressList(0).ToString()
-
- HTML &= IPHost & " - " & IP2
-
- Txt.Text = HTML
-
- End Sub
-End Class
diff --git a/pantallaError.PNG b/pantallaError.PNG
deleted file mode 100644
index d6af6ead0..000000000
Binary files a/pantallaError.PNG and /dev/null differ