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

Ruta dinamica de carpeta "Empresas" asignar valor desde el web config

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-05-12 00:29:19 -07:00
parent 701eec057e
commit 4dd49e29f5
133 changed files with 3971 additions and 3886 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
OC/OC2.aspx.vb
View File

@@ -3430,10 +3430,10 @@ Partial Class OC
'Renombrar archivo
If Session("FileExtension").ToString.Length > 0 AndAlso Session("FileUpload").ToString.Length > 0 AndAlso Session("FileFolder").ToString.Length > 0 Then
If Not Directory.Exists(String.Format("{0}Empresas\{1}\OI", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa)) Then
Directory.CreateDirectory(String.Format("{0}Empresas\{1}\OI", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa))
If Not Directory.Exists(String.Format("{0}Empresas\{1}\OI", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) Then
Directory.CreateDirectory(String.Format("{0}Empresas\{1}\OI", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa))
End If
Ruta = String.Format("{0}Empresas\{1}\OI\", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa)
Ruta = String.Format("{0}Empresas\{1}\OI\", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
System.IO.File.Move(Archivo, String.Format("{0}OI{1}{2}", Ruta, ObjEventoBitacora.CveEvento.ToString, Extension))
End If