Metodo para informacion de eventos en el servicio web
This commit is contained in:
@@ -129,6 +129,25 @@ Public Class ClsTSoft
|
||||
OnError("Ocurrió un Error al obtener la información para PENSKE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function GetInfoEventosPenske(FechaI As DateTime, FechaF As DateTime) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
SqlDataAdapter("PA_GPS_GetInfoEventosPenske")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@FechaInicio", SqlDbType.DateTime).Value = FechaI
|
||||
.Add("@FechaFin", SqlDbType.DateTime).Value = FechaF
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un Error al obtener la información para PENSKE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
@@ -1,245 +0,0 @@
|
||||
Imports System.Web
|
||||
Imports System.Web.Services
|
||||
Imports System.Web.Services.Protocols
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
|
||||
' <System.Web.Script.Services.ScriptService()> _
|
||||
<WebService(Namespace:="http://TractoSoft.org/")>
|
||||
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)>
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Public Class WsTSoft
|
||||
Inherits System.Web.Services.WebService
|
||||
|
||||
<WebMethod()>
|
||||
Public Function AddRemision(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicial As String, GeoCarga As String, GeoEntrega As String, Fecha As String) As String
|
||||
Dim retorno As String = ""
|
||||
Dim objTsoft As New ClsTSoft
|
||||
objTsoft.IniciaTransacSQL()
|
||||
Dim Continuar As Boolean = objTsoft.AddRemisiones(FolioRemision, NoEconomico, CveEstatus, GeoInicial, GeoCarga, GeoEntrega, Fecha)
|
||||
Dim objRem As New addRemisionObj
|
||||
If Continuar Then
|
||||
objTsoft.Commit()
|
||||
objRem.CveRemision = objTsoft.DtResultados.Rows(0)("CveRemision").ToString().ToEntero()
|
||||
objRem.CurrentError = ""
|
||||
Else
|
||||
objTsoft.RollBack()
|
||||
objRem.CveRemision = 0
|
||||
objRem.CurrentError = objTsoft.MyCurrentError
|
||||
End If
|
||||
objTsoft.Dispose()
|
||||
retorno = JsonConvert.SerializeObject(objRem)
|
||||
Return retorno.ToString
|
||||
End Function
|
||||
|
||||
<WebMethod()>
|
||||
Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As String) As String
|
||||
Dim retorno As String = ""
|
||||
Dim objTsoft As New ClsTSoft
|
||||
Dim Continuar As Boolean = objTsoft.UpEstatusRemision(FolioRemision, CveEstatus)
|
||||
Dim objRem As New upEstatusRemisionObj
|
||||
If Continuar Then
|
||||
objRem.SeActualizo = 1
|
||||
objRem.CurrentError = ""
|
||||
Else
|
||||
objRem.SeActualizo = 0
|
||||
objRem.CurrentError = objTsoft.MyCurrentError
|
||||
End If
|
||||
objTsoft.Dispose()
|
||||
retorno = JsonConvert.SerializeObject(objRem)
|
||||
Return retorno.ToString
|
||||
End Function
|
||||
<WebMethod()>
|
||||
Public Function GetUltimaPosicion(DevID As String) As String
|
||||
Dim retorno As String = ""
|
||||
Dim ObjGPS As New ClsGPS
|
||||
Dim Continuar As Boolean = ObjGPS.UltimaPosicionEquipoGetWS(DevID)
|
||||
Dim ObjPos As New LatLng
|
||||
If Continuar Then
|
||||
ObjPos.Lat = ObjGPS.DtResultados.Rows("0")("Lat").ToString
|
||||
ObjPos.Lng = ObjGPS.DtResultados.Rows("0")("Lng").ToString
|
||||
Else
|
||||
ObjPos.CurrentError = "No se pudo obtener la posición."
|
||||
End If
|
||||
ObjGPS.Dispose()
|
||||
retorno = JsonConvert.SerializeObject(ObjPos)
|
||||
Return retorno.ToString
|
||||
End Function
|
||||
<WebMethod()>
|
||||
Public Function TerminoRemision(FolioRemision As String, NoEconomico As String) As String
|
||||
Dim retorno As String = ""
|
||||
Dim objTsoft As New ClsTSoft
|
||||
Dim Continuar As Boolean = objTsoft.UpEstatusRemision(FolioRemision, 6)
|
||||
Dim objRem As New upEstatusRemisionObj
|
||||
If Continuar Then
|
||||
objRem.SeActualizo = 1
|
||||
objRem.CurrentError = ""
|
||||
Else
|
||||
objRem.SeActualizo = 0
|
||||
objRem.CurrentError = objTsoft.MyCurrentError
|
||||
End If
|
||||
objTsoft.Dispose()
|
||||
retorno = JsonConvert.SerializeObject(objRem)
|
||||
Return retorno.ToString
|
||||
End Function
|
||||
<WebMethod()>
|
||||
Public Function GetRemisionHistorial(FolioRemision As String, NoEconomico As String) As String
|
||||
Dim retorno As String = ""
|
||||
Dim objTsoft As New ClsTSoft
|
||||
Dim Continuar As Boolean = objTsoft.GETRemisionesHistorial(FolioRemision, NoEconomico)
|
||||
Dim objRem As New GetRemisionHistorialesObj
|
||||
If Continuar Then
|
||||
objRem.Historial = objTsoft.DtResultados.DataTableToObject(Of GetRemisionHistorialsObj)
|
||||
objRem.CurrentError = ""
|
||||
Else
|
||||
objRem.Historial = New List(Of GetRemisionHistorialsObj)
|
||||
objRem.CurrentError = objTsoft.MyCurrentError
|
||||
End If
|
||||
objTsoft.Dispose()
|
||||
retorno = JsonConvert.SerializeObject(objRem)
|
||||
Return retorno.ToString
|
||||
End Function
|
||||
<WebMethod()>
|
||||
Public Function TieneRemisionesActivas(NoEconomico As String) As String
|
||||
Dim retorno As String = ""
|
||||
Dim Continuar As Boolean = False
|
||||
|
||||
Dim ObjTSoft As New ClsTSoft
|
||||
Continuar = ObjTSoft.TieneRemisionesActivas(NoEconomico)
|
||||
|
||||
Dim objRem As New MTieneRemisiones With
|
||||
{
|
||||
.TieneRemisiones = Continuar,
|
||||
.CurrentError = ObjTSoft.MyCurrentError
|
||||
}
|
||||
ObjTSoft.Dispose()
|
||||
retorno = JsonConvert.SerializeObject(objRem)
|
||||
Return retorno
|
||||
End Function
|
||||
<Serializable>
|
||||
Public Class addRemisionObj
|
||||
Public CveRemision As Integer
|
||||
Public CurrentError As String
|
||||
End Class
|
||||
<Serializable>
|
||||
Public Class upEstatusRemisionObj
|
||||
Public SeActualizo As Integer
|
||||
Public CurrentError As String
|
||||
End Class
|
||||
<Serializable>
|
||||
Public Class MTieneRemisiones
|
||||
Public TieneRemisiones As Boolean
|
||||
Public CurrentError As String
|
||||
End Class
|
||||
<Serializable>
|
||||
Public Class LatLng
|
||||
Public Lat As String
|
||||
Public Lng As String
|
||||
Public CurrentError As String
|
||||
End Class
|
||||
<Serializable>
|
||||
Public Class GetRemisionHistorialsObj
|
||||
Public Property Fecha As DateTime
|
||||
Public Property FolioRemision As String
|
||||
Public Property NoEconomico As String
|
||||
Public Property Lat As String
|
||||
Public Property Lon As String
|
||||
Public Property Distancia As String
|
||||
Public Property TrackingNumber As String
|
||||
Public Property CveEstatus As Integer
|
||||
End Class
|
||||
<Serializable>
|
||||
Public Class GetRemisionHistorialesObj
|
||||
Public Historial As List(Of GetRemisionHistorialsObj)
|
||||
Public CurrentError As String
|
||||
End Class
|
||||
|
||||
<Serializable>
|
||||
Public Class ObjRemisiones
|
||||
|
||||
Public Property cveRemisiones() As Integer
|
||||
Get
|
||||
Return m_cveRemisiones
|
||||
End Get
|
||||
Set
|
||||
m_cveRemisiones = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_cveRemisiones As Integer
|
||||
Public Property folioRemision() As String
|
||||
Get
|
||||
Return m_folioRemision
|
||||
End Get
|
||||
Set
|
||||
m_folioRemision = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_folioRemision As String
|
||||
Public Property cveDispositivo() As Integer
|
||||
Get
|
||||
Return m_cveDispositivo
|
||||
End Get
|
||||
Set
|
||||
m_cveDispositivo = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_cveDispositivo As Integer
|
||||
Public Property iMEI() As String
|
||||
Get
|
||||
Return m_iMEI
|
||||
End Get
|
||||
Set
|
||||
m_iMEI = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_iMEI As String
|
||||
Public Property cveEstatus() As Integer
|
||||
Get
|
||||
Return m_cveEstatus
|
||||
End Get
|
||||
Set
|
||||
m_cveEstatus = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_cveEstatus As Integer
|
||||
Public Property geoInicio() As String
|
||||
Get
|
||||
Return m_geoInicio
|
||||
End Get
|
||||
Set
|
||||
m_geoInicio = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_geoInicio As String
|
||||
Public Property geoFin() As String
|
||||
Get
|
||||
Return m_geoFin
|
||||
End Get
|
||||
Set
|
||||
m_geoFin = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_geoFin As String
|
||||
Public Property lat() As String
|
||||
Get
|
||||
Return m_lat
|
||||
End Get
|
||||
Set
|
||||
m_lat = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_lat As String
|
||||
Public Property lon() As String
|
||||
Get
|
||||
Return m_lon
|
||||
End Get
|
||||
Set
|
||||
m_lon = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_lon As String
|
||||
End Class
|
||||
End Class
|
||||
@@ -495,7 +495,7 @@
|
||||
if (this.checked) {
|
||||
total = total + 1;
|
||||
}
|
||||
if (total == 5) {
|
||||
if (total == 7) {
|
||||
alert("Ya tiene el maximo numero de comandos favoritos para asignar.");
|
||||
this.checked = false;
|
||||
return false;
|
||||
@@ -513,9 +513,22 @@
|
||||
}
|
||||
for (let i = thantes; i < thclick; i++) {
|
||||
let th = $('<th></th>');
|
||||
let input = $('<input type="checkbox" class="chkAll">')
|
||||
let input = $('<input type="checkbox" class="chkAll" onclick="verficaFavoritos();">')
|
||||
th.append(input);
|
||||
var total = 0;
|
||||
input.click(function () {
|
||||
var total = 0;
|
||||
$(".ChecaFavoritos > input").each(function () {
|
||||
|
||||
if (this.checked) {
|
||||
total = total + 1;
|
||||
}
|
||||
if (total == 7) {
|
||||
alert("Ya tiene el maximo numero de comandos favoritos para asignar.");
|
||||
this.checked = false;
|
||||
return false;
|
||||
}
|
||||
});
|
||||
$('#' + gv + ' tr td:nth-child(' + i + ') input[type="checkbox"]:not([disabled="disabled"])').prop("checked", input.is(":checked"))
|
||||
});
|
||||
tr.append(th);
|
||||
|
||||
@@ -1 +1,302 @@
|
||||
<%@ WebService Language="VB" CodeBehind="~/App_Code/WsTSoft.vb" Class="WsTSoft" %>
|
||||
<%@ WebService Language="VB" Class="WsTSoft" %>
|
||||
Imports System.Web
|
||||
Imports System.Net.Http
|
||||
Imports System.Web.Services
|
||||
Imports System.Data
|
||||
Imports System.Web.Services.Protocols
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
Imports Newtonsoft.Json
|
||||
Imports Newtonsoft.Json.Linq
|
||||
|
||||
' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
|
||||
' <System.Web.Script.Services.ScriptService()> _
|
||||
<WebService(Namespace:="http://TractoSoft.org/")>
|
||||
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)>
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Public Class WsTSoft
|
||||
Inherits System.Web.Services.WebService
|
||||
|
||||
<WebMethod()>
|
||||
Public Function AddRemision(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicial As String, GeoCarga As String, GeoEntrega As String, Fecha As String) As String
|
||||
Dim retorno As String = ""
|
||||
Dim objTsoft As New ClsTSoft
|
||||
objTsoft.IniciaTransacSQL()
|
||||
Dim Continuar As Boolean = objTsoft.AddRemisiones(FolioRemision, NoEconomico, CveEstatus, GeoInicial, GeoCarga, GeoEntrega, Fecha)
|
||||
Dim objRem As New addRemisionObj
|
||||
If Continuar Then
|
||||
objTsoft.Commit()
|
||||
objRem.CveRemision = objTsoft.DtResultados.Rows(0)("CveRemision").ToString().ToEntero()
|
||||
objRem.CurrentError = ""
|
||||
Else
|
||||
objTsoft.RollBack()
|
||||
objRem.CveRemision = 0
|
||||
objRem.CurrentError = objTsoft.MyCurrentError
|
||||
End If
|
||||
objTsoft.Dispose()
|
||||
retorno = JsonConvert.SerializeObject(objRem)
|
||||
Return retorno.ToString
|
||||
End Function
|
||||
|
||||
<WebMethod()>
|
||||
Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As String) As String
|
||||
Dim retorno As String = ""
|
||||
Dim objTsoft As New ClsTSoft
|
||||
Dim Continuar As Boolean = objTsoft.UpEstatusRemision(FolioRemision, CveEstatus)
|
||||
Dim objRem As New upEstatusRemisionObj
|
||||
If Continuar Then
|
||||
objRem.SeActualizo = 1
|
||||
objRem.CurrentError = ""
|
||||
Else
|
||||
objRem.SeActualizo = 0
|
||||
objRem.CurrentError = objTsoft.MyCurrentError
|
||||
End If
|
||||
objTsoft.Dispose()
|
||||
retorno = JsonConvert.SerializeObject(objRem)
|
||||
Return retorno.ToString
|
||||
End Function
|
||||
<WebMethod()>
|
||||
Public Function GetUltimaPosicion(DevID As String) As String
|
||||
Dim retorno As String = ""
|
||||
Dim ObjGPS As New ClsGPS
|
||||
Dim Continuar As Boolean = ObjGPS.UltimaPosicionEquipoGetWS(DevID)
|
||||
Dim ObjPos As New LatLng
|
||||
If Continuar Then
|
||||
ObjPos.Lat = ObjGPS.DtResultados.Rows("0")("Lat").ToString
|
||||
ObjPos.Lng = ObjGPS.DtResultados.Rows("0")("Lng").ToString
|
||||
Else
|
||||
ObjPos.CurrentError = "No se pudo obtener la posición."
|
||||
End If
|
||||
ObjGPS.Dispose()
|
||||
retorno = JsonConvert.SerializeObject(ObjPos)
|
||||
Return retorno.ToString
|
||||
End Function
|
||||
<WebMethod()>
|
||||
Public Function TerminoRemision(FolioRemision As String, NoEconomico As String) As String
|
||||
Dim retorno As String = ""
|
||||
Dim objTsoft As New ClsTSoft
|
||||
Dim Continuar As Boolean = objTsoft.UpEstatusRemision(FolioRemision, 6)
|
||||
Dim objRem As New upEstatusRemisionObj
|
||||
If Continuar Then
|
||||
objRem.SeActualizo = 1
|
||||
objRem.CurrentError = ""
|
||||
Else
|
||||
objRem.SeActualizo = 0
|
||||
objRem.CurrentError = objTsoft.MyCurrentError
|
||||
End If
|
||||
objTsoft.Dispose()
|
||||
retorno = JsonConvert.SerializeObject(objRem)
|
||||
Return retorno.ToString
|
||||
End Function
|
||||
<WebMethod()>
|
||||
Public Function GetRemisionHistorial(FolioRemision As String, NoEconomico As String) As String
|
||||
Dim retorno As String = ""
|
||||
Dim objTsoft As New ClsTSoft
|
||||
Dim Continuar As Boolean = objTsoft.GETRemisionesHistorial(FolioRemision, NoEconomico)
|
||||
Dim objRem As New GetRemisionHistorialesObj
|
||||
If Continuar Then
|
||||
objRem.Historial = objTsoft.DtResultados.DataTableToObject(Of GetRemisionHistorialsObj)
|
||||
objRem.CurrentError = ""
|
||||
Else
|
||||
objRem.Historial = New List(Of GetRemisionHistorialsObj)
|
||||
objRem.CurrentError = objTsoft.MyCurrentError
|
||||
End If
|
||||
objTsoft.Dispose()
|
||||
retorno = JsonConvert.SerializeObject(objRem)
|
||||
Return retorno.ToString
|
||||
End Function
|
||||
<WebMethod()>
|
||||
Public Function GetInfoEventos(FechaInicio As String, FechaFin As String) As String
|
||||
Dim retorno As String = "[]"
|
||||
|
||||
Dim objTsoft As New ClsTSoft
|
||||
If objTsoft.GetInfoEventosPenske(FechaInicio.ToDateTime(), FechaFin.ToDateTime()) Then
|
||||
If objTsoft.DtResultados.Rows.Count > 0 Then
|
||||
'CONSULTA DIRECCIONES
|
||||
Dim Direcciones As JArray = ConsultarDirecciones(objTsoft.DtResultados)
|
||||
For Each Dir As JObject In Direcciones
|
||||
objTsoft.DtResultados.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString()
|
||||
Next
|
||||
|
||||
retorno = objTsoft.DtResultados.DataTableToJSONIPP()
|
||||
Else
|
||||
retorno = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.Mensaje = "No se encontraron resultados"})
|
||||
End If
|
||||
Else
|
||||
retorno = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.Mensaje = "Ocurrío un error al consultar los datos"})
|
||||
End If
|
||||
objTsoft.Dispose()
|
||||
|
||||
Return retorno.ToString
|
||||
End Function
|
||||
<WebMethod()>
|
||||
Public Function TieneRemisionesActivas(NoEconomico As String) As String
|
||||
Dim retorno As String = ""
|
||||
Dim Continuar As Boolean = False
|
||||
|
||||
Dim ObjTSoft As New ClsTSoft
|
||||
Continuar = ObjTSoft.TieneRemisionesActivas(NoEconomico)
|
||||
|
||||
Dim objRem As New MTieneRemisiones With
|
||||
{
|
||||
.TieneRemisiones = Continuar,
|
||||
.CurrentError = ObjTSoft.MyCurrentError
|
||||
}
|
||||
ObjTSoft.Dispose()
|
||||
retorno = JsonConvert.SerializeObject(objRem)
|
||||
Return retorno
|
||||
End Function
|
||||
|
||||
|
||||
Public Function ConsultarDirecciones(Dt As DataTable) As JArray
|
||||
Dim retorno As JArray = Nothing
|
||||
Dim posicionesArray = New JArray(From Row As DataRow In Dt
|
||||
Let index = Dt.Rows().IndexOf(Row)
|
||||
Select New JObject(
|
||||
New JProperty("indice", index),
|
||||
New JProperty("cveTrama", -1),
|
||||
New JProperty("lat", Row("Latitud").ToString.ToDouble),
|
||||
New JProperty("lon", Row("Longitud").ToString.ToDouble)
|
||||
))
|
||||
|
||||
Dim Base64array = Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(posicionesArray.ToString()))
|
||||
|
||||
Using wc As New HttpClient()
|
||||
Try
|
||||
Dim Url = New Uri($"{ClsPaginas.UrlDirecciones}nominatim/reverseMultiple.php")
|
||||
Dim FormStuff = String.Format("formato=json&posiciones={0}", Base64array)
|
||||
Dim content = New StringContent(FormStuff, Encoding.UTF8, "application/x-www-form-urlencoded")
|
||||
Dim response = wc.PostAsync(Url, content).Result
|
||||
Dim result = response.Content.ReadAsStringAsync().Result
|
||||
retorno = JArray.Parse(result)
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al obtener las direcciones", ex)
|
||||
End Try
|
||||
End Using
|
||||
Return retorno
|
||||
End Function
|
||||
<Serializable>
|
||||
Public Class addRemisionObj
|
||||
Public CveRemision As Integer
|
||||
Public CurrentError As String
|
||||
End Class
|
||||
<Serializable>
|
||||
Public Class upEstatusRemisionObj
|
||||
Public SeActualizo As Integer
|
||||
Public CurrentError As String
|
||||
End Class
|
||||
<Serializable>
|
||||
Public Class MTieneRemisiones
|
||||
Public TieneRemisiones As Boolean
|
||||
Public CurrentError As String
|
||||
End Class
|
||||
<Serializable>
|
||||
Public Class LatLng
|
||||
Public Lat As String
|
||||
Public Lng As String
|
||||
Public CurrentError As String
|
||||
End Class
|
||||
<Serializable>
|
||||
Public Class GetRemisionHistorialsObj
|
||||
Public Property Fecha As DateTime
|
||||
Public Property FolioRemision As String
|
||||
Public Property NoEconomico As String
|
||||
Public Property Lat As String
|
||||
Public Property Lon As String
|
||||
Public Property Distancia As String
|
||||
Public Property TrackingNumber As String
|
||||
Public Property CveEstatus As Integer
|
||||
End Class
|
||||
<Serializable>
|
||||
Public Class GetRemisionHistorialesObj
|
||||
Public Historial As List(Of GetRemisionHistorialsObj)
|
||||
Public CurrentError As String
|
||||
End Class
|
||||
|
||||
<Serializable>
|
||||
Public Class ObjRemisiones
|
||||
|
||||
Public Property cveRemisiones() As Integer
|
||||
Get
|
||||
Return m_cveRemisiones
|
||||
End Get
|
||||
Set
|
||||
m_cveRemisiones = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_cveRemisiones As Integer
|
||||
Public Property folioRemision() As String
|
||||
Get
|
||||
Return m_folioRemision
|
||||
End Get
|
||||
Set
|
||||
m_folioRemision = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_folioRemision As String
|
||||
Public Property cveDispositivo() As Integer
|
||||
Get
|
||||
Return m_cveDispositivo
|
||||
End Get
|
||||
Set
|
||||
m_cveDispositivo = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_cveDispositivo As Integer
|
||||
Public Property iMEI() As String
|
||||
Get
|
||||
Return m_iMEI
|
||||
End Get
|
||||
Set
|
||||
m_iMEI = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_iMEI As String
|
||||
Public Property cveEstatus() As Integer
|
||||
Get
|
||||
Return m_cveEstatus
|
||||
End Get
|
||||
Set
|
||||
m_cveEstatus = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_cveEstatus As Integer
|
||||
Public Property geoInicio() As String
|
||||
Get
|
||||
Return m_geoInicio
|
||||
End Get
|
||||
Set
|
||||
m_geoInicio = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_geoInicio As String
|
||||
Public Property geoFin() As String
|
||||
Get
|
||||
Return m_geoFin
|
||||
End Get
|
||||
Set
|
||||
m_geoFin = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_geoFin As String
|
||||
Public Property lat() As String
|
||||
Get
|
||||
Return m_lat
|
||||
End Get
|
||||
Set
|
||||
m_lat = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_lat As String
|
||||
Public Property lon() As String
|
||||
Get
|
||||
Return m_lon
|
||||
End Get
|
||||
Set
|
||||
m_lon = Value
|
||||
End Set
|
||||
End Property
|
||||
Private m_lon As String
|
||||
End Class
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user