From b70f7553169df635630e8b8fe44e7c3affce174f Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 20 May 2021 20:50:52 -0700 Subject: [PATCH] Correcion al cambiar estatus en trayecto --- GPS/TrayectoDetalle.aspx.vb | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/GPS/TrayectoDetalle.aspx.vb b/GPS/TrayectoDetalle.aspx.vb index 530b6ad37..dc4fc125d 100644 --- a/GPS/TrayectoDetalle.aspx.vb +++ b/GPS/TrayectoDetalle.aspx.vb @@ -393,10 +393,19 @@ Partial Class GPS_TrayectoDetalle Using ObjGPS As New ClsGPS If ObjGPS.GetTrayectosGeoReferencias(CveTrayecto) Then - Dim Row As DataRow = ObjGPS.DtResultados.FiltroPrimero($"CveEstatusTrayecto = {CveEstatusActual}") - If Row IsNot Nothing Then - CveEstatusSiguiente = Row("CveEstatusSiguiente").ToString().ToEntero() + 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 + End If If CveEstatusSiguiente > 0 Then