Ruta personalizada por Empresa

Compras/Compras.aspx.vb

@@ -580,12 +580,6 @@ Partial Class Compras_Compras
         End Set
     End Property
 
-    'Private ReadOnly Property Ruta As String
-    '    Get
-    '        Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\"
-    '    End Get
-    'End Property
-
     <Serializable>
     Public Class Anticipos
         Public Property TipoMovto As String
@@ -1636,7 +1630,7 @@ Partial Class Compras_Compras
             Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador
 
             Dim XMLDoc As New XmlDocument
-            Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, dr("RFCDe"), dr("XML"))
+            Dim Archivo As String = String.Format("{0}Compras\{2}\{3}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML"))
             If IO.File.Exists(Archivo) Then
 
                 Dim Validada As Boolean = True