SIG/Sistemas/CatTareasProgramadas.aspx.vb

Imports System.Data
Imports Extensiones


Partial Class Sistemas_CatTareasProgramadas
    Inherits ClsPaginas

#Region "Propiedades"
    Private Property CveTareaProgramada As Integer
        Get
            If Not ViewState("CveTareaProgramada") Is Nothing Then
                Return ViewState("CveTareaProgramada").ToString.ToEntero
            Else
                Return -1
            End If

        End Get
        Set(value As Integer)
            ViewState("CveTareaProgramada") = value
        End Set

    End Property

    Private Property CveEmpresa As Integer
        Get
            If Not ViewState("CveEmpresa") Is Nothing Then
                Return ViewState("CveEmpresa").ToString.ToEntero
            Else
                Return -1
            End If

        End Get
        Set(value As Integer)
            ViewState("CveEmpresa") = value
        End Set

    End Property

    Private Property Actualizar As Boolean
        Get
            If Not ViewState("Actualizar") Is Nothing Then
                Return DirectCast(ViewState("Actualizar"), Boolean)
            Else
                Return False
            End If
        End Get
        Set(value As Boolean)
            ViewState("Actualizar") = value
        End Set
    End Property

    Private Property dttareas As DataTable
        Get
            If Not ViewState("dttareas") Is Nothing Then
                Return DirectCast(ViewState("dttareas"), DataTable)
            Else
                Return Nothing
            End If
        End Get
        Set
            ViewState("dttareas") = Value
        End Set
    End Property
#End Region

    Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            CargaDatos()
            CargadatosGvTareasProgramadas()
        End If

    End Sub

    Private Sub CargaDatos()
        Using ObTareasProgra As New ClsTareasProgramadas
            If ObTareasProgra.GetSisTareasProgramadas() Then
                dttareas = ObTareasProgra.DtResultados
            End If
        End Using
        DdlTareaProgra.DataSource = dttareas
        DdlTareaProgra.DataBind()
        DdlTareaProgra.Items.Insert(0, New ListItem("Seleccione", "-1"))

        DdlEmpresas.DataSource = GlobalDTEmpresas()
        DdlEmpresas.DataBind()
        DdlEmpresas.Items.Insert(0, New ListItem("Seleccione", "-1"))

        TxtFechaI.Text = DateTime.Now.ToString("dd/MM/yyyy HH:mm")

    End Sub

    Protected Sub DdlTareaProgra_SelectedIndexChanged(sender As Object, e As EventArgs)
        Dim row As DataRow = dttareas.FiltroPrimero($"CveTareaProgramada={DdlTareaProgra.SelectedValue}")
        If Not IsNothing(row) Then
            LtlDescripcion.Text = $"{row("Descripcion")}"
        Else
            LtlDescripcion.Text = ""
        End If
    End Sub

    Private Sub CargadatosGvTareasProgramadas()

        Using ObTareasProgra As New ClsTareasProgramadas

            If ObTareasProgra.GetTareasProgramadas(-1, -1) Then
            GvTareasProgramadas.DataSource = ObTareasProgra.DtResultados
        Else
            GvTareasProgramadas.DataSource = Nothing
        End If

        End Using

        UPGvTareasProgramadas.DataBind()
        UpGral.Update()

    End Sub

    Protected Sub BtnAgregarTareasProgramadas_Click(sender As Object, e As EventArgs) Handles BtnAgregarTareasProgramadas.Click
        LtlTituloModalTareasProgramadas.Text = "Agregar Tarea Programada"
        BtnAgregarTareasProgramadasModal.Text = "Agregar"

        DdlTareaProgra.SelectedValue = -1
        DdlTareaProgra_SelectedIndexChanged(Nothing, Nothing)
        DdlEmpresas.SelectedValue = -1
        TxtNumerico.Text = ""
        TxtParametros.Text = ""
        TxtCorreo.Text = ""
        TxtPlantilla.Text = ""
        TxtFechaI.Text = DateTime.Now.ToString("dd/MM/yyyy HH:mm")
        Actualizar = False
        UpGral.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTareasProgramadas"))

    End Sub

    Protected Sub BtnAgregarTareasProgramadasModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarTareasProgramadasModal.Click

        Dim ObTareasProgra As New ClsTareasProgramadas

        Dim recursividadEnMinutos = 0
        Dim recursividadEnHoras = 0
        Dim recursividadEnDias = 0

        If DdlTipoR.SelectedValue.ToString = "D" Then
            recursividadEnDias = TxtNumerico.Text
        ElseIf DdlTipoR.SelectedValue.ToString = "H" Then
            recursividadEnHoras = TxtNumerico.Text
        ElseIf DdlTipoR.SelectedValue.ToString = "M" Then
            recursividadEnMinutos = TxtNumerico.Text
        End If


        If Not Actualizar Then
            If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue, DdlTareaProgra.SelectedValue, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then

                CargadatosGvTareasProgramadas()

                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTareasProgramadas"), "jsHideModalTareasProgramadas")
                UpGral.Update()

                Alert("Tarea Programada Agregada Correctamente", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrió un error al guardar la Tarea Programada", TipoMensaje.MsgError)
            End If
        Else

            If ObTareasProgra.RemoveTareasProgramadas(CveTareaProgramada, CveEmpresa) Then
            End If

            If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue, DdlTareaProgra.SelectedValue, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then

                CargadatosGvTareasProgramadas()
                UpModalTareasProgramadas.Update()

                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTareasProgramadas"), "jsHideModalTareasProgramadas")

                UpGral.Update()
                Alert("Tarea Programada Actualizada Correctamente", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrió un error al Actualizar la Tarea Programada", TipoMensaje.MsgError)
            End If
        End If

        CveTareaProgramada = -1
        Actualizar = False

        ObTareasProgra.Dispose()

    End Sub

    Public Sub Remove_ClickTareasProgramadas(sender As Object, e As EventArgs)

        Dim ObTareasProgra As New ClsTareasProgramadas
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim activo As Boolean = 0
        CveTareaProgramada = GvRow.DataKey("CveTareaProgramada")
        CveEmpresa = GvRow.DataKey("CveEmpresa")

        If ObTareasProgra.RemoveTareasProgramadas(CveTareaProgramada, CveEmpresa) Then
            CargadatosGvTareasProgramadas()

            Alert("La Tarea Programada se Eliminó Correctamente ", TipoMensaje.MsgInformacion)
        Else
            Alert("Ocurrió un error al Eliminar la Tarea Programada", TipoMensaje.MsgError)
        End If

        ObTareasProgra.Dispose()

        CargadatosGvTareasProgramadas()

        CveTareaProgramada = -1

    End Sub

    Public Sub Edit_ClickTareasProgramadas(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim activo As Boolean = 0

        LtlTituloModalTareasProgramadas.Text = "Editar Tarea Programada"
        Actualizar = True

        CveTareaProgramada = GvRow.DataKey("CveTareaProgramada")
        CveEmpresa = GvRow.DataKey("CveEmpresa")

        DdlTareaProgra.SelectedValueExist(CveTareaProgramada)
        DdlTareaProgra_SelectedIndexChanged(Nothing, Nothing)

        DdlEmpresas.SelectedValueExist(CveEmpresa)

        If GvRow.DataKey("RecursividadEnMinutos").ToEntero > 0 Then
            TxtNumerico.Text = GvRow.DataKey("RecursividadEnMinutos").ToEntero
            DdlTipoR.SelectedValue = "M"
        ElseIf GvRow.DataKey("RecursividadEnHoras").ToEntero > 0 Then
            TxtNumerico.Text = GvRow.DataKey("RecursividadEnHoras").ToEntero
            DdlTipoR.SelectedValue = "H"
        ElseIf GvRow.DataKey("RecursividadEnDias").ToEntero > 0 Then
            TxtNumerico.Text = GvRow.DataKey("RecursividadEnDias").ToEntero
            DdlTipoR.SelectedValue = "D"
        End If

        TxtParametros.Text = GvRow.DataKey("Parametros")
        TxtCorreo.Text = GvRow.DataKey("Correo")
        TxtPlantilla.Text = GvRow.DataKey("PlantillaCorreo")
        TxtFechaI.Text = GvRow.DataKey("FechaInicio").ToDateTime().ToString("dd/MM/yyyy HH:mm")

        BtnAgregarTareasProgramadasModal.Text = "Actualizar"

        UpModalTareasProgramadas.Update()

        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTareasProgramadas"))

    End Sub

End Class