Cambios estatus de trayectos

GPS/Trayectos.aspx.vb

@@ -113,8 +113,8 @@ Partial Class GPS_Trayectos
         Dim ObjGPS As New ClsGPS
         If ObjGPS.GetEstatusTrayectos(-1, UsuarioActual.CveCliente) Then
             GvEstatus.DataSource = ObjGPS.DtResultados.FiltraParametros("CveCliente > 0")
-            GvEstatusNuevo.DataSource = ObjGPS.DtResultados
-            DdlEstatusTrayecto.DataSource = ObjGPS.DtResultados
+            GvEstatusNuevo.DataSource = ObjGPS.DtResultados.FiltraParametros("CveCliente > 0")
+            DdlEstatusTrayecto.DataSource = ObjGPS.DtResultados.FiltraParametros("CveCliente > 0")
         End If
         ObjGPS.Dispose()
         GvEstatus.DataBind()
@@ -237,7 +237,9 @@ Partial Class GPS_Trayectos
                 Dim Nombre As String = TxtNombreNuevo.Text
                 Dim CveDispositivo As Integer = DdlDispositivoNuevo.SelectedValue.ToEntero
                 If CveDispositivo > 0 Then
-                    Dim CveTrayectoNuevo As Integer = ObjGPS.AddTrayecto(Nombre, DateTime.Now, "", CveDispositivo, UsuarioActual.CveCliente)
+                    Dim CveTrayectoNuevo As Integer = ObjGPS.AddTrayecto(Nombre, DateTime.Now, "", CveDispositivo, UsuarioActual.CveCliente, EnviarNotificacion:=ChkNotificarApartirDe.Checked,
+                                                                    CorreosNotificacion:=TxtCorreNotApartidDe.Text, Intervalo:=If(ChkNotificarApartirDe.Checked, DdlIntervaloAPartirDe.SelectedValue.ToEntero(), 0),
+                                                                    EnviarLiga:=ChkEnviarLigaApartirDe.Checked)
                     If CveTrayectoNuevo > 0 Then
                         For Each Row As GridViewRow In GvEstatusNuevo.Rows
                             If Row.RowType = DataControlRowType.DataRow Then
@@ -413,6 +415,10 @@ Partial Class GPS_Trayectos
         DivNotificaciones.Visible = ChkNotificacion.Checked
         UpAgregar.Update()
     End Sub
+    Protected Sub ChkNotificacionApartirDe_CheckedChanged(sender As Object, e As EventArgs)
+        DivNotificarApartirDe.Visible = ChkNotificarApartirDe.Checked
+        UpDdlTrayecto.Update()
+    End Sub
     Protected Sub LnkEnviar_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)