Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Contabilidad2/CatContaEjercicios.aspx

@@ -8,13 +8,13 @@
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    Catálogo de Cuentas Asignación.
+    Catálogo de Contabilidad Ejercicio.
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <asp:UpdatePanel runat="server" ID="UpAgregar">
         <ContentTemplate>
             <li>
-                <asp:LinkButton runat="server" ID="BtnAgregarMotivoD" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Motivo Baja"></asp:LinkButton>
+                <asp:LinkButton runat="server" ID="BtnAgregarMotivoD" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Contabilidad Ejercicio"></asp:LinkButton>
             </li>
 
         </ContentTemplate>
@@ -23,8 +23,91 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
         <ContentTemplate>
+            <asp:GridView runat="server" ID="GvDatos" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover ScrollAD"
+                DataKeyNames="CveEjercicio,Ejercicio,PeriodoActualNumero,CuentaNombre,CveCuentaCierre,PolizoFolio,PrePolizaCierreFolio,Estatus" AutoGenerateColumns="False"
+                Style="text-align: center; width: 100%" GridLines="None">
+                <Columns>
+                    <asp:BoundField DataField="Ejercicio" HeaderText="Ejercicio" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="PeriodoActual" HeaderText="Periodo Actual" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="CuentaNombre" HeaderText="Cuenta Nombre" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="PolizoFolio" HeaderText="Póliza Folio" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="PrePolizaCierreFolio" HeaderText="PrePóliza Cierre Folio" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Estatus" HeaderText="Estatus" ItemStyle-HorizontalAlign="Left" />
+                    <asp:TemplateField ItemStyle-Width="80px">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="ImgC" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="PolizaCierre" CssClass="btn btn-circle btn-sm blue" Text="<i class='glyphicon glyphicon-ok'></i>" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-Width="80px">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="ActualizaModulo" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-Width="80px">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="ImgEE" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="EliminarRow" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpModal">
+        <ContentTemplate>
+            <div id="ModalCat" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog" style="width: 150px;">
+                    <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalModulos" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlTituloModalTiposD" runat="server">Conta Ejercicios</asp:Literal>
+                                </h4>
+                            </div>
+                            <div class="modal-body" style="text-align: left">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlCuentas" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo" Style="width: 50%">
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlCuentas.ClientID.ToString()%>">Cuenta:</label>
+                                </div>
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtEjercicio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" Style="width: 100%"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVClave" runat="server" ControlToValidate="TxtEjercicio" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Ejercicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtEjercicio.ClientID.ToString()%>">Ejercicio:</label>
+                                </div>
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlPeriodoActual" runat="server" CssClass="form-control input-sm select2me" Style="width: 50%">
+                                        <asp:ListItem Value="0" Text="seleccione"/>
+                                        <asp:ListItem Value="1" Text="Enero"/>
+                                        <asp:ListItem Value="2" Text="Febrero"/>
+                                        <asp:ListItem Value="3" Text="Marzo"/>
+                                        <asp:ListItem Value="4" Text="Abril"/>
+                                        <asp:ListItem Value="5" Text="Mayo"/>
+                                        <asp:ListItem Value="6" Text="Junio"/>
+                                        <asp:ListItem Value="7" Text="Julio"/>
+                                        <asp:ListItem Value="8" Text="Agosto"/>
+                                        <asp:ListItem Value="9" Text="Septiembre"/>
+                                        <asp:ListItem Value="10" Text="Octubre"/>
+                                        <asp:ListItem Value="11" Text="Noviembre"/>
+                                        <asp:ListItem Value="12" Text="Diciembre"/>
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlPeriodoActual.ClientID.ToString()%>">Periodo Actual:</label>
+                                </div>
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:CheckBox ID="ChkEstatus" runat="server" data-toggle="toggle"/>
+                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
+                                </div>
+                            </div>
+                            <div class="modal-footer">
+                                <asp:LinkButton ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpModulo" />
+                                <button id="BtnCancelarProyecto" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                            </div>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-</asp:Content>
+</asp:Content>

Contabilidad2/CatContaEjercicios.aspx.vb

@@ -5,9 +5,109 @@ 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
+
+        If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+            DdlCuentas.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        GvDatos.DataBind()
+        DdlCuentas.DataBind()
+        DdlCuentas.Items.Insert(0, New ListItem("seleccione", "-1"))
+    End Sub
+
+    Protected Sub BtnAgregarMotivoD_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click
+        TxtEjercicio.Text = ""
+        ChkEstatus.Checked = 0
+        DdlPeriodoActual.SelectedValue = 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:=DdlPeriodoActual.SelectedValue.ToEntero, CveCuentaCierre:=DdlCuentas.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
+                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")
+        DdlPeriodoActual.SelectedValue = GvRow.DataKey("PeriodoActualNumero")
+        DdlCuentas.SelectedValue = GvRow.DataKey("CveCuentaCierre")
+        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
+
+    Protected Sub PolizaCierre(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        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)
+        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
+                Alert("Cierre de ejercicio correcto")
+            End If
+        End If
+        ObjConta.Dispose()
+    End Sub
 End Class

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -14,7 +14,7 @@
     <asp:UpdatePanel runat="server" ID="UpAgregar">
         <ContentTemplate>
             <li>
-                <asp:LinkButton runat="server" ID="BtnAgregarMotivoD" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Motivo Baja"></asp:LinkButton>
+                <asp:LinkButton runat="server" ID="BtnAgregarMotivoD" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Cuenta Asignación"></asp:LinkButton>
             </li>
 
         </ContentTemplate>