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)