-

Ashx/CargaEventos.ashx

@@ -60,15 +60,20 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         Dim CveClienteSucursal As Integer = -1 ' DdlClienteSucursalSucursal()
                         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
-
+                        Dim ObjOS As New ClsOS
+
+                        If CveVendedor > 0 AndAlso CveUsuarioPara = -1 Then
+                            Dim tcveu As Integer = ClsPaginas.GlobalDTUsuarios(-1, CveEmpresa).FiltroPrimeroValor("CveUsuario", $"CveVendedor = {CveVendedor}").ToEntero
+                            CveUsuarioPara = tcveu
+                        End If
+
                         If ObjOS.GetRepOrdenesServicioMedicasRep(FechaI, FechaF, Cvecliente, CveVendedor, CveEstatus, CveUsuarioPara, -1, CveEmpresa,
                                                                     CveMedico:=-1, CveProcedimiento:=-1, CveEspecialidad:=-1,
                                                                     CveClienteSucursal:=CveClienteSucursal, CveUsuario:=CveUsuario) Then
 
                             If ObjOS.DtResultados IsNot Nothing AndAlso ObjOS.DtResultados.Rows.Count > 0 Then
                                 events = New List(Of CalendarEvent)
-                                For Each dr As DataRow In ObjOS.DtResultados.Rows
+                                For Each dr As DataRow In ObjOS.DtResultados.FiltraParametros("CveOS > 0").Rows
                                     Dim cevent As CalendarEvent = New CalendarEvent()
                                     cevent.id = dr("CveOS").ToString.ToEntero
                                     cevent.title = $"  {dr("Tecnico")}-{dr("NombreCliente")}"