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