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

eFacturas Correción Rutas al subir facturas por medio de modal

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-05-12 18:35:53 -07:00
parent e23f2823fd
commit 7080286946
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Compras/eFacturas.aspx.vb
View File

@@ -1269,7 +1269,7 @@ Partial Class Compras_eFacturas
End If End If
ObjDatos.Dispose() ObjDatos.Dispose()
If DT IsNot Nothing Then If dt IsNot Nothing Then
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
@@ -1329,7 +1329,8 @@ Partial Class Compras_eFacturas
filemove = fileItem.filename filemove = fileItem.filename
If filemove <> "" Then If filemove <> "" Then
filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta)) 'filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta))
filemove.FilesMove("", String.Format("Empresas\{0}\Temp\Facturas", UsuarioActual.CveEmpresa))
'AGREGA XML A LA LISTA 'AGREGA XML A LA LISTA
If FileExtension.ToUpper = "XML" Then If FileExtension.ToUpper = "XML" Then
ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove)) ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove))
@@ -1339,7 +1340,7 @@ Partial Class Compras_eFacturas
Next Next
Dim fileEntries As String() = Directory.GetFiles(String.Format("{0}Empresas\{1}\Temp\Facturas", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) Dim fileEntries As String() = Directory.GetFiles(String.Format("{0}Empresas\{1}\Temp\Facturas", Extensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa))
Dim ListaDirectoriosTemporales As New List(Of String) Dim ListaDirectoriosTemporales As New List(Of String)
Dim ListaComprimidos As New List(Of String) Dim ListaComprimidos As New List(Of String)