Optimizacion de trayectos

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>

GPS/Trayectos.aspx.vb

@@ -38,6 +38,15 @@ Partial Class GPS_Trayectos
             ViewState("DtPosiciones") = value
         End Set
     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
@@ -52,7 +61,6 @@ Partial Class GPS_Trayectos
         CargaDispositivos()
         CargaGeoReferencias()
         CargaEstatus()
-        CargaDdlTrayectos()
 
         CargaTrayectos()
     End Sub
@@ -105,21 +113,25 @@ Partial Class GPS_Trayectos
 
         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()
+        '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
@@ -470,4 +482,8 @@ Partial Class GPS_Trayectos
 
         UPGV.Update()
     End Sub
+    Protected Sub LnkAddE_Click(sender As Object, e As EventArgs)
+        CargaDdlTrayectos()
+        RegistraScript("$('#DivCrearApatir').modal({backdrop: 'static', keyboard: false});")
+    End Sub
 End Class