From d54cffa452e6b7c22d9cb75c9d5dd2fe135d4ffb Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 5 Mar 2022 14:01:44 -0700
Subject: [PATCH] Optimizacion de trayectos

---
 GPS/Trayectos.aspx    |  9 ++++++---
 GPS/Trayectos.aspx.vb | 42 +++++++++++++++++++++++++++++-------------
 2 files changed, 35 insertions(+), 16 deletions(-)

diff --git a/GPS/Trayectos.aspx b/GPS/Trayectos.aspx
index b7e70ad7d..bf619391a 100644
--- a/GPS/Trayectos.aspx
+++ b/GPS/Trayectos.aspx
@@ -88,8 +88,11 @@
         </asp:LinkButton>
     </li>
     <li>
-        <asp:LinkButton ID="LnkAddE" OnClientClick="javascript:$('#DivCrearApatir').modal({backdrop: 'static', keyboard: false}); return false;" Text="<i class='fa fa-plus'></i><span>Crear a partir de</span>" runat="server">
-        </asp:LinkButton>
+        <asp:UpdatePanel runat="server">
+            <ContentTemplate>
+                <asp:LinkButton ID="LnkAddE" OnClick="LnkAddE_Click" Text="<i class='fa fa-plus'></i><span>Crear a partir de</span>" runat="server"></asp:LinkButton>
+            </ContentTemplate>
+        </asp:UpdatePanel>
     </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
@@ -146,7 +149,7 @@
                                     <asp:CheckBox ID="ChkTimmer" OnCheckedChanged="ChkTimmer_CheckedChanged" AutoPostBack="true" Text=" " runat="server" CssClass="chksino" Checked="true"></asp:CheckBox>
                                 </div>
                                 <div class="col-md-8">
-                                    <asp:Timer runat="server" ID="TimmerRefresh" Interval="30000" OnTick="TimmerRefresh_Tick"></asp:Timer>
+                                    <asp:Timer runat="server" ID="TimmerRefresh" Interval="120000" OnTick="TimmerRefresh_Tick"></asp:Timer>
                                 </div>
                             </div>
                         </div>
diff --git a/GPS/Trayectos.aspx.vb b/GPS/Trayectos.aspx.vb
index 611d4da95..6b851af94 100644
--- a/GPS/Trayectos.aspx.vb
+++ b/GPS/Trayectos.aspx.vb
@@ -37,9 +37,18 @@ Partial Class GPS_Trayectos
         Set(value As DataTable)
             ViewState("DtPosiciones") = value
         End Set
-    End Property
+    End Property
+    Private Property DtTrayectos As DataTable
+        Get
+            Return CType(ViewState("DtTrayectos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtTrayectos") = value
+        End Set
+    End Property
+
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
@@ -52,7 +61,6 @@ Partial Class GPS_Trayectos
         CargaDispositivos()
         CargaGeoReferencias()
         CargaEstatus()
-        CargaDdlTrayectos()
 
         CargaTrayectos()
     End Sub
@@ -98,28 +106,32 @@ Partial Class GPS_Trayectos
 
         Dim CveEstatus As Integer = -1
         If ChkActivas.Checked AndAlso DdlEstatusTrayecto.SelectedValue.ToEntero() <= 0 Then
-            CveEstatus = -2
+            CveEstatus = -2
         Else
             CveEstatus = DdlEstatusTrayecto.SelectedValue.ToEntero()
         End If
 
         Dim ObjGPS As New ClsGPS
         If ObjGPS.GetTrayectos(-1, DdlDispositivoFiltro.SelectedValue.ToEntero(), UsuarioActual.CveCliente, CveEstatus, FechaI, FechaF) Then
-            GvBarra.DataSource = ObjGPS.DtResultados
+            DtTrayectos = ObjGPS.DtResultados.Copy()
         End If
         ObjGPS.Dispose()
+
+        GvBarra.DataSource = DtTrayectos
         GvBarra.DataBind()
         UPGV.Update()
     End Sub
-    Public Sub CargaDdlTrayectos()
-        Dim ObjGPS As New ClsGPS
-        If ObjGPS.GetTrayectos(-1, -1, UsuarioActual.CveCliente) Then
-            DdlTrayecto.DataSource = ObjGPS.DtResultados.FiltraParametros("EsFin = True")
-        End If
-        ObjGPS.Dispose()
+    Public Sub CargaDdlTrayectos()
+        'Dim ObjGPS As New ClsGPS
+        'If ObjGPS.GetTrayectos(-1, -1, UsuarioActual.CveCliente) Then
+        '    DdlTrayecto.DataSource = ObjGPS.DtResultados.FiltraParametros("EsFin = True")
+        'End If
+        'ObjGPS.Dispose()
+
+        DdlTrayecto.DataSource = DtTrayectos
         DdlTrayecto.DataBind()
 
-        UpAgregar.Update()
+        UpDdlTrayecto.Update()
     End Sub
     Public Sub CargaEstatus()
         Dim ObjGPS As New ClsGPS
@@ -469,5 +481,9 @@ Partial Class GPS_Trayectos
         TimmerRefresh.Enabled = ChkTimmer.Checked
 
         UPGV.Update()
-    End Sub
+    End Sub
+    Protected Sub LnkAddE_Click(sender As Object, e As EventArgs)
+        CargaDdlTrayectos()
+        RegistraScript("$('#DivCrearApatir').modal({backdrop: 'static', keyboard: false});")
+    End Sub
 End Class