Ruta dinamica de carpeta "Empresas" asignar valor desde el web config

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>
@@ -528,7 +528,7 @@ Public Class WSGPSApp
                         End If
                         If CveEmpresa > 0 Then
                             Dim Archivo As String = String.Format("{0}{1}", CveImagenDispositivo, FileExtension)
-                            Dim Directorio As String = String.Format("{0}\Empresas\{1}\Dispositivos\{2}\Imagenes\", AppDomain.CurrentDomain.BaseDirectory, CveEmpresa, item.CveDispositivo)
+                            Dim Directorio As String = String.Format("{0}\Empresas\{1}\Dispositivos\{2}\Imagenes\", ModExtensiones.DirectorioBaseEmpresas, CveEmpresa, item.CveDispositivo)
                             If Not Directory.Exists(Directorio) Then
                                 Directory.CreateDirectory(Directorio)
                             End If
@@ -936,28 +936,28 @@ Public Class WSGPSApp
 
         Return Retorno
 
-    End Function
-
+    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
+        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
+    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)
+        Dim Retorno As Boolean = False
+        Using ObjGPS As New ClsGPS
+            Retorno = ObjGPS.GPS_ArrastreActivarDesactivar(CveDispositivo, Activo)
         End Using
         Return Retorno
-    End Function
-
+    End Function
+
     <WebMethod>
     Public Function GetTrayectos(CveCliente As Integer) As String
         Dim Retorno As String = "[]"
@@ -965,8 +965,8 @@ Public Class WSGPSApp
 
         Return Retorno
 
-    End Function
-
+    End Function
+
     <WebMethod>
     Public Function GetEstatusTrayectos(CveCliente As Integer) As String
         Dim Retorno As String = "[]"
@@ -974,7 +974,7 @@ Public Class WSGPSApp
 
         Return Retorno
 
-    End Function
+    End Function
     <WebMethod>
     Public Function GetEstatusTrayectosHistorial(CveCliente As Integer) As String
         Dim Retorno As String = "[]"
@@ -982,7 +982,7 @@ Public Class WSGPSApp
 
         Return Retorno
 
-    End Function
+    End Function
     <WebMethod>
     Public Function GetTrayectosEstatusHistorial(CveTrayecto As Integer) As String
         Dim Retorno As String = "[]"
@@ -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