Cambios de API GPS

asmx/WsTSoft.asmx

@@ -61,22 +61,39 @@ Public Class WsTSoft
     <WebMethod()>
     Public Function GetUltimaPosicion(DevID As String) As String
         Dim retorno As String = ""
-        Dim ObjGPS As New ClsGPS
+        Dim DtPosicion As DataTable = Nothing
-        Dim Continuar As Boolean = ObjGPS.UltimaPosicionEquipoGetWS(DevID)
+        Dim Continuar As Boolean = False
+
+        Using ObjGPS As New ClsGPS
+            If ObjGPS.UltimaPosicionEquipoGetWS(DevID) Then
+                DtPosicion = ObjGPS.DtResultados.Copy()
+                Continuar = True
+            End If
+        End Using
+
         Dim ObjPos As New LatLng
-        If Continuar Then
+
+        If Continuar AndAlso DtPosicion IsNot Nothing Then
             'CONSULTA DIRECCIONES
-            Dim Direcciones As JArray = ConsultarDirecciones(ObjGPS.DtResultados, "Lat", "Lng")
             Try
+                If DtPosicion IsNot Nothing AndAlso DtPosicion.Rows.Count > 0 Then
+
+                    Dim Direcciones As JArray = ConsultarDirecciones(DtPosicion, "Lat", "Lng")
+
                     If Direcciones IsNot Nothing Then
                         For Each Dir As JObject In Direcciones
-                        ObjGPS.DtResultados.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString()
+                            DtPosicion.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString()
                         Next
                     End If
-                If ObjGPS.DtResultados IsNot Nothing AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then
+
-                    ObjPos.Lat = ObjGPS.DtResultados.Rows("0")("Lat").ToString
+                    Dim RowPosicion As DataRow = DtPosicion.Rows("0")
-                    ObjPos.Lng = ObjGPS.DtResultados.Rows("0")("Lng").ToString
+
-                    ObjPos.Direccion = ObjGPS.DtResultados.Rows("0")("Direccion").ToString
+                    ObjPos.Fecha = RowPosicion("Fecha").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm:ss")
+                    ObjPos.Lat = RowPosicion("Lat").ToString()
+                    ObjPos.Lng = RowPosicion("Lng").ToString()
+                    ObjPos.Direccion = RowPosicion("Direccion").ToString()
+                Else
+                    ObjPos.CurrentError = "No se encontraron resultados."
                 End If
 
             Catch ex As Exception
@@ -86,11 +103,17 @@ Public Class WsTSoft
         Else
             ObjPos.CurrentError = "No se pudo obtener la posición."
         End If
-        ObjGPS.Dispose()
+
+        If DtPosicion IsNot Nothing Then
+            DtPosicion.Dispose()
+            DtPosicion = Nothing
+        End If
+
         retorno = JsonConvert.SerializeObject(ObjPos)
         ObjPos = Nothing
         Return retorno
     End Function
+
     <WebMethod()>
     Public Function TerminoRemision(FolioRemision As String, NoEconomico As String) As String
         Dim retorno As String = ""
@@ -244,6 +267,7 @@ Public Class WsTSoft
     Public Class LatLng
         Public Property Lat As String
         Public Property Lng As String
+        Public Property Fecha As String
         Public Property Direccion As String
         Public Property CurrentError As String
     End Class