From 55c3cdd2b846baa83158d537fd3aa699c008b530 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 11 May 2023 10:50:00 -0700 Subject: [PATCH] --- App_Code/ClsPaginas.vb | 4 ++-- App_Code/ClsSisEmpresas.vb | 2 +- App_Code/Empresa.vb | 8 ++++++-- Ashx/E140.ashx | 4 ++-- Ashx/TareasProgramadas.ashx | 2 +- 5 files changed, 12 insertions(+), 8 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 908445a59..7a35200eb 100644 --- a/App_Code/ClsPaginas.vb +++ b/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 diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 97542eac4..e35e18d35 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/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) diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index 89710bc9b..d88769d36 100644 --- a/App_Code/Empresa.vb +++ b/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 diff --git a/Ashx/E140.ashx b/Ashx/E140.ashx index b1e309b3d..063ecb33c 100644 --- a/Ashx/E140.ashx +++ b/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() diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx index b8c6648dc..c8f9322a3 100644 --- a/Ashx/TareasProgramadas.ashx +++ b/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)