Local

App_Code/ClsContabilidad.vb

@@ -5868,6 +5868,99 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+    Public Function GetContaEjercicio(CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta_ContaEjerciciosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddContaEjercicio(FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = -1,
+                                      Optional CveCuentaCierre As Integer = -1, Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1,
+                                      Optional Estatus As Integer = -1) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta_ContaEjerciciosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
+            .Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual
+            .Add("@CveCuentaCierre", SqlDbType.Int).Value = CveCuentaCierre
+            .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza
+            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@FechaIng", SqlDbType.Int).Value = FechaIng
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al agregar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateContaEjercicio(CveEjercicio As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = -1, Optional CveCuentaCierre As Integer = -1,
+                                         Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional Estatus As Integer = -1) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta_ContaEjerciciosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEjercicio", SqlDbType.Int).Value = CveEjercicio
+            .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
+            .Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual
+            .Add("@CveCuentaCierre", SqlDbType.Int).Value = CveCuentaCierre
+            .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza
+            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al actualizar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveContaEjercicio(CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta_ContaEjerciciosDelete")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        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

@@ -4071,6 +4071,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad2/MovimientosConProveedores.aspx".ToUpper(), 619)
             PaginaDict.Add("/Contabilidad2/RepBalanceGeneral.aspx".ToUpper(), 530)
             PaginaDict.Add("/Contabilidad2/CatCuentasAsignaciones.aspx".ToUpper(), 724)
+            PaginaDict.Add("/Contabilidad2/CatContaEjercicios.aspx".ToUpper(), 725)
 #End Region
             'CONTRATOS
 #Region "Contratos"

Ashx/SIGWeb.ashx

@@ -190,7 +190,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Else
             CveEmpresa = usuario.CveEmpresa
             Dim Name = IfNull(context.Request("Name"), "-1").ToString
-            Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If context.Application(AppNombre) Is Nothing Then
                 Dim ObjClientes As New ClsClientes
@@ -239,7 +239,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Else
             CveEmpresa = usuario.CveEmpresa
             Dim Name = IfNull(context.Request("Name"), "-1").ToString
-            Dim AppNombre As String = String.Format("GlobalDTCompProveedores{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTCompProveedores-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If context.Application(AppNombre) Is Nothing Then
                 Dim ObjProveedores As New ClsCompProveedores
@@ -391,8 +391,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
             If UsaGlobal Then
                 'se recarga el global, y el clspaginas, son los unicos 2 lugares
-                Dim AppNombre As String = String.Format("GlobalDTPSSimplificado{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
-                If context.Application(String.Format("GlobalDTPSSimplificado{0}", CveEmpresa)) Is Nothing Then
+                If context.Application(String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)) Is Nothing Then
                     Dim ObjPS As New ClsProductosServicios
                     If ObjPS.GetPSSimplificado(CveEmpresa) Then context.Application(AppNombre) = ObjPS.DtResultados.AsEnumerable()
                     ObjPS.Dispose()
@@ -639,7 +639,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
             If UsaGlobal Then
 
-                Dim DTPS = DirectCast(context.Application(String.Format("GlobalDTPSSimplificado{0}", CveEmpresa)), EnumerableRowCollection(Of DataRow))
+                Dim DTPS = DirectCast(context.Application(String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)), EnumerableRowCollection(Of DataRow))
 
                 If DTPS IsNot Nothing Then
 
@@ -715,7 +715,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Else
             CveEmpresa = usuario.CveEmpresa
             Dim Name = IfNull(context.Request("Name"), "-1").ToString
-            Dim AppNombre As String = String.Format("GlobalDTRHPersonal{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTRHPersonal-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If context.Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH

Bancos/IE.aspx.vb

@@ -5615,7 +5615,7 @@ Partial Class Bancos_IE
 
     Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.DBCampo("CveVenta").ToString.ToEntero > 0 AndAlso e.Row.DBCampo("CveCliente").ToString.ToEntero > 0 AndAlso e.Row.DBCampo("ImporteMN").ToString.ToDecimal > 0 AndAlso e.Row.DBCampo("CveConceptoContable").ToString.ToEntero = 2 AndAlso e.Row.DBCampo("Saldo").ToString.ToDecimal = 0 Then
+            If e.Row.DBCampo("CveVenta").ToString.ToEntero > 0 AndAlso e.Row.DBCampo("CveCliente").ToString.ToEntero > 0 AndAlso e.Row.DBCampo("ImporteMN").ToString.ToDecimal > 0 AndAlso e.Row.DBCampo("CveConceptoContable").ToString.ToEntero = 2 Then
                 e.Row.FCLinkButton("LnkCancelaMovimiento").Visible = True
             End If
         End If

Compras/Compras.aspx

@@ -2815,9 +2815,9 @@
                                             <ItemStyle HorizontalAlign="Center" Width="10%" />
                                         </asp:TemplateField>
                                         <asp:HyperLinkField HeaderText="SerieFolio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?={0}" />
-                                        <asp:BoundField HeaderText="Original" DataField="Cantidad" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
+                                        <asp:BoundField HeaderText="Original" DataField="CantidadC" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
-                                        <asp:BoundField HeaderText="Surtido" DataField="CantidadSurtidaAlmacen" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
+                                        <asp:BoundField HeaderText="Surtido" DataField="CantidadS" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
-                                        <asp:BoundField HeaderText="Pendiente" DataField="CantidadDisponibleInv" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
+                                        <asp:BoundField HeaderText="Pendiente" DataField="CantidadF" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
                                         <asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="7.5%" />
                                         <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%" />
                                         <asp:BoundField HeaderText="P.U." DataField="PU" DataFormatString="{0:#,##0.####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />

Contabilidad2/CatContaEjercicios.aspx

@@ -0,0 +1,30 @@
+<%@ Page Title="Contabilidad2 - Catálogo Ejercicios" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatContaEjercicios.aspx.vb" Inherits="Contabilidad2_CatContaEjercicios" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Catálogo de Cuentas Asignación.
+</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>
+            </li>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
+        <ContentTemplate>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>

Contabilidad2/CatContaEjercicios.aspx.vb

@@ -0,0 +1,13 @@
+Imports System.Data
+Imports System.Linq
+Imports Extensiones
+
+Partial Class Contabilidad2_CatContaEjercicios
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+        End If
+    End Sub
+End Class

Sistemas/UsuarioDetalle.aspx.vb

@@ -1579,7 +1579,8 @@ Partial Class Sistemas_UsuarioDetalle
                 'End If
 
             Else
-                DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero)).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, ""))
+                'DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero)).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, ""))
+                DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero), CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, ""))
                 'NO SE PARA QUE SE USA - COMENTADO IPP 30 AGOSTO 2017
                 'If SubProyectosSinGV.Length > 0 Then
                 '    Dim SubProyectoFiltrado As DataTable = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero).FiltraParametros(SubProyectosSinGV)

Ventas/ClientesAbonar.aspx.vb

@@ -992,8 +992,7 @@ Partial Class Ventas_ClientesAbonar
                                                     If ObjMov.DtResultados.Rows.Count > 0 Then
                                                         'Conta ContPAQ
                                                         IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
-                                                        'Conta SIG
+
-                                                        CveCuenta = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
                                                     End If
                                                 End If
 
@@ -1159,8 +1158,7 @@ Partial Class Ventas_ClientesAbonar
                                                     If ObjMov.DtResultados.Rows.Count > 0 Then
                                                         'Conta ContPAQ
                                                         IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
-                                                        'Conta SIG
+
-                                                        CveCuenta = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
                                                     End If
                                                 End If
                                             End If

Ventas/Ventas.aspx.vb

@@ -10734,8 +10734,6 @@ Partial Class Ventas
                                     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
 

vwd.webinfo

@@ -38,6 +38,10 @@
     
   
     
+  
+    
+  
+