Option Strict On

Imports Extensiones
Imports System.Data
Partial Class GPS_RepGeoReferencias
    Inherits ClsPaginas

    Public Property CveGeoReferencia As Integer
        Get
            Return ViewState("CveGeoReferencia").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveGeoReferencia") = value
        End Set
    End Property
    Private Property DtGeoReferencias As DataTable
        Get
            Return CType(ViewState("DtGeoReferencias"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtGeoReferencias") = value
        End Set
    End Property
    Private Property DtPosiciones As DataTable
        Get
            Return CType(ViewState("DtPosiciones"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtPosiciones") = value
        End Set
    End Property
    Public Property DtDetalle() As Data.DataTable
        Get
            Return DirectCast(ViewState("DtDetalle"), DataTable)
        End Get
        Set(ByVal value As Data.DataTable)
            ViewState("DtDetalle") = value
        End Set
    End Property
    Public Property DtDetalleEliminar() As Data.DataTable
        Get
            Return DirectCast(ViewState("DtDetalleEliminar"), DataTable)
        End Get
        Set(ByVal value As Data.DataTable)
            ViewState("DtDetalleEliminar") = value
        End Set
    End Property
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargaGeoReferencias()
            CargaDispositivos()
            CreaTmpDTDetalle()
            CargaGrupos()
            '  RegistraScript("$('#dvConsulta').modal()")
        End If
    End Sub

    Private Sub CargaGeoReferencias()
        Dim Estatus = If(ChkEstatusGeocerca.Checked, 1, 0)

        Using GPS As New ClsGPS
            If GPS.GeoReferenciaGet(-1, Estatus, "-1", UsuarioActual.CveCliente) Then
                DtGeoReferencias = GPS.DtResultados.Copy()
            End If
        End Using

        If DtGeoReferencias IsNot Nothing Then
            Dim TotalRegistros As Integer = DtGeoReferencias.Rows.Count
            Dim TotalRowsPage As Integer = GVGeoreferencias.PageSize
            If TotalRegistros > TotalRowsPage Then
                GVGeoreferencias.DataSource = DtGeoReferencias.FiltraPorIndices(0, TotalRowsPage - 1)
                DivPaginacion.Visible = True
                LblRegistros.Text = $"Distribución de datos desde 0 hasta {TotalRowsPage.ToString().ToDecimal().FormatoNumero(0)}.   Total de registros: {TotalRegistros.ToString().ToDecimal().FormatoNumero(0)}"
            Else
                GVGeoreferencias.DataSource = DtGeoReferencias
            End If
        Else
            GVGeoreferencias.DataSource = DtGeoReferencias
        End If

        GVGeoreferencias.DataBind()
    End Sub
    Private Sub CargaDispositivos()
        DdlEquipoD.DataSource = GlobalDTDispositivos(UsuarioActual.CveCliente)
        DdlEquipoD.DataBind()
        DdlEquipoD.Items.Insert(0, New ListItem("Seleccione", "-1"))
        GvDispositivos.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("Estatus = 1")
        GvDispositivos.DataBind()
    End Sub
    Private Sub CargaGrupos()
        Using ObjGPS As New ClsGPS
            If ObjGPS.GruposGet(-1, UsuarioActual.CveCliente) Then
                DdlGrupo.DataSource = ObjGPS.DtResultados
                DdlGrupo.DataBind()
            End If
        End Using
        DdlGrupo.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub
    Protected Sub CreaTmpDTDetalle()
        DtDetalle = New DataTable
        Dim pk = DtDetalle.Columns.Add("CveDispositivo", GetType(Integer))
        DtDetalle.Columns.Add("NoEconomico", GetType(String))
        DtDetalle.Columns.Add("CveDispositivoGeoReferenciaDetalle", GetType(Integer))
        DtDetalle.PrimaryKey = New DataColumn() {pk}

        GvEquiposDetalle.DataSource = DtDetalle
        GvEquiposDetalle.DataBind()
        UpAgregar.Update()
    End Sub
    Protected Sub CreaTmpDTDetalleEliminar()

        DtDetalleEliminar = New DataTable
        Dim pk2 = DtDetalleEliminar.Columns.Add("CveDispositivo", GetType(Integer))
        DtDetalleEliminar.Columns.Add("NoEconomico", GetType(String))
        Dim pk3 = DtDetalleEliminar.Columns.Add("CveDispositivoGeoReferenciaDetalle", GetType(Integer))
        DtDetalleEliminar.PrimaryKey = New DataColumn() {pk2, pk3}

        UpAgregar.Update()
    End Sub

    Protected Sub GvGeoreferencias_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVGeoreferencias.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.FCLinkButton("imgColor").Style.Add("background-color", e.Row.DBCampo("Color").ToString)
            e.Row.FCLinkButton("imgE").CommandArgument = e.Row.DBCampo("CveGeoReferencia").ToString
            If e.Row.DBCampo("Estatus").ToString = "True" Then
                e.Row.FCLabel("LblEstatus").Text = "Activo"
                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green

            Else
                e.Row.FCLabel("LblEstatus").Text = "Inactivo"
                e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
            End If
        End If
    End Sub


    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        Dim Coord As String = ""
        Dim count = 0
        CreaDTPosiciones()
        For Each row As GridViewRow In GVGeoreferencias.Rows
            If row.FCCheckBox("chkGR").Checked Then
                If row.DataKey("Tipo") = "Geocerca" Then
                    Coord = SQLToGmaps(row.DataKey("Coordenadas").ToString, "POLYGON")
                    RegistraScript($"creaPoligono({Coord}, '{row.DataKey("Color").ToString}', '{row.DataKey("GeoReferencia")}')", count.ToString())
                    AddRowPosiciones(row.DataKey("GeoReferencia").ToString, Coord)
                ElseIf row.DataKey("Tipo") = "Ruta" Then
                    Coord = SQLToGmaps(row.DataKey("Coordenadas").ToString, "LINESTRING")
                    RegistraScript($"creaPolyline({Coord}, '{row.DataKey("Color").ToString}', '{row.DataKey("GeoReferencia")}')", count.ToString())
                    AddRowPosiciones(row.DataKey("GeoReferencia").ToString, Coord)
                End If
            End If
            count += 1
        Next

        If chkUp.Checked Then
            Dim gps As New ClsGPS
            Dim Fecha, Vehiculo, Icono, CoordDis, Info As String
            For Each GVRow As GridViewRow In GvDispositivos.Rows
                If GVRow.FCCheckBox("chkDis").Checked Then
                    If gps.UltimaPosicionEquipoGet(GVRow.DataKey("CveDispositivo").ToEntero, MinFecha, MaxFecha) Then
                        If gps.DtResultados.Rows.Count > 0 Then
                            CoordDis = gps.DtResultados.Rows(0)("Posicion").ToString.SQLToGmaps("POINT")
                            Fecha = gps.DtResultados.Rows(0)("FechaTrama").ToString
                            Vehiculo = gps.DtResultados.Rows(0)("Vehiculo").ToString
                            Info = InfoWindow($"Vehículo:{Vehiculo}", "-1", GVRow.DataKey("CveDispositivo").ToString.ToEntero, gps.DtResultados.Rows(0))
                            If gps.DtResultados.Rows(0)("SPD").ToString.ToDouble > 1 Then
                                Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {GVRow.DataKey("CveDispositivo").ToString}")}green.png"
                            Else
                                Icono = $"/Imagenes/{GlobalDTDispositivos(UsuarioActual.CveCliente).FiltroPrimeroValor("Icono", $"CveDispositivo = {GVRow.DataKey("CveDispositivo").ToString}")}.png"
                            End If
                            RegistraScript($"CreaMarcador({CoordDis},'{GVRow.DataKey("NombreVehiculo")}', '{Info}', '{Icono}');", $"{GVRow.DataKey("CveDispositivo").ToString}D")
                        Else
                            Alert($"No se encontraron resultados del vehículo con serie: {GVRow.DataKey("SerieVehiculo").ToString}", TipoMensaje.MsgAdvertencia)
                        End If
                    End If
                End If
            Next
            gps.Dispose()
        End If
        chkUp.Checked = False
        UpUp.Update()
        UPModalBusqueda.Update()
        GvBarra.DataSource = DtPosiciones
        GvBarra.DataBind()
        UPGV.Update()
        RegistraScript($"FitBounds();", "XBounds")

    End Sub

    Protected Sub imgE_Click(sender As Object, e As EventArgs)
        Dim Boton = CType(sender, LinkButton)
        CveGeoReferencia = Boton.CommandArgument.ToEntero
        DtDetalle = Nothing
        DtDetalleEliminar = Nothing
        Try
            Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
            TxtNombre.Text = GvRow.DataKey("GeoReferencia").ToString
            TxtTolerancia.Text = GvRow.DataKey("Tolerancia").ToString
            'DdlEquipo.SelectedValueExist(GvRow.DataKey("CveDispositivo").ToString)
            txtFechaI.Text = GvRow.DataKey("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy")
            txtFechaF.Text = GvRow.DataKey("FechaFin").ToString.ToDate.ToString("dd/MM/yyyy")
            chkLunes.Checked = CBool(GvRow.DataKey("AplicaLunes").ToString)
            chkMartes.Checked = CBool(GvRow.DataKey("AplicaMartes").ToString)
            chkMiercoles.Checked = CBool(GvRow.DataKey("AplicaMiercoles").ToString)
            chkJueves.Checked = CBool(GvRow.DataKey("AplicaJueves").ToString)
            chkViernes.Checked = CBool(GvRow.DataKey("AplicaViernes").ToString)
            chkSabado.Checked = CBool(GvRow.DataKey("AplicaSabado").ToString)
            chkDomingo.Checked = CBool(GvRow.DataKey("AplicaDomingo").ToString)
            chkEstatus.Checked = CBool(GvRow.DataKey("Estatus").ToString)
            TxtHoraI.Text = GvRow.DataKey("HoraInicio").ToString.ToDateTime.ToString("HH:mm")
            TxtHoraF.Text = GvRow.DataKey("HoraFin").ToString.ToDateTime.ToString("HH:mm")

            Using ObjGPS As New ClsGPS
                If ObjGPS.GetReferenciaDetalle(-1, CveGeoReferencia, -1, UsuarioActual.CveCliente) Then
                    DtDetalle = ObjGPS.DtResultados.Copy()
                    DtDetalleEliminar = ObjGPS.DtResultados.Copy()

                    GvEquiposDetalle.DataSource = DtDetalle
                End If
            End Using
            GvEquiposDetalle.DataBind()
        Catch ex As Exception
            OnError("Ocurrió un error al cargar la GeoReferencia.", ex)
        End Try
        RegistraScript("CargaModal();")
        UpBodyGeoReferencia.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 = If(Tipo = "POINT", "", "[")
        For Each coordenada As String In CoordsPuntos
            If coordenada Is CoordsPuntos.Last Then
                Dim latlng() As String = coordenada.Trim.Split(" "c)
                Var = $"{Var}{{lat: {latlng(1)}, lng: {latlng(0)} }}"
            Else
                Dim latlng() As String = coordenada.Trim.Split(" "c)
                Var = $"{Var}{{lat: {latlng(1)}, lng: {latlng(0)} }},"
            End If
        Next
        Var = If(Tipo = "POINT", Var, $"{Var}]")
        Return Var
    End Function

    Protected Sub BtnActualizarGeoreferencia_Click(sender As Object, e As EventArgs)

        If DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then
            Dim ObjGPS As New ClsGPS
            ObjGPS.IniciaTransacSQL()
            Dim TieneError As Boolean = False
            Try
                Dim HoraI As Date = ($"{Date.Now.ToString("dd/MM/yyyy")} {TxtHoraI.Text}").ToDate
                Dim HoraF As Date = ($"{Date.Now.ToString("dd/MM/yyyy")} {TxtHoraF.Text}").ToDate

                If ObjGPS.GeoReferenciaUpdate(CveGeoReferencia, TxtNombre.Text, -1, chkEstatus.Checked, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, chkLunes.Checked, chkMartes.Checked, chkMiercoles.Checked, chkJueves.Checked, chkViernes.Checked,
                                             chkSabado.Checked, chkDomingo.Checked, HoraI, HoraF, TxtTolerancia.Text.ToEntero, UsuarioActual.CveCliente) Then
                    If Not TieneError Then
                        For Each DrE As DataRow In DtDetalleEliminar.Rows
                            If DrE("CveDispositivoGeoreferenciaDetalle").ToString.ToEntero > 0 Then
                                TieneError = Not ObjGPS.RemoveferenciaDetalle(DrE("CveDispositivoGeoreferenciaDetalle").ToString.ToEntero)
                            End If
                        Next
                    End If

                    For Each Dr As DataRow In DtDetalle.Rows
                        If Not ObjGPS.AddGeoReferenciaDetalle(CveGeoReferencia, Dr("CveDispositivo").ToString.ToEntero) Then
                            TieneError = True
                            Exit For
                        End If
                    Next

                Else
                    TieneError = True
                End If
            Catch ex As Exception
                GuardaLog(ex.ToString())
            Finally
                If TieneError Then
                    ObjGPS.RollBack()
                    Alert("Ocurrió un error al guardar la georeferencia.", TipoMensaje.MsgError)
                Else
                    ObjGPS.Commit()
                    Alert("La georeferencia se actualizó correctamente.", TipoMensaje.MsgInformacion)
                End If

                ObjGPS.Dispose()
            End Try

        Else
            Alert("No hay vehiculos asignados a esta georeferencia", TipoMensaje.MsgAdvertencia)
        End If


    End Sub
    Protected Sub gvMarcas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GVGeoreferencias.RowDeleting
        Dim GPS As New ClsGPS
        Dim CveGeoReferencia As Integer = GVGeoreferencias.Rows(e.RowIndex).DataKey("CveGeoReferencia").ToEntero
        If GPS.GeoReferenciaDelete(CveGeoReferencia, UsuarioActual.CveCliente) Then
            Alert("La GeoReferencia se eliminó correctamente", TipoMensaje.MsgInformacion)
        End If
        GPS.Dispose()
        CargaGeoReferencias()
        RegistraScript("$('#divAgregarTipo').modal('hide')")
    End Sub

#Region "DATA TABLES"
    Private Sub CreaDTPosiciones()
        ViewState("DtPosiciones") = Nothing
        Dim dt As New DataTable
        dt.Columns.Add("Nombre", Type.GetType("System.String"))
        dt.Columns.Add("Posicion", Type.GetType("System.String"))
        ViewState("DtPosiciones") = dt
    End Sub

    Private Sub AddRowPosiciones(Nombres As String, Posicion As String)
        Dim dr As DataRow = DtPosiciones.NewRow()
        dr("Nombre") = Nombres
        dr("Posicion") = Posicion
        DtPosiciones.Rows.Add(dr)
    End Sub

    Protected Sub GvBarra_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBarra.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Attributes.Add("onClick", $" CenterPoligono({e.Row.DBCampo("Posicion")});")
        End If
    End Sub

#End Region

    'Protected Sub LnkAgregarDisp_Click(sender As Object, e As EventArgs)

    'End Sub
    'Protected Sub LnkAgregarGrupo_Click(sender As Object, e As EventArgs)

    'End Sub
    'Protected Sub GvEquiposDetalle_RowDeleting(sender As Object, e As GridViewDeleteEventArgs)

    'End Sub
    Protected Sub GvEquiposDetalle_RowDeleting(sender As Object, e As GridViewDeleteEventArgs)
        If DtDetalleEliminar Is Nothing Then
            CreaTmpDTDetalleEliminar()
        End If

        If DtDetalle.Rows.Count > 0 Then
            Dim Dr As DataRow = DtDetalle.Rows(e.RowIndex)
            Dim CveGeoReferenciaDetalle = Dr("CveDispositivoGeoreferenciaDetalle").ToString.ToEntero
            If CveGeoReferenciaDetalle > 0 Then
                If DtDetalleEliminar.COUNT("CveDispositivo", $"CveDispositivoGeoreferenciaDetalle={CveGeoReferenciaDetalle}") <= 0 Then
                    Dim DrEliminar = DtDetalleEliminar.NewRow
                    DrEliminar("CveDispositivoGeoreferenciaDetalle") = CveGeoReferenciaDetalle
                    DrEliminar("CveDispositivo") = Dr("CveDispositivo").ToString.ToEntero
                    DrEliminar("NoEconomico") = Dr("NoEconomico").ToString
                    DtDetalleEliminar.Rows.Add(DrEliminar)
                    DtDetalleEliminar.AcceptChanges()
                End If

            End If
            DtDetalle.Rows.RemoveAt(e.RowIndex)

            GvEquiposDetalle.DataSource = DtDetalle
            GvEquiposDetalle.DataBind()
        End If

        UpAgregar.Update()
    End Sub
    Protected Sub LnkAgregarDisp_Click(sender As Object, e As EventArgs)

        Dim CveDispositivo As Integer = DdlEquipoD.SelectedValue.ToEntero
        If CveDispositivo > 0 Then
            Dim NoEconomico As String = DdlEquipoD.SelectedItem.Text

            If DtDetalle IsNot Nothing Then
                If Not DtDetalle.Select($"CveDispositivo={CveDispositivo}").Any() Then
                    Dim Dr As DataRow = DtDetalle.NewRow
                    Dr("CveDispositivo") = CveDispositivo
                    Dr("NoEconomico") = NoEconomico
                    Dr("CveDispositivoGeoReferenciaDetalle") = -1

                    DtDetalle.Rows.Add(Dr)
                    DtDetalle.AcceptChanges()
                Else
                    Alert($"El dispositivo '{NoEconomico} ya existe en la tabla.'", TipoMensaje.MsgAdvertencia)
                End If
            Else
                CreaTmpDTDetalle()
                CreaTmpDTDetalleEliminar()
                Dim Dr As DataRow = DtDetalle.NewRow
                Dr("CveDispositivo") = CveDispositivo
                Dr("NoEconomico") = NoEconomico
                Dr("CveDispositivoGeoReferenciaDetalle") = -1

                DtDetalle.Rows.Add(Dr)
                DtDetalle.AcceptChanges()
            End If

            GvEquiposDetalle.DataSource = DtDetalle
            GvEquiposDetalle.DataBind()
        End If
        UpAgregar.Update()
        CargaGeoReferencias()
        RegistraScript("CargaPickersHora();", "1")

    End Sub
    Protected Sub LnkAgregarGrupo_Click(sender As Object, e As EventArgs)
        Dim CveGrupo As Integer = DdlGrupo.SelectedValue.ToEntero

        Using ObjGPS As New ClsGPS

            If ObjGPS.GruposDetallesGet(CveGrupo) Then
                Dim Query = From dr In ObjGPS.DtResultados
                            Select CveDispositivo = dr("CveDispositivo").ToString.ToEntero, NoEconomico = dr("NoEconomico").ToString, CveDispositivoGeoReferenciaDetalle = -1

                Dim dt As DataTable = Query.QueryToDataTable(True)
                dt.PrimaryKey = New DataColumn() {dt.Columns(0)}
                DtDetalle.Merge(dt, True, MissingSchemaAction.Ignore)

            End If

        End Using
        GvEquiposDetalle.DataSource = DtDetalle
        GvEquiposDetalle.DataBind()
        UpAgregar.Update()
        RegistraScript("CargaPickersHora();", "1")
    End Sub

    Protected Sub ChkEstatusGeocerca_CheckedChanged(sender As Object, e As EventArgs)
        CargaGeoReferencias()
    End Sub

    Protected Sub btnPagePrev_Click(sender As Object, e As EventArgs)
        Dim TotalRegistros As Integer = DtGeoReferencias.Rows.Count
        Dim TotalRowsPage As Integer = GVGeoreferencias.PageSize
        Dim PrevIndex As Integer = HdnIndexPage.Value.ToEntero - 1
        Dim CurrentIndex As Integer = PrevIndex + 1

        Dim PrevIndexDT As Integer = (TotalRowsPage) * PrevIndex
        Dim CurrentIndexDT As Integer = (TotalRowsPage) * CurrentIndex

        HdnIndexPage.Value = PrevIndex.ToString

        If Not btnPageNext.Enabled Then
            btnPageNext.Enabled = True
        End If

        If PrevIndexDT <= 0 Then
            btnPagePrev.Enabled = False
            GVGeoreferencias.DataSource = DtGeoReferencias.FiltraPorIndices(0, CurrentIndexDT)
            LblRegistros.Text = $"Distribución de datos desde 0 hasta {CurrentIndexDT.ToString.FormatoNumero(0)}.   Total de registros: {DtGeoReferencias.Rows.Count.ToString.FormatoNumero(0)}"
        Else
            LblRegistros.Text = $"Distribución de datos desde {PrevIndexDT.ToString.FormatoNumero(0)} hasta {CurrentIndexDT.ToString.FormatoNumero(0)}.   Total de registros: {DtGeoReferencias.Rows.Count.ToString.FormatoNumero(0)}"
            GVGeoreferencias.DataSource = DtGeoReferencias.FiltraPorIndices(PrevIndexDT, CurrentIndexDT)
        End If

        GVGeoreferencias.DataBind()
        UPGV.Update()

    End Sub

    Protected Sub btnPageNext_Click(sender As Object, e As EventArgs)
        Dim TotalRegistros As Integer = DtGeoReferencias.Rows.Count
        Dim TotalRowsPage As Integer = GVGeoreferencias.PageSize
        Dim Index As Integer = HdnIndexPage.Value.ToEntero + 1
        Dim NextIndex As Integer = Index + 1

        Dim CurrentIndexDT As Integer = (TotalRowsPage) * Index
        Dim NextIndexDT As Integer = (TotalRowsPage) * NextIndex

        HdnIndexPage.Value = Index.ToString

        If Not btnPagePrev.Enabled Then
            btnPagePrev.Enabled = True
        End If

        If NextIndexDT >= TotalRegistros Then
            btnPageNext.Enabled = False
            GVGeoreferencias.DataSource = DtGeoReferencias.FiltraPorIndices(CurrentIndexDT, TotalRegistros - 1)
            LblRegistros.Text = $"Distribución de datos desde {CurrentIndexDT.ToString.FormatoNumero(0)} hasta {DtGeoReferencias.Rows.Count.ToString.FormatoNumero(0)}.   Total de registros: {DtGeoReferencias.Rows.Count.ToString.FormatoNumero(0)}"
        Else
            GVGeoreferencias.DataSource = DtGeoReferencias.FiltraPorIndices(CurrentIndexDT, NextIndexDT)
            LblRegistros.Text = $"Distribución de datos desde {CurrentIndexDT.ToString.FormatoNumero(0)} hasta {NextIndexDT.ToString.FormatoNumero(0)}.   Total de registros: {DtGeoReferencias.Rows.Count.ToString.FormatoNumero(0)}"
        End If

        GVGeoreferencias.DataBind()
        UPGV.Update()

    End Sub
End Class