App_Code/ClsPaginas.vb

@@ -4640,7 +4640,7 @@ Public Class ClsPaginas
         If Context.Session("UsuarioSIG") IsNot Nothing Then
             CveUsuario = UsuarioActual.CveUsuario
             CveEmpresa = UsuarioActual.CveEmpresa
-            RutaEmpresa = UsuarioActual.Empresa.RutaArchivos
+            RutaEmpresa = UsuarioActual.Empresa.Ruta
         End If
         Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory)
         'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA
@@ -6458,7 +6458,7 @@ Public Class ClsPaginas
         If Context.Session("UsuarioSIG") IsNot Nothing Then
             CveUsuario = UsuarioActual.CveUsuario
             CveEmpresa = UsuarioActual.CveEmpresa
-            RutaEmpresa = UsuarioActual.Empresa.RutaArchivos
+            RutaEmpresa = UsuarioActual.Empresa.Ruta
         End If
         Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory)
         'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA

App_Code/ClsSisEmpresas.vb

@@ -465,7 +465,7 @@ Public Class ClsSisEmpresas
                 _Empresa.FielPassword = Data.Rows(0)("FielPassword").ToString
                 _Empresa.FielPFX = Data.Rows(0)("FielPFX").ToString
 
-                _Empresa.RutaArchivos = Data.Rows(0)("RutaArchivos").ToString
+                _Empresa.Ruta = Data.Rows(0)("RutaArchivos").ToString
 
             Else
                 'Alert("No se encontró la Empresa solicitada.", TipoMensaje.MsgAdvertencia)

App_Code/Empresa.vb

@@ -97,8 +97,9 @@ Public Class Empresa
     Public Property Soporte_PWD As String
     Public Property Soporte_Tipo As String
     Public Property Timbres As Integer
-    Private Property RutaArchivos As String
-    Public ReadOnly Property Ruta As String
+    Private Property RutaArchivos As String
+
+    Public Property Ruta As String
         Get
             If Not String.IsNullOrEmpty(RutaArchivos) AndAlso ClsPaginas.EsProduccion Then
                 Return RutaArchivos
@@ -106,6 +107,9 @@ Public Class Empresa
                 Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa)
             End If
         End Get
+        Set(ByVal value As String)
+            RutaArchivos = value
+        End Set
     End Property
     'Public Property IdCuentaIVAxTrasladar As Integer
     'Public Property IdCuentaIVATrasladado As Integer

Ashx/E140.ashx

@@ -36,8 +36,8 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
         If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
         End If
 
-        If ObjEmpresa.Empresa.RutaArchivos.Trim.Length > 0 Then
-            RutaEmpresa = ObjEmpresa.Empresa.RutaArchivos.Trim
+        If ObjEmpresa.Empresa.Ruta.Trim.Length > 0 Then
+            RutaEmpresa = ObjEmpresa.Empresa.Ruta.Trim
         End If
 
         ObjEmpresa.Dispose()

Ashx/TareasProgramadas.ashx

@@ -1192,7 +1192,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
         If UsuarioActual IsNot Nothing Then
             CveUsuario = UsuarioActual.CveUsuario
             CveEmpresa = UsuarioActual.CveEmpresa
-            RutaEmpresa = UsuarioActual.Empresa.RutaArchivos
+            RutaEmpresa = UsuarioActual.Empresa.Ruta
         End If
 
         Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory)