AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- correción en visualización de gráficas

Browse Source
This commit is contained in:
rrene
2023-10-25 19:43:06 -07:00
parent c51bc18ea6
commit a32120285e
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -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