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

10
OI/SoporteADS.aspx.vb
View File

@@ -1345,14 +1345,14 @@ Partial Class OI_SoporteADS
'CUANDO ES REENVIO
If CveEventoPadre > 0 Then
If A2.HRef <> "" Then RutaArchivo = String.Format("{0}{1}", Request.PhysicalApplicationPath, A2.HRef.Substring(1))
If A2.HRef <> "" Then RutaArchivo = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, A2.HRef.Substring(1))
If File.Exists(RutaArchivo) Then
Archivo = Path.GetExtension(ArchivoReenvio)
End If
If UsuarioActual.CveRol = 1037 Then
RutaGuardar = String.Format("{0}Empresas\70\OI\", Request.PhysicalApplicationPath)
RutaGuardar = String.Format("{0}Empresas\70\OI\", ModExtensiones.DirectorioBaseEmpresas)
RutaGuardar.DirectoryExistsCreate
End If
Else
@@ -2011,7 +2011,7 @@ Partial Class OI_SoporteADS
For Each fileItem As Archivo In Filesgral
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
'Filename = fileItem.filename
Dim tempArray() As String
tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
@@ -2061,7 +2061,7 @@ Partial Class OI_SoporteADS
For Each fileItem As Archivo In Filesgral
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
'Filename = fileItem.filename
Dim tempArray() As String
tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
@@ -2261,7 +2261,7 @@ Partial Class OI_SoporteADS
End Sub
Private Sub ImprimirReporte()
Dim RutaDocumento As String = System.IO.Path.Combine(Server.MapPath("/"), "Empresas/Grales/FS.docx")
Dim RutaDocumento As String = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/FS.docx")
If File.Exists(RutaDocumento) Then
Dim GemDocumen As New clsGemBoxDocument(RutaDocumento)