Correcion al cambiar estatus en trayecto

GPS/TrayectoDetalle.aspx.vb

@@ -393,10 +393,19 @@ Partial Class GPS_TrayectoDetalle
     Protected Sub LnkActualizarEstatus_Click(sender As Object, e As EventArgs)
         Dim CveEstatusSiguiente As Integer = -1
         Dim Estatus As String = ""
-
-        Using ObjGPS As New ClsGPS
-
+
+        Using ObjGPS As New ClsGPS
+
+            If ObjGPS.GetTrayectosGeoReferencias(CveTrayecto) Then
+                If CveEstatusActual = 1 Then
+                    'TOMA LA GEOCERCA DE INICIO
+                    Dim Row As DataRow = ObjGPS.DtResultados.FiltroPrimero($"EsInicio = True")
+                    If Row IsNot Nothing Then
+                        CveEstatusSiguiente = Row("CveEstatusTrayecto").ToString().ToEntero()
+                    End If
+                Else
                     Dim Row As DataRow = ObjGPS.DtResultados.FiltroPrimero($"CveEstatusTrayecto = {CveEstatusActual}")
+                    If Row IsNot Nothing Then
                         CveEstatusSiguiente = Row("CveEstatusSiguiente").ToString().ToEntero()
                     End If
                 End If