GeoRutas en rastreo,correciones en al facturar remisiones

GPS/Rastreo.aspx.vb

@@ -617,10 +617,16 @@ Partial Class GPS_Rastreo
 
                             AddRowPosiciones(Vehiculo, Coord, row("SPD").ToString.ToDouble, Fecha, row("CveDispositivo").ToString.ToEntero, row("TiempoDetenido").ToString.ToDouble)
                         Next
+
                         If ChkTrazarGeocercas.Checked Then
                             Dim Dispositivos As String = Equipos.Replace(";", ",").Remove(Equipos.Length - 1, 1)
                             CargaGeocercas(Dispositivos)
+                        End If
+
+                        If ChkTrazarGeorutas.Checked Then
+                            MostarGeoRutas()
                         End If
+
                         RegistraScript("setTimeout(function(){  $('#LnkMostarGeocercas').css('display', 'block'); },1000);")
                     Else
                         Alert($"No se encontraron resultados", TipoMensaje.MsgAdvertencia)
@@ -715,6 +721,21 @@ Partial Class GPS_Rastreo
             SbJS.Append(" VerGeocercas(); },1000);")
             RegistraScript(SbJS.ToString)
         End If
+    End Sub
+    Private Sub MostarGeoRutas()
+        Dim count = 0
+        RegistraScript($"initGeoRutas();", count.ToString())
+
+        For Each GvRow As GridViewRow In GvGeorutas.Rows
+            If GvRow.RowType = DataControlRowType.DataRow Then
+                If GvRow.FCCheckBox("ChkRutas").Checked Then
+                    count += 1
+                    Dim Coord As String = SQLToGmaps(GvRow.DataKey("Coordenadas").ToString, "LINESTRING")
+                    RegistraScript($"creaPolylineRuta({Coord}, '{GvRow.DataKey("Color").ToString}', '{GvRow.DataKey("GeoReferencia")}')", count.ToString())
+                End If
+            End If
+        Next
+
     End Sub
     Protected Sub TimmerRefresh_Tick(sender As Object, e As EventArgs)
 
@@ -1136,6 +1157,7 @@ Partial Class GPS_Rastreo
             dvDispositivos.Visible = True
             dvTrazo.Visible = False
             dvTrazoGeo.Visible = True
+            dvTrazoRutas.Visible = True
             ChkTrazarGeocercas.Visible = True
             dvMinutos.Visible = False
             RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1148,7 +1170,8 @@ Partial Class GPS_Rastreo
             dvDispositivos.Visible = True
             txtFechaF.Text = ""
             dvTrazo.Visible = False
-            dvTrazoGeo.Visible = False
+            dvTrazoGeo.Visible = False
+            dvTrazoRutas.Visible = False
             dvMinutos.Visible = False
             BtnRastrear.ValidationGroup = "GrpFechas"
             RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1160,6 +1183,7 @@ Partial Class GPS_Rastreo
             txtFechaF.Text = ""
             dvTrazo.Visible = False
             dvTrazoGeo.Visible = False
+            dvTrazoRutas.Visible = False
             dvDispositivos.Visible = True
             dvMinutos.Visible = False
             GvDispositivos.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("Estatus = 1 AND LimiteVelocidad = 1")
@@ -1175,7 +1199,8 @@ Partial Class GPS_Rastreo
             txtFechaF.Text = ""
             dvDispositivos.Visible = True
             dvTrazo.Visible = False
-            dvTrazoGeo.Visible = False
+            dvTrazoGeo.Visible = False
+            dvTrazoRutas.Visible = False
             dvMinutos.Visible = True
             dvEventos.Visible = False
             BtnRastrear.ValidationGroup = "GrpFechas"
@@ -1188,6 +1213,7 @@ Partial Class GPS_Rastreo
             dvDispositivos.Visible = True
             dvTrazo.Visible = False
             dvTrazoGeo.Visible = False
+            dvTrazoRutas.Visible = False
             dvMinutos.Visible = False
             dvEventos.Visible = False
             BtnRastrear.ValidationGroup = "GrpFechas"
@@ -1198,6 +1224,7 @@ Partial Class GPS_Rastreo
             dvDispositivos.Visible = True
             dvTrazo.Visible = False
             dvTrazoGeo.Visible = False
+            dvTrazoRutas.Visible = False
             dvMinutos.Visible = False
             dvEventos.Visible = False
             BtnRastrear.ValidationGroup = "xx"
@@ -1208,6 +1235,7 @@ Partial Class GPS_Rastreo
             dvMinutos.Visible = False
             dvTrazo.Visible = True
             dvTrazoGeo.Visible = True
+            dvTrazoRutas.Visible = True
             dvEventos.Visible = False
             BtnRastrear.ValidationGroup = "xx"
             RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1219,7 +1247,8 @@ Partial Class GPS_Rastreo
             dvDispositivos.Visible = True
             dvMinutos.Visible = False
             dvTrazo.Visible = True
-            dvTrazoGeo.Visible = True
+            dvTrazoGeo.Visible = True
+            dvTrazoRutas.Visible = True
             dvEventos.Visible = False
             BtnRastrear.ValidationGroup = "xx"
             RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1229,7 +1258,8 @@ Partial Class GPS_Rastreo
             dvDispositivos.Visible = False
             dvMinutos.Visible = False
             dvTrazo.Visible = False
-            dvTrazoGeo.Visible = False
+            dvTrazoGeo.Visible = False
+            dvTrazoRutas.Visible = False
             dvEventos.Visible = False
             BtnRastrear.ValidationGroup = "xx"
             RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1246,6 +1276,11 @@ Partial Class GPS_Rastreo
             RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
             myModalLabel2.InnerHtml = "Contador de pasajeros"
         End If
+        If dvTrazoRutas.Visible Then
+            CargaGeoRutas()
+        Else
+            RegistraScript("$('#LnkMostarGeoRutas').css('display', 'none');")
+        End If
         If opcion <> "Speed" AndAlso opcion <> "TPS" AndAlso Filtrado Then
             CargaDispositivos()
             Filtrado = False
@@ -2122,5 +2157,24 @@ Partial Class GPS_Rastreo
             End Try
         End Using
         Return retorno
-    End Function
+    End Function
+#Region "G E O R U T A S"
+    Protected Sub ChkTrazarGeorutas_CheckedChanged(sender As Object, e As EventArgs)
+        If ChkTrazarGeorutas.Checked Then
+            RegistraScript("$('#DivGeoRutas').modal('show');")
+        End If
+    End Sub
+
+    Private Sub CargaGeoRutas()
+        Dim ObjGPS As New ClsGPS
+        If ObjGPS.GeoReferenciaGet(-1, 1, "Ruta", UsuarioActual.CveCliente) Then
+            GvGeorutas.DataSource = ObjGPS.DtResultados
+        End If
+        ObjGPS.Dispose()
+        GvGeorutas.DataBind()
+
+        UpGeorutas.Update()
+    End Sub
+#End Region
+
 End Class