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