Merge branch 'master' of http://jperez@adsistemasof.sytes.net:8383/SIG.git

App_Code/ClsContabilidad.vb

@@ -5961,6 +5961,31 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+    Public Function CierreEjercicio(CveEmpresa As Integer, Ejercicio As Integer, CveCuentaCierre As Integer, FechaI As String, FechaF As String, CveUsuario As Integer) As Integer
+        Dim Retorno As Integer = -1
+
+        DataAdapter("PA_Conta_CierreEjercicio")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
+            .Add("@CveCuentaCierre", SqlDbType.Int).Value = CveCuentaCierre
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CvePrePoliza", SqlDbType.Int).Direction = ParameterDirection.Output
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = SqlAdapter.SelectCommand.Parameters("@CvePrePoliza").Value.ToString.ToEntero
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
 #Region "  RECONSTRUCCION DE PREPOLIZAS  "
     Public Function ReconstruirPP_PagoCompra(CvePrePoliza As Integer) As Boolean
         Dim Retorno = False

App_Code/ClsPaginas.vb

@@ -5148,7 +5148,7 @@ Public Class ClsPaginas
         End With
         setup.SetCompatibilitySwitches({"NetFx40_LegacySecurityPolicy"})
         Dim _casPolicyEnabledDomain As AppDomain = AppDomain.CreateDomain("Full Trust", Nothing, setup)
-
+        Dim fllreport As ADSReportLib.FullTrustReportviewer = Nothing
         Try
             'Dim rvNextgenReport2 As WebReportviewer.FullTrustReportviewer = CType(_casPolicyEnabledDomain.CreateInstanceFromAndUnwrap(GetType(WebReportviewer.FullTrustReportviewer).Assembly.CodeBase, GetType(WebReportviewer.FullTrustReportviewer).FullName), WebReportviewer.FullTrustReportviewer)
             'rvNextgenReport2.Initialize(DisplayName, ReportPath, Visible, reportParam, reportRenderFormat, DeviceInfo, repMainContent, repSubContent)
@@ -5158,7 +5158,8 @@ Public Class ClsPaginas
             'Next
 
             'Return rvNextgenReport2.Render(reportRenderFormat, DeviceInfo)
-            Dim fllreport As ADSReportLib.FullTrustReportviewer = CType(_casPolicyEnabledDomain.CreateInstanceFromAndUnwrap(GetType(ADSReportLib.FullTrustReportviewer).Assembly.CodeBase, GetType(ADSReportLib.FullTrustReportviewer).FullName), ADSReportLib.FullTrustReportviewer)
+            fllreport = CType(_casPolicyEnabledDomain.CreateInstanceFromAndUnwrap(GetType(ADSReportLib.FullTrustReportviewer).Assembly.CodeBase, GetType(ADSReportLib.FullTrustReportviewer).FullName), ADSReportLib.FullTrustReportviewer)
+
             Dim bdir As String = AppDomain.CurrentDomain.BaseDirectory
             RutaReporte.Replace("/", "\")
             If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then
@@ -5186,6 +5187,7 @@ Public Class ClsPaginas
         Finally
             AppDomain.Unload(_casPolicyEnabledDomain)
         End Try
+        If fllreport IsNot Nothing Then fllreport.liberarecursos()
 
         sw.Stop()
         If sw.Elapsed.TotalSeconds > 10 Then

App_Code/Modelos.vb

@@ -2986,8 +2986,6 @@ Namespace Modelos
                                         If ObjConta.DtResultados.Rows.Count > 0 Then
                                             'Conta ContPAQ
                                             IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
-                                            'Conta SIG
-                                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
                                         End If
                                     End If
 

Contabilidad2/CatContaEjercicios.aspx

@@ -24,7 +24,7 @@
     <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,PeriodoActual,CuentaNombre,PolizoFolio,PrePolizaCierreFolio,Estatus" AutoGenerateColumns="False"
+                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" />
@@ -33,12 +33,17 @@
                     <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="99px">
+                    <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="83px">
+                    <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>
@@ -60,14 +65,33 @@
                                 </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()%>">Periodo Actual:</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:CheckBox ID="ChkPeriodoActual" runat="server" data-toggle="toggle"/>
+                                    <asp:DropDownList ID="DdlPeriodoActual" runat="server" CssClass="form-control input-sm select2me" Style="width: 50%">
-                                    <label for="<%= ChkPeriodoActual.ClientID.ToString()%>">Periodo Actual:</label>
+                                        <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"/>

Contabilidad2/CatContaEjercicios.aspx.vb

@@ -25,14 +25,20 @@ Partial Class Contabilidad2_CatContaEjercicios
         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
-        ChkPeriodoActual.Checked = 0
+        DdlPeriodoActual.SelectedValue = 0
         UpModalModulos.Update()
         RegistraScript("$('#ModalCat').modal();")
     End Sub
@@ -42,12 +48,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:=If(ChkPeriodoActual.Checked, 1, 0), Estatus:=ChkEstatus.Checked) Then
+                                              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,
+            If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text, PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero,
-                                              PeriodoActual:=If(ChkPeriodoActual.Checked, 1, 0), Estatus:=ChkEstatus.Checked) Then
+                                                 CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
                 errorString = "Error al actualizar"
             End If
         End If
@@ -71,7 +77,8 @@ Partial Class Contabilidad2_CatContaEjercicios
         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)
+        DdlPeriodoActual.SelectedValue = GvRow.DataKey("PeriodoActualNumero")
+        DdlCuentas.SelectedValue = GvRow.DataKey("CveCuentaCierre")
         LbAgregar.Text = "Actualizar"
         UpModalModulos.Update()
         RegistraScript("$('#ModalCat').modal();")
@@ -87,4 +94,20 @@ Partial Class Contabilidad2_CatContaEjercicios
         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

Inicio.aspx.vb

@@ -55,8 +55,7 @@ Partial Class Inicio
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            'Dim obj As Object = GetType(HttpRuntime).GetProperty("CacheInternal", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.[Static]).GetValue(Nothing, Nothing)
+
-            'Dim obj2 As Object() = CType(obj.[GetType]().GetField("_caches", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance).GetValue(obj), Object())
             If Not IsNothing(Request("logout")) AndAlso Request("logout").ToString() = "1" Then
                 Usuario.CerrarSession()
                 Exit Sub

vwd.webinfo

@@ -42,6 +42,8 @@
     
   
     
+  
+