Commit inicial Ventas Productivo

Contabilidad/CatPeriodosBloqueo.aspx.vb

@@ -0,0 +1,229 @@
+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
+
+        ObjConta.Dispose()
+
+        UPGvPeriodosBloqueo.DataBind()
+        UpGral.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()
+
+                Alert("Bloqueo Agregado Correctamente", TipoMensaje.MsgInformacion)
+            Else
+                Alert("Ocurrió un error al guardar el Periodo de Bloqueo", TipoMensaje.MsgError)
+            End If
+        Else
+
+            If 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) Then
+
+                CargadatosGvPeriodosBloqueo()
+                UpModalPeriodosBloqueo.Update()
+
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarPeriodosBloqueo"), "jsHideModalPeriodosBloqueo")
+
+                UpGral.Update()
+                Alert("Bloqueo Actualizado Correctamente", TipoMensaje.MsgInformacion)
+            Else
+                Alert("Ocurrió un error al Actualizar el Periodo de Bloqueo", TipoMensaje.MsgError)
+            End If
+        End If
+
+        Ejercicio = -1
+        Actualizar = False
+
+        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