Tracker GPS

asmx/WSGPSApp.asmx

@@ -1,4 +1,4 @@
-<%@ WebService Language="VB" Class="WSGPSApp" %>
+<%@ WebService Language="VB" Class="WSGPSApp" %>
 Option Strict On
 
 Imports System.Web
@@ -31,8 +31,8 @@ Public Class WSGPSApp
     Inherits System.Web.Services.WebService
 
     Private Const LongValue As Long = &H100000000
-    Public Property Credentials As AuthHeader
+    Public Property Credentials As AuthHeader
-
+
 #Region "G L O B A L S"
     Property GlobalDTDispositivos(CveCliente As Integer) As DataTable
         Get
@@ -90,7 +90,7 @@ Public Class WSGPSApp
         Set(value As DataTable)
             Application("GlobalDTDispositivosUsuarios") = value
         End Set
-    End Property
+    End Property
 #End Region
     <SoapHeader("Credentials")>
     <WebMethod>
@@ -411,7 +411,7 @@ Public Class WSGPSApp
     Public Function AddTramaApp(DevID As String, Lat As Double, Lng As Double, FechaTrama As DateTime, SO As String, Speed As Double) As Boolean
         Dim Retorno As Boolean = False
         Using ObjGPS As New ClsGPS
-            Retorno = ObjGPS.AddTrama(DevID,"", Lat, Lng, FechaTrama, Speed, String.Format("App{0}", SO))
+            Retorno = ObjGPS.AddTrama(DevID, "", Lat, Lng, FechaTrama, Speed)
         End Using
         Return Retorno
     End Function
@@ -990,8 +990,8 @@ Public Class WSGPSApp
 
         Return Retorno
 
-    End Function
+    End Function
-
+
 #Region "F U N C I O N E S"
     Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
         Dim ObjEmpresa As New ClsSisEmpresas()
@@ -1107,7 +1107,7 @@ Public Class WSGPSApp
             OnError("Acceso no autorizado", New SoapException("Unauthorized", SoapException.ClientFaultCode))
             Return False
         End If
-    End Function
+    End Function
 #End Region
 End Class
 Namespace ADGPSModels