'
- });
-
- marker.addListener('click', function () {
- closeLastOpenedInfoWindow();
- infowindow.open(map, marker);
- lastOpenedInfoWindow = infowindow;
- });
-
- markersGeo.push(marker);
- }
- //END REGION
-
//REGION PARADAS
var polygonsParadas = [];
var markersParadas = [];
@@ -3160,5 +3135,7 @@
+
+
diff --git a/GPS/Rastreo.aspx.vb b/GPS/Rastreo.aspx.vb
index 46134184b..9ab3b68b7 100644
--- a/GPS/Rastreo.aspx.vb
+++ b/GPS/Rastreo.aspx.vb
@@ -336,41 +336,33 @@ Partial Class GPS_Rastreo
Mensajes = Mensajes + $"{GVRow.DataKey("NoEconomico").ToString},"
End If
- End If
- ElseIf Opcion = "All" Then
-
- 'Dim CveDispositivo = GVRow.DataKey("CveDispositivo").ToEntero
- 'Dim RowDispositivo As DataRow = GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimero($"CveDispositivo = {CveDispositivo}")
- 'Dim json As JObject = GPS.GetPosicionEquipoJson(CveDispositivo, FechaI, FechaF, RowDispositivo("Icono").ToString, RowDispositivo("ColorTrazo").ToString, GVRow.DataKey("NombreVehiculo").ToString, UsuarioActual.TienePermisoProceso(200))
- 'HdnJSScript.Value = json.ToString()
- 'DtPosiciones = GPS.DtPosicionesResultados '.AsEnumerable().Take(1000).CopyToDataTable()
- 'UpDatosMapa.Update()
-
- 'RegistraScript($"CargaHistorico(); PreparaDibujadoHistorico();PreparaDibujado(3);")
-
-
- If ChkTrazarGeocercas.Checked Then
- Dim DtGeocercas As DataTable = Nothing
-
- If GPS.GetReferenciaDetalle(-1, -1, GVRow.DataKey("CveDispositivo").ToEntero, UsuarioActual.CveCliente) Then
- DtGeocercas = GPS.DtResultados.FiltraParametros("EsParada = False And Tipo='Geocerca' AND Estatus = 1")
- End If
-
- 'SI TIENE GEOREFERENCIAS LAS MOSTRAMOS
- If DtGeocercas IsNot Nothing Then
- Dim SbJS As New StringBuilder
- SbJS.Append("$('#LnkMostarGeocercas').css('display', 'block'); setTimeout(function(){ ")
- For Each Dr As DataRow In DtGeocercas.Rows
- Dim CoordsParada = SQLToGmapsJArray(Dr("Coordenadas").ToString, "POLYGON")
- SbJS.AppendFormat(" creaPoligonoGeocerca({0},'{1}','{2}'); ", CoordsParada.ToString, Dr("Color").ToString, Dr("GeoReferencia").ToString)
- Next
- SbJS.Append(" VerGeocercas(); },1000);")
- RegistraScript(SbJS.ToString)
- End If
- Else
- RegistraScript("$('#LnkMostarGeocercas').css('display', 'none');")
+ End If
+
+ If ChkTrazarGeocercas.Checked Then
+ MostrarGeoCercas()
+ End If
+
+ If ChkTrazarGeorutas.Checked Then
+ MostrarGeoRutas()
+ End If
+
+ If ChkTrazarPuntosInteres.Checked Then
+ MostrarPuntosDeInteres()
End If
+ ElseIf Opcion = "All" Then
+
+ If ChkTrazarGeocercas.Checked Then
+ MostrarGeoCercas()
+ End If
+
+ If ChkTrazarGeorutas.Checked Then
+ MostrarGeoRutas()
+ End If
+
+ If ChkTrazarPuntosInteres.Checked Then
+ MostrarPuntosDeInteres()
+ End If
If GPS.GetPosicionEquipo(GVRow.DataKey("CveDispositivo").ToEntero, FechaI, FechaF) Then
If GPS.DtResultados.Rows.Count > 0 Then
@@ -583,7 +575,20 @@ Partial Class GPS_Rastreo
End If
RegistraScript($"CreaMarcador({Coord},'{row("NombreVehiculo")}', '{Info}', '{Icono}');", row("CveDispositivo").ToString)
AddRowPosiciones(Vehiculo, Coord, row("SPD").ToString.ToDouble, Fecha, row("CveDispositivo").ToString.ToEntero, row("TiempoDetenido").ToString.ToDouble)
- Next
+ Next
+
+ If ChkTrazarGeocercas.Checked Then
+ MostrarGeoCercas()
+ End If
+
+ If ChkTrazarGeorutas.Checked Then
+ MostrarGeoRutas()
+ End If
+
+ If ChkTrazarPuntosInteres.Checked Then
+ MostrarPuntosDeInteres()
+ End If
+
Else
Alert($"No se encontraron resultados")
End If
@@ -630,15 +635,16 @@ Partial Class GPS_Rastreo
Next
If ChkTrazarGeocercas.Checked Then
- Dim Dispositivos As String = Equipos.Replace(";", ",").Remove(Equipos.Length - 1, 1)
- CargaGeocercas(Dispositivos)
+ MostrarGeoCercas()
End If
If ChkTrazarGeorutas.Checked Then
- MostarGeoRutas()
+ MostrarGeoRutas()
+ End If
+
+ If ChkTrazarPuntosInteres.Checked Then
+ MostrarPuntosDeInteres()
End If
-
- RegistraScript("setTimeout(function(){ $('#LnkMostarGeocercas').css('display', 'block'); },1000);")
Else
Alert($"No se encontraron resultados", TipoMensaje.MsgAdvertencia)
End If
@@ -713,29 +719,47 @@ Partial Class GPS_Rastreo
GPS.Dispose()
End Sub
Private Sub CargaGeocercas(Dispositivos As String)
- Dim DtGeocercas As DataTable = Nothing
-
- Dim ObjGPSGeo As New ClsGPS
- If ObjGPSGeo.GetReferenciaDetalle(-1, -1, -1, UsuarioActual.CveCliente) Then
- DtGeocercas = ObjGPSGeo.DtResultados.FiltraParametros("EsParada = False AND Tipo='Geocerca' AND Estatus = 1")
- End If
- ObjGPSGeo.Dispose()
-
- 'SI TIENE GEOREFERENCIAS LAS MOSTRAMOS
- If DtGeocercas IsNot Nothing Then
- Dim DtParadasDispositivo = DtGeocercas.FiltraParametros($"CveDispositivo IN({Dispositivos})", "", {"Color", "GeoReferencia", "Coordenadas"})
- Dim SbJS As New StringBuilder
- SbJS.Append("$('#LnkMostarGeocercas').css('display', 'block'); setTimeout(function(){ ")
- For Each Dr As DataRow In DtParadasDispositivo.Rows
- SbJS.AppendFormat(" creaPoligonoGeocerca({0},'{1}','{2}'); ", SQLToGmapsJArray(Dr("Coordenadas").ToString, "POLYGON"), Dr("Color").ToString, Dr("GeoReferencia").ToString)
- Next
- SbJS.Append(" VerGeocercas(); },1000);")
- RegistraScript(SbJS.ToString)
- End If
+ Try
+ Dim DtGeocercas As DataTable = Nothing
+
+ Dim ObjGPSGeo As New ClsGPS
+ If ObjGPSGeo.GetReferenciaDetalle(-1, -1, -1, UsuarioActual.CveCliente) Then
+ DtGeocercas = ObjGPSGeo.DtResultados.FiltraParametros("EsParada = False AND Tipo='Geocerca' AND Estatus = 1")
+ End If
+ ObjGPSGeo.Dispose()
+
+ 'SI TIENE GEOREFERENCIAS LAS MOSTRAMOS
+ If DtGeocercas IsNot Nothing Then
+ Dim DtParadasDispositivo = DtGeocercas.FiltraParametros($"CveDispositivo IN({Dispositivos})", DistinctColumns:={"GeoReferencia", "Coordenadas", "Color"})
+
+ GvGeoCercas.DataSource = DtParadasDispositivo
+ GvGeoCercas.DataBind()
+ End If
+ Catch ex As Exception
+ OnError("Ocurrió un error al consultar las geocercas", ex)
+ End Try
+ UpGeoCercas.Update()
End Sub
- Private Sub MostarGeoRutas()
+ Private Sub MostrarGeoCercas()
Dim count = 0
- RegistraScript($"initGeoRutas();", count.ToString())
+ Try
+ RegistraScript($"NuevaConsultaGeoCercas();", count.ToString())
+ For Each GvRow As GridViewRow In GvGeoCercas.Rows
+ If GvRow.RowType = DataControlRowType.DataRow Then
+ If GvRow.FCCheckBox("ChkGeo").Checked Then
+ count += 1
+ RegistraScript(String.Format("creaPoligonoGeocerca({0},'{1}','{2}'); ", SQLToGmapsJArray(GvRow.DataKey("Coordenadas"), "POLYGON"), GvRow.DataKey("Color"), GvRow.DataKey("GeoReferencia")), count.ToString())
+ End If
+ End If
+ Next
+ RegistraScript("VerGeocercas();", (count + 1).ToString())
+ Catch ex As Exception
+ OnError("Ocurrió un error al consultar las geocercas", ex)
+ End Try
+ End Sub
+ Private Sub MostrarGeoRutas()
+ Dim count = 0
+ RegistraScript($"NuevaConsultaGeoRutas();", count.ToString())
For Each GvRow As GridViewRow In GvGeorutas.Rows
If GvRow.RowType = DataControlRowType.DataRow Then
@@ -747,6 +771,20 @@ Partial Class GPS_Rastreo
End If
Next
+ End Sub
+
+ Private Sub MostrarPuntosDeInteres()
+ RegistraScript($"NuevaConsultaPI();", "0")
+
+ For Each GvRow As GridViewRow In GVPuntosInteres.Rows
+ If GvRow.RowType = DataControlRowType.DataRow Then
+ If GvRow.FCCheckBox("ChkPI").Checked Then
+ Dim coords = SQLToGmaps(GvRow.DataKey("Punto"), "POINT")
+ RegistraScript($"CreaMarcadorPI({coords}, '{GvRow.DataKey("PuntoDeInteres").ToString}')", GvRow.RowIndex.ToString())
+ End If
+ End If
+ Next
+
End Sub
Protected Sub TimmerRefresh_Tick(sender As Object, e As EventArgs)
@@ -1155,10 +1193,18 @@ Partial Class GPS_Rastreo
Protected Sub CargaOpcion(opcion As String)
TimmerRefresh.Enabled = False
- HdnOpcion.Value = opcion
+ HdnOpcion.Value = opcion
+
+ dvTrazo.Visible = False
+ dvTrazoGeo.Visible = False
+ dvTrazoRutas.Visible = False
+ dvTrazoPI.Visible = False
+
+ chkTrazarLinea.Checked = False
+ ChkTrazarGeocercas.Checked = False
+ ChkTrazarGeorutas.Checked = False
+ ChkTrazarPuntosInteres.Checked = False
- chkTrazarLinea.Visible = False
- ChkTrazarGeocercas.Visible = False
DvPaginacion.Visible = False
rowImpresionesKM.Visible = False
If opcion = "All" Then
@@ -1169,6 +1215,7 @@ Partial Class GPS_Rastreo
dvTrazo.Visible = False
dvTrazoGeo.Visible = True
dvTrazoRutas.Visible = True
+ dvTrazoPI.Visible = True
ChkTrazarGeocercas.Visible = True
dvMinutos.Visible = False
RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1183,6 +1230,7 @@ Partial Class GPS_Rastreo
dvTrazo.Visible = False
dvTrazoGeo.Visible = False
dvTrazoRutas.Visible = False
+ dvTrazoPI.Visible = False
dvMinutos.Visible = False
BtnRastrear.ValidationGroup = "GrpFechas"
RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1195,6 +1243,7 @@ Partial Class GPS_Rastreo
dvTrazo.Visible = False
dvTrazoGeo.Visible = False
dvTrazoRutas.Visible = False
+ dvTrazoPI.Visible = False
dvDispositivos.Visible = True
dvMinutos.Visible = False
GvDispositivos.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("Estatus = 1 AND LimiteVelocidad = 1")
@@ -1212,6 +1261,7 @@ Partial Class GPS_Rastreo
dvTrazo.Visible = False
dvTrazoGeo.Visible = False
dvTrazoRutas.Visible = False
+ dvTrazoPI.Visible = False
dvMinutos.Visible = True
dvEventos.Visible = False
BtnRastrear.ValidationGroup = "GrpFechas"
@@ -1225,6 +1275,7 @@ Partial Class GPS_Rastreo
dvTrazo.Visible = False
dvTrazoGeo.Visible = False
dvTrazoRutas.Visible = False
+ dvTrazoPI.Visible = False
dvMinutos.Visible = False
dvEventos.Visible = False
BtnRastrear.ValidationGroup = "GrpFechas"
@@ -1234,8 +1285,9 @@ Partial Class GPS_Rastreo
dvFechas.Visible = False
dvDispositivos.Visible = True
dvTrazo.Visible = False
- dvTrazoGeo.Visible = False
- dvTrazoRutas.Visible = False
+ dvTrazoGeo.Visible = True
+ dvTrazoRutas.Visible = True
+ dvTrazoPI.Visible = True
dvMinutos.Visible = False
dvEventos.Visible = False
BtnRastrear.ValidationGroup = "xx"
@@ -1247,23 +1299,13 @@ Partial Class GPS_Rastreo
dvTrazo.Visible = True
dvTrazoGeo.Visible = True
dvTrazoRutas.Visible = True
+ dvTrazoPI.Visible = True
dvEventos.Visible = False
BtnRastrear.ValidationGroup = "xx"
RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
myModalLabel2.InnerHtml = "Rastreo Continuo"
chkTrazarLinea.Visible = True
ChkTrazarGeocercas.Visible = True
- ElseIf opcion = "Watch" Then
- dvFechas.Visible = False
- dvDispositivos.Visible = True
- dvMinutos.Visible = False
- dvTrazo.Visible = True
- dvTrazoGeo.Visible = True
- dvTrazoRutas.Visible = True
- dvEventos.Visible = False
- BtnRastrear.ValidationGroup = "xx"
- RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
- myModalLabel2.InnerHtml = "Rastreo Continuo"
ElseIf opcion = "KM" Then
dvFechas.Visible = True
dvDispositivos.Visible = False
@@ -1271,6 +1313,7 @@ Partial Class GPS_Rastreo
dvTrazo.Visible = False
dvTrazoGeo.Visible = False
dvTrazoRutas.Visible = False
+ dvTrazoPI.Visible = False
dvEventos.Visible = False
BtnRastrear.ValidationGroup = "xx"
RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1278,7 +1321,11 @@ Partial Class GPS_Rastreo
ElseIf opcion = "TPS" Then
dvFechas.Visible = False
dvDispositivos.Visible = True
- dvMinutos.Visible = False
+ dvMinutos.Visible = False
+ dvTrazo.Visible = False
+ dvTrazoGeo.Visible = False
+ dvTrazoRutas.Visible = False
+ dvTrazoPI.Visible = False
DivFechasGVBarra.Visible = False
GvDispositivos.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("CveModelo = 17")
GvDispositivos.DataBind()
@@ -1286,24 +1333,35 @@ Partial Class GPS_Rastreo
dvEventos.Visible = False
RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
myModalLabel2.InnerHtml = "Contador de pasajeros"
+ End If
+
+ If Not dvTrazoGeo.Visible Then
+ RegistraScript("$('#LnkMostarGeocercas').css('display', 'none');")
End If
+
If dvTrazoRutas.Visible Then
CargaGeoRutas()
Else
RegistraScript("$('#LnkMostarGeoRutas').css('display', 'none');")
End If
+
+ If dvTrazoPI.Visible Then
+ CargaPI()
+ Else
+ RegistraScript("$('#LnkMostarPI').css('display', 'none');")
+ End If
+
If opcion <> "Speed" AndAlso opcion <> "TPS" AndAlso Filtrado Then
CargaDispositivos()
Filtrado = False
End If
+
RegistraScript("$(""#h"").modal('hide');
$(""#ShowDiv3"").css(""line-height"", ""20px"");
open = false;
$(""#ShowDiv3"").html('');", "HideDiv")
RegistraScript("$(""input[name^='ctl00$C$GvDispositivos']"").not(this).prop('checked', false);$('#C_GvDispositivos_chkSelectAll').click(function () { $(""input[name^='ctl00$C$GvDispositivos']"").not(this).prop('checked', this.checked); });", "chkGV")
-
-
UPConsulta.Update()
End Sub
@@ -2169,12 +2227,39 @@ Partial Class GPS_Rastreo
End Using
Return retorno
End Function
-#Region "G E O R U T A S"
+#Region "G E O R E F E R E N C I A S"
+ Protected Sub ChkTrazarGeocercas_CheckedChanged(sender As Object, e As EventArgs)
+ If ChkTrazarGeocercas.Checked Then
+ Dim CountEquipos As Integer = 0
+ Dim Equipos As New StringBuilder()
+ For Each row As GridViewRow In GvDispositivos.Rows
+ If row.FCCheckBox("chkDis").Checked Then
+ CountEquipos += 1
+ Equipos.Append($"{row.DataKey("CveDispositivo")};")
+ End If
+ Next
+
+ If CountEquipos > 0 Then
+ Dim Dispositivos As String = Equipos.Replace(";", ",").Remove(Equipos.Length - 1, 1).ToString()
+ CargaGeocercas(Dispositivos)
+
+ RegistraScript("$('#DivGeoCercas').modal('show');")
+ Else
+ Alert("No hay equipos seleccionados", TipoMensaje.MsgAdvertencia)
+ End If
+
+ End If
+ End Sub
Protected Sub ChkTrazarGeorutas_CheckedChanged(sender As Object, e As EventArgs)
If ChkTrazarGeorutas.Checked Then
RegistraScript("$('#DivGeoRutas').modal('show');")
End If
End Sub
+ Protected Sub ChkTrazarPI_CheckedChanged(sender As Object, e As EventArgs)
+ If ChkTrazarPuntosInteres.Checked Then
+ RegistraScript("$('#DivMostrarPI').modal('show');")
+ End If
+ End Sub
Private Sub CargaGeoRutas()
Dim ObjGPS As New ClsGPS
@@ -2186,6 +2271,16 @@ Partial Class GPS_Rastreo
UpGeorutas.Update()
End Sub
+ Private Sub CargaPI()
+ Dim ObjGPS As New ClsGPS
+ If ObjGPS.PuntoDeInteresGet(-1, UsuarioActual.CveCliente, 1, -1) Then
+ GVPuntosInteres.DataSource = ObjGPS.DtResultados
+ End If
+ ObjGPS.Dispose()
+ GVPuntosInteres.DataBind()
+
+ UpMostarPI.Update()
+ End Sub
#End Region
Protected Sub GvGrupos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvGrupos.RowDataBound
diff --git a/GPS/Rastreo/JS/Geocercas.js b/GPS/Rastreo/JS/Geocercas.js
new file mode 100644
index 000000000..d71b05456
--- /dev/null
+++ b/GPS/Rastreo/JS/Geocercas.js
@@ -0,0 +1,138 @@
+//REGION GEOCERCAS
+var polygonsGeocercas = [];
+var markersGeo = [];
+var IsGeoVisibles = false;
+
+function initGeocercas() {
+ //NuevaConsultaGeoCercas();
+ var upGeoDiv = document.createElement('div');
+ var upGeo = new ControlGeocercas(upGeoDiv, map);
+
+ map.controls[google.maps.ControlPosition.TOP_LEFT].push(upGeoDiv);
+}
+
+function NuevaConsultaGeoCercas() {
+ HideGeocercas();
+ DeleteGeocercas();
+
+ $("#LnkMostarGeocercas").css("display", "block");
+}
+
+function VerGeocercas() {
+ if (IsGeoVisibles) {
+ HideGeocercas();
+ IsGeoVisibles = false;
+ } else {
+ CargaGeocercas();
+ IsGeoVisibles = true;
+ }
+}
+function CargaGeocercas() {
+ for (var i = 0; i < polygonsGeocercas.length; i++) {
+ polygonsGeocercas[i].setMap(map);
+ }
+ for (var j = 0; j < markersGeo.length; j++) {
+ markersGeo[j].setMap(map);
+ }
+}
+
+function DeleteGeocercas() {
+ for (var i = 0; i < polygonsGeocercas.length; i++) {
+ polygonsGeocercas[i].setMap(null);
+ }
+ for (var j = 0; j < markersGeo.length; j++) {
+ markersGeo[j].setMap(null);
+ }
+ polygonsGeocercas = [];
+ markersGeo = [];
+}
+function HideGeocercas() {
+ for (var i = 0; i < polygonsGeocercas.length; i++) {
+ polygonsGeocercas[i].setMap(null);
+ }
+ for (var j = 0; j < markersGeo.length; j++) {
+ markersGeo[j].setMap(null);
+ }
+}
+function creaPoligonoGeocerca(coords, color, Geocerca) {
+ var polygon = new google.maps.Polygon({
+ paths: coords,
+ strokeColor: color,
+ strokeOpacity: 0.8,
+ strokeWeight: 2,
+ fillColor: color,
+ fillOpacity: 0.35
+ });
+ polygonsGeocercas.push(polygon);
+ CreaMarcadorPoligonoGeocerca(coords, Geocerca);
+}
+function CreaMarcadorPoligonoGeocerca(coords, GeoCerca) {
+ var bounds = new google.maps.LatLngBounds();
+ for (i = 0; i < coords.length; i++) {
+ bounds.extend(coords[i]);
+ }
+
+ var marker = new google.maps.Marker({
+ position: bounds.getCenter(),
+ title: GeoCerca
+ });
+
+ var infowindow = new google.maps.InfoWindow({
+ content: '