Poder realizar cierre de ejercicio desde el balance general

Contabilidad2/RepSituacionFinanciera.aspx

@@ -19,6 +19,9 @@
         <asp:LinkButton ID="Imprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
         <%--<asp:ImageButton ID="Imprimir" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" />&nbsp;--%>
     </li>
+    <li>
+        <asp:LinkButton ID="LnkCerrar" runat="server"><i class="fa fa-print"></i> Cerrar Ejercicio</asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
@@ -584,6 +587,36 @@
 
             </div>
 
+    <div id="ModalCierre" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalEditarFecha" UpdateMode="Conditional" RenderMode="Inline">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlCierre" Text="Cierre de Ejercicio" runat="server"> </asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <label class="col-md-1 truncate" style="width: 90px;">Ejercicio:</label>
+                            <div class="col-md-2" style="width: 125px;">
+                                <asp:DropDownList ID="DdlEjercicioCierre" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
+                                </asp:DropDownList>
+                            </div>
+                            <label class="col-md-1 truncate" style="width: 90px;">Cuentas:</label>
+                            <div class="col-md-2" style="width: 125px;">
+                                <asp:DropDownList ID="DdlCuentas" runat="server" CssClass="select2me" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="100px">
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnCierre" runat="server" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="VgmEditarFecha" />
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
         </ContentTemplate>
     </asp:UpdatePanel>
 

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