Modulo de inventarios,correcion de validacion del IVA,validacion de limites de credito,Facturacion de remisiones con diferentes series

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>
@@ -936,8 +936,42 @@ Public Class WSGPSApp
 
         Return Retorno
 
-    End Function
+    End Function
+
+    <WebMethod>
+    Public Function GetTrayectos(CveCliente As Integer) As String
+        Dim Retorno As String = "[]"
 
+
+        Return Retorno
+
+    End Function
+
+    <WebMethod>
+    Public Function GetEstatusTrayectos(CveCliente As Integer) As String
+        Dim Retorno As String = "[]"
+
+
+        Return Retorno
+
+    End Function
+    <WebMethod>
+    Public Function GetEstatusTrayectosHistorial(CveCliente As Integer) As String
+        Dim Retorno As String = "[]"
+
+
+        Return Retorno
+
+    End Function
+    <WebMethod>
+    Public Function GetTrayectosEstatusHistorial(CveTrayecto As Integer) As String
+        Dim Retorno As String = "[]"
+
+
+        Return Retorno
+
+    End Function
+
 #Region "F U N C I O N E S"
     Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
         Dim ObjEmpresa As New ClsSisEmpresas()
@@ -1053,7 +1087,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