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
@@ -6156,4 +6249,119 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 #End Region
+
+
+
+#Region "ESTADO RESULTADOS HORIZONTAL"
+
+
+    Public Function GetEstadosMensual(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta2_EstadoResultadosMensual")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Divisor", SqlDbType.Int).Value = Divisor
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        SqlAdapter.SelectCommand.CommandTimeout = 0
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener el Estado de resultados mensual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetEstadosMensualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta2_EstadoResultadosMensualHorizontal")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Divisor", SqlDbType.Int).Value = Divisor
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        SqlAdapter.SelectCommand.CommandTimeout = 0
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener el Estado de resultados mensual horizontal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta2_EstadoResultadosAnualHorizontal")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Divisor", SqlDbType.Int).Value = Divisor
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        SqlAdapter.SelectCommand.CommandTimeout = 0
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener el Estado de resultados anual horizontal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function GetEstadosSubProyectoHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta2_EstadoResultadosSubProyectolHorizontal")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Divisor", SqlDbType.Int).Value = Divisor
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+
+        End With
+
+        SqlAdapter.SelectCommand.CommandTimeout = 0
+
+        Try
+            SqlAdapter.Fill(DSet)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener el Estado de resultados anual horizontal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
 End Class

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"
@@ -4804,6 +4805,7 @@ Public Class ClsPaginas
 
             PaginaDict.Add("/Compras/RepCxPCaudillo.aspx".ToUpper(), -1)
 
+            PaginaDict.Add("/Contabilidad2/RepEstadoResultadosHorizontal.aspx".ToUpper(), -1)
 
             'ECOMMERCE
             PaginaDict.Add("/Ecommerce/Insignias.aspx".ToUpper(), 7002)

App_Code/ClsSisUsuarios.vb

@@ -3156,7 +3156,7 @@ End Class
 '            ' TODO: Establecer campos grandes como Null.
 '        End If
 '        Me.disposedValue = True
-'    End Sub
+'    End Sub 
 
 '#Region " IDisposable Support "
 '    ' Visual Basic agregó este código para implementar correctamente el modelo descartable.

App_Code/Modelos.vb

@@ -6175,7 +6175,7 @@ Namespace Modelos
 
         Public ReadOnly Property GlobalDTProductosServiciosEquivalencias(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer) As DataTable
             Get
-                Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa)
 
 
                 If CvePS <> -1 OrElse CveUM <> -1 Then
@@ -6599,7 +6599,7 @@ Namespace Modelos
 
         Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
             Get
-                Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
                 'sino existe, recarga los datos
                 If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0) Then
                     Dim P As New ClsSubProyectos
@@ -6631,7 +6631,7 @@ Namespace Modelos
 
             End Get
             Set(ByVal value As DataTable)
-                Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
                 HttpContext.Current.Application(AppNombre) = value
             End Set
         End Property
@@ -6995,7 +6995,7 @@ Namespace Modelos
         'Cliente
         Property GlobalDTCliente(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable
             Get
-                Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa)
                 'sino existe, recarga los datos
                 If HttpContext.Current.Application(AppNombre) Is Nothing Then
                     Dim ObjClientes As New ClsClientes
@@ -7019,7 +7019,7 @@ Namespace Modelos
                 End If
             End Get
             Set(value As DataTable)
-                Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa)
                 HttpContext.Current.Application(AppNombre) = value
                 'Dim ObjClientes As New ClsClientes
                 'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados
@@ -7028,7 +7028,7 @@ Namespace Modelos
         End Property
         Property GlobalDTClienteClasificaciones(CveEmpresa As Integer) As DataTable
             Get
-                Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa)
                 'sino existe, recarga los datos
                 If HttpContext.Current.Application(AppNombre) Is Nothing Then
                     Dim ObjClientes As New ClsClientes
@@ -7045,7 +7045,7 @@ Namespace Modelos
                 End If
             End Get
             Set(value As DataTable)
-                Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones{0}", CveEmpresa)
+                Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa)
                 HttpContext.Current.Application(AppNombre) = value
                 'Dim ObjClientes As New ClsClientes
                 'If ObjClientes.GetClienteClasificacion(CveEmpresa) Then Application(AppNombre) = ObjClientes.DtResultados

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()
@@ -565,7 +565,11 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             DTUM = DTUM.Where((Function(a) a!ClaveNombre.ToString.ToLower Like ("*" + Name.ToLower + "*")))
         End If
 
-        DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!Nombre).CopyToDataTable).ToTable(True, {"CveSATUnidadMedida", "ClaveNombre"})
+        If DTUM.Count > 0 Then
+            DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!Nombre).CopyToDataTable).ToTable(True, {"CveSATUnidadMedida", "ClaveNombre"})
+        Else
+            DtPSRetorno = Nothing
+        End If
 
         If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then
             DtPSRetorno.Columns("CveSATUnidadMedida").ColumnName = "id"
@@ -635,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
 
@@ -711,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

@@ -1372,10 +1372,17 @@ Partial Class Bancos_IE
         BtnGuardar.Enabled = True
     End Sub
 
-    Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
+    Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
-        'si solo es de egreso el movimiento debe de generar el siguiente folio.
+        'si solo es de egreso el movimiento debe de generar el siguiente folio.
+
+        Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
+        Dim ActualizaCuenta As Boolean = False
+
+        If (Not ExistenComplementosVigentes) And UsuarioActual.TienePermisoProceso(99) And BtnActualizar.Visible = True Then
+            ActualizaCuenta = True
+        End If
 
-        If HdnTipoTransaccion.Value = "Egs" AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Or Opcion = "DevDinC" Then
+        If HdnTipoTransaccion.Value = "Egs" AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Or Opcion = "DevDinC" Or ActualizaCuenta Then
 
             Dim Folio As Long
             Dim Banco As New ClsBancos
@@ -5608,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

@@ -1248,7 +1248,18 @@
                                         </div>
                                     </div>
                                     <div class="portlet-body">
-
+                                        <div id="DivAlmacenDev" runat="server" visible="false" class="row">
+                                            <div class="col-md-12">
+                                                <table width="325px">
+                                                    <tr>
+                                                        <td width="50px">Almacen:</td>
+                                                        <td width="250px">
+                                                            <asp:DropDownList ID="DdlAlmacenDevolucion" Style="width: 100%" AutoPostBack="true" runat="server" CssClass="form-control input-sm select2me " DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
+                                                        </td>
+                                                    </tr>
+                                                </table>
+                                            </div>
+                                        </div>
 
                                         <br />
                                         <asp:GridView ID="GVDevolucion" runat="server" DataKeyNames="CveMovimientoDetalle,CveAlmacen,Total,PU,Cantidad,CvePS,CveUM,UM,CveClasificacion,Clasificacion,PS,CveTipoPS" ShowFooter="true" GridLines="None" AutoGenerateColumns="false" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" Width="100%" CssClass="table table-striped table-hover  Widthall">
@@ -2804,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%" />
@@ -4926,8 +4937,8 @@
                                         <label class="col-md-2" style="margin-top: 5px;">Factura de:</label>
                                         <div class="col-md-6" align="center">
                                             <asp:RadioButtonList ID="RblFleteImportacionOpcion" CssClass="iradio_square-blue" runat="server" RepeatDirection="Horizontal" Width="100%">
-                                                <asp:ListItem Value="1" Selected="True">Productos</asp:ListItem>
+                                            <%--    <asp:ListItem Value="1" Selected="True">Productos</asp:ListItem>
-                                                <asp:ListItem Value="2">Gastos</asp:ListItem>
+                                                <asp:ListItem Value="2">Gastos</asp:ListItem>--%>
                                             </asp:RadioButtonList>
                                         </div>
                                     </div>

Compras/Compras.aspx.vb

@@ -8040,7 +8040,7 @@ Partial Class Compras_Compras
                                         If UsuarioActual.Empresa.UsaAC Then
                                             MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
                                         Else
-                                            MsgAccionAceptar = "If (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
+                                            MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
                                         End If
                                     Else
                                         MsgAccionAceptar = "location.href =""Compras.aspx"""
@@ -19089,6 +19089,7 @@ Partial Class Compras_Compras
     Private Sub CargaCombosFletesImportaciones()
         DdlFletes.Items.Clear()
         DdlImportaciones.Items.Clear()
+        RblFleteImportacionOpcion.Items.Clear()
 
         Dim ObjCompras As New ClsCompras
         If ObjCompras.GetImportaciones(-1, -1, -1, "-1", "-1", UsuarioActual.CveEmpresa) Then
@@ -19107,6 +19108,13 @@ Partial Class Compras_Compras
         DdlImportaciones.DataBind()
         DdlFletes.DataBind()
 
+        If DdlTipoComprobante.SelectedValue = "NC" Then
+            RblFleteImportacionOpcion.Items.Insert(0, New ListItem("Gastos", "2"))
+        Else
+            RblFleteImportacionOpcion.Items.Insert(0, New ListItem("Productos", "1"))
+            RblFleteImportacionOpcion.Items.Insert(1, New ListItem("Gastos", "2"))
+        End If
+
     End Sub
 
     Private Sub LnkFletesImportaciones_Click(sender As Object, e As EventArgs) Handles LnkFletesImportaciones.Click

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

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -51,9 +51,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
         DdlClientes.setEsWebService(True)
 
-        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+        DdlPersonal.setEsWebService(True)
-            DdlPersonal.DataSource = ObjRH.DtResultados
+        'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-        End If
+        '    DdlPersonal.DataSource = ObjRH.DtResultados
+        'End If
 
         If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then
             DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
@@ -73,7 +74,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlCconceptosContables.DataBind()
         DdlCuenta.DataBind()
         DdlProveedor.DataBind()
-        DdlPersonal.DataBind()
+        'DdlPersonal.DataBind()
         DdlClasificacion.DataBind()
         DdlAlmacen.DataBind()
 
@@ -94,6 +95,29 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero
         TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
         TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
+        Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
+        Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
+
+        If CveCliente > 0 Then
+            DdlClientes.setEsWebService(False)
+            Dim ObjCliente As New ClsClientes
+            If ObjCliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+                DdlClientes.ddl.DataSource = ObjCliente.DtResultados
+            End If
+            DdlClientes.ddl.DataBind()
+            DdlClientes.ddl.SelectedValue = CveCliente
+        End If
+
+        If CvePersonal > 0 Then
+            DdlPersonal.setEsWebService(False)
+            Dim ObjPersonal As New ClsRH
+            If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
+                DdlPersonal.ddl.DataSource = ObjPersonal.DtResultados
+            End If
+            DdlPersonal.ddl.DataBind()
+            DdlPersonal.ddl.SelectedValue = CvePersonal
+        End If
+
         LbAgregar.Text = "Actualizar"
         UpModalModulos.Update()
         RegistraScript("$('#ModalCat').modal();")
@@ -105,6 +129,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         If ObjConta.RemoveCuentasAsignaciones(GvRow.DataKey("CveCuentaAsignacion").ToEntero) Then
             Alert("se elimino correctamente")
         End If
+        CargaDatos()
+        UpDatos.Update()
         ObjConta.Dispose()
     End Sub
 
@@ -117,6 +143,12 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlAlmacen.SelectedValue = -1
         TxtIdCuentaContable.Text = ""
         TxtPorcentajeIVA.Text = ""
+        DdlClientes.ddl.DataSource = ""
+        DdlClientes.ddl.DataBind()
+        DdlClientes.setEsWebService(True)
+        DdlPersonal.ddl.DataSource = ""
+        DdlPersonal.ddl.DataBind()
+        DdlPersonal.setEsWebService(True)
         LbAgregar.Text = "Agregar"
         UpModalModulos.Update()
         RegistraScript("$('#ModalCat').modal();")
@@ -126,13 +158,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         Dim ObjConta As New ClsContabilidad
         Dim ErrorString As String = ""
         If LbAgregar.Text = "Agregar" Then
-            If ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
+            If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
                 ErrorString = "Error al Agregar"
             End If
         ElseIf LbAgregar.Text = "Actualizar" Then
-            If ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
+            If Not ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
                 ErrorString = "Error al Actualizar"
@@ -142,6 +174,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         RegistraScript("$('#ModalCat').modal('hide');")
         If ErrorString.Length > 0 Then
             Alert(ErrorString)
+        Else
+            Alert("Agregado correctamente")
         End If
+        CargaDatos()
+        UpDatos.Update()
     End Sub
 End Class

General/SaldosIniciales.aspx.vb

@@ -1432,7 +1432,7 @@ Partial Class General_SaldosIniciales
                             End If
                             CveVenta = ObjVentas.CveVenta
 
-                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, -1, 0, PorcentajeIVA:=PorcentajeIVA) Then
+                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero, 0, PorcentajeIVA:=PorcentajeIVA) Then
                                 ErrorVentas = True
                                 Exit For
                             End If
@@ -1453,7 +1453,7 @@ Partial Class General_SaldosIniciales
                             'PrePólizaDetalle
                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SubTotal, Folio.ToString, 4, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=Sucursal.ToEntero) Then ErrorVentas = True : Exit For
                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Folio.ToString, ConceptoContable, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total) Then ErrorVentas = True : Exit For
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IVA) Then ErrorVentas = True : Exit For
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IVA, PorcentajeImpuesto:=PorcentajeIVA) Then ErrorVentas = True : Exit For
                             'If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, Folio.ToString, 38, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IEPS) Then ErrorVentas = True : Exit For
 
 

Inventarios/Fletes.aspx

@@ -140,6 +140,7 @@
                                         <Columns>
                                             <asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-Width="30%" />
                                             <asp:HyperLinkField HeaderText="Serie-Folio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="SerieFolio" ItemStyle-Width="10%" Target="_blank" />
+                                            <asp:BoundField HeaderText="Tipo" DataField="TipoDocto" DataFormatString="{0:d}" ItemStyle-Width="10%" />
                                             <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="10%" />
                                             <asp:BoundField HeaderText="Descripción" DataField="Descripcion" ItemStyle-Width="20%" />
                                             <asp:BoundField HeaderText="Importe" DataField="SubTotal" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1456,7 +1456,9 @@ Partial Class Inventarios_TraspasoAlmacen
             BtnCancelarTraspaso.Visible = False
         Else
             BtnRecibir.Visible = True
-            BtnCancelarTraspaso.Visible = True
+            If UsuarioActual.TienePermisoProceso(290) Then
+                BtnCancelarTraspaso.Visible = True
+            End If
         End If
 
 

Sistemas/UsuarioDetalle.aspx

@@ -2470,7 +2470,7 @@
                             <div class="col-md-3" style="max-width: 150px;">
                                 IP:
                             </div>
-                            <div class="col-md-3">
+                            <div class="col-md-4">
                                 <asp:TextBox ID="TxtIP" Text="" runat="server" />
                             </div>
                         </div>
@@ -2478,11 +2478,11 @@
                             <div class="col-md-3" style="max-width: 150px;">
                                 Mac:
                             </div>
-                            <div class="col-md-3">
+                            <div class="col-md-4">
                                 <asp:TextBox ID="TxtMAC" Text="" runat="server" />
                             </div>
                             <div class="col-md-3">
-                                <asp:LinkButton ID="LnkAutorizarEquipo" OnClick="LnkAutorizarEquipo_Click" CssClass="btn btn-success" runat="server">Vincular</asp:LinkButton>
+                                <asp:LinkButton ID="LnkAutorizarEquipo" OnClick="LnkAutorizarEquipo_Click" CssClass="btn-sm btn-success" runat="server">Vincular</asp:LinkButton>
 
                             </div>
                         </div>

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

@@ -8767,12 +8767,16 @@ Partial Class Ventas
         Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
         Timbre.Comprobante.Total = Obj.Total
 
-        Try
+        'Try
-            Obj.SetSubProyecto(Me)
+        'Obj.SetSubProyecto(Me)
-            Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
+        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
-        Catch ex As Exception
+            If Timbre.Comprobante.LugarExpedicion = "" Then
+                Dim aa As String = "no se guardo lugar de expedicion"
+                aa.GuardaLog()
+            End If
+        'Catch ex As Exception
 
-        End Try
+        'End Try
 
         Timbre.Comprobante.Confirmacion = ""
 
@@ -10730,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
 
@@ -14854,7 +14856,7 @@ Partial Class Ventas
                     DrPoliza("PorcentajeIEPS") = DrPSAdicional("IEPSPorcentaje")
                     DrPoliza("ImporteIEPS") = Math.Round(DrPSAdicional("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
                     DrPoliza("IEPS") = DrPoliza("ImporteIEPS")
-                    DrPoliza("Descuento") = Descuento
+                    DrPoliza("Descuento") = 0 ' Descuento
                     DrPoliza("TipoDescuento") = HdnTipoDescuento.Value
                     DrPoliza("Total") = (DrPoliza("Cantidad").ToString.ToDecimal * PU)
                     DrPoliza("TotalImporte") = Math.Round(DrPoliza("Cantidad").ToString.ToDecimal * PU, NumeroDecimales)