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

Optimizacion de trayectos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-03-05 14:01:44 -07:00
parent 73106883d9
commit d54cffa452
2 changed files with 35 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
GPS/Trayectos.aspx
View File

@@ -88,8 +88,11 @@
</asp:LinkButton> </asp:LinkButton>
</li> </li>
<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:UpdatePanel runat="server">
</asp:LinkButton> <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> </li>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <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> <asp:CheckBox ID="ChkTimmer" OnCheckedChanged="ChkTimmer_CheckedChanged" AutoPostBack="true" Text=" " runat="server" CssClass="chksino" Checked="true"></asp:CheckBox>
</div> </div>
<div class="col-md-8"> <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> </div>
</div> </div>

42
GPS/Trayectos.aspx.vb
View File

@@ -37,9 +37,18 @@ Partial Class GPS_Trayectos
Set(value As DataTable) Set(value As DataTable)
ViewState("DtPosiciones") = value ViewState("DtPosiciones") = value
End Set 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 #End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
@@ -52,7 +61,6 @@ Partial Class GPS_Trayectos
CargaDispositivos() CargaDispositivos()
CargaGeoReferencias() CargaGeoReferencias()
CargaEstatus() CargaEstatus()
CargaDdlTrayectos()
CargaTrayectos() CargaTrayectos()
End Sub End Sub
@@ -98,28 +106,32 @@ Partial Class GPS_Trayectos
Dim CveEstatus As Integer = -1 Dim CveEstatus As Integer = -1
If ChkActivas.Checked AndAlso DdlEstatusTrayecto.SelectedValue.ToEntero() <= 0 Then If ChkActivas.Checked AndAlso DdlEstatusTrayecto.SelectedValue.ToEntero() <= 0 Then
CveEstatus = -2 CveEstatus = -2
Else Else
CveEstatus = DdlEstatusTrayecto.SelectedValue.ToEntero() CveEstatus = DdlEstatusTrayecto.SelectedValue.ToEntero()
End If End If
Dim ObjGPS As New ClsGPS Dim ObjGPS As New ClsGPS
If ObjGPS.GetTrayectos(-1, DdlDispositivoFiltro.SelectedValue.ToEntero(), UsuarioActual.CveCliente, CveEstatus, FechaI, FechaF) Then If ObjGPS.GetTrayectos(-1, DdlDispositivoFiltro.SelectedValue.ToEntero(), UsuarioActual.CveCliente, CveEstatus, FechaI, FechaF) Then
GvBarra.DataSource = ObjGPS.DtResultados DtTrayectos = ObjGPS.DtResultados.Copy()
End If End If
ObjGPS.Dispose() ObjGPS.Dispose()
GvBarra.DataSource = DtTrayectos
GvBarra.DataBind() GvBarra.DataBind()
UPGV.Update() UPGV.Update()
End Sub End Sub
Public Sub CargaDdlTrayectos() Public Sub CargaDdlTrayectos()
Dim ObjGPS As New ClsGPS 'Dim ObjGPS As New ClsGPS
If ObjGPS.GetTrayectos(-1, -1, UsuarioActual.CveCliente) Then 'If ObjGPS.GetTrayectos(-1, -1, UsuarioActual.CveCliente) Then
DdlTrayecto.DataSource = ObjGPS.DtResultados.FiltraParametros("EsFin = True") ' DdlTrayecto.DataSource = ObjGPS.DtResultados.FiltraParametros("EsFin = True")
End If 'End If
ObjGPS.Dispose() 'ObjGPS.Dispose()
DdlTrayecto.DataSource = DtTrayectos
DdlTrayecto.DataBind() DdlTrayecto.DataBind()
UpAgregar.Update() UpDdlTrayecto.Update()
End Sub End Sub
Public Sub CargaEstatus() Public Sub CargaEstatus()
Dim ObjGPS As New ClsGPS Dim ObjGPS As New ClsGPS
@@ -469,5 +481,9 @@ Partial Class GPS_Trayectos
TimmerRefresh.Enabled = ChkTimmer.Checked TimmerRefresh.Enabled = ChkTimmer.Checked
UPGV.Update() 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 End Class