Arrastre en APP

asmx/WSGPSApp.asmx

@@ -938,6 +938,26 @@ Public Class WSGPSApp
 
     End Function
 
+    <WebMethod>
+    Public Function GetArrastre(CveDispositivo As Integer) As String
+        Dim Retorno As String = "[]"
+        Using ObjGPS As New ClsGPS
+            If ObjGPS.GPS_ArrastreGET(CveDispositivo) Then
+                Retorno = ObjGPS.DtResultados.DataTableToJSONIPP()
+            End If
+        End Using
+        Return Retorno
+
+    End Function
+    <WebMethod>
+    Public Function ActivarDesactivarArrastre(CveDispositivo As Integer, Activo As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+        Using ObjGPS As New ClsGPS
+            Retorno = ObjGPS.GPS_ArrastreActivarDesactivar(CveDispositivo, Activo)
+        End Using
+        Return Retorno
+    End Function
+
     <WebMethod>
     Public Function GetTrayectos(CveCliente As Integer) As String
         Dim Retorno As String = "[]"