From a3324b4802fb8894f94d98411756a56ca3535095 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Thu, 2 Apr 2020 11:23:34 -0700 Subject: [PATCH] Estado Resultados Subproyectos --- App_Code/ClsContabilidad.vb | 14 ++-- .../RepEstadoResultadosHorizontal.aspx | 41 +++--------- .../RepEstadoResultadosHorizontal.aspx.vb | 67 +++++++++++-------- 3 files changed, 60 insertions(+), 62 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index a7dc225b4..01bde11e2 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -6255,7 +6255,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") @@ -6266,6 +6266,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 @@ -6281,7 +6283,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") @@ -6292,6 +6294,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 @@ -6308,7 +6312,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") @@ -6319,6 +6323,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 @@ -6357,7 +6363,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)