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

Ruta personalizada por Empresa

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-07-31 09:54:05 -07:00
parent d59dc01317
commit fbde0a2e58
79 changed files with 2710 additions and 2685 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Inventarios/PopUpBuscarMovto.aspx.vb
View File

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

4
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -4495,7 +4495,7 @@ Partial Class Inventarios_RecepcionAlmacen
Dim Compra As String = DdlFolio.SelectedItem.Text
Dim RutaPDF As String
Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
Dim Ruta As String = UsuarioActual.Empresa.Ruta
RutaPDF = $"{Ruta}\Formatos\EntradaAlmacen.rdlc"
If Not File.Exists(RutaPDF) Then
RutaPDF = "Empresas/Grales/Formatos/EntradaAlmacen.rdlc"
@@ -4729,7 +4729,7 @@ Partial Class Inventarios_RecepcionAlmacen
Bitacora = "Documento Relacionado"
End If
If ObjEventoBitacora.AddEventoBitacora(Bitacora, String.Format(".{0}", archivoOriginal.Extencion), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMovimientoAlmacen:=CveMovimiento) Then
If ObjEventoBitacora.AddEventoBitacora(Bitacora, String.Format(".{0}", archivoOriginal.Extension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMovimientoAlmacen:=CveMovimiento) Then
Try
If archivoOriginal.filename <> "" Then
Archivo = New System.IO.FileInfo(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, archivoOriginal.filename))

2
Inventarios/RepConsumoInterno.aspx.cs
View File

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

2
Inventarios/RepEntradasSalidas.aspx.vb
View File

@@ -368,7 +368,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
FechaF = Now
End If
Dim RutaPDF As String
Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
Dim Ruta As String = UsuarioActual.Empresa.Ruta
Dim NombreArchivoDescarga = "ReporteEntradas-Salidas"
If UsuarioActual.CveEmpresa.Contiene(119) Then

2
Inventarios/RepEntregasForaneas.aspx.vb
View File

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