AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correcion al cambiar estatus en trayecto

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-05-20 20:50:52 -07:00
parent c763dc750c
commit b70f755316
1 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
GPS/TrayectoDetalle.aspx.vb
View File

@@ -393,10 +393,19 @@ Partial Class GPS_TrayectoDetalle
Protected Sub LnkActualizarEstatus_Click(sender As Object, e As EventArgs) Protected Sub LnkActualizarEstatus_Click(sender As Object, e As EventArgs)
Dim CveEstatusSiguiente As Integer = -1 Dim CveEstatusSiguiente As Integer = -1
Dim Estatus As String = "" 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}") Dim Row As DataRow = ObjGPS.DtResultados.FiltroPrimero($"CveEstatusTrayecto = {CveEstatusActual}")
If Row IsNot Nothing Then
CveEstatusSiguiente = Row("CveEstatusSiguiente").ToString().ToEntero() CveEstatusSiguiente = Row("CveEstatusSiguiente").ToString().ToEntero()
End If End If
End If End If