Reportes impresiones con proceso 201, oculttar columnas en las impresiones

Inventarios/RepEntradasSalidas.aspx.vb

@@ -366,6 +366,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
         Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>PS:</b>&nbsp;{DdlPS.SelectedText}")
         Dim FechaIn As String = $"&emsp;<b>Fecha&nbsp;Inicio:</b>&nbsp;{TxtFechaI.Text}"
         Dim FechaFn As String = $"&emsp;<b>Fecha&nbsp;Fin:</b>&nbsp;{TxtFechaF.Text}"
+
         If TxtFechaI.Text = "" Then FechaIn = ""
         If TxtFechaF.Text = "" Then FechaFn = ""
 
@@ -379,6 +380,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
         Dim Ruta As String = UsuarioActual.Empresa.Ruta
         Dim NombreArchivoDescarga = "ReporteEntradas-Salidas"
 
+        Dim params As New List(Of ReportParameter)
+
         If UsuarioActual.CveEmpresa.Contiene(119) Then
 
             If FormatoInventario Then
@@ -401,7 +404,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
             RutaPDF = "Empresas/Grales/Formatos/EntradasSalidas.rdlc"
         End If
 
-        Dim params As New List(Of ReportParameter)
+
+
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
         params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
@@ -415,6 +419,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
             params.Add(New ReportParameter("FechaFinal", FechaF))
             params.Add(New ReportParameter("AgrupadoPor", $"{Almacen}{TipoMov}{Moneda}{SoloConMov}{Proveedor}{Clasificacion}{Familia}{SubFamilia}{PS}{FechaIn}{FechaFn}"))
         End If
+        params.Add(New ReportParameter("OcultarImportes", UsuarioActual.TienePermisoProceso(201).ToString))
+
         ImprimirPDF(RutaPDF, If(FormatoInventario, dt.FiltraParametros("", "RazonSocial, PS  ASC"), dt), params, NombreArchivoDescarga, Formato:=Formato)
 
     End Sub