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
OI/CircularDetalle.aspx.vb
View File

@@ -162,7 +162,7 @@ Partial Class OI_CircularDetalle
End Function
Private Function TituloAnterior() As String
Dim Directorio As New IO.DirectoryInfo(String.Format("{0}Empresas/{1}/Formatos/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa))
Dim Directorio As New IO.DirectoryInfo(String.Format("{0}Formatos/", UsuarioActual.Empresa.Ruta))
Dim ArchivosArreglo As IO.FileInfo() = Directorio.GetFiles()
Dim patronRegEx As String = String.Format("^{0}_.*", CveCircular)
Dim archivoEncontrado As String = ""

2
OI/CircularDetalleB.aspx.cs
View File

@@ -208,7 +208,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
private string TituloAnterior()
{
System.IO.DirectoryInfo Directorio = new System.IO.DirectoryInfo(string.Format("{0}Empresas/{1}/Formatos/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa));
System.IO.DirectoryInfo Directorio = new System.IO.DirectoryInfo(string.Format("{0}Formatos/", UsuarioActual.Empresa.Ruta));
System.IO.FileInfo[] ArchivosArreglo = Directorio.GetFiles();
string patronRegEx = string.Format("^{0}_.*", CveCircular);
string archivoEncontrado = "";

2
OI/DocumentoDetalle.aspx.cs
View File

@@ -680,7 +680,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
int CveUsuario = GvRow.DataKey("CveUsuario").ToEntero();
DataRow UsuarioSeleccionado = GetUsuarioParticipante(CveUsuario);
string Propuesta = UsuarioSeleccionado["Adjunto"] == null ? "" : UsuarioSeleccionado["Adjunto"].ToString();
string Ruta = string.Format("{0}Empresas/{1}/DocumentosRepo/{2}/{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, this.CveDocumento, Propuesta);
string Ruta = string.Format("{0}DocumentosRepo/{1}/{2}", UsuarioActual.Empresa.Ruta, this.CveDocumento, Propuesta);
if (File.Exists(Ruta))
{
byte[] archivoBytes = File.ReadAllBytes(Ruta);

2
OI/Documentos.aspx.cs
View File

@@ -46,7 +46,7 @@ public partial class OI_Documentos : ClsPaginas
string CveDocumento = GvRow.DataKey("CveDocumento");
//string NombreArchivo = ArchivoFisico.Split('_')[1];
string Ruta = string.Format("{0}Empresas/{1}/DocumentosRepo/{2}/{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CveDocumento, ArchivoFisico);
string Ruta = string.Format("{0}DocumentosRepo/{1}/{2}", UsuarioActual.Empresa.Ruta, CveDocumento, ArchivoFisico);
if (File.Exists(Ruta))
{
byte[] archivoBytes = File.ReadAllBytes(Ruta);

30
OI/EventoComentario.aspx.vb
View File

@@ -94,21 +94,21 @@ Partial Class OI_EventoComentario
Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
'Preguntar si existe en temporales
If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) Then
Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString)
If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos")
If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & CveComentario & Extension) Then
File.Delete(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & CveComentario & Extension)
File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & CveComentario & Extension)
If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString) Then
Dim Extension As String = Path.GetExtension(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString)
If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "OI\Eventos") Then Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "OI\Eventos")
If File.Exists(UsuarioActual.Empresa.Ruta & "OI\Eventos\" & CveComentario & Extension) Then
File.Delete(UsuarioActual.Empresa.Ruta & "OI\Eventos\" & CveComentario & Extension)
File.Move(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString, UsuarioActual.Empresa.Ruta & "OI\Eventos\" & CveComentario & Extension)
Else
File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\OI\Eventos\" & CveComentario & Extension)
End If
Else
'Imagen Default
'If ImgPersonal.ImageUrl = "../Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" Then
' ImgPersonal.ImageUrl = "/Imagenes/SinImagen.jpg"
'End If
End If
File.Move(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString, UsuarioActual.Empresa.Ruta & "OI\Eventos\" & CveComentario & Extension)
End If
Else
'Imagen Default
'If ImgPersonal.ImageUrl = "../Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" Then
' ImgPersonal.ImageUrl = "/Imagenes/SinImagen.jpg"
'End If
End If
End Sub
End Class

16
OI/PopUpAgenda.aspx.vb
View File

@@ -785,18 +785,18 @@ Partial Class OI_PopUpAgenda
ObjEventos.Dispose()
End Sub
Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) Then
Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString)
If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos")
File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\" & CveEvento & "_" & ArchConsecutivo & Extension)
If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString) Then
Dim Extension As String = Path.GetExtension(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString)
If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "Eventos\Archivos") Then Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Eventos\Archivos")
File.Move(UsuarioActual.Empresa.Ruta & "Temp\" & Session("FileUpload").ToString, UsuarioActual.Empresa.Ruta & "Eventos\" & CveEvento & "_" & ArchConsecutivo & Extension)
Session("FileUpload") = ""
If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) Then
If File.Exists(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) Then
Dim ObjActivosFijos As New ClsAF
If ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario) Then
'CargarArchivo()
Else
File.Delete(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension)
File.Delete(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension)
End If
ObjActivosFijos.Dispose()
@@ -840,8 +840,8 @@ Partial Class OI_PopUpAgenda
'End Sub
Protected Sub BtnAddObs_Click(sender As Object, e As EventArgs) Handles BtnAddObs.Click
Dim RutaGuardar As String = String.Format("{0}Empresas\{1}\OI\", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
Dim RutaArchivo As String = String.Format("{0}Empresas\{1}\OI\Temp\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Session("Eventos"))
Dim RutaGuardar As String = String.Format("OI\", UsuarioActual.Empresa.Ruta)
Dim RutaArchivo As String = String.Format("OI\Temp\{2}", UsuarioActual.Empresa.Ruta, Session("Eventos"))
Dim tCveSeguimiento As Integer
Dim Archivo As String = ""