From 95014d0b73cfc11bbca5bfc3c1a52ebabb0baa07 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 23 Jul 2024 18:27:16 -0700
Subject: [PATCH] =?UTF-8?q?--=20mejora=20visual=20para=20colores=20--=20li?=
 =?UTF-8?q?mitar=20visibilidad=20de=20vendedores=20=20y=20t=C3=A9cnicos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ashx/CargaEventos.ashx         |  2 +-
 OS/RepServiciosMedicos.aspx    |  7 +++++--
 OS/RepServiciosMedicos.aspx.vb | 12 ++++++++++--
 3 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx
index 75b6ae9e5..8574dd9a6 100644
--- a/Ashx/CargaEventos.ashx
+++ b/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
 
diff --git a/OS/RepServiciosMedicos.aspx b/OS/RepServiciosMedicos.aspx
index 7659d6de4..e6698a695 100644
--- a/OS/RepServiciosMedicos.aspx
+++ b/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,
diff --git a/OS/RepServiciosMedicos.aspx.vb b/OS/RepServiciosMedicos.aspx.vb
index d6ba29431..13b6520e6 100644
--- a/OS/RepServiciosMedicos.aspx.vb
+++ b/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()