-- mejora visual para colores

-- limitar visibilidad de vendedores  y técnicos

Ashx/CargaEventos.ashx

@@ -58,7 +58,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         Dim FechaF As Date = context.Request("end").ToDate
                         Dim Cvecliente As Integer = -1 'DdlClienteSucursalCliente()
                         Dim CveClienteSucursal As Integer = -1 ' DdlClienteSucursalSucursal()
-                        Dim CveVendedor As Integer = -1
+                        Dim CveVendedor As Integer = If(context.Request("CveVendedor") IsNot Nothing, context.Request("CveVendedor").ToEntero, -1)
                         Dim CveEstatus As Integer = -1
                         Dim ObjOS As New ClsOS
 

OS/RepServiciosMedicos.aspx

@@ -151,7 +151,9 @@
                              <label class="col-md-1 "><asp:Label  Visible="false"  runat="server" ID="LblSubProyectoFiltro"></asp:Label></label>
                              
                              <div class="col-md-2">
-                                <asp:DropDownList ID="DdlSubProyecto" Visible="false" ClientIDMode="Static" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
+                                <asp:DropDownList ID="DdlSubProyecto" Visible="false" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
+                                 <asp:HiddenField ID="HdnCveVendedor" runat="server" Value="-1" ClientIDMode="Static" />
+
                              </div> 
                         </div>
                     </div>
@@ -758,7 +760,8 @@
                         E: '<%= UsuarioActual.CveEmpresa %>',
                         METODO: 'servicio_medicos',
                         CveUsuarioPara: $('#DdlTecnico').val(),
-                        CveSubProyecto: $('#DdlSubProyecto').val()
+                        CveSubProyecto: $('#DdlSubProyecto').val(),
+                        CveVendedor: $('#HdnCveVendedor').val()
                     }
                 },                
                 eventDrop: eventDropped,

OS/RepServiciosMedicos.aspx.vb

@@ -259,7 +259,9 @@ Partial Class OS_RepServiciosMedicos
             CargaUsuariosTecnicos()
             CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta)
             LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text
-            ' LblModalSubProyectoLabel.Text = LblSubProyectoEtiqueta.Text
+            If UsuarioActual.CveVendedor > 0 Then
+                HdnCveVendedor.Value = UsuarioActual.CveVendedor.ToString
+            End If
             CargaTecnicos()
             ConsultaOrdenesServiciosNoAsignadas()
             CargaOrdenesServiciosNoAsignadas()
@@ -273,7 +275,7 @@ Partial Class OS_RepServiciosMedicos
 
     Private Sub CargaUsuariosTecnicos()
 
-        If not UsuarioActual.TienePermisoProceso(171) Then Exit Sub
+        ' If not UsuarioActual.TienePermisoProceso(171) Then Exit Sub
 
         Dim DTTecnicosresultado As DataTable = Nothing
         DTTecnicos = New DataTable
@@ -295,6 +297,8 @@ Partial Class OS_RepServiciosMedicos
         End If
         ObjOS.Dispose()
 
+        DTTecnicos = DTTecnicos.FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"})
+
         DdlTecnicoAsignar.DataSource = DTTecnicos
         DdlTecnicoAsignar.DataBind()
         DdlTecnicoAsignar.Visible = True
@@ -345,6 +349,10 @@ Partial Class OS_RepServiciosMedicos
         DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlTecnico.DataBind()
         DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
+        If UsuarioActual.TienePermisoProceso(376) Then
+            DdlTecnico.Enabled = False
+            DdlTecnico.SelectedValueExist(UsuarioActual.CveUsuario)
+        End If
     End Sub
 
     Private Sub CargaTecnicosAsignar()