From d04d38978670ab1318e82b9b653fab3a58064324 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 23 Jun 2021 11:22:45 -0700
Subject: [PATCH] Correciones en trayectos

---
 GPS/TrayectoDetalle.aspx    |  2 +-
 GPS/TrayectoDetalle.aspx.vb | 12 +++++++++++-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/GPS/TrayectoDetalle.aspx b/GPS/TrayectoDetalle.aspx
index c977aaab9..7348e02c5 100644
--- a/GPS/TrayectoDetalle.aspx
+++ b/GPS/TrayectoDetalle.aspx
@@ -360,8 +360,8 @@
                                             <asp:GridView ID="GvExcesos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Eventos" GridLines="none" ToolTip="Listado de Eventos" CssClass="table table-striped table-hover Widthall">
                                                 <Columns>
                                                     <asp:BoundField DataField="VelocidadMaxima" ItemStyle-Width="25%" HeaderText="Velocidad Máxima" ItemStyle-HorizontalAlign="Center" />
-                                                    <asp:BoundField DataField="TiempoDetenido" ItemStyle-Width="25%" HeaderText="Tiempo Detenido" ItemStyle-HorizontalAlign="Center" />
                                                     <asp:BoundField DataField="FechaTrama" ItemStyle-Width="25%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" />
+                                                    <asp:BoundField DataField="Direccion" ItemStyle-Width="60%" HeaderText="Dirección" ItemStyle-HorizontalAlign="Left" />
                                                 </Columns>
                                             </asp:GridView>
                                         </div>
diff --git a/GPS/TrayectoDetalle.aspx.vb b/GPS/TrayectoDetalle.aspx.vb
index 7153f6f10..fe58efe5d 100644
--- a/GPS/TrayectoDetalle.aspx.vb
+++ b/GPS/TrayectoDetalle.aspx.vb
@@ -186,7 +186,17 @@ Partial Class GPS_TrayectoDetalle
                     GvIgnicion.DataSource = DsDatos.Tables(1)
                     GvIgnicion.DataBind()
 
-                    GvExcesos.DataSource = DsDatos.Tables(2)
+                    Dim DtExcesos As DataTable = DsDatos.Tables(2)
+
+                    Dim Direcciones = ConsultarDirecciones(DtExcesos)
+
+                    If Direcciones IsNot Nothing Then
+                        For Each Dir As JObject In Direcciones
+                            DtExcesos.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString()
+                        Next
+                    End If
+
+                    GvExcesos.DataSource = DtExcesos
                     GvExcesos.DataBind()
 
                     GvRalenti.DataSource = DsDatos.Tables(3)