Cambios en Trayectos

GPS/Trayectos.aspx.vb

@@ -44,6 +44,7 @@ Partial Class GPS_Trayectos
         If Not Page.IsPostBack Then
             DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
             CargaDatos()
+            TimmerRefresh.Enabled = ChkTimmer.Checked
         End If
     End Sub
     Private Sub CargaDatos()
@@ -111,7 +112,7 @@ Partial Class GPS_Trayectos
     Public Sub CargaEstatus()
         Dim ObjGPS As New ClsGPS
         If ObjGPS.GetEstatusTrayectos(-1, UsuarioActual.CveCliente) Then
-            GvEstatus.DataSource = ObjGPS.DtResultados
+            GvEstatus.DataSource = ObjGPS.DtResultados.FiltraParametros("CveCliente > 0")
             GvEstatusNuevo.DataSource = ObjGPS.DtResultados
             DdlEstatusTrayecto.DataSource = ObjGPS.DtResultados
         End If
@@ -443,4 +444,12 @@ Partial Class GPS_Trayectos
             Alert("No se pudo identificar el trayecto", TipoMensaje.MsgError)
         End If
     End Sub
+    Protected Sub TimmerRefresh_Tick(sender As Object, e As EventArgs)
+        CargaTrayectos()
+    End Sub
+    Protected Sub ChkTimmer_CheckedChanged(sender As Object, e As EventArgs)
+        TimmerRefresh.Enabled = ChkTimmer.Checked
+
+        UPGV.Update()
+    End Sub
 End Class