Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
395
GPS/Soporte.aspx.vb
Normal file
395
GPS/Soporte.aspx.vb
Normal file
@@ -0,0 +1,395 @@
|
||||
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
Partial Class GPS_Soporte
|
||||
Inherits ClsPaginas
|
||||
|
||||
|
||||
#Region "PROPIEDADES"
|
||||
Private Property TmpDT As DataTable
|
||||
Get
|
||||
Return CType(ViewState("TmpDT"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("TmpDT") = 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
|
||||
CargaDispositivos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaDispositivos()
|
||||
Dim GPS As New ClsGPS
|
||||
|
||||
If GPS.DispositivosGet(-1, -1, -1, UsuarioActual.CveEmpresa) AndAlso GPS.DtResultados.Rows.Count > 0 Then
|
||||
DdlDispositivo.DataSource = GPS.DtResultados
|
||||
DdlDispositivosLog.DataSource = GPS.DtResultados
|
||||
End If
|
||||
GPS.Dispose()
|
||||
DdlDispositivo.DataBind()
|
||||
DdlDispositivosLog.DataBind()
|
||||
DdlDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlDispositivosLog.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
DdlClientes.DataBind()
|
||||
DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim GPS As New ClsGPS
|
||||
|
||||
If GPS.DispositivosGet(DdlDispositivo.SelectedValue, -1, -1) AndAlso GPS.DtResultados.Rows.Count > 0 Then
|
||||
TxtIp.Text = GPS.DtResultados.Rows(0)("IP").ToString
|
||||
TxtPuerto.Text = "80"
|
||||
TxtAPN.Text = GPS.DtResultados.Rows(0)("APN").ToString
|
||||
TxtPlanDatos.Text = GPS.DtResultados.Rows(0)("PlanDato").ToString
|
||||
TxtSim.Text = GPS.DtResultados.Rows(0)("SSID").ToString
|
||||
TxtNoLinea.Text = GPS.DtResultados.Rows(0)("NumeroTelefono").ToString
|
||||
TxtMarca.Text = GPS.DtResultados.Rows(0)("Marca").ToString
|
||||
TxtModelo.Text = GPS.DtResultados.Rows(0)("Modelo").ToString
|
||||
TxtImei.Text = GPS.DtResultados.Rows(0)("IMEI").ToString
|
||||
TxtSerie.Text = GPS.DtResultados.Rows(0)("Serie").ToString
|
||||
TxtUnidad.Text = "SIG"
|
||||
TxtCliente.Text = GPS.DtResultados.Rows(0)("Cliente").ToString
|
||||
TxtEstatus.Text = If(GPS.DtResultados.Rows(0)("Estatus").ToString = "1", "Activo", "Inactivo")
|
||||
TxtFechaInstalacion.Text = GPS.DtResultados.Rows(0)("FechaInstalacion").ToString
|
||||
'TxtFechaReinstalacion.Text = GPS.DtResultados.Rows(0)("FechaReinstalacion").ToString
|
||||
bodydatos.Visible = True
|
||||
ltlSerieConsulta.Text = GPS.DtResultados.Rows(0)("Serie").ToString
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
GPS.Dispose()
|
||||
CargaReportes()
|
||||
UpInfo.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnCargaDispositivo_Click(sender As Object, e As EventArgs) Handles BtnCargaDispositivo.Click
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaReportes()
|
||||
Dim GPS As New ClsGPS
|
||||
RegistraScript("DeleteMarkers();")
|
||||
|
||||
|
||||
If DdlTipoConsulta.SelectedValue = "Last" Then
|
||||
If GPS.GetRepDispositivo(DdlDispositivo.SelectedValue.ToEntero, MinFecha, MaxFecha, "Top 1") Then
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
Dim Coord As String = SQLToGmaps(GPS.DtResultados.Rows(0)("Punto"), "POINT")
|
||||
RegistraScript($"CreaMarcador({Coord},'{DdlDispositivo.SelectedItem.Text}');")
|
||||
GvReportes.DataSource = GPS.DtResultados
|
||||
GvVLog.DataSource = GPS.DtResultados
|
||||
bodyreportes.Visible = True
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
ElseIf DdlTipoConsulta.SelectedValue = "Last10" Then
|
||||
If GPS.GetRepDispositivo(DdlDispositivo.SelectedValue.ToEntero, MinFecha, MaxFecha, "TOP 10") Then
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
For Each row As DataRow In GPS.DtResultados.Rows
|
||||
Dim Coord As String = SQLToGmaps(row("Punto"), "POINT")
|
||||
RegistraScript($"CreaMarcador({Coord},'{DdlDispositivo.SelectedItem.Text}: {row("FechaIng").ToString}');")
|
||||
Next
|
||||
GvReportes.DataSource = GPS.DtResultados
|
||||
GvVLog.DataSource = GPS.DtResultados
|
||||
bodyreportes.Visible = True
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
ElseIf DdlTipoConsulta.SelectedValue = "Today" Then
|
||||
If GPS.GetRepDispositivo(DdlDispositivo.SelectedValue.ToEntero, DateTime.Today.AddHours(-1), DateTime.Today.AddDays(1)) Then
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
For Each row As DataRow In GPS.DtResultados.Rows
|
||||
Dim Coord As String = SQLToGmaps(row("Punto"), "POINT")
|
||||
RegistraScript($"CreaMarcador({Coord},'{DdlDispositivo.SelectedItem.Text}: {row("FechaIng")}');")
|
||||
Next
|
||||
GvReportes.DataSource = GPS.DtResultados
|
||||
GvVLog.DataSource = GPS.DtResultados
|
||||
bodyreportes.Visible = True
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
ElseIf DdlTipoConsulta.SelectedValue = "Yesterday" Then
|
||||
If GPS.GetRepDispositivo(DdlDispositivo.SelectedValue.ToEntero, DateTime.Today.AddDays(-1).AddHours(-1), DateTime.Today) Then
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
For Each row As DataRow In GPS.DtResultados.Rows
|
||||
Dim Coord As String = SQLToGmaps(row("Punto"), "POINT")
|
||||
RegistraScript($"CreaMarcador({Coord},'{DdlDispositivo.SelectedItem.Text}: {row("FechaIng")}');")
|
||||
Next
|
||||
GvReportes.DataSource = GPS.DtResultados
|
||||
GvVLog.DataSource = GPS.DtResultados
|
||||
bodyreportes.Visible = True
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
ElseIf DdlTipoConsulta.SelectedValue = "Week" Then
|
||||
If GPS.GetRepDispositivo(DdlDispositivo.SelectedValue.ToEntero, DateTime.Today.AddDays(-7).AddHours(-1), DateTime.Today.AddDays(1)) Then
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = TmpDT.NewRow
|
||||
For Each row As DataRow In GPS.DtResultados.Rows
|
||||
Dim Coord As String = SQLToGmaps(row("Punto"), "POINT")
|
||||
RegistraScript($"CreaMarcador({Coord},'{DdlDispositivo.SelectedItem.Text}: {row("FechaIng")}');")
|
||||
Next
|
||||
GvReportes.DataSource = GPS.DtResultados
|
||||
GvVLog.DataSource = GPS.DtResultados
|
||||
bodyreportes.Visible = True
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
ElseIf DdlTipoConsulta.SelectedValue = "All" Then
|
||||
Dim FechaI = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.Trim.ToDateTime.AddHours(-1))
|
||||
Dim FechaF = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.Trim.ToDateTime.AddDays(1))
|
||||
If GPS.GetRepDispositivo(DdlDispositivo.SelectedValue.ToEntero, FechaI.AddHours(-1), FechaF.AddDays(1)) Then
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = TmpDT.NewRow
|
||||
For Each row As DataRow In GPS.DtResultados.Rows
|
||||
Dim Coord As String = SQLToGmaps(row("Punto"), "POINT")
|
||||
RegistraScript($"CreaMarcador({Coord},'{DdlDispositivo.SelectedItem.Text}: {row("FechaIng")}');")
|
||||
Next
|
||||
GvReportes.DataSource = GPS.DtResultados
|
||||
GvVLog.DataSource = GPS.DtResultados
|
||||
bodyreportes.Visible = True
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
Dim CveTrama = GPS.DtResultados.Rows(0)("CveTrama").ToString.ToEntero
|
||||
If GPS.RepEventosDispositivosGet(CveTrama) Then
|
||||
Dim nRows As Double = (GPS.DtResultados.Rows.Count / 3)
|
||||
If nRows > 0 Then
|
||||
If Math.Abs(nRows Mod 1) < Double.Epsilon Then
|
||||
gvH1.DataSource = GPS.DtResultados().FiltraParametros($"RowNumber <= {nRows}")
|
||||
gvH2.DataSource = GPS.DtResultados().FiltraParametros($"RowNumber > {nRows} AND RowNumber <= {nRows * 2} ")
|
||||
gvH3.DataSource = GPS.DtResultados().FiltraParametros($"RowNumber > {nRows * 2} AND RowNumber <= {nRows * 3} ")
|
||||
Else
|
||||
nRows = Math.Ceiling(nRows)
|
||||
gvH1.DataSource = GPS.DtResultados().FiltraParametros($"RowNumber <= {nRows}")
|
||||
gvH2.DataSource = GPS.DtResultados().FiltraParametros($"RowNumber > {nRows} AND RowNumber <= {nRows * 2} ")
|
||||
gvH3.DataSource = GPS.DtResultados().FiltraParametros($"RowNumber > {nRows * 2} AND RowNumber <= {GPS.DtResultados.Rows.Count} ")
|
||||
End If
|
||||
Else
|
||||
gvH1.DataSource = Nothing
|
||||
gvH2.DataSource = Nothing
|
||||
gvH3.DataSource = Nothing
|
||||
gvH2.Visible = False
|
||||
gvH3.Visible = False
|
||||
End If
|
||||
Else
|
||||
gvH1.DataSource = Nothing
|
||||
gvH2.DataSource = Nothing
|
||||
gvH3.DataSource = Nothing
|
||||
gvH2.Visible = False
|
||||
gvH3.Visible = False
|
||||
End If
|
||||
End If
|
||||
|
||||
GPS.Dispose()
|
||||
gvH1.DataBind()
|
||||
gvH2.DataBind()
|
||||
gvH3.DataBind()
|
||||
GvReportes.DataBind()
|
||||
GvVLog.DataBind()
|
||||
UpReportes.Update()
|
||||
UPVlog.Update()
|
||||
upHistorico.Update()
|
||||
|
||||
|
||||
End Sub
|
||||
Private Function SQLToGmaps(CoordsSQL As String, Tipo As String) As String
|
||||
Dim CoordsPoligono As String = CoordsSQL.Replace($"{Tipo}", "").Replace(")", "").Replace("(", "")
|
||||
Dim CoordsPuntos() As String = CoordsPoligono.Split(","c)
|
||||
Dim Var As String = ""
|
||||
For Each coordenada As String In CoordsPuntos
|
||||
If coordenada Is CoordsPuntos.Last Then
|
||||
Dim latlng() As String = coordenada.Trim.Split(" ")
|
||||
Var = $"{Var}{{lat: {latlng(1)}, lng: {latlng(0)} }}"
|
||||
Else
|
||||
Dim latlng() As String = coordenada.Trim.Split(" ")
|
||||
Var = $"{Var}{{lat: {latlng(1)}, lng: {latlng(0)} }},"
|
||||
End If
|
||||
Next
|
||||
Return Var
|
||||
End Function
|
||||
|
||||
Private Sub CreaTmpDT(Opcion As String)
|
||||
TmpDT = New DataTable
|
||||
If Opcion = 1 Then
|
||||
TmpDT.Columns.Add("Fecha", GetType(String))
|
||||
TmpDT.Columns.Add("Valor", GetType(String))
|
||||
TmpDT.Columns.Add("CveTrama", GetType(Integer))
|
||||
ElseIf Opcion = 2 Then
|
||||
TmpDT.Columns.Add("Trama", GetType(String))
|
||||
TmpDT.Columns.Add("CveTrama", GetType(Integer))
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlTipoConsulta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoConsulta.SelectedIndexChanged
|
||||
If DdlTipoConsulta.SelectedValue = "All" Then
|
||||
liFechai.Visible = True
|
||||
liFechaF.Visible = True
|
||||
Else
|
||||
liFechai.Visible = False
|
||||
liFechaF.Visible = False
|
||||
End If
|
||||
upDispositivo.Update()
|
||||
End Sub
|
||||
Protected Sub BtnCargaLog_Click(sender As Object, e As EventArgs) Handles BtnCargaLog.Click
|
||||
Dim GPS As New ClsGPS
|
||||
|
||||
If GPS.DispositivosGet(DdlDispositivo.SelectedValue, -1, -1) AndAlso GPS.DtResultados.Rows.Count > 0 Then
|
||||
ltlSerieLog.Text = GPS.DtResultados.Rows(0)("Serie").ToString
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
GPS.Dispose()
|
||||
CargaLog()
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlTipoConsultaLog_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoConsultaLog.SelectedIndexChanged
|
||||
If DdlTipoConsultaLog.SelectedValue = "All" Then
|
||||
liFechaLogI.Visible = True
|
||||
liFechaLogF.Visible = True
|
||||
Else
|
||||
liFechaLogI.Visible = False
|
||||
liFechaLogF.Visible = False
|
||||
End If
|
||||
UpDispositivoLog.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaLog()
|
||||
Dim GPS As New ClsGPS
|
||||
CreaTmpDT(2)
|
||||
RegistraScript("DeleteMarkers();")
|
||||
|
||||
|
||||
If DdlTipoConsultaLog.SelectedValue = "Last" Then
|
||||
If GPS.GetRepDispositivo(DdlDispositivosLog.SelectedValue.ToEntero, MinFecha, MaxFecha) Then
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = TmpDT.NewRow
|
||||
dr("Trama") = GPS.DtResultados(0)("Trama").ToString
|
||||
dr("CveTrama") = GPS.DtResultados(0)("CveTrama").ToString
|
||||
TmpDT.Rows.Add(dr)
|
||||
GVLog.DataSource = TmpDT
|
||||
bodyreportes.Visible = True
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
ElseIf DdlTipoConsultaLog.SelectedValue = "Last10" Then
|
||||
If GPS.GetRepDispositivo(DdlDispositivosLog.SelectedValue.ToEntero, MinFecha, MaxFecha) Then
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = TmpDT.NewRow
|
||||
For rowindex = 0 To 9 Step 1
|
||||
dr = TmpDT.NewRow
|
||||
dr("Trama") = GPS.DtResultados(rowindex)("Trama").ToString
|
||||
dr("CveTrama") = GPS.DtResultados(rowindex)("CveTrama").ToString
|
||||
TmpDT.Rows.Add(dr)
|
||||
Next
|
||||
GVLog.DataSource = TmpDT
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
ElseIf DdlTipoConsultaLog.SelectedValue = "Today" Then
|
||||
If GPS.GetRepDispositivo(DdlDispositivosLog.SelectedValue.ToEntero, DateTime.Today.AddHours(-1), DateTime.Today.AddDays(1)) Then
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = TmpDT.NewRow
|
||||
For Each row As DataRow In GPS.DtResultados.Rows
|
||||
dr = TmpDT.NewRow
|
||||
dr("Trama") = row("Trama").ToString
|
||||
dr("CveTrama") = row("CveTrama").ToString
|
||||
TmpDT.Rows.Add(dr)
|
||||
Next
|
||||
GVLog.DataSource = TmpDT
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
ElseIf DdlTipoConsultaLog.SelectedValue = "Yesterday" Then
|
||||
If GPS.GetRepDispositivo(DdlDispositivosLog.SelectedValue.ToEntero, DateTime.Today.AddDays(-1).AddHours(-1), DateTime.Today) Then
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = TmpDT.NewRow
|
||||
For Each row As DataRow In GPS.DtResultados.Rows
|
||||
Dim Coord As String = SQLToGmaps(row("Punto"), "POINT")
|
||||
dr = TmpDT.NewRow
|
||||
dr("Trama") = row("Trama").ToString
|
||||
dr("CveTrama") = row("CveTrama").ToString
|
||||
TmpDT.Rows.Add(dr)
|
||||
Next
|
||||
GVLog.DataSource = TmpDT
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
ElseIf DdlTipoConsultaLog.SelectedValue = "Week" Then
|
||||
If GPS.GetRepDispositivo(DdlDispositivosLog.SelectedValue.ToEntero, DateTime.Today.AddDays(-7).AddHours(-1), DateTime.Today.AddDays(1)) Then
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = TmpDT.NewRow
|
||||
For Each row As DataRow In GPS.DtResultados.Rows
|
||||
dr = TmpDT.NewRow
|
||||
dr("Trama") = row("Trama").ToString
|
||||
dr("CveTrama") = row("CveTrama").ToString
|
||||
TmpDT.Rows.Add(dr)
|
||||
Next
|
||||
GVLog.DataSource = TmpDT
|
||||
Else
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
ElseIf DdlTipoConsultaLog.SelectedValue = "All" Then
|
||||
Dim FechaI = If(TxtFechaLogI.Text.Trim = "", MinFecha, TxtFechaLogI.Text.Trim.ToDateTime.AddHours(-1))
|
||||
Dim FechaF = If(TxtFechaLogF.Text.Trim = "", MaxFecha, TxtFechaLogF.Text.Trim.ToDateTime.AddDays(1))
|
||||
If GPS.GetRepDispositivo(DdlDispositivosLog.SelectedValue.ToEntero, FechaI, FechaF) Then
|
||||
If GPS.DtResultados.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = TmpDT.NewRow
|
||||
For Each row As DataRow In GPS.DtResultados.Rows
|
||||
dr = TmpDT.NewRow
|
||||
dr("Trama") = row("Trama").ToString
|
||||
dr("CveTrama") = row("CveTrama").ToString
|
||||
TmpDT.Rows.Add(dr)
|
||||
Next
|
||||
GVLog.DataSource = TmpDT
|
||||
Else
|
||||
GVLog.DataSource = Nothing
|
||||
Alert("No se encontraron resultados con el equipo seleccionado", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
GPS.Dispose()
|
||||
GVLog.DataBind()
|
||||
UpGVLog.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
|
||||
Dim GPS As New ClsGPS
|
||||
If GPS.DispositivosGet(-1, -1, DdlClientes.SelectedValue, UsuarioActual.CveEmpresa) Then
|
||||
GvConsultaM.DataSource = GPS.DtResultados
|
||||
Else
|
||||
GvConsultaM.DataSource = GPS.DtResultados
|
||||
End If
|
||||
GPS.Dispose()
|
||||
GvConsultaM.DataBind()
|
||||
DvConsultar.Visible = True
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user