Ruta personalizada por Empresa

Ventas/eFacturas.aspx.vb

@@ -48,7 +48,7 @@ Partial Class Ventas_eFacturas
 
             txtFechaF.Text = Now.ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString
 
-            Destino = String.Format("{0}Ventas\", UsuarioActual.Empresa.Ruta) 'string.format("{0}Empresas\{1}\Compras\", ModExtensiones.DirectorioBaseEmpresas ,UsuarioActual.CveEmpresa & "\Compras\"
+            Destino = String.Format("{0}Ventas\", UsuarioActual.Empresa.Ruta)
             Ejecutable = String.Format("{0}\Utilerias\eeeFacturas.exe", AppDomain.CurrentDomain.BaseDirectory)
             Form.DefaultButton = BtnConsultar.UniqueID
 
@@ -354,7 +354,7 @@ Partial Class Ventas_eFacturas
 
     Protected Sub LnkNoRecibidas_Click(sender As Object, e As EventArgs) Handles LnkNoRecibias.Click
         Dim dt As New DataTable
-        Dim Ruta As String = String.Format("{0}\Empresas\{1}\Compras\NoRecibidas-{1}.xml", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
+        Dim Ruta As String = String.Format("{0}Compras\NoRecibidas-{1}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveEmpresa)
         Dim Str As New StringBuilder
         If IO.File.Exists(Ruta) Then
             dt.ReadXml(Ruta)
@@ -464,7 +464,7 @@ Partial Class Ventas_eFacturas
         Dim ObjProcess As Process = Nothing
         Dim Mensajes As String = ""
         Dim EjecutableUtilerias = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Utilerias\ADSUtilerias.exe")
-        Dim Folder = Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas\")
+        Dim Folder = UsuarioActual.Empresa.Ruta.Replace($"{UsuarioActual.CveEmpresa.ToString()}\", "") 'Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas\")
         Dim error1 As Boolean = False
         Dim en As New CultureInfo("en-US")
         Dim fechai = txtFechaI.Text.Trim.ToDate.ToString("d", en)