diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 3a4a65a77..8241e8aee 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -4437,7 +4437,7 @@ Partial Class PopUpVerFactura
             RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
             RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
 
-            ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
+            ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos\EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
         End If
 
     End Sub
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb
index 86adbd457..728ee6dd9 100644
--- a/Inventarios/TrasladoSolicitud.aspx.vb
+++ b/Inventarios/TrasladoSolicitud.aspx.vb
@@ -899,7 +899,7 @@ Partial Class Inventarios_TrasladoSolicitud
                 End If
 
                 If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 1 Then
-                    ImprimirPDF(String.Format("Empresas\{0}\Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.CveEmpresa), dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
+                    ImprimirPDF(String.Format("{0}Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.Empresa.Ruta), dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
                 Else
                     ImprimirPDF(RutaFormatoDefault, dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
                 End If
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e34a4dfbe..004ac2191 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -17073,6 +17073,10 @@ Partial Class Ventas
                 End If
             End If
 
+
+            If NuevaFactura <> 1 Then
+
+            End If
             'verifica si tiene ventaminima
             If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then
                 'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15...
@@ -17081,7 +17085,6 @@ Partial Class Ventas
                     Return False
                 End If
             End If
-
             'VERIFICA SI EN LA FACTURA PADRE SE DESGLOSO EL IEPS
             Dim FacturaDesglosoIEPS As Boolean = ((CveDevolucion > 0 AndAlso NuevaFactura = 1) AndAlso (Me.ObjFacturaNC IsNot Nothing AndAlso Not Me.ObjFacturaNC.VentaDesglosaIEPS))