diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 7120fe1ca..7765642fb 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4398,7 +4398,7 @@ Partial Class Compras_Compras If UsuarioActual.TienePermisoProceso(121) Then If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then - If Not NCDevolucion Then + If Not NCDevolucion And Not ChkNCInvNC.Checked Then Alert("Favor de seleccionar un producto en la pestaƱa de almacen", TipoMensaje.MsgAdvertencia) Exit Sub End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index b012e31e1..ad012761a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3704,6 +3704,8 @@ Partial Class PopUpVerFactura Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta)) + Dim NombreArchivo As String = If(Consola <> "-1" And Consola.Trim.Length > 0, $"Aviso de Traslado - {Folio} Consola", $"Aviso de Traslado - {Folio}") + If Archivo.Exists Then params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) If UsuarioActual.CveEmpresa = 140 Then @@ -3746,9 +3748,10 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio)) DtMovimientos = DtMovimientos.FiltraParametros("", "PS") + End If - ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios") + ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, NombreArchivo, RDSName:="DsInventarios") Else params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) @@ -3760,7 +3763,7 @@ Partial Class PopUpVerFactura If UsuarioActual.CveEmpresa.Contiene(172, 173) Then ImprimirPDFStimul(String.Format("Empresas/Grales/Formatos/Traslado.mrt", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios") Else - ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios") + ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, NombreArchivo, RDSName:="DsInventarios") End If End If