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

Inventarios/EntradasSalidas.aspx.vb

@@ -3814,7 +3814,7 @@ Partial Class Inventarios_EntradasSalidas
 
 #Region "DESCARGAR E IMPRIMIR LISTADO"
     Public Sub DescargarFormato()
-        Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\Formatos\FormatoEntradasSalidas.xlsx"
+        Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoEntradasSalidas.xlsx"
 
         Dim Archivo As New IO.FileInfo(Directorio)
         If Archivo.Exists Then
@@ -3970,7 +3970,7 @@ Partial Class Inventarios_EntradasSalidas
         If DdlAlmacen.SelectedValue.ToEntero > 0 Then
             If TxtExcel.getfiles().Archivos.Count > 0 Then
                 Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
-                Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+                Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
                 Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV")
                 CargarArchivo(Directorio, file.filename, Tipo)
             Else

Inventarios/PopUpBuscarMovto.aspx.vb

@@ -9,7 +9,7 @@ Partial Class PopUpBuscarFolio
 #Region "PROPIEDADES"
     Private ReadOnly Property Ruta As String
         Get
-            Return AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"
+            Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\"
         End Get
     End Property
 #End Region

Inventarios/RecepcionAlmacen.aspx.vb

@@ -3763,7 +3763,7 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim Compra As String = DdlFolio.SelectedItem.Text
 
         Dim RutaPDF As String
-        Dim Ruta As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{UsuarioActual.CveEmpresa}\"
+        Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
         RutaPDF = $"{Ruta}\Formatos\EntradaAlmacen.rdlc"
         If Not File.Exists(RutaPDF) Then
             RutaPDF = "Empresas/Grales/Formatos/EntradaAlmacen.rdlc"

Inventarios/RecepcionEntrega.aspx.vb

@@ -698,7 +698,7 @@ Partial Class Inventarios_RecepcionEntrega
                     End If
                 End If
 
-                CargaDocumentos(CveVenta)
+                'CargaDocumentos(CveVenta)
             Else
                 Alert("No se encontraron productos pendientes por surtir. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
             End If

Inventarios/RecepcionUsados.aspx.vb

@@ -1552,7 +1552,7 @@ Partial Class Inventarios_RecepcionUsados
         Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
 
         For Each fileItem As Archivo In Filesgral
-            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
             Filename = fileItem.filename
         Next
 
@@ -1636,7 +1636,7 @@ Partial Class Inventarios_RecepcionUsados
         Dim Filename As String = ""
 
         For Each fileItem As Archivo In Filesgral
-            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)) '.Replace(".", "")
+            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)) '.Replace(".", "")
             Filename = fileItem.filename
         Next
 
@@ -1983,7 +1983,7 @@ Partial Class Inventarios_RecepcionUsados
                 Me.ObjFactura = Nothing
             End If
 
-            Me.ObjFactura = New Modelos.Factura(UsuarioActual, CveRemisionRecibida, UsuarioActual.CveEmpresa, DirectorioServidor:=Server.MapPath("/"))
+            Me.ObjFactura = New Modelos.Factura(UsuarioActual, CveRemisionRecibida, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas)
 
             If Me.ObjFactura IsNot Nothing Then
                 'CreaRemisionNC(ObjFactura.CveCliente, ObjFactura.CveSubProyecto, ObjFactura.CveMoneda)
@@ -2035,7 +2035,7 @@ Partial Class Inventarios_RecepcionUsados
 
     '        'Dim CveVenta As Integer = DdlFactura.SelectedValue.ToEntero()
 
-    '        'ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=Server.MapPath("/"))
+    '        'ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas)
 
     '        If Me.ObjFactura IsNot Nothing Then
     '            CreaRemisionNC(ObjFactura.CveCliente, ObjFactura.CveSubProyecto, ObjFactura.CveMoneda)

Inventarios/RepConsumoInterno.aspx.cs

@@ -177,7 +177,7 @@ public partial class Inventarios_RepConsumoInterno : ClsPaginas
         string FechaFin = DateTime.Parse(TxtFechaF.Text).ToShortDateString();
 
 
-        string Ruta = string.Format("{0}Empresas/{1}/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa);
+        string Ruta = string.Format("{0}Empresas/{1}/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa);
         string RutaPDF = string.Format("{0}/Formatos/RepConsumoInterno.rdlc", Ruta);
 
         if (!File.Exists(RutaPDF))

Inventarios/RepEntradasSalidas.aspx.vb

@@ -119,7 +119,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
                 Dim CveAlmacen = Request("CveAlmacen").ToString
                 Dim Almacen As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Almacen", $"CveAlmacen = {Request("CveAlmacen").ToString}")
                 DdlAlmacen.Items.Insert(0, New ListItem(Almacen, CveAlmacen))
-            End If
+            End If
         Else
             DdlAlmacen.SelectedValuesIfExistM("-1")
         End If
@@ -368,7 +368,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
             FechaF = Now
         End If
         Dim RutaPDF As String
-        Dim Ruta As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{UsuarioActual.CveEmpresa}\"
+        Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
         Dim NombreArchivoDescarga = "ReporteEntradas-Salidas"
 
         If UsuarioActual.CveEmpresa.Contiene(119) Then

Inventarios/RepEntregasForaneas.aspx.vb

@@ -721,7 +721,7 @@ Partial Class Inventarios_RepEntregasForaneas
         Dim Tipo As String = DdlTipo.SelectedItem.Text
 
         Dim RutaPDF As String
-        Dim Ruta As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{UsuarioActual.CveEmpresa}\"
+        Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
         RutaPDF = $"{Ruta}\Formatos\RepEntregasForaneas.rdlc"
         If Not File.Exists(RutaPDF) Then
             RutaPDF = "Empresas/Grales/Formatos/RepEntregasForaneas.rdlc"

Inventarios/TrasladoSolicitud.aspx.vb

@@ -711,7 +711,7 @@ Partial Class Inventarios_TrasladoSolicitud
     Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
         If TxtExcel.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
-            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
             Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
             CargarArchivo(Directorio, file.filename, Tipo)
         Else
@@ -839,7 +839,7 @@ Partial Class Inventarios_TrasladoSolicitud
 
     Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
         Dim Directorio As String = ""
-        Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SolicitudTraslado.xlsx"
+        Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SolicitudTraslado.xlsx"
         Dim Archivo As New IO.FileInfo(Directorio)
         If Archivo.Exists Then
             Response.Clear()

Inventarios/TraspasoAlmacen.aspx.vb

@@ -2788,7 +2788,7 @@ Partial Class Inventarios_TraspasoAlmacen
     Protected Sub BtnCargaExcelConceptos_Click(sender As Object, e As EventArgs)
         If TxtExcelConceptos.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcelConceptos.getfiles().Archivos(0)
-            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
             CargarArchivoConceptos(Directorio, file.filename)
             RegistraScript("$('#DivCargaExcelConceptos').modal('hide');")
         Else