From a32120285ef496bdcc15dfee2778b393bd2d6a60 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 25 Oct 2023 19:43:06 -0700 Subject: [PATCH] =?UTF-8?q?--=20correci=C3=B3n=20en=20visualizaci=C3=B3n?= =?UTF-8?q?=20de=20gr=C3=A1ficas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 381008825..e11cceb97 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -2060,15 +2060,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If dColumn.ColumnName.ToEntero > 0 Then If DtDatosSubProyectoH.MAX(String.Format("[{0}]", dColumn.ColumnName)).ToDecimal = 0 Then ColumnasEliminar.Add(dColumn.ColumnName) - 'DtDatosSubProyectoH.Columns.Remove(dColumn.ColumnName) End If End If - Next If ColumnasEliminar.Count > 0 Then For Each columna As String In ColumnasEliminar DtDatosSubProyectoH.Columns.Remove(columna) + Dim drrs As DataRow() = DTSubProyectosCabecerasH.Select($"CveSubProyecto = {columna}") 'limpio los valores + For Each drt As DataRow In drrs + DTSubProyectosCabecerasH.Rows.Remove(drt) + Next Next End If @@ -2162,14 +2164,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True End If - If dColumn.ColumnName = "SinSubProyecto" Then GvIngresosSubProyectoH.Columns(IndexGv).Visible = False GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = False End If - End If - listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()}) + listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {dColumn.ColumnName}")}) End If Else