Poder realizar cierre de ejercicio desde el balance general

Contabilidad2/RepSituacionFinanciera.aspx.vb

@@ -158,12 +158,16 @@ Partial Class AC2_SituacionFinanciera
         Dim Clsconta As New ClsContabilidad
         If Clsconta.GetEjercicios(UsuarioActual.CveEmpresa) Then
             DdlEjercicio.DataSource = Clsconta.DtResultados
+            DdlEjercicioCierre.DataSource = Clsconta.DtResultados
         Else
             DdlEjercicio.DataSource = Nothing
+            DdlEjercicioCierre.DataSource = Nothing
         End If
         Clsconta.Dispose()
-        DdlEjercicio.DataBind()
+        DdlEjercicioCierre.DataBind()
+        DdlEjercicioCierre.SelectedValue = Now.Year.ToString
 
+        DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValue = Now.Year.ToString
 
         DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
@@ -598,4 +602,34 @@ Partial Class AC2_SituacionFinanciera
         params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.ToString, DdlEjercicio.SelectedItem.ToString)))
         ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
     End Sub
+
+    Protected Sub LnkCerrar_Click(sender As Object, e As EventArgs) Handles LnkCerrar.Click
+        RegistraScript("$('#ModalCierre').modal()")
+        CargaCtaContableE()
+    End Sub
+
+    Protected Sub BtnCierre_Click(sender As Object, e As EventArgs) Handles BtnCierre.Click
+        Dim objConta As New ClsContabilidad
+        Dim FechaIncio As String = String.Format("{0}/01/01", DdlEjercicioCierre.SelectedValue.ToString)
+        Dim FechaFin As String = String.Format("{0}/12/31", DdlEjercicioCierre.SelectedValue.ToString)
+        Dim CvePrepoliza As Integer = objConta.CierreEjercicio(UsuarioActual.CveEmpresa, DdlEjercicioCierre.SelectedValue.ToEntero, DdlCuentas.SelectedValue.ToEntero, FechaIncio, FechaFin, UsuarioActual.CveUsuario)
+        If CvePrepoliza > 0 Then
+            Alert(String.Format("Se realizo el cierre correctamente: <br/> <b> Poliza: </b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrepoliza={0}'>{0}</a>", CvePrepoliza), TipoMensaje.MsgInformacion)
+            objConta.Commit()
+        Else
+            Alert("Ocurrio un error al realizar el cierre", TipoMensaje.MsgError)
+            objConta.RollBack()
+        End If
+        objConta.Dispose()
+    End Sub
+
+    Private Sub CargaCtaContableE()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+            DdlCuentas.DataSource = ObjConta.DtResultados.FiltraParametros("Tipo = 'F' or Tipo = 'E' ", "")
+        End If
+        ObjConta.Dispose()
+        DdlCuentas.DataBind()
+        DdlCuentas.Items.Insert(0, New ListItem("Seleccionar", "-1"))
+    End Sub
 End Class