-

Ashx/CargaEventos.ashx

@@ -62,13 +62,18 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         Dim CveEstatus As Integer = -1
                         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")}"