AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-05-11 10:50:00 -07:00
parent dcc03e64a0
commit 55c3cdd2b8
5 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsPaginas.vb
View File

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

2
App_Code/ClsSisEmpresas.vb
View File

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

6
App_Code/Empresa.vb
View File

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

4
Ashx/E140.ashx
View File

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

2
Ashx/TareasProgramadas.ashx
View File

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