From 70802869467526958b3550b837b23cca2c588188 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 12 May 2020 18:35:53 -0700 Subject: [PATCH] =?UTF-8?q?eFacturas=20=20Correci=C3=B3n=20Rutas=20al=20su?= =?UTF-8?q?bir=20facturas=20por=20medio=20de=20modal?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/eFacturas.aspx.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 60ee8f5b2..94590d434 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -1269,7 +1269,7 @@ Partial Class Compras_eFacturas End If 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 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 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 If FileExtension.ToUpper = "XML" Then ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove)) @@ -1339,7 +1340,7 @@ Partial Class Compras_eFacturas 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 ListaComprimidos As New List(Of String)