catálogo listo

Contabilidad2/CatContaEjercicios.aspx.vb

@@ -5,9 +5,86 @@ Imports Extensiones
 Partial Class Contabilidad2_CatContaEjercicios
     Inherits ClsPaginas
 
+    Private Property CveEjercicio() As Integer 'Guardamos el ID de registro para saber cual registro Editar
+        Get
+            Return If(IsNothing(ViewState("CveEjercicio")), -1, CInt(ViewState("CveEjercicio")))
+        End Get
+        Set
+            ViewState("CveEjercicio") = Value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-
+            CargaDatos()
         End If
     End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetContaEjercicio(UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        GvDatos.DataBind()
+    End Sub
+
+    Protected Sub BtnAgregarMotivoD_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click
+        TxtEjercicio.Text = ""
+        ChkEstatus.Checked = 0
+        ChkPeriodoActual.Checked = 0
+        UpModalModulos.Update()
+        RegistraScript("$('#ModalCat').modal();")
+    End Sub
+
+    Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
+        Dim ObjConta As New ClsContabilidad
+        Dim errorString As String = ""
+        If LbAgregar.Text = "Agregar" Then
+            If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CvePersonal, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text,
+                                              PeriodoActual:=If(ChkPeriodoActual.Checked, 1, 0), Estatus:=ChkEstatus.Checked) Then
+                errorString = "Error al agregar"
+            End If
+        ElseIf LbAgregar.Text = "Actualizar" Then
+            If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text,
+                                              PeriodoActual:=If(ChkPeriodoActual.Checked, 1, 0), Estatus:=ChkEstatus.Checked) Then
+                errorString = "Error al actualizar"
+            End If
+        End If
+            ObjConta.Dispose()
+        RegistraScript("$('#ModalCat').modal('hide');")
+        CargaDatos()
+        UpDatos.Update()
+        If errorString.Length > 0 Then
+            Alert(errorString)
+        Else
+            If LbAgregar.Text = "Agregar" Then
+                Alert("Agregado correctamente")
+            ElseIf LbAgregar.Text = "Actualizar" Then
+                Alert("Actualizado correctamente")
+            End If
+        End If
+    End Sub
+
+    Protected Sub ActualizaModulo(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        CveEjercicio = GvRow.DataKey("CveEjercicio").ToEntero
+        TxtEjercicio.Text = GvRow.DataKey("Ejercicio")
+        ChkEstatus.Checked = GvRow.DataKey("Estatus")
+        ChkPeriodoActual.Checked = If(GvRow.DataKey("PeriodoActual").ToEntero > 0, True, False)
+        LbAgregar.Text = "Actualizar"
+        UpModalModulos.Update()
+        RegistraScript("$('#ModalCat').modal();")
+    End Sub
+
+    Protected Sub EliminarRow(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.RemoveContaEjercicio(GvRow.DataKey("CveEjercicio").ToEntero) Then
+            Alert("eliminado correctamente")
+        End If
+        ObjConta.Dispose()
+        CargaDatos()
+        UpDatos.Update()
+    End Sub
 End Class