Impresión de prepolizas y correcciones en conta ejercicios

Contabilidad2/CatContaEjercicios.aspx.vb

@@ -13,6 +13,30 @@ Partial Class Contabilidad2_CatContaEjercicios
             ViewState("CveEjercicio") = Value
         End Set
     End Property
+    Private Property Ejercicio() As Integer
+        Get
+            Return If(IsNothing(ViewState("Ejercicio")), -1, CInt(ViewState("Ejercicio")))
+        End Get
+        Set
+            ViewState("Ejercicio") = Value
+        End Set
+    End Property
+    Private Property PeriodoActualNumero() As Integer
+        Get
+            Return If(IsNothing(ViewState("PeriodoActualNumero")), -1, CInt(ViewState("PeriodoActualNumero")))
+        End Get
+        Set
+            ViewState("PeriodoActualNumero") = Value
+        End Set
+    End Property
+    Private Property Estatus() As Boolean
+        Get
+            Return CBool(ViewState("Estatus"))
+        End Get
+        Set
+            ViewState("Estatus") = Value
+        End Set
+    End Property
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
@@ -39,6 +63,7 @@ Partial Class Contabilidad2_CatContaEjercicios
         TxtEjercicio.Text = ""
         ChkEstatus.Checked = 0
         DdlPeriodoActual.SelectedValue = 0
+        LbAgregar.Text = "Agregar"
         UpModalModulos.Update()
         RegistraScript("$('#ModalCat').modal();")
     End Sub
@@ -48,12 +73,12 @@ Partial Class Contabilidad2_CatContaEjercicios
         Dim errorString As String = ""
         If LbAgregar.Text = "Agregar" Then
             If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CvePersonal, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text,
-                                              PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
+                                              PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
                 errorString = "Error al agregar"
             End If
         ElseIf LbAgregar.Text = "Actualizar" Then
             If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text, PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero,
-                                                 CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
+                                                 Estatus:=ChkEstatus.Checked) Then
                 errorString = "Error al actualizar"
             End If
         End If
@@ -78,7 +103,6 @@ Partial Class Contabilidad2_CatContaEjercicios
         TxtEjercicio.Text = GvRow.DataKey("Ejercicio")
         ChkEstatus.Checked = GvRow.DataKey("Estatus")
         DdlPeriodoActual.SelectedValue = GvRow.DataKey("PeriodoActualNumero")
-        DdlCuentas.SelectedValue = GvRow.DataKey("CveCuentaCierre")
         LbAgregar.Text = "Actualizar"
         UpModalModulos.Update()
         RegistraScript("$('#ModalCat').modal();")
@@ -97,14 +121,21 @@ Partial Class Contabilidad2_CatContaEjercicios
 
     Protected Sub PolizaCierre(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Ejercicio = GvRow.DataKey("Ejercicio").ToEntero
+        PeriodoActualNumero = GvRow.DataKey("PeriodoActualNumero").ToEntero
+
+        RegistraScript("$('#ModalGenerarPoliza').modal();")
+    End Sub
+
+    Protected Sub LbGenerarPoliza_Click(sender As Object, e As EventArgs) Handles LbGenerarPoliza.Click
         Dim ObjConta As New ClsContabilidad
         Dim FechaI As String = $"01/01/{DateTime.Now.Year}"
         Dim FechaF As String = $"{DateTime.DaysInMonth(DateTime.Now.Year, 12)}/12/{DateTime.Now.Year}"
         Dim CvePrePolizaCierre As Integer = -1
-        CvePrePolizaCierre = ObjConta.CierreEjercicio(UsuarioActual.CveEmpresa, GvRow.DataKey("Ejercicio").ToEntero, GvRow.DataKey("CveCuentaCierre").ToEntero, FechaI, FechaF, UsuarioActual.CvePersonal)
+        CvePrePolizaCierre = ObjConta.CierreEjercicio(UsuarioActual.CveEmpresa, Ejercicio, DdlCuentas.SelectedValue.ToEntero, FechaI, FechaF, UsuarioActual.CvePersonal)
         If CvePrePolizaCierre > 0 Then
-            If ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=GvRow.DataKey("Ejercicio").ToEntero, PeriodoActual:=GvRow.DataKey("PeriodoActualNumero").ToEntero,
-                                                 CveCuentaCierre:=GvRow.DataKey("CveCuentaCierre").ToEntero, CvePrePoliza:=CvePrePolizaCierre, Estatus:=GvRow.DataKey("Estatus")) Then
+            If ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=Ejercicio, PeriodoActual:=PeriodoActualNumero, CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero,
+                                             CvePrePoliza:=CvePrePolizaCierre, Estatus:=Estatus) Then
                 Alert("Cierre de ejercicio correcto")
             End If
         End If