Imports System.Data
Imports Extensiones

Partial Class Contabilidad_CatPeriodosBloqueo
    Inherits ClsPaginas

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

        End Get
        Set(value As Integer)
            ViewState("Ejercicio") = 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
#End Region

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

        If Not Page.IsPostBack Then
            CargadatosGvPeriodosBloqueo()
        End If

    End Sub

    Private Sub CargadatosGvPeriodosBloqueo()

        Dim ObjConta As New ClsContabilidad

        If ObjConta.GetPeriodosBloqueo(UsuarioActual.CveEmpresa) Then
            GvPeriodosBloqueo.DataSource = ObjConta.DtResultados
        Else
            GvPeriodosBloqueo.DataSource = Nothing
        End If

        If ObjConta.GetBloqueoMesesBitacora(UsuarioActual.CveEmpresa) Then
            GvMesesBloqueBitacora.DataSource = ObjConta.DtResultados
        Else
            GvMesesBloqueBitacora.DataSource = Nothing
        End If

        ObjConta.Dispose()


        UPGvPeriodosBloqueo.DataBind()
        GvMesesBloqueBitacora.DataBind()
        UpGral.Update()
        UPGvBitacora.Update()

    End Sub

    Protected Sub BtnAgregarPeriodosBloqueo_Click(sender As Object, e As EventArgs) Handles BtnAgregarPeriodosBloqueo.Click
        LtlTituloModalPeriodosBloqueo.Text = "Agregar Bloqueo"
        BtnAgregarPeriodosBloqueoModal.Text = "Agregar"

        LimpiarChecked()
        TxtEjercicio.Text = ""

        Actualizar = False
        UpGral.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarPeriodosBloqueo"))

    End Sub

    Private Sub LimpiarChecked()
        ChkM1.Checked = False
        ChkM2.Checked = False
        ChkM3.Checked = False
        ChkM4.Checked = False
        ChkM5.Checked = False
        ChkM6.Checked = False
        ChkM7.Checked = False
        ChkM8.Checked = False
        ChkM9.Checked = False
        ChkM10.Checked = False
        ChkM11.Checked = False
        ChkM12.Checked = False
    End Sub

    Protected Sub BtnAgregarPeriodosBloqueoModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarPeriodosBloqueoModal.Click

        Dim ObjConta As New ClsContabilidad

        If Not Actualizar Then
            If ObjConta.AddPeriodosBloqueo(UsuarioActual.CveEmpresa, TxtEjercicio.Text, ChkM1.Checked, ChkM2.Checked, ChkM3.Checked, ChkM4.Checked, ChkM5.Checked, ChkM6.Checked, ChkM7.Checked, ChkM8.Checked, ChkM9.Checked, ChkM10.Checked, ChkM11.Checked, ChkM12.Checked) Then

                CargadatosGvPeriodosBloqueo()

                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarPeriodosBloqueo"), "jsHideModalPeriodosBloqueo")
                UpGral.Update()
                Ejercicio = -1
                Alert("Bloqueo Agregado Correctamente", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrió un error al guardar el Periodo de Bloqueo", TipoMensaje.MsgError)
            End If
        Else
            Dim AplicarBloqueso As String = ObjConta.UpdatePeriodosBloqueo(UsuarioActual.CveEmpresa, TxtEjercicio.Text, ChkM1.Checked, ChkM2.Checked, ChkM3.Checked, ChkM4.Checked, ChkM5.Checked, ChkM6.Checked, ChkM7.Checked, ChkM8.Checked, ChkM9.Checked, ChkM10.Checked, ChkM11.Checked, ChkM12.Checked, UsuarioActual.CveUsuario)
            If AplicarBloqueso.Length = 0 Then

                CargadatosGvPeriodosBloqueo()
                UpModalPeriodosBloqueo.Update()

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

                UpGral.Update()
                Alert("Bloqueo Actualizado Correctamente", TipoMensaje.MsgInformacion)
                Ejercicio = -1
                Actualizar = False
            Else
                Dim mensajeAlerta As String = AplicarBloqueso.Replace(";", Environment.NewLine)
                Alert(String.Format("No se puede bloquear el periodo por: <br/>{0} ", mensajeAlerta), TipoMensaje.MsgError)
            End If
        End If

        ObjConta.Dispose()

    End Sub

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

        Dim ObjConta As New ClsContabilidad
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim activo As Boolean = 0
        Ejercicio = GvRow.DataKey("Ejercicio")
        CveEmpresa = GvRow.DataKey("CveEmpresa")

        If ObjConta.RemovePeriodosBloqueo(CveEmpresa, Ejercicio) Then
            CargadatosGvPeriodosBloqueo()

            Alert("El Periodo de Bloqueo se Eliminó Correctamente ", TipoMensaje.MsgInformacion)
        Else
            Alert("Ocurrió un error al Eliminar el Periodo de Bloqueo", TipoMensaje.MsgError)
        End If

        ObjConta.Dispose()

        CargadatosGvPeriodosBloqueo()

        Ejercicio = -1

    End Sub

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

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

        LtlTituloModalPeriodosBloqueo.Text = "Editar Bloqueo"
        Actualizar = True

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

        TxtEjercicio.Text = Ejercicio
        'DdlTareaProgra.SelectedValueExist(CveTareaProgramada)
        LimpiarChecked()

        If GvRow.DataKey("Mes1").ToString = "True" Then
            ChkM1.Checked = True
        End If
        If GvRow.DataKey("Mes2").ToString = "True" Then
            ChkM2.Checked = True
        End If
        If GvRow.DataKey("Mes3").ToString = "True" Then
            ChkM3.Checked = True
        End If
        If GvRow.DataKey("Mes4").ToString = "True" Then
            ChkM4.Checked = True
        End If
        If GvRow.DataKey("Mes5").ToString = "True" Then
            ChkM5.Checked = True
        End If
        If GvRow.DataKey("Mes6").ToString = "True" Then
            ChkM6.Checked = True
        End If
        If GvRow.DataKey("Mes7").ToString = "True" Then
            ChkM7.Checked = True
        End If
        If GvRow.DataKey("Mes8").ToString = "True" Then
            ChkM8.Checked = True
        End If
        If GvRow.DataKey("Mes9").ToString = "True" Then
            ChkM9.Checked = True
        End If
        If GvRow.DataKey("Mes10").ToString = "True" Then
            ChkM10.Checked = True
        End If
        If GvRow.DataKey("Mes11").ToString = "True" Then
            ChkM11.Checked = True
        End If
        If GvRow.DataKey("Mes12").ToString = "True" Then
            ChkM12.Checked = True
        End If

        BtnAgregarPeriodosBloqueoModal.Text = "Actualizar"

        UpModalPeriodosBloqueo.Update()

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

    End Sub

End Class