diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 3da522499..85eb0934c 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -6311,7 +6311,7 @@ Public Class ClsContabilidad #Region "ESTADO RESULTADOS HORIZONTAL" - Public Function GetEstadosMensual(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer) As Boolean + Public Function GetEstadosMensual(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_EstadoResultadosMensual") @@ -6322,6 +6322,8 @@ Public Class ClsContabilidad .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 @@ -6337,7 +6339,7 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetEstadosMensualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer) As Boolean + Public Function GetEstadosMensualHorizontal(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_EstadoResultadosMensualHorizontal") @@ -6348,6 +6350,8 @@ Public Class ClsContabilidad .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 @@ -6364,7 +6368,7 @@ Public Class ClsContabilidad End Function - Public Function GetEstadosAnualHorizontal(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, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean Dim Retorno = False DataAdapter("PA_Conta2_EstadoResultadosAnualHorizontal") @@ -6375,6 +6379,8 @@ Public Class ClsContabilidad .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 @@ -6413,7 +6419,7 @@ Public Class ClsContabilidad 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()) + Me.OnError("Ocurrió un error al obtener el Estado de resultados SubProyectos horizontal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 8078f7a8f..f2c51cd15 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -767,16 +767,13 @@ - - - - - - -
- +
+ + CssClass="ADSCROLLER2 table table-striped table-advance table-hover" data-cols="1" data-heightmenos="300" + Style="margin-top: -10px; text-align: center;" GridLines="None"> @@ -786,7 +783,7 @@ - + @@ -840,7 +837,7 @@ - + <%----%>
@@ -979,28 +976,12 @@ -
+ + - - - - - - - - - - - - + + + diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index e9db997b4..c68aafc6f 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -394,7 +394,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatosMes = Nothing @@ -481,6 +481,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Private Sub SumaTotales() 'Llena Lb´s Totales LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero + LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) @@ -569,7 +570,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatosMesH = Nothing @@ -714,13 +715,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Sub Private Sub SumaTotalesMesH() - 'Llena Lb´s Totales - '********************************************************************************* - LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero - LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero + ''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) + 'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) + 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) End Sub @@ -811,7 +812,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatosAnualH = Nothing @@ -1015,13 +1016,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Sub Private Sub SumaTotalesAnualH() - 'Llena Lb´s Totales - '********************************************************************************* - LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero - LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero + ''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) + 'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) + 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) End Sub @@ -1279,38 +1280,42 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 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("Nombre") = "Totales:" '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 + Row.Item("CtaMayor") = -2 DTTotalesSubProyectoH.Rows.Add(Row) End If + DtIngresosSubProyectoH.Merge(DtGastosSubProyectoH) + DtIngresosSubProyectoH.Merge(DTTotalesSubProyectoH) + + GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH GvIngresosSubProyectoH.DataBind() - GvGastosSubProyectoH.DataSource = DtGastosSubProyectoH - GvGastosSubProyectoH.DataBind() + 'GvGastosSubProyectoH.DataSource = DtGastosSubProyectoH + 'GvGastosSubProyectoH.DataBind() - GvTotalesSubProyectoH.DataSource = DTTotalesSubProyectoH - GvTotalesSubProyectoH.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 + ''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) + 'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) + 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) End Sub @@ -1318,7 +1323,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 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 + If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray @@ -1327,6 +1332,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then 'e.Row.CssClass = "SubTotales3" e.Row.ControlStyle.Font.Bold = True + + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then + + e.Row.ControlStyle.Font.Bold = True + e.Row.ControlStyle.Font.Size = 13 End If 'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then @@ -1342,6 +1352,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If End If + End Sub Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)