SIG/GPS/WizardModelo.aspx.vb

Option Strict On
Option Explicit On
Imports System.IO
Imports System.Data
Imports Extensiones



Partial Class GPS_WizardModelo
    Inherits ClsPaginas
#Region "PROPIEDADES"
    Public Property EsEditar As Integer
        Get
            Return ViewState("EsEditar").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("EsEditar") = value
        End Set
    End Property
    Public Property CveMarca As Integer
        Get
            Return ViewState("CveMarca").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveMarca") = value
        End Set
    End Property
    Public Property CveModelo As Integer
        Get
            Return ViewState("CveModelo").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveModelo") = value
        End Set
    End Property
    Public Property CveTipoEquipoM As Integer
        Get
            Return ViewState("CveTipoEquipoM").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveTipoEquipoM") = value
        End Set
    End Property
    Public Property CveMarcaM As Integer
        Get
            Return ViewState("CveMarcaM").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveMarcaM") = value
        End Set
    End Property
    Public Property CveTipoEquipo As Integer
        Get
            Return ViewState("CveTipoEquipo").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveTipoEquipo") = value
        End Set
    End Property
    Public Property CveEvento As Integer
        Get
            Return ViewState("CveEvento").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveEvento") = value
        End Set
    End Property
    Public Property Paso As Integer
        Get
            Return ViewState("Paso").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("Paso") = value
        End Set
    End Property
    Public Property NoEntradasA As Integer
        Get
            Return ViewState("NoEntradasA").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("NoEntradasA") = value
        End Set
    End Property

    Public Property NoSalidasA As Integer
        Get
            Return ViewState("NoSalidasA").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("NoSalidasA") = value
        End Set
    End Property

    Public Property NoEntradasD As Integer
        Get
            Return ViewState("NoEntradasD").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("NoEntradasD") = value
        End Set
    End Property
    Public Property NoSalidasD As Integer
        Get
            Return ViewState("NoSalidasD").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("NoSalidasD") = value
        End Set
    End Property
    Public Property Sonido As String
        Get
            Return ViewState("Sonido").ToString
        End Get
        Set(value As String)
            ViewState("Sonido") = value
        End Set
    End Property
    Public Property Imagen As String
        Get
            Return ViewState("Imagen").ToString
        End Get
        Set(value As String)
            ViewState("Imagen") = value
        End Set
    End Property
    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 System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            EsEditar = 0

            If Request("CveModelo") IsNot Nothing AndAlso IsNumeric(Request("CveModelo")) AndAlso Request("CveModelo").ToEntero > 0 Then
                ViewState("CveModelo") = Request("CveModelo").ToEntero
                EsEditar = 1
                CargaDatos()
            Else
                CveModelo = -1
                CveMarca = -1
            End If

            CargaMarcas()
            Paso = 1
        End If
    End Sub


    Private Sub CargaDatos()
        Dim GPS As New ClsGPS
        If GPS.ModeloGet(CveModelo, -1) AndAlso GPS.DtResultados.Rows.Count > 0 Then
            CveMarca = GPS.DtResultados.Rows(0)("CveMarca").ToString.ToEntero
            TxtModelo.Text = GPS.DtResultados.Rows(0)("Modelo").ToString
        End If
        GPS.Dispose()
    End Sub

    Private Sub CargaModelo()
        Dim GPS As New ClsGPS
        If GPS.ModeloEntradaSalidaGet(CveModelo) AndAlso GPS.DtResultados.Rows.Count > 0 Then
            TxtNoEntradasA.Text = GPS.DtResultados.FiltraParametros("TipoModeloEntradaSalida = 0 AND Tipo = 'Entrada'").Rows.Count.ToString
            TxtNoEntradasD.Text = GPS.DtResultados.FiltraParametros("TipoModeloEntradaSalida = 1 AND Tipo = 'Entrada'").Rows.Count.ToString
            TxtEntradasDts.Text = GPS.DtResultados.FiltraParametros("TipoModeloEntradaSalida = 2 AND Tipo = 'Entrada'").Rows.Count.ToString
            TxtNoSalidasA.Text = GPS.DtResultados.FiltraParametros("TipoModeloEntradaSalida = 0 AND Tipo = 'Salida'").Rows.Count.ToString
            TxtNoSalidasD.Text = GPS.DtResultados.FiltraParametros("TipoModeloEntradaSalida = 1 AND Tipo = 'Salida'").Rows.Count.ToString
            TxtSalidasDts.Text = GPS.DtResultados.FiltraParametros("TipoModeloEntradaSalida = 2 AND Tipo = 'Salida'").Rows.Count.ToString
        End If
        GPS.Dispose()
        UpModelo.Update()
    End Sub

    Protected Sub BtnMain_Click(sender As Object, e As EventArgs) Handles BtnMain.Click
        GuardarPasos(Paso)
    End Sub

    Private Sub GuardarPasos(PasoActual As Integer)
        Dim GPS As New ClsGPS
        Select Case PasoActual
            Case 1

                If hdnMarca.Value.ToEntero <= 0 Then
                    Alert("Por favor, escoja una marca (Puede dar de alta una desde Acciones)", TipoMensaje.MsgAdvertencia)
                Else
                    CveMarcaM = hdnMarca.Value.ToEntero
                    RegistraScript("$('a.button-next').click()")
                    Paso = 2
                    BtnBack.Visible = True
                    If CveModelo > 0 Then
                        CargaModelo()
                    End If
                End If
            Case 2
                Dim huboerror As Boolean
                If Not TxtModelo.Text <> "" AndAlso CveMarcaM > 0 Then
                    'huboerror = True 
                    Alert("Por favor, llene todos los datos requeridos", TipoMensaje.MsgAdvertencia)
                    huboerror = True
                End If
                If Not huboerror Then
                    Paso = 3
                    NoEntradasA = TxtNoEntradasA.Text.ToEntero
                    NoSalidasA = TxtNoSalidasA.Text.ToEntero
                    NoEntradasD = TxtNoEntradasD.Text.ToEntero
                    NoSalidasD = TxtNoSalidasD.Text.ToEntero
                    RegistraScript("$('a.button-next').click()")
                    ' CveModelo = GPS.CveModelo
                    CargaEventos()
                    UpEventos.Update()
                    BtnMain.Text = "Finalizar"
                End If
            Case 3
                GuardarModelo()
        End Select
        GPS.Dispose()
    End Sub


    Private Sub GuardarModelo()
        Dim GPS As New ClsGPS
        GPS.IniciaTransacSQL()
        Dim huboerror = False
        Dim EntradasDatos As Integer = TxtEntradasDts.Text.Trim.ToEntero
        Dim SalidasDatos As Integer = TxtSalidasDts.Text.Trim.ToEntero
        Dim Mensaje As String = ""
        If CveModelo > 0 Then
            If Not GPS.ModeloUpdate(TxtModelo.Text, CveMarcaM, 1, CveModelo) Then huboerror = True

            If Not huboerror Then
                For Each row As GridViewRow In GvEventos.Rows
                    If Not GPS.ModeloEventoUpdate(row.DataKey("CveEvento").ToString.ToEntero, CveModelo, If(row.FCCheckBox("chkEv").Checked, 1, 0)) Then
                        huboerror = True
                        Exit For
                    End If
                Next
            End If

            If Not GPS.ModeloEntradaSalidaDelete(CveModelo) Then huboerror = True

            If Not huboerror Then
                For I As Integer = 1 To NoEntradasA
                    If Not GPS.ModeloEntradaSalidaAdd(CveModelo, 0, 0, I) Then
                        huboerror = True
                        Exit For
                    End If
                Next
            End If

            If Not huboerror Then
                For I As Integer = 1 To NoEntradasD
                    If Not GPS.ModeloEntradaSalidaAdd(CveModelo, 0, 1, I + NoEntradasA) Then
                        huboerror = True
                        Exit For
                    End If
                Next
            End If

            If Not huboerror Then
                For I As Integer = 1 To EntradasDatos
                    If Not GPS.ModeloEntradaSalidaAdd(CveModelo, 0, 2, I + NoEntradasA + NoEntradasD) Then
                        huboerror = True
                        Exit For
                    End If
                Next
            End If

            If Not huboerror Then
                For I As Integer = 1 To NoSalidasA
                    If Not GPS.ModeloEntradaSalidaAdd(CveModelo, 1, 0, I) Then
                        huboerror = True
                        Exit For
                    End If
                Next
            End If

            If Not huboerror Then
                For I As Integer = 1 To NoSalidasD
                    If Not GPS.ModeloEntradaSalidaAdd(CveModelo, 1, 1, I + NoSalidasA) Then
                        huboerror = True
                        Exit For
                    End If
                Next
            End If

            If Not huboerror Then
                For I As Integer = 1 To SalidasDatos
                    If Not GPS.ModeloEntradaSalidaAdd(CveModelo, 1, 2, I + NoSalidasA + NoSalidasD) Then
                        huboerror = True
                        Exit For
                    End If
                Next
                Mensaje = "El modelo se actualizó correctamente"
            End If


        Else
            If Not GPS.ModeloAdd(TxtModelo.Text, CveMarcaM, 1, UsuarioActual.CveUsuario) Then huboerror = True

            If Not huboerror Then
                Dim CveEvento As Integer
                CveModelo = GPS.CveModelo
                For Each row As GridViewRow In GvEventos.Rows
                    If row.FCCheckBox("chkEv").Checked Then
                        CveEvento = row.DataKey("CveEvento").ToString.ToEntero
                        If Not GPS.ModeloEventoAdd(CveEvento, CveModelo) Then
                            huboerror = True
                            Exit For
                        End If
                    End If
                Next
            End If

            If Not huboerror Then
                For I As Integer = 1 To NoEntradasA
                    If Not GPS.ModeloEntradaSalidaAdd(CveModelo, 0, 0, I) Then
                        huboerror = True
                        Exit For
                    End If
                Next
            End If

            If Not huboerror Then
                For I As Integer = 1 To NoEntradasD
                    If Not GPS.ModeloEntradaSalidaAdd(CveModelo, 0, 1, I + NoEntradasA) Then
                        huboerror = True
                        Exit For
                    End If
                Next
            End If

            If Not huboerror Then
                For I As Integer = 1 To EntradasDatos
                    If Not GPS.ModeloEntradaSalidaAdd(CveModelo, 0, 2, I + NoEntradasA + NoEntradasD) Then
                        huboerror = True
                        Exit For
                    End If
                Next
            End If

            If Not huboerror Then
                For I As Integer = 1 To NoSalidasA
                    If Not GPS.ModeloEntradaSalidaAdd(CveModelo, 1, 0, I) Then
                        huboerror = True
                        Exit For
                    End If
                Next
            End If

            If Not huboerror Then
                For I As Integer = 1 To NoSalidasD
                    If Not GPS.ModeloEntradaSalidaAdd(CveModelo, 1, 1, I + NoSalidasA) Then
                        huboerror = True
                        Exit For
                    End If
                Next
            End If

            If Not huboerror Then
                For I As Integer = 1 To SalidasDatos
                    If Not GPS.ModeloEntradaSalidaAdd(CveModelo, 1, 2, I + NoSalidasA + NoSalidasD) Then
                        huboerror = True
                        Exit For
                    End If
                Next
                Mensaje = "El módelo se agregó correctamente"
            End If
        End If


        If Not huboerror Then
            GPS.Commit()
            Alert(Mensaje, TipoMensaje.MsgInformacion, "document.location.href=""/GPS/CatModelos.aspx"";")
        Else
            GPS.RollBack()
        End If
        GPS.Dispose()
    End Sub

#Region "Marca"
    Private Sub CargaMarcas()
        dvEstatusM.Visible = False
        hdnMarca.Value = "0"
        Dim GPS As New ClsGPS
        If GPS.GetMarca(-1, -1) Then
            gvMarcas.DataSource = GPS.DtResultados
        Else
            gvMarcas.DataSource = Nothing
        End If
        GPS.Dispose()
        gvMarcas.DataBind()

    End Sub

    Protected Sub BtnAgregarTipoMarca_Click(sender As Object, e As EventArgs) Handles BtnAddMarca.Click
        Dim GPS As New ClsGPS

        If EsEditar = 0 Then
            If GPS.AddMarca(TxtMarca.Text.Trim, True, UsuarioActual.CveUsuario) Then
                Alert("La marca se agregó correctamente", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrió un error al agregar la marca", TipoMensaje.MsgError)
            End If
        ElseIf EsEditar = 1 Then
            If GPS.UpdateMarca(TxtMarca.Text, chkEstatusMarca.Checked, CveMarca) Then
                Alert("La marca se editó correctamente", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrió un error al editar la marca", TipoMensaje.MsgError)
            End If
            EsEditar = 0
            BtnAddMarca.Text = "Agregar"
            dvEstatusM.Visible = False

        End If
        RegistraScript("$('#divMarca').modal('hide')")
        GPS.Dispose()
        TxtMarca.Text = ""
        CargaMarcas()
        UpMarcas.Update()
        UpBodyMarca.Update()

    End Sub


    Protected Sub imgEM_Click(sender As Object, e As EventArgs)
        Dim Boton = CType(sender, LinkButton)
        dvEstatusM.Visible = True
        CveMarca = Boton.CommandArgument.ToEntero
        hdnMarca.Value = "0"
        Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
        TxtMarca.Text = GvRow.DataKey("Marca").ToString
        chkEstatusMarca.Checked = CBool(GvRow.DataKey("Estatus").ToString)
        EsEditar = 1
        myModalLabel2.InnerHtml = "Actualizar Marca"
        BtnAddMarca.Text = "Actualizar"
        UpBodyMarca.Update()
        UpdatePanel1.Update()
        UpFooterMarca.Update()
        RegistraScript("$('#divMarca').modal()")
    End Sub


    Protected Sub gvMarcas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles gvMarcas.RowDeleting
        Dim GPS As New ClsGPS
        Dim CveMarca As Integer = gvMarcas.Rows(e.RowIndex).DataKey("CveMarca").ToEntero
        If GPS.DeleteMarca(CveMarca) Then
            Alert("La marca se eliminó correctamente", TipoMensaje.MsgInformacion)
        End If
        GPS.Dispose()
        CargaMarcas()
        UpMarcas.Update()
    End Sub

    Protected Sub gvMarcas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles gvMarcas.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If CveMarca = e.Row.DBCampo("CveMarca").ToEntero Then
                RegistraScript($"CargaDatosSeleccionados({e.Row.RowIndex}, '{e.Row.DBCampo("CveMarca")}')")
            End If
            e.Row.VerticalAlign = VerticalAlign.Middle
            e.Row.Attributes.Add("onClick", $"CargaDatosSeleccionados({e.Row.RowIndex}, '{e.Row.DBCampo("CveMarca").ToString}');")
            e.Row.FCLinkButton("ImgE").CommandArgument = e.Row.DataKey("CveMarca").ToString
        End If
    End Sub

    Protected Sub btnCancelarMarca_Click(sender As Object, e As EventArgs) Handles BtnOpenDivMarca.Click
        EsEditar = 0
        TxtMarca.Text = ""
        RegistraScript("$('#divMarca').modal()")
        dvEstatusM.Visible = False
        BtnAddMarca.Text = "Agregar"
        myModalLabel2.InnerHtml = "Agregar Marca"
        UpBodyMarca.Update()
    End Sub

#End Region

#Region "Evento"
    Private Sub CargaEventos()
        Dim GPS As New ClsGPS
        If GPS.EventoGet(-1, 1, 1) Then
            GvEventos.DataSource = GPS.DtResultados
        Else
            GvEventos.DataSource = Nothing
        End If
        If CveModelo > 0 Then
            If GPS.ModeloEventoGet(CveModelo) Then
                TmpDT = GPS.DtResultados
            End If
        Else
            TmpDT = Nothing
        End If
        GPS.Dispose()
        GvEventos.DataBind()
        UpBodyEvento.Update()
    End Sub

    'Private Sub CargaDdl()
    '    Dim GPS As New ClsGPS
    '    If GPS.ControladorGraficoGet(-1) Then
    '        DdlControladorGrafico.DataSource = GPS.DtResultados.FiltraParametros("Estatus = 1")
    '    Else
    '        DdlControladorGrafico.DataSource = Nothing
    '    End If
    '    GPS.Dispose()
    '    DdlControladorGrafico.DataBind()
    '    DdlControladorGrafico.Items.Insert(0, New ListItem("Seleccione", "-1"))
    '    UpBodyEvento.Update()
    'End Sub

    Protected Sub BtnAgregarTipoEvento_Click(sender As Object, e As EventArgs) Handles BtnAddEvento.Click
        Dim GPS As New ClsGPS
        Dim huboerror As Boolean = False
        If EsEditar = 0 Then
            Imagen = ""
            Sonido = ""
            Try
                If TxtUpImagen.getfiles().Archivos.Count > 0 Then
                    Dim ArchivoImagen As Archivo = TxtUpImagen.getfiles().Archivos(0)
                    Imagen = FormatearNombreArchivo(ArchivoImagen.filenameO)
                    Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Imagenes"
                    If Not Directory.Exists(Path) Then
                        Directory.CreateDirectory(Path)
                    End If
                    Dim directorioNew As String = String.Format("{0}\{1}", Path, Imagen)
                    If File.Exists(directorioNew) Then
                        My.Computer.FileSystem.DeleteFile(directorioNew)
                    End If
                    My.Computer.FileSystem.MoveFile(ArchivoImagen.FileUrl, directorioNew)
                End If

                If TxtUpSonido.getfiles().Archivos.Count > 0 Then
                    Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0)
                    Dim PathSonido As String = $"{AppDomain.CurrentDomain.BaseDirectory}Sonidos"
                    Sonido = FormatearNombreArchivo(ArchivoSonido.filenameO)
                    Dim dirSonido As String = String.Format("{0}\{1}", PathSonido, Sonido)
                    If File.Exists(dirSonido) Then
                        My.Computer.FileSystem.DeleteFile(dirSonido)
                    End If
                    My.Computer.FileSystem.MoveFile(ArchivoSonido.FileUrl, dirSonido)
                End If

            Catch ex As Exception
                huboerror = True
                OnError(ex.Message, ex)
            End Try
            If Not huboerror Then
                If GPS.EventoAdd(TxtEvento.Text.Trim, 1, True, TxtCSS.Text.Trim, Imagen, Sonido, UsuarioActual.CveUsuario, -1) Then
                    Alert("El evento se agregó correctamente", TipoMensaje.MsgInformacion)
                Else
                    Alert("Ocurrió un error al agregar el evento", TipoMensaje.MsgError)
                End If
            End If
        ElseIf EsEditar = 1 Then
            Try
                If TxtUpImagen.getfiles().Archivos.Count > 0 Then
                    Dim ArchivoImagen As Archivo = TxtUpImagen.getfiles().Archivos(0)
                    Imagen = FormatearNombreArchivo(ArchivoImagen.filenameO)
                    Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Imagenes"
                    If Not Directory.Exists(Path) Then
                        Directory.CreateDirectory(Path)
                    End If
                    Dim directorioNew As String = String.Format("{0}\{1}", Path, Imagen)
                    If File.Exists(directorioNew) Then
                        My.Computer.FileSystem.DeleteFile(directorioNew)
                    End If
                    My.Computer.FileSystem.MoveFile(ArchivoImagen.FileUrl, directorioNew)
                End If

                If TxtUpSonido.getfiles().Archivos.Count > 0 Then
                    Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0)
                    Sonido = FormatearNombreArchivo(ArchivoSonido.filenameO)
                    Dim PathSonido As String = $"{AppDomain.CurrentDomain.BaseDirectory}Sonidos"
                    Dim dirSonido As String = String.Format("{0}\{1}", PathSonido, Sonido)
                    If File.Exists(dirSonido) Then
                        My.Computer.FileSystem.DeleteFile(dirSonido)
                    End If
                    My.Computer.FileSystem.MoveFile(ArchivoSonido.FileUrl, dirSonido)
                End If

            Catch ex As Exception
                huboerror = True
                OnError(ex.Message, ex)
            End Try
            If Not huboerror Then
                If GPS.EventoUpdate(CveEvento, TxtEvento.Text.Trim, 1, True, TxtCSS.Text.Trim, Imagen, Sonido, -1) Then
                    Alert("El evento se editó correctamente", TipoMensaje.MsgInformacion)
                Else
                    Alert("Ocurrió un error al editar el evento", TipoMensaje.MsgError)
                End If
            End If
            EsEditar = 0
            BtnAddEvento.Text = "Agregar"
        End If
            RegistraScript("$('#divEventos').modal('hide')")
        GPS.Dispose()
        TxtEvento.Text = ""
        TxtCSS.Text = ""
        '    TxtImagen.Text = ""
        ImgImagen.ImageUrl = "/Imagenes/AddArchivo.png"
        PlaySonidoTmp.Visible = False
        TxtUpImagen.Text = "[]"
        TxtUpSonido.Text = "[]"
        CargaEventos()
        UpEventos.Update()
        UpBodyEvento.Update()

    End Sub


    Protected Sub imgEE_Click(sender As Object, e As EventArgs)
        Dim Boton = CType(sender, LinkButton)
        CveEvento = Boton.CommandArgument.ToEntero
        Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
        TxtEvento.Text = GvRow.DataKey("Evento").ToString
        TxtCSS.Text = GvRow.DataKey("CSS").ToString
        If GvRow.DataKey("Imagen").ToString <> "" Then
            ImgImagen.ImageUrl = $"/Imagenes/{GvRow.DataKey("Imagen").ToString}"
        Else
            ImgImagen.ImageUrl = $"/Imagenes/AddArchivo.png"
        End If
        Imagen = GvRow.DataKey("Imagen").ToString
        Sonido = GvRow.DataKey("Sonido").ToString
        myModalLabel3.InnerHtml = "Actualizar Evento"
        If Not Sonido.Equals("") Then
            PlaySonidoTmp.Visible = True
            PlaySonidoTmp.OnClientClick = $"javascript:PlaySonidito('{Sonido}');return false;"
        End If
        EsEditar = 1
        BtnAddEvento.Text = "Actualizar"
        UpBodyEvento.Update()
        UpdatePanel2.Update()
        UpFooterEvento.Update()
        RegistraScript("$('#divEventos').modal()")
    End Sub


    Protected Sub GvEventos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvEventos.RowDeleting
        Dim GPS As New ClsGPS
        Dim CveEvento As Integer = GvEventos.Rows(e.RowIndex).DataKey("CveEvento").ToEntero
        If GPS.EventoDelete(CveEvento) Then
            Alert("El evento se eliminó correctamente", TipoMensaje.MsgInformacion)
        End If

        GPS.Dispose()
        CargaEventos()
        UpMarcas.Update()
    End Sub

    Protected Sub gvEventos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvEventos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If TmpDT IsNot Nothing Then
                For Each dr As DataRow In TmpDT.Rows
                    If dr("CveEvento").ToString = e.Row.DBCampo("CveEvento") Then
                        e.Row.FCCheckBox("chkEv").Checked = True
                    End If
                Next
            End If
            e.Row.VerticalAlign = VerticalAlign.Middle
            e.Row.FCLinkButton("ImgE").CommandArgument = e.Row.DataKey("CveEvento").ToString
            If e.Row.DBCampo("Sonido").ToString <> "" AndAlso File.Exists($"{AppDomain.CurrentDomain.BaseDirectory}/Sonidos/{e.Row.DataKey("Sonido").ToString}") Then
                e.Row.FCLinkButton("PlaySonido").Visible = True
                e.Row.FCLinkButton("PlaySonido").OnClientClick = $"javascript:PlaySonidito('{e.Row.DataKey("Sonido").ToString}');return false;"
            End If
        End If
    End Sub

    Protected Sub btnCancelarE_Click(sender As Object, e As EventArgs) Handles BtnOpenDivEventos.Click
        EsEditar = 0
        RegistraScript("$('#divEventos').modal()")
        myModalLabel3.InnerHtml = "Agregar Evento"
        TxtEvento.Text = ""
        TxtCSS.Text = ""
        TxtUpImagen.Text = "[]"
        TxtUpSonido.Text = "[]"
        PlaySonidoTmp.Visible = False
        ImgImagen.ImageUrl = "/Imagenes/AddArchivo.png"
        BtnAddEvento.Text = "Agregar"
        UpBodyEvento.Update()
    End Sub

#End Region

#Region "UPLOADS"
    Protected Sub btnAddImagen_Click(sender As Object, e As EventArgs) Handles btnAddImagen.Click
        Dim Filesgral As List(Of Archivo) = TxtUpImagen.getfiles().Archivos
        For Each fileItem As Archivo In Filesgral
            Dim Imagen = FormatearNombreArchivo(fileItem.filenameO)
            If Imagen.Length > 199 Then
                Alert("El nombre del archivo excede los 200 Caracteres permitidos favor de modificarlo.", TipoMensaje.MsgAdvertencia)
                Exit Sub
            Else
                ImgImagen.ImageUrl = $"/Temp/{fileItem.filename}"
            End If
        Next
        RegistraScript("$('#DivImagen').modal('hide');")
        UpBodyEvento.Update()
    End Sub

    Protected Sub btnAddSonido_Click(sender As Object, e As EventArgs) Handles btnAddSonido.Click
        Dim Filesgral As List(Of Archivo) = TxtUpSonido.getfiles().Archivos
        For Each fileItem As Archivo In Filesgral
            Dim Sonido = FormatearNombreArchivo(fileItem.filenameO)
            If Sonido.Length > 199 Then
                Alert("El nombre del archivo excede los 200 Caracteres permitidos favor de modificarlo.", TipoMensaje.MsgAdvertencia)
                Exit Sub
            Else
                PlaySonidoTmp.Visible = True
                PlaySonidoTmp.OnClientClick = $"javascript:PlaySoniditoTmp('{fileItem.filename}');return false;"
            End If
        Next
        RegistraScript("$('#DivSonido').modal('hide');")
        UpBodyEvento.Update()
    End Sub

    Public Function FormatearNombreArchivo(nombreArchivoOriginal As String) As String
        Dim nombreArchivoFormateado As String
        nombreArchivoFormateado = nombreArchivoOriginal.Replace(" ", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("'", "")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace(Chr(34), "")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("$", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("#", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("%", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("!", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("&", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("?", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("¿", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("¡", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("*", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("~", "_")
        nombreArchivoFormateado = nombreArchivoFormateado.Replace("^", "_")
        Return nombreArchivoFormateado
    End Function

#End Region

    Protected Sub BtnBack_Click(sender As Object, e As EventArgs) Handles BtnBack.Click
        RegistraScript("$('a.button-previous').click()")
        Paso = Paso - 1
        BtnMain.Text = "Continuar"
        If Paso = 1 Then
            BtnBack.Visible = False
        End If
    End Sub
End Class