Ruta personalizada por Empresa

Compras/PopUpVerFactura.aspx.vb

@@ -69,11 +69,7 @@ Partial Class PopUpVerFactura
             ViewState("TmpDTMaterialesOS") = value
         End Set
     End Property
-    Private ReadOnly Property Ruta As String
-        Get
-            Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\"
-        End Get
-    End Property
+
     Private ReadOnly Property DomicilioFiscalCompu As String
         Get
             Dim SisEmpresa As New ClsSisEmpresas()
@@ -4369,7 +4365,7 @@ Partial Class PopUpVerFactura
 
     ' 04/05/2018 - Pruebas de impresion de factura PyME
     Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF")
-        Dim Directorio1 As String = String.Format("{0}Empresas\{1}\Formatos\Factura.mrt", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
+        Dim Directorio1 As String = String.Format("{0}Formatos\Factura.mrt", UsuarioActual.Empresa.Ruta)
         Dim File As FileInfo = New FileInfo(Directorio1)
 
         If File.Exists Then