Permiso para solo ver el vendedor

Compras/PopUpVerFactura.aspx.vb

@@ -4168,6 +4168,11 @@ Partial Class PopUpVerFactura
                             'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
                             ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                         Else
+                            If UsuarioActual.CveEmpresa = 140 Then
+                                params.Add(New ReportParameter("Concepto", ConceptoReporte))
+                                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                                params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
+                            End If
                             params.Add(New ReportParameter("Folio", Folio))
                             params.Add(New ReportParameter("Fecha", Fecha))
                             params.Add(New ReportParameter("Almacen", Almacen))

Ventas/RepProductosServicios.aspx.vb

@@ -243,6 +243,11 @@ Partial Class Ventas_RepProductosServicios
             DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
 
+        If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
+            DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
+            DdlVendedor.Attributes.Add("disabled", "disabled")
+            DdlVendedor.Enabled = False
+        End If
 
     End Sub
 #End Region