From f31ebb44bf7872f245e87dbf70f1d6f9612f0388 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 4 Aug 2021 10:23:04 -0700 Subject: [PATCH] Correciones de rutas de inventarios --- Compras/PopUpVerFactura.aspx.vb | 2 +- Inventarios/TrasladoSolicitud.aspx.vb | 2 +- Ventas/Ventas.aspx.vb | 5 ++++- 3 files changed, 6 insertions(+), 3 deletions(-) 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))