AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Reparrastre

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-01-18 14:26:00 -07:00
parent cae0ac4793
commit a9918251a3
4 changed files with 358 additions and 119 deletions
Download Patch File Download Diff File Expand all files Collapse all files

212
App_Code/ClsGPS.vb
View File

@@ -8,9 +8,9 @@ Imports System.IO
Imports Newtonsoft.Json Imports Newtonsoft.Json
Public Class ClsGPS Public Class ClsGPS
Implements IDisposable Implements IDisposable
#Region "Campos" #Region "Campos"
'SQL 'SQL
Private Econ As OleDb.OleDbConnection Private Econ As OleDb.OleDbConnection
Private SqlConexion As SqlConnection Private SqlConexion As SqlConnection
Private SqlAdapter As SqlDataAdapter Private SqlAdapter As SqlDataAdapter
@@ -45,9 +45,9 @@ Public Class ClsGPS
Public Property EstaDentro As Boolean Public Property EstaDentro As Boolean
Public Property CvePuntoDeInteresGrupo As Integer Public Property CvePuntoDeInteresGrupo As Integer
Public Property CveGeoReferencia As Integer Public Property CveGeoReferencia As Integer
Public Property MensajeError As String Public Property MensajeError As String
#End Region #End Region
Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
If TransaccionCompartida Is Nothing Then If TransaccionCompartida Is Nothing Then
@@ -74,9 +74,9 @@ Public Class ClsGPS
End With End With
If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
Data = New DataTable Data = New DataTable
End Sub End Sub
#Region "Conexiones" #Region "Conexiones"
Private Sub ConexionAdd() Private Sub ConexionAdd()
If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
Try Try
@@ -109,7 +109,7 @@ Public Class ClsGPS
CveConexion = 0 CveConexion = 0
End If End If
End Sub End Sub
#End Region #End Region
Public Function IniciaTransacSQL() As SqlTransaction Public Function IniciaTransacSQL() As SqlTransaction
If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
@@ -120,8 +120,40 @@ Public Class ClsGPS
End Sub End Sub
Public Sub Commit() Public Sub Commit()
SqlTransacc.Commit() SqlTransacc.Commit()
End Sub End Sub
#Region "Arrastre"
Public Function GPS_ArrastreGET(CveDispositivo As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_GPS_ArrastreGET")
With SqlAdapter.SelectCommand.Parameters
addParameters("@CveDispositivo", SqlDbType.Int, CveDispositivo)
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los datos de Arrastre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function GPS_ArrastreActivarDesactivar(CveDispositivo As Integer, ArrastreActivo As Boolean) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_GPS_ArrastreActivarDesactivar")
With SqlAdapter.SelectCommand.Parameters
addParameters("@CveDispositivo", SqlDbType.Int, CveDispositivo)
addParameters("@ArrastreActivo", SqlDbType.Bit, ArrastreActivo)
End With
Try
Dataset = New DataSet()
SqlAdapter.Fill(Dataset)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al activar o desactivar la alerta de Arrastre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
Public Function GetTemperatura(CveDispositivo As Integer, CveSensor As Integer, strFechaInicio As String, strFechaFin As String, CveUsuario As Integer) As Boolean Public Function GetTemperatura(CveDispositivo As Integer, CveSensor As Integer, strFechaInicio As String, strFechaFin As String, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_GPS_TramaData") DataAdapter("PA_GPS_TramaData")
@@ -170,8 +202,8 @@ Public Class ClsGPS
OnError("Ocurrió un error al obtener las zonas horarias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener las zonas horarias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#Region "FacturasSims" #Region "FacturasSims"
Public Function GetFacturasSims(CveUsuario As Integer, CveEmpresa As Integer, Periodo As Integer) As Boolean Public Function GetFacturasSims(CveUsuario As Integer, CveEmpresa As Integer, Periodo As Integer) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
@@ -258,9 +290,9 @@ Public Class ClsGPS
addParameters("@cveGpsFacturaSim", SqlDbType.Int, cveGpsFacturaSim) addParameters("@cveGpsFacturaSim", SqlDbType.Int, cveGpsFacturaSim)
retorno = RunQuery("Ocurrió un error al eliminar el FacturasSims.") retorno = RunQuery("Ocurrió un error al eliminar el FacturasSims.")
Return retorno Return retorno
End Function End Function
#End Region #End Region
#Region "M O D E L O S" #Region "M O D E L O S"
Public Function AddMarca(Marca As String, Estatus As Boolean, CveUsuario As Integer) As Boolean Public Function AddMarca(Marca As String, Estatus As Boolean, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -456,13 +488,13 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Rastreo" #Region "Rastreo"
Public Function CoordenadasGet(id As Integer, Nombre As String) As Boolean Public Function CoordenadasGet(id As Integer, Nombre As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Coords_Get") DataAdapter("PA_Coords_Get")
@@ -1565,11 +1597,11 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Puntos de interes" #Region "Puntos de interes"
Public Function PuntoDeInteresAdd(PuntoDeInteres As String, CveCliente As Integer, GEOM As String, Estatus As Boolean, Descripcion As String, CvePuntoDeInteresGrupo As Integer) As Boolean Public Function PuntoDeInteresAdd(PuntoDeInteres As String, CveCliente As Integer, GEOM As String, Estatus As Boolean, Descripcion As String, CvePuntoDeInteresGrupo As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -1736,12 +1768,12 @@ Public Class ClsGPS
OnError("Ocurrió un error al obtener el reporte de los Puntos de Interés.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener el reporte de los Puntos de Interés.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "CONDUCTORES" #Region "CONDUCTORES"
Public Function ConductorAdd(Conductor As String, Estatus As Boolean, CveUsuario As Integer, SerieLicencia As String, FechaNacimiento As Date, VencimientoLicencia As Date, Optional CveCliente As Integer = -1) As Boolean Public Function ConductorAdd(Conductor As String, Estatus As Boolean, CveUsuario As Integer, SerieLicencia As String, FechaNacimiento As Date, VencimientoLicencia As Date, Optional CveCliente As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -1887,9 +1919,9 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "CONTROLADORES GRAFICOS" #Region "CONTROLADORES GRAFICOS"
Public Function ControladorGraficoAdd(ControladorGrafico As String, UM As String) As Boolean Public Function ControladorGraficoAdd(ControladorGrafico As String, UM As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -1957,10 +1989,10 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "V E H I C U L O S" #Region "V E H I C U L O S"
Public Function VehiculoAdd(Modelo As String, Color As String, Serie As String, Nombre As String, NoEconomico As String, CveUsuario As Integer, CveCliente As Integer) As Boolean Public Function VehiculoAdd(Modelo As String, Color As String, Serie As String, Nombre As String, NoEconomico As String, CveUsuario As Integer, CveCliente As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2038,9 +2070,9 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "TIPO COMUNICACION" #Region "TIPO COMUNICACION"
Public Function TipoComunicacionAdd(TipoComunicacion As String, Estatus As Boolean, CveUsuario As Integer) As Boolean Public Function TipoComunicacionAdd(TipoComunicacion As String, Estatus As Boolean, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2113,10 +2145,10 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "R U T A S" #Region "R U T A S"
Public Function AddRuta(Ruta As String, CveCliente As Integer) As Boolean Public Function AddRuta(Ruta As String, CveCliente As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2179,9 +2211,9 @@ Public Class ClsGPS
OnError("Ocurrió un error al eliminar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al eliminar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
Public Function GetResGuardantesSim(CveEmpresa As Integer) As Boolean Public Function GetResGuardantesSim(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_GPS_ResGuardantesSimnGet") DataAdapter("PA_GPS_ResGuardantesSimnGet")
@@ -2195,9 +2227,9 @@ Public Class ClsGPS
OnError("Ocurrió un error al obtener el proveedor de comunicacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener el proveedor de comunicacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#Region "Proveedor Comunicacion" #Region "Proveedor Comunicacion"
Public Function ProveedorComunicacion_Add(ProveedorComunicacion As String, Estatus As Byte, CveUsuario As Integer, CveTipoComunicacion As Integer, Public Function ProveedorComunicacion_Add(ProveedorComunicacion As String, Estatus As Byte, CveUsuario As Integer, CveTipoComunicacion As Integer,
APNIP As String, APNUSER As String, APNPASS As String, correo As String) As Boolean APNIP As String, APNUSER As String, APNPASS As String, correo As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2279,12 +2311,12 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Proveedor Comunicacion Cuentas" #Region "Proveedor Comunicacion Cuentas"
Public Function ProveedoresComunicacionCuentasAdd(CveProveedorComunicacion As Integer, CvePlanDato As Integer, CveUsuario As Integer, IP As String, SSID As String, NumeroTelefono As String, Estatus As Integer, CveEmpresa As Integer, Imei As String, CveUsuarioResguardante As Integer, Optional Activacion As Integer = -1) As Boolean Public Function ProveedoresComunicacionCuentasAdd(CveProveedorComunicacion As Integer, CvePlanDato As Integer, CveUsuario As Integer, IP As String, SSID As String, NumeroTelefono As String, Estatus As Integer, CveEmpresa As Integer, Imei As String, CveUsuarioResguardante As Integer, Optional Activacion As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_GPS_ProveedoresComunicacionCuentasAdd") DataAdapter("PA_GPS_ProveedoresComunicacionCuentasAdd")
@@ -2423,10 +2455,10 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "E V E N T O S" #Region "E V E N T O S"
Public Function EventoTipoAdd(EventoTipo As String, Estatus As Boolean, CveUsuario As Integer) As Boolean Public Function EventoTipoAdd(EventoTipo As String, Estatus As Boolean, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2901,15 +2933,15 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Plan de Datos" #Region "Plan de Datos"
Public Function PlanesDatosAdd(CveProveedorComunicacion As Integer, CveUsuario As Integer, PlanDato As String, Importe As Decimal, Estatus As Integer, Capacidad As Integer, Public Function PlanesDatosAdd(CveProveedorComunicacion As Integer, CveUsuario As Integer, PlanDato As String, Importe As Decimal, Estatus As Integer, Capacidad As Integer,
TipoPlan As String, CostoAdicional As String, TechoFacturacion As String, CveEmpresa As Integer) As Boolean TipoPlan As String, CostoAdicional As String, TechoFacturacion As String, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2998,10 +3030,10 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Dispositivos" #Region "Dispositivos"
Public Function DispositivoAdd(TipoDispositivo As Integer, NumTelefono As String, CveModelo As Integer, CveProveedorComunicacionCuenta As Integer, CveCliente As Integer, IMEI As String, Serie As String, CveEstatus As Integer, SerieVehiculo As String, ColorVehiculo As String, Public Function DispositivoAdd(TipoDispositivo As Integer, NumTelefono As String, CveModelo As Integer, CveProveedorComunicacionCuenta As Integer, CveCliente As Integer, IMEI As String, Serie As String, CveEstatus As Integer, SerieVehiculo As String, ColorVehiculo As String,
NombreVehiculo As String, NoEconomico As String, devID As String, devPort As Integer, ModeloVehiculo As String, AñoVehiculo As String, ClaseVehiculo As String, PlacasVehiculo As String, LimiteVelocidad As Boolean, VelocidadMaxima As Double, NombreVehiculo As String, NoEconomico As String, devID As String, devPort As Integer, ModeloVehiculo As String, AñoVehiculo As String, ClaseVehiculo As String, PlacasVehiculo As String, LimiteVelocidad As Boolean, VelocidadMaxima As Double,
@@ -3328,10 +3360,10 @@ Public Class ClsGPS
OnError("Ocurrió un error al actualizar los dispositivos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al actualizar los dispositivos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "REPORTES" #Region "REPORTES"
Public Function GetReportes() As Boolean Public Function GetReportes() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -3645,9 +3677,9 @@ Public Class ClsGPS
OnError("Ocurrió un obtener el reporte de eventos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un obtener el reporte de eventos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "I N D I C A D O R E S" #Region "I N D I C A D O R E S"
Public Function IndicadoresGet(CveCliente As Integer, FechaInicio As DateTime, FechaFin As DateTime) As Boolean Public Function IndicadoresGet(CveCliente As Integer, FechaInicio As DateTime, FechaFin As DateTime) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -3664,9 +3696,9 @@ Public Class ClsGPS
OnError("Ocurrió un obtener el reporte de indicadores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un obtener el reporte de indicadores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "DashBoard" #Region "DashBoard"
Public Function GetDashboard(CveCliente As Integer, FechaI As DateTime, FechaF As DateTime, Optional Top As Integer = 5) As String Public Function GetDashboard(CveCliente As Integer, FechaI As DateTime, FechaF As DateTime, Optional Top As Integer = 5) As String
Dim Retorno As String = "[]" Dim Retorno As String = "[]"
@@ -3917,10 +3949,10 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "Controles" #Region "Controles"
Public Function GetCombustible(CveDispositivo As Integer, CveControl As Integer) As Boolean Public Function GetCombustible(CveDispositivo As Integer, CveControl As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -4275,9 +4307,9 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "A P L I C A C I O N M O V I L " #Region "A P L I C A C I O N M O V I L "
Public Function AddTrama(DevID As String, Trama As String, Lat As Double, Lng As Double, FechaTrama As DateTime, Optional Speed As Double = 0, Optional Modelo As String = "App") As Boolean Public Function AddTrama(DevID As String, Trama As String, Lat As Double, Lng As Double, FechaTrama As DateTime, Optional Speed As Double = 0, Optional Modelo As String = "App") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -4411,9 +4443,9 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "G R U P O S" #Region "G R U P O S"
Public Function GruposAdd(Nombre As String, CveCliente As Integer) As Integer Public Function GruposAdd(Nombre As String, CveCliente As Integer) As Integer
@@ -4483,10 +4515,10 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "G R U P O S - D E T A L L E" #Region "G R U P O S - D E T A L L E"
Public Function GruposDetallesAdd(CveDispositivoGrupo As Integer, CveDispositivo As Integer) As Boolean Public Function GruposDetallesAdd(CveDispositivoGrupo As Integer, CveDispositivo As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -4535,9 +4567,9 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "A L T A S - B A J A S" #Region "A L T A S - B A J A S"
Public Function AddAltaBajas(CveDispositivo As Integer, Fecha As DateTime, CveUsuario As Integer, Tipo As Integer, CveCliente As Integer) As Boolean Public Function AddAltaBajas(CveDispositivo As Integer, Fecha As DateTime, CveUsuario As Integer, Tipo As Integer, CveCliente As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -4578,9 +4610,9 @@ Public Class ClsGPS
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "P A S A J E R O S" #Region "P A S A J E R O S"
Public Function GetCortesChofer(CveCorteChofer As Integer, CveDispositivo As Integer, CveUsuarioIngreso As Integer) As Boolean Public Function GetCortesChofer(CveCorteChofer As Integer, CveDispositivo As Integer, CveUsuarioIngreso As Integer) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
@@ -4714,9 +4746,9 @@ Public Class ClsGPS
OnError("Ocurrió un error al eliminar los costos del kilometro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al eliminar los costos del kilometro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return retorno Return retorno
End Function End Function
#End Region #End Region
#Region "T R A Y E C T O S" #Region "T R A Y E C T O S"
Public Function AddTrayecto(Trayecto As String, Fecha As DateTime, Folio As String, CveDispositivo As Integer, CveCliente As Integer) As Integer Public Function AddTrayecto(Trayecto As String, Fecha As DateTime, Folio As String, CveDispositivo As Integer, CveCliente As Integer) As Integer
Dim retorno As Integer = 0 Dim retorno As Integer = 0
@@ -5266,10 +5298,10 @@ Public Class ClsGPS
OnError("Ocurrió un error al obtener la configuracion de FreightVerify.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener la configuracion de FreightVerify.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return retorno Return retorno
End Function End Function
#End Region #End Region
#Region "F U N C I O N E S" #Region "F U N C I O N E S"
Public Function ReaderToJson(ByVal rdr As SqlDataReader) As String Public Function ReaderToJson(ByVal rdr As SqlDataReader) As String
Dim sb As StringBuilder = New StringBuilder() Dim sb As StringBuilder = New StringBuilder()
@@ -5323,10 +5355,10 @@ Public Class ClsGPS
jsonWriter.WriteEndArray() jsonWriter.WriteEndArray()
End Using End Using
Return sw.ToString() Return sw.ToString()
End Function End Function
#End Region #End Region
Protected Sub addParameters(name As String, tipo As SqlDbType, valor As Object) Protected Sub addParameters(name As String, tipo As SqlDbType, valor As Object)
If SqlConexion.State = ConnectionState.Open Then If SqlConexion.State = ConnectionState.Open Then
SqlAdapter.SelectCommand.Parameters.Add(name, tipo).Value = valor SqlAdapter.SelectCommand.Parameters.Add(name, tipo).Value = valor
@@ -5372,9 +5404,9 @@ Public Class ClsGPS
addParameters("@FechaFin", SqlDbType.DateTime, fechaFin) addParameters("@FechaFin", SqlDbType.DateTime, fechaFin)
retorno = RunQuery("Ocurrió un error al obtener el CombustibleResumen.") retorno = RunQuery("Ocurrió un error al obtener el CombustibleResumen.")
Return retorno Return retorno
End Function End Function
#Region " IDisposable Support " #Region " IDisposable Support "
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then If Not disposedValue Then
If disposing Then If disposing Then
@@ -5405,6 +5437,6 @@ Public Class ClsGPS
ConexionClose() ConexionClose()
Dispose(True) Dispose(True)
GC.SuppressFinalize(Me) GC.SuppressFinalize(Me)
End Sub End Sub
#End Region #End Region
End Class End Class

188
GPS/RepArrastre.aspx
View File

@@ -3,6 +3,11 @@
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
#map {
height: 450px;
}
</style>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Reporte de Arrastre Reporte de Arrastre
@@ -10,6 +15,9 @@
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li>
<asp:LinkButton ID="LnkApagarvehiculo" runat="server">Apagar vehiculo</asp:LinkButton>
</li>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content> </asp:Content>
@@ -42,42 +50,168 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div class="row"> <asp:UpdatePanel ID="UpInfo" runat="server" UpdateMode="Conditional">
<div class="col-md-6"> <ContentTemplate>
<div class="portlet-title"> <div class="row">
</div> <div class="col-md-6">
<div class="portlet light smmallpadding traspasorow bordered" style="margin-top: 48px"> <div class="portlet-title">
<div class="portlet-title">
<div class="caption font-red">
<i class="fa fa-clock-o font-red"></i>
<span class="caption-subject bold uppercase">TIEMPOS OPERATIVOS</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div> </div>
<div class="portlet light smmallpadding traspasorow bordered" style="">
<div class="portlet-title">
<div class="caption font-red">
<i class="fa fa-clock-o font-red"></i>
<span class="caption-subject bold uppercase">datos vehiculo</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools"> <div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a> <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div> </div>
</div>
<div id="C_bodyreportes" class="portlet-body rowpadding">
<div class="row">
<div class="col-md-4">
<label style="font-weight: bold;">¿Activar alerta de arrastre?</label>
</div> </div>
<div class="col-md-4"> <div id="C_bodyreportes" class="portlet-body rowpadding">
<asp:TextBox ID="TxtFunciones" CssClass="hidden EvalRun" runat="server"></asp:TextBox>
</div> <div class="row">
<div class="col-md-4"> <div class="col-md-4">
<label style="font-weight: bold;">¿Activar funcion de arrastre?</label>
</div>
<div class="col-md-4">
<asp:CheckBox ID="chkActivarArrastre" CssClass="chksino " AutoPostBack="true" OnCheckedChanged="chkActivarArrastre_CheckedChanged" Text=" " runat="server" />
</div>
<div class="col-md-4">
</div>
</div>
<div class="row">
<div class="col-md-4">
<label style="font-weight: bold;">Velocidad</label>
</div>
<div class="col-md-4">
<asp:Label ID="LblVelocidad" runat="server" Text="Sin Información"></asp:Label>
</div>
<div class="col-md-4">
</div>
</div>
<div class="row">
<div class="col-md-4">
<label style="font-weight: bold;">¿Encendido / Apagado?</label>
</div>
<div class="col-md-4">
<asp:Label ID="LblEncApa" runat="server" Text="Sin Información"></asp:Label>
</div>
<div class="col-md-4">
</div>
</div>
<div class="row">
<div class="col-md-4">
<label style="font-weight: bold;">Fecha ultima Conexion</label>
</div>
<div class="col-md-4">
<asp:Label ID="LblFechaInfo" runat="server" Text="Sin Información"></asp:Label>
</div>
<div class="col-md-4">
</div>
</div>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</div> </ContentTemplate>
</asp:UpdatePanel>
<div id="map">
</div> </div>
</asp:Content> </asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places"></script>
<script>
var image = '/Imagenes/rsz_11rsz_car.png';
var geocoder;
var map;
var markerArrastre;
var markerActual;
var directionsService;
var directionsDisplay;
var polylinesRoute = [];
var directionsDisplayArray = [];
var retorno;
function setCenter(myLatLn) {
map.setCenter(myLatLn);
}
function addmarkerarrastre(myLatLn) {//myLatLn = { lat: -25.363, lng: 131.044 }
if (markerArrastre) {
markerArrastre.setMap(null);
}
markerArrastre = new google.maps.Marker({
position: myLatLn,
map: map,
title: 'Estacionado'
});
}
function addmarkerActual(myLatLn,Encencido) {//myLatLn = { lat: -25.363, lng: 131.044 } ,addmarkerActual({ lat: -25.363, lng: 131.044 })
var imagen = Encencido ==1? '/Imagenes/rsz_11rsz_cargreen.png' :'/Imagenes/rsz_11rsz_car.png';
var markerIcon = { url: imagen, labelOrigin: new google.maps.Point(26, 43) };
if (markerActual) {
markerActual.setMap(null);
}
markerActual = new google.maps.Marker({
position: myLatLn,
map: map,
title: 'Posición Actual',
icon: markerIcon
});
}
function initMap() {
map = new google.maps.Map(document.getElementById('map'), {
center: { lat: 29.0628417, lng: -110.9872448 },
zoom: 13
});
//var ShowDiv1 = document.createElement('div');
//var ShowDivControl = new ShowDiv(ShowDiv1, map);
//ShowDiv1.index = 1;
//ShowDiv1.id = "showdiv1"
//map.controls[google.maps.ControlPosition.BOTTOM_CENTER].push(ShowDiv1);
//var upControlDiv = document.createElement('div');
//var upControl = new ControlLabels(upControlDiv, map);
//upControlDiv.index = 1;
//map.controls[google.maps.ControlPosition.TOP_LEFT].push(upControlDiv);
//var upGeoDiv = document.createElement('div');
//var upGeo = new ControlGeocercas(upGeoDiv, map);
//map.controls[google.maps.ControlPosition.TOP_LEFT].push(upGeoDiv);
geocoder = new google.maps.Geocoder();
//google.maps.event.addListener(map, "click", function (event) {
// closeLastOpenedInfoWindow();
//});
directionsService = new google.maps.DirectionsService;
directionsDisplay = new google.maps.DirectionsRenderer;
directionsDisplay.setOptions({ suppressMarkers: true });
directionsDisplay.setMap(map);
}
function ADSBegin() {
eval($('.EvalRun').val());
}
initMap();
//$(document).ready(function () {
// initMap();
//});
</script>
</asp:Content> </asp:Content>

77
GPS/RepArrastre.aspx.cs
View File

@@ -1,25 +1,98 @@
using System; using System;
using System.Collections.Generic; using System.Collections.Generic;
using System.Data;
using System.Linq; using System.Linq;
using System.Web; using System.Web;
using System.Web.UI; using System.Web.UI;
using System.Web.UI.WebControls; using System.Web.UI.WebControls;
using Extensiones;
public partial class GPS_RepArrastre : ClsPaginas public partial class GPS_RepArrastre : ClsPaginas
{ {
public int CveDispositivo
{
get
{
if (ViewState["CveDispositivo"] != null)
{
return ViewState["CveDispositivo"].ToString().ToEntero();
}
else
{
return 0;
}
}
set { ViewState["CveDispositivo"] = value; }
}
protected void Page_Load(object sender, EventArgs e) protected void Page_Load(object sender, EventArgs e)
{ {
if (!IsPostBack) if (!IsPostBack)
{ {
// fijo borrar
DdlDispositivo.DataSource = get_GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario) ; DdlDispositivo.DataSource = get_GlobalDTDispositivosUsuarios(263965, 1928) ;
//DdlDispositivo.DataSource = get_GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario) ;
DdlDispositivo.DataBind(); DdlDispositivo.DataBind();
getArrastre();
} }
} }
private void getArrastre()
{
CveDispositivo = DdlDispositivo.SelectedValue.ToEntero();
using (ClsGPS objgps = new ClsGPS())
{
if (objgps.GPS_ArrastreGET(CveDispositivo) && objgps.DtResultados.Rows.Count > 0)
{
DataRow dtrow = objgps.DtResultados.Rows[0];
upInfo(dtrow);
}
}
}
public void upInfo(DataRow dtrow)
{
if ( dtrow != null)
{
LblVelocidad.Text = $"{dtrow["Speed"]:N0}";
LblEncApa.Text = $"{dtrow["EncendidoText"]}";
LblFechaInfo.Text = $"{dtrow["FechaTrama"]:dd/MM/yyyy}";
//LblVelocidad.Text = $"{dtrow[""]}";
//LblVelocidad.Text = $"{dtrow[""]}";addmarkerActual({ lat: -25.363, lng: 131.044 })
string pVehiculo = string.Format("{{ lat: {0}, lng: {1}}}", dtrow["Lat"], dtrow["Lng"]);
string parrastre = string.Format("{{ lat: {0}, lng: {1}}}", dtrow["LatArrastre"], dtrow["LngArrastre"]);
TxtFunciones.Text = string.Format("addmarkerActual({0},{3}){1};setCenter({2})", pVehiculo, (dtrow["ArrastreActivo"].ToString() == "1" ? $" ;addmarkerarrastre({parrastre})" : ";addmarkerarrastre()"), (dtrow["ArrastreActivo"].ToString() == "1" ? parrastre : pVehiculo), dtrow["Encendido"].ToString().ToEntero());
UpInfo.Update();
}
}
protected void BtnConsultar_Click(object sender, EventArgs e) protected void BtnConsultar_Click(object sender, EventArgs e)
{ {
getArrastre();
}
protected void chkActivarArrastre_CheckedChanged(object sender, EventArgs e)
{
using (ClsGPS objgps = new ClsGPS())
{
if (objgps.GPS_ArrastreActivarDesactivar(CveDispositivo, chkActivarArrastre.Checked)){
if (objgps.GPS_ArrastreGET(CveDispositivo) && objgps.DtResultados.Rows.Count > 0)
{
DataRow dtrow = objgps.DtResultados.Rows[0];
upInfo(dtrow);
}
if (chkActivarArrastre.Checked)
{
Alert("se ha activado la funcion de arrastre");
}
else
{
Alert("se ha desactivado la funcion de arrastre");
}
}
}
} }
} }

BIN
Imagenes/rsz_11rsz_cargreen.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 3.3 KiB

After

Width:  |  Height:  |  Size: 12 KiB