GPS. Limitacion de fecha en trayectos

GPS/Trayectos.aspx.vb

@@ -43,6 +43,7 @@ Partial Class GPS_Trayectos
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
+            txtFechaI.Text = Now.AddMonths(-1).ToString("dd/MM/yyyy")
             CargaDatos()
             TimmerRefresh.Enabled = ChkTimmer.Checked
         End If
@@ -95,13 +96,16 @@ Partial Class GPS_Trayectos
         Dim FechaI As String = If(IsDate(txtFechaI.Text), txtFechaI.Text, "-1")
         Dim FechaF As String = If(IsDate(txtFechaF.Text), txtFechaF.Text, "-1")
 
-        Dim ObjGPS As New ClsGPS
-        If ObjGPS.GetTrayectos(-1, DdlDispositivoFiltro.SelectedValue.ToEntero(), UsuarioActual.CveCliente, DdlEstatusTrayecto.SelectedValue.ToEntero(), FechaI, FechaF) Then
-            If ChkActivas.Checked Then
-                GvBarra.DataSource = ObjGPS.DtResultados.FiltraParametros($"EsFin = False")
+        Dim CveEstatus As Integer = -1
+        If ChkActivas.Checked AndAlso DdlEstatusTrayecto.SelectedValue.ToEntero() <= 0 Then
+            CveEstatus = -2
         Else
-                GvBarra.DataSource = ObjGPS.DtResultados
+            CveEstatus = DdlEstatusTrayecto.SelectedValue.ToEntero()
         End If
+
+        Dim ObjGPS As New ClsGPS
+        If ObjGPS.GetTrayectos(-1, DdlDispositivoFiltro.SelectedValue.ToEntero(), UsuarioActual.CveCliente, CveEstatus, FechaI, FechaF) Then
+            GvBarra.DataSource = ObjGPS.DtResultados
         End If
         ObjGPS.Dispose()
         GvBarra.DataBind()