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

asmx/WSApp.asmx

@@ -1,5 +1,5 @@
-<%@ WebService Language="VB" Class="WSApp" %>
-
+<%@ WebService Language="VB" Class="WSApp" %>
+
 Option Explicit On
 
 Imports System.Data
@@ -22,9 +22,9 @@ Imports Newtonsoft.Json.Linq
 <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)>
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Public Class WSApp
-    Inherits System.Web.Services.WebService
+    Inherits System.Web.Services.WebService
 #Region "G L O B A L - D T"
-
+
     Public ReadOnly Property UrlSitio As String
         Get
             Return ConfigurationManager.AppSettings("UrlSitio").ToString
@@ -73,10 +73,10 @@ Public Class WSApp
             'sino existe, recarga los datos
             If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
                 Dim P As New ClsSubProyectos
-                If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = P.DtResultados
+                If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = P.DtResultados
                 P.Dispose()
 
-                Dim msg As String = "aqui no se carga subproyectos"
+                Dim msg As String = "aqui no se carga subproyectos"
                 msg.GuardaLog()
 
             End If
@@ -97,8 +97,8 @@ Public Class WSApp
             End If
 
         End Get
-        Set(ByVal value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
+        Set(ByVal value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
     End Property
@@ -425,9 +425,9 @@ Public Class WSApp
         Set(value As DataTable)
             Application("GlobalDTMotivosHorasExtras") = value
         End Set
-    End Property
+    End Property
 #End Region
-
+
     Public Property CveEmpresa As Integer = 143
 
     Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
@@ -448,7 +448,7 @@ Public Class WSApp
         Else
         End If
         ObjEmpresa.Dispose()
-    End Sub
+    End Sub
 #Region "M E T O D O S - S E R V I C I O"
     Public Function ValidaUsuario(CveUsuario As Integer) As Usuario
         Dim UsuarioActual As Usuario = Nothing
@@ -728,12 +728,12 @@ Public Class WSApp
 
             If UsuarioActual IsNot Nothing Then
                 'If UsuarioActual.TienePermisoProceso(159) Then
-                '    Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, CveEmpresa, Server.MapPath("/"))
+                '    Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, CveEmpresa, ModExtensiones.DirectorioBaseEmpresas)
                 '    Retorno = Factura.CancelarDocumento()
                 'Else
                 '    Retorno.Mensajes.Add("Este usuario no tiene permiso para cancelar documento")
                 'End If
-                Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, CveEmpresa, Server.MapPath("/"))
+                Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, CveEmpresa, ModExtensiones.DirectorioBaseEmpresas)
                 If String.IsNullOrEmpty(Factura.FolioFiscal) Then
                     Factura.FolioFiscal = ""
                 End If
@@ -783,9 +783,9 @@ Public Class WSApp
             Retorno.Mensajes.Add("Ocurrió un error al eliminar el movimiento. Por favor vuelva a intetar.")
         End If
         ObjInv.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "P E D I D O S"
     Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
         Dim Timbre As New CFDITimbre
@@ -899,9 +899,9 @@ Public Class WSApp
             i += 1
         Next
         Return Timbre
-    End Function
+    End Function
 #End Region
-
+
 #Region "R E M I S I O N E S"
     Private Function CreaFactura(ByRef Retorno As Modelos.Factura.MMensajeFactura, CveCliente As Integer, CveAlmacen As Integer, CveSubProyecto As Integer, CveMoneda As Integer, UsuarioActual As Usuario, Observaciones As String, ListaPS As List(Of MVentaProductos)) As Modelos.Factura
         If CveSubProyecto <= 0 Then
@@ -923,7 +923,7 @@ Public Class WSApp
             End If
         End If
         Dim ObjFactura = New Modelos.Factura(UsuarioActual)
-        ObjFactura.DirectorioServidor = Server.MapPath("/")
+        ObjFactura.DirectorioServidor = ModExtensiones.DirectorioBaseEmpresas
 
         Dim ObjFolios As New ClsGralFolios()
         If ObjFolios.GetFolios("Rem", UsuarioActual.CveEmpresa) Then
@@ -1062,12 +1062,12 @@ Public Class WSApp
                 ObjFactura.Total = Total
 
                 ObjFactura.Timbre = PreParaTimbre(ObjFactura)
-                ObjFactura.CveContratoSecciones = ""
-
-                'BORRAR
-                ObjFactura.DtRecepcionUsados = New DataTable
-                ObjFactura.DtRecepcionUsados.Columns.Add("CvePS", GetType(Integer))
-
+                ObjFactura.CveContratoSecciones = ""
+
+                'BORRAR
+                ObjFactura.DtRecepcionUsados = New DataTable
+                ObjFactura.DtRecepcionUsados.Columns.Add("CvePS", GetType(Integer))
+
             Catch ex As Exception
                 Retorno.Mensajes.Add(ex.ToString())
                 Return Nothing
@@ -1159,8 +1159,8 @@ Public Class WSApp
         TmpDT.Columns.Add("ClaveSATFraccionArancelaria", GetType(String))
         TmpDT.Columns.Add("ClaveSATUnidadAduana", GetType(String))
         TmpDT.Columns.Add("ClaveSATFraccionArancelariaDescripcion", GetType(String))
-        TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
-
+        TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
+
         TmpDT.Columns.Add("CveTamaño", GetType(Double))
 
         Try
@@ -1430,9 +1430,9 @@ Public Class WSApp
         End Try
         ObjVentas.Dispose()
         Return strBody.ToString
-    End Function
+    End Function
 #End Region
-
+
 End Class
 
 Namespace WebServiceAppModels2