Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsContabilidad.vb

@@ -5887,21 +5887,21 @@ Public Class ClsContabilidad
         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,
+    Public Function AddContaEjercicio(FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = 0,
                                       Optional CveCuentaCierre As Integer = -1, Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1,
-                                      Optional Estatus As Integer = -1) As Boolean
+                                      Optional Estatus As Boolean = False) 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("@PeriodoActual", SqlDbType.TinyInt).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("@Estatus", SqlDbType.Bit).Value = Estatus
-            .Add("@FechaIng", SqlDbType.Int).Value = FechaIng
+            .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
@@ -5916,20 +5916,20 @@ Public Class ClsContabilidad
         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,
+    Public Function UpdateContaEjercicio(CveEjercicio As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = 0, Optional CveCuentaCierre As Integer = -1,
-                                         Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional Estatus As Integer = -1) As Boolean
+                                         Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional Estatus As Boolean = False) As Boolean
         Dim Retorno = False
 
-        DataAdapter("PA_Conta_ContaEjerciciosAdd")
+        DataAdapter("PA_Conta_ContaEjerciciosUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEjercicio", SqlDbType.Int).Value = CveEjercicio
             .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
-            .Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual
+            .Add("@PeriodoActual", SqlDbType.TinyInt).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("@Estatus", SqlDbType.Bit).Value = Estatus
         End With
 
         Try
@@ -5942,13 +5942,13 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function RemoveContaEjercicio(CveEmpresa As Integer) As Boolean
+    Public Function RemoveContaEjercicio(CveEjercicio As Integer) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_ContaEjerciciosDelete")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveEjercicio", SqlDbType.Int).Value = CveEjercicio
         End With
 
         Try
@@ -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
@@ -6308,7 +6333,7 @@ Public Class ClsContabilidad
     End Function
 
 
-    Public Function GetEstadosAnuallHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer) As Boolean
+    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")
@@ -6334,5 +6359,34 @@ Public Class ClsContabilidad
         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

@@ -5138,55 +5138,44 @@ Public Class ClsPaginas
         'limpio ReportViwer   
         Dim sw As New System.Diagnostics.Stopwatch()
         sw.Start()
-        'Dim Bytes As Byte() = Nothing
-        'Try
-        '    Dim fllreport As New ADSReportLib.FullTrustReportviewer()
-        '    fllreport.Initialize("DisplayName", RutaReporte, Parametros, New List(Of String()), True)
-        '    For Each RDS As ReportDataSource In DataSource
-        '        fllreport.AddDataSources(RDS)
-        '    Next
-        '    Dim Warnings As Warning() = Nothing
-        '    Dim StreamIds As String() = Nothing
-        '    Dim MimeType As String = Nothing
-        '    Dim Encoding As String = Nothing
-        '    Dim Extension As String = Nothing
-        '    Bytes = fllreport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings)
-        '    fllreport = Nothing
-        'Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException
-        '    GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) }  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
-        '    'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
-        '    'GuardaLog($"Error: {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}")
-        'Catch ex As Exception
-        '    GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) }  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
-        ''HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
-        ''GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}")
-        'End Try
-
-        If IsNothing(MR) Then MR = New ReportViewer
-
         Dim Bytes As Byte() = Nothing
+
+
+        Dim setup As AppDomainSetup = New AppDomainSetup
+        With setup
+            .ApplicationBase = Environment.CurrentDirectory
+            .LoaderOptimization = LoaderOptimization.MultiDomainHost
+        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)
 
+            'For Each _ReportDataSource As ReportDataSource In DataSources
+            '    rvNextgenReport2.AddDataSources(_ReportDataSource.Name, CType(_ReportDataSource.Value, DataTable))
+            'Next
+
+            'Return rvNextgenReport2.Render(reportRenderFormat, DeviceInfo)
+            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
+                RutaReporte = String.Format("{0}{1}", bdir, RutaReporte)
+            End If
+            fllreport.Initialize("DisplayName", RutaReporte, Parametros.AsEnumerable(), New List(Of String()), True)
             For Each RDS As ReportDataSource In DataSource
-                MR.LocalReport.DataSources.Add(RDS)
+                fllreport.AddDataSources(RDS.Name, DirectCast(RDS.Value, DataTable))
             Next
-            'Dim permissions As New Security.PermissionSet(Security.Permissions.PermissionState.None)
-            'permissions.AddPermission(New Security.Permissions.FileIOPermission(Security.Permissions.PermissionState.Unrestricted))
-            'permissions.AddPermission(New Security.Permissions.SecurityPermission(Security.Permissions.SecurityPermissionFlag.Execution))
-            'MR.LocalReport.SetBasePermissionsForSandboxAppDomain(permissions)
-
-            MR.LocalReport.ReportPath = RutaReporte
-            MR.ProcessingMode = ProcessingMode.Local
-            MR.LocalReport.EnableExternalImages = True
-            MR.LocalReport.SetParameters(Parametros)
-            MR.LocalReport.Refresh()
             Dim Warnings As Warning() = Nothing
             Dim StreamIds As String() = Nothing
             Dim MimeType As String = Nothing
             Dim Encoding As String = Nothing
             Dim Extension As String = Nothing
-            Bytes = MR.LocalReport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings)
+            Bytes = fllreport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds)
-
+            fllreport = Nothing
         Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException
             GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) }  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
             'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
@@ -5195,9 +5184,10 @@ Public Class ClsPaginas
             GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) }  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
             'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
             'GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}")
+        Finally
+            AppDomain.Unload(_casPolicyEnabledDomain)
         End Try
-        MR.LocalReport.ReleaseSandboxAppDomain()
+        If fllreport IsNot Nothing Then fllreport.liberarecursos()
-        MR.Dispose()
 
         sw.Stop()
         If sw.Elapsed.TotalSeconds > 10 Then

Bancos/IE.aspx.vb

@@ -1375,7 +1375,14 @@ Partial Class Bancos_IE
     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.
 
-        If HdnTipoTransaccion.Value = "Egs" AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Or Opcion = "DevDinC" Then
+        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" Or ActualizaCuenta Then
 
             Dim Folio As Long
             Dim Banco As New ClsBancos

Contabilidad2/CatContaEjercicios.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 Contabilidad Ejercicio"></asp:LinkButton>
             </li>
 
         </ContentTemplate>
@@ -23,6 +23,89 @@
 <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()%>">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: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>

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>

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -61,7 +61,7 @@
                                 <label class="col-md-2" style="width: 80px;"  runat="server" id="LiSubProyectoLbl"  >SubProyecto: </label>
                                 <div class="col-md-2 " runat="server" id="LiSubProyectoDdl">
                                     <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
-                                        <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                        <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                     </asp:DropDownList>
                                 </div>
  
@@ -768,13 +768,243 @@
         <ajax:TabPanel ID="TabSubProyecto" runat="server" HeaderText="Sub Proyecto H.">
             <ContentTemplate>
 
+
+                  <table style="width: 100%;" class="table table-striped table-advance table-hover">
+                    <tr>
+                        <td width="100%" padding="0">
+                            <asp:UpdatePanel ID="UpDatosSubProyectoH" UpdateMode="Conditional" runat="server">
+                                <ContentTemplate>
+
+                                    <asp:GridView ID="GvIngresosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvIngresosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true" 
+                                         Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                        <Columns>
+                                            <asp:TemplateField>
+                                                <ItemTemplate>
+                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                </ItemTemplate>
+                                                <ItemStyle HorizontalAlign="Left" />
+                                                <HeaderTemplate>
+                                                    <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="INGRESOS Y OTROS BENEFICIOS"></asp:Label>
+                                                </HeaderTemplate>
+                                                <HeaderStyle HorizontalAlign="Left" Width="400px" />
+                                            </asp:TemplateField>
+
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+
+
+                                            <%--<asp:TemplateField HeaderText="Período Actual">
+                                                <ItemTemplate>
+                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    
+                                                </ItemTemplate>
+                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
+                                            </asp:TemplateField>--%>
+
+                                            <%--<asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
+                                            <asp:TemplateField HeaderText="Acumulado">
+                                                <ItemTemplate>
+                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                </ItemTemplate>
+                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
+                                            </asp:TemplateField>
+                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                                        </Columns>
+                                    </asp:GridView>
+                                    <br />
+                                    <br />
+                                    <asp:GridView ID="GvGastosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvGastosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                        <Columns>
+
+                                            <asp:TemplateField>
+                                                <ItemTemplate>
+                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                </ItemTemplate>
+                                                <ItemStyle HorizontalAlign="Left" />
+                                                <HeaderTemplate>
+                                                    <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="GASTOS Y OTRAS PÉRDIDAS"></asp:Label>
+                                                </HeaderTemplate>
+                                                <HeaderStyle HorizontalAlign="Left" Width="400px" />
+                                            </asp:TemplateField>
+
+                                             <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+
+                                          
+                                            <%--  <asp:TemplateField HeaderText="Período Actual">
+                                                <ItemTemplate>
+                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                </ItemTemplate>
+                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
+                                            </asp:TemplateField>--%>
+
+                                            <%-- <asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
+                                            <asp:TemplateField HeaderText="Acumulado">
+                                                <ItemTemplate>
+                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                </ItemTemplate>
+                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
+                                            </asp:TemplateField>
+                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                                        </Columns>
+
+                                    </asp:GridView>
+                                    <br />
+                                    <br />
+                                    <asp:GridView ID="GvTotalesSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvTotalesSubProyectoH_RowDataBound"  ShowHeader="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                        <Columns>
+
+                                            <asp:TemplateField>
+                                                <ItemTemplate>
+                                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                                </ItemTemplate>
+                                                <ItemStyle HorizontalAlign="Left" />
+                                                <HeaderTemplate>
+                                                    <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="Totales"></asp:Label>
+                                                </HeaderTemplate>
+                                                <ItemStyle HorizontalAlign="Left" Width="400px" />
+                                            </asp:TemplateField>
+
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+                                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
+
+
+                                            <asp:TemplateField HeaderText="Acumulado">
+                                                <ItemTemplate>
+                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                </ItemTemplate>
+                                                <ItemStyle Width="150px" HorizontalAlign="Right" />
+                                            </asp:TemplateField>
+                                            <asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
+                                        </Columns>
+
+                                    </asp:GridView>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </td>
+                    </tr>
+                </table>
+
+                <asp:UpdatePanel ID="UpdatePanel1" runat="server">
+                    <ContentTemplate>
+                        <table class="table table-striped table-hover Widthall" style="display: none">
+                            <tr>
+                                <td align="center">
+                                    <h4>Resultados del Ejercicio:</h4>
+                                </td>
+                                <td width="30%" align="right">
+                                    <asp:Label runat="server" Font-Bold="true" ID="Label3"></asp:Label>
+                                </td>
+                                <td width="30%" align="right">
+                                    <asp:Label runat="server" Font-Bold="true" ID="Label4"></asp:Label>
+                                </td>
+                                <td width="12%" align="right"></td>
+                            </tr>
+                        </table>
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+
+
             </ContentTemplate>
         </ajax:TabPanel>
-
-
-
-
-
     </ajax:TabContainer>
     
 

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -171,6 +171,62 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         End Set
     End Property
 
+#End Region
+
+#Region " S U B P R O Y E C T O  H O R I Z O N T A L "
+
+    Private Property DtDatosSubProyectoH As DataTable
+        Get
+            DtDatosSubProyectoH = DirectCast(ViewState("DtDatosSubProyectoH"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtDatosSubProyectoH") = value
+        End Set
+    End Property
+
+    Private Property DtIngresosSubProyectoH As DataTable
+        Get
+            DtIngresosSubProyectoH = DirectCast(ViewState("DtIngresosSubProyectoH"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtIngresosSubProyectoH") = value
+        End Set
+    End Property
+
+    Private Property DtGastosSubProyectoH As DataTable
+        Get
+            DtGastosSubProyectoH = DirectCast(ViewState("DtGastosSubProyectoH"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtGastosSubProyectoH") = value
+        End Set
+    End Property
+
+    Private Property DTTotalesSubProyectoH As DataTable
+        Get
+            DTTotalesSubProyectoH = DirectCast(ViewState("DTTotalesSubProyectoH"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DTTotalesSubProyectoH") = value
+        End Set
+    End Property
+
+    Private Property DTSubProyectosCabecerasH As DataTable
+
+        Get
+            DTSubProyectosCabecerasH = DirectCast(ViewState("DTSubProyectosCabecerasH"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DTSubProyectosCabecerasH") = value
+        End Set
+
+    End Property
+
 #End Region
 
 
@@ -188,6 +244,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             'TxtFechaFin.Text = Date.Now.ToShortDateString
             CargaEjercicios()
 
+            DdlSubproyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+            DdlSubproyecto.DataBind()
+
             ' CargaDatos()
         End If
     End Sub
@@ -312,7 +371,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         'SUBPROYECTO
         If Tab.ActiveTabIndex = 3 Then
-
+            CargaDatosSubProyectoH()
         End If
 
 
@@ -521,6 +580,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         If DtDatosMesH IsNot Nothing Then
             CargaGridsMesH()
             SumaTotalesMesH()
+        Else
+
         End If
 
     End Sub
@@ -615,23 +676,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             Row = DTTotalesMesH.NewRow
 
-            Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")
+            Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")
+            Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")
+            Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")
+            Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")
+            Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")
+            Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")
+            Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")
+            Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")
+            Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")
+            Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
+            Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)")
-            Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
+            Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)")
 
             Row.Item("Nombre") = "Resultados del Ejercicio:"
             'Row.Item("ImporteActual") = TotalActual.ToString
             'Row.Item("PorcentajeActual") = "100.00"
-            Row.Item("ImporteAcumulado") = TotalAnterior.ToString
+            Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString
             'Row.Item("PorcentajeAcumulado") = "100.00"
             'Row.Item("CtaMayor") = -1
 
@@ -750,7 +811,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosAnuallHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatosAnualH = Nothing
@@ -926,13 +987,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             IndexData = 13
             For IndexData = 13 To IndexMax
-                Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+                Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
             Next
 
             Row.Item("Nombre") = "Resultados del Ejercicio:"
             'Row.Item("ImporteActual") = TotalActual.ToString
             'Row.Item("PorcentajeActual") = "100.00"
-            Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM($"ImporteAcumulado", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM($"ImporteAcumulado", "NOT CtaMayor in (3,4)")
+            Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
             'Row.Item("PorcentajeAcumulado") = "100.00"
             'Row.Item("CtaMayor") = -1
 
@@ -1038,7 +1099,293 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 #End Region
 
 
+#Region "S U B P R O Y E C T O  H O R I Z O N T A L"
 
+    Private Sub CargaDatosSubProyectoH()
+
+
+        FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
+        FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}"
+        FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy")
+
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+
+
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+            DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0)
+            DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
+        Else
+            DtDatosSubProyectoH = Nothing
+            Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError)
+        End If
+        ObjConta.Dispose()
+
+        If DtDatosSubProyectoH IsNot Nothing And DTSubProyectosCabecerasH IsNot Nothing Then
+            CargaGridsSubProyectoH()
+            SumaTotalesSubProyectoH()
+        End If
+
+    End Sub
+
+    Private Sub CargaGridsSubProyectoH()
+
+        DtIngresosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='H' ")
+        DtGastosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='G' ")
+        DTTotalesSubProyectoH = DtDatosSubProyectoH.Clone()
+
+        Dim Row As DataRow = DtIngresosSubProyectoH.NewRow
+
+        Dim TotalActual = 0.0, TotalAnterior = 0.0
+
+
+        Dim IndexData As Integer = 0
+        Dim IndexGv As Integer = 1
+        Dim IndexMax As Integer = 1
+        Dim IndexSubProyecto = 0
+        Dim IndexSubProyectoMAx As Integer = DTSubProyectosCabecerasH.Rows.Count - 1
+        Dim IndexTotatles As Integer = 13 + IndexSubProyectoMAx
+
+        If DtIngresosSubProyectoH.Rows.Count > 0 Then
+
+
+
+
+            For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns
+
+                If IndexData >= 13 Then
+
+                    If IndexSubProyecto <= IndexSubProyectoMAx Then
+
+                        CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                        GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
+
+                        CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
+
+                        If IndexSubProyecto <= IndexSubProyectoMAx Then
+                            CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
+                            CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
+                            CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
+                        End If
+
+                    Else
+                        GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
+                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
+                    End If
+
+                    IndexGv = IndexGv + 1
+                    IndexSubProyecto = IndexSubProyecto + 1
+                    IndexMax = IndexMax + 1
+
+                End If
+                IndexData = IndexData + 1
+            Next
+
+
+            For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            IndexData = 13
+            For IndexData = 13 To IndexTotatles
+                Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL INGRESOS "
+            Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")  'TotalActual.ToString
+            Row.Item("PorcentajeActual") = "100.00"
+            Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
+            Row.Item("PorcentajeAcumulado") = "100.00"
+            Row.Item("CtaMayor") = -1
+            DtIngresosSubProyectoH.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL INGRESOS "
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("CtaMayor") = -1
+            DtIngresosSubProyectoH.Rows.Add(Row)
+        End If
+
+        Dim T1 = TotalActual, T2 = TotalAnterior
+
+        TotalActual = 0
+        TotalAnterior = 0
+
+        Row = DtGastosSubProyectoH.NewRow
+
+        If DtGastosSubProyectoH.Rows.Count > 0 Then
+
+
+            IndexData = 0
+            IndexGv = 1
+            IndexMax = 0
+            IndexSubProyecto = 0
+
+            For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns
+                If IndexData >= 13 Then
+                    If IndexSubProyecto <= IndexSubProyectoMAx Then
+                        CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                        GvGastosSubProyectoH.Columns(IndexGv).Visible = True
+                        CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
+                    Else
+                        GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
+                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
+                    End If
+
+                    IndexGv = IndexGv + 1
+                    IndexSubProyecto = IndexSubProyecto + 1
+                End If
+                IndexData = IndexData + 1
+            Next
+
+
+
+            For Each dr As DataRow In DtGastosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+                TotalActual += dr("ImporteActual").ToString.ToDouble
+                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
+            Next
+
+            IndexData = 13
+            For IndexData = 13 To IndexTotatles
+                Row.Item(IndexData) = DtGastosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+            Next
+
+            Row.Item("Nombre") = "TOTAL GASTOS"
+            Row.Item("ImporteActual") = TotalActual
+            Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero
+            Row.Item("ImporteAcumulado") = TotalAnterior.ToString
+            Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero
+            Row.Item("CtaMayor") = -1
+            DtGastosSubProyectoH.Rows.Add(Row)
+        Else
+            Row.Item("Nombre") = "TOTAL GASTOS"
+            Row.Item("ImporteActual") = "0.00"
+            Row.Item("ImporteAcumulado") = "0.00"
+            Row.Item("CtaMayor") = -1
+            DtGastosSubProyectoH.Rows.Add(Row)
+        End If
+
+        If DtIngresosSubProyectoH.Rows.Count > 0 Then
+
+            Row = DTTotalesSubProyectoH.NewRow
+
+
+
+            IndexData = 13
+            For IndexData = 13 To IndexTotatles
+                Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
+            Next
+
+            Row.Item("Nombre") = "Resultados del Ejercicio:"
+            'Row.Item("ImporteActual") = TotalActual.ToString
+            'Row.Item("PorcentajeActual") = "100.00"
+            Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+            'Row.Item("PorcentajeAcumulado") = "100.00"
+            'Row.Item("CtaMayor") = -1
+
+            DTTotalesSubProyectoH.Rows.Add(Row)
+
+        End If
+
+        GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH
+        GvIngresosSubProyectoH.DataBind()
+
+        GvGastosSubProyectoH.DataSource = DtGastosSubProyectoH
+        GvGastosSubProyectoH.DataBind()
+
+        GvTotalesSubProyectoH.DataSource = DTTotalesSubProyectoH
+        GvTotalesSubProyectoH.DataBind()
+
+        UpDatosSubProyectoH.Update()
+
+    End Sub
+
+    Private Sub SumaTotalesSubProyectoH()
+        'Llena Lb´s Totales
+        '*********************************************************************************
+        LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
+        LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
+
+        LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
+        LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
+
+
+    End Sub
+
+    Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
+                TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
+                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
+                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
+                e.Row.ControlStyle.Font.Bold = True
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
+                'e.Row.CssClass = "SubTotales3"
+                e.Row.ControlStyle.Font.Bold = True
+            End If
+
+            'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
+            '    e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+            '    e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+            'End If
+
+            'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
+            '    e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+            'End If
+
+            If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
+            End If
+        End If
+    End Sub
+
+    Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
+                TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
+                TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
+                'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
+                'e.Row.ControlStyle.ForeColor = Drawing.Color.White
+                e.Row.ControlStyle.Font.Bold = True
+            ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
+                'e.Row.CssClass = "SubTotales"
+                e.Row.ControlStyle.Font.Bold = True
+            End If
+
+            'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
+            '    e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+            '    e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+            'End If
+
+            'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
+            '    e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+            'End If
+
+            If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
+                e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
+            End If
+        End If
+    End Sub
+
+    Protected Sub GvTotalesSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.Header Then
+            '  e.Row.Attributes.Add("style", "display:none")
+        End If
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            e.Row.Attributes.Add("style", "Font-weight: bold")
+        End If
+
+    End Sub
+
+#End Region
 
 
 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

Inventarios/RecepcionEntrega.aspx.vb

@@ -260,6 +260,15 @@ Partial Class Inventarios_RecepcionEntrega
         End Set
     End Property
 
+    Private Property EsDevolucionDirecta As Boolean
+        Get
+            Return CBool(If(ViewState("EsDevolucionDirecta") Is Nothing, 0, ViewState("EsDevolucionDirecta")))
+        End Get
+        Set(value As Boolean)
+            ViewState("EsDevolucionDirecta") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -639,6 +648,19 @@ Partial Class Inventarios_RecepcionEntrega
                             Alert("La Venta original de la Devolución no tiene salida de Almacén.", TipoMensaje.MsgAdvertencia)
                         End If
 
+                        If TipoDocto.Contiene("Ing") AndAlso TipoMovimiento = 2 Then
+                            Dim DtMov As DataTable = DtExistencias.FiltraParametros("CveConcepto = 40", "", {"CveAlmacen"})
+                            If DtMov.Rows.Count > 0 Then
+                                Dim CveAlmacenDev As Integer = DtMov.Rows(0)("CveAlmacen").ToString().ToEntero()
+                                DdlAlmacen.Items.Clear()
+                                DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveAlmacen = {CveAlmacenDev}")
+                                DdlAlmacen.DataBind()
+
+                                DdlAlmacen.SelectedValueExist(CveAlmacenDev)
+                                EsDevolucionDirecta = True
+                            End If
+                        End If
+
                     Else
                         Alert("Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar.", TipoMensaje.MsgError)
                     End If
@@ -1896,6 +1918,11 @@ Partial Class Inventarios_RecepcionEntrega
                     CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero
                 End If
 
+                'DEVOLUCION DIRECTA A ENTREGA POR ADELANTADO
+                If TipoMovimiento = 2 And ConceptoMovimiento = 18 AndAlso EsDevolucionDirecta Then
+                    ConceptoMovimiento = 41
+                End If
+
                 CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text,
                                                         CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Modulo:="RE/G7")
                 Folio = ObjInventario.Folio