Limpiar DtColor redundante

-Se estaba creando un DataTable cuando solo se ocupa un String[]
-Se metió a ClsPaginas, esto limpia bastante el código
This commit is contained in:
MLopez
2023-02-03 19:50:34 -07:00
parent a8bb0a8e41
commit 5f5cfdd48d
23 changed files with 52 additions and 1531 deletions

View File

@@ -5,22 +5,6 @@ Imports MoreLinq
Partial Class General_RepIndicadorResumen
Inherits ClsPaginas
#Region "propiedades"
#If False Then
Private Property DtColor As DataTable
Get
If ViewState("DtColor") Is Nothing Then
Return New DataTable
Else
Return DirectCast(ViewState("DtColor"), DataTable)
End If
End Get
Set(value As DataTable)
ViewState("DtColor") = value
End Set
End Property
#End If
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
CargaCombos()
@@ -221,29 +205,6 @@ Partial Class General_RepIndicadorResumen
End If
End If
End Sub
#If False Then
Private Sub CreaDataTableColor()
DtColor = New DataTable
DtColor.Columns.Add("Color")
DtColor.Rows.Add("#FF0F00")
DtColor.Rows.Add("#FF6600")
DtColor.Rows.Add("#FF9E01")
DtColor.Rows.Add("#FCD202")
DtColor.Rows.Add("#F8FF01")
DtColor.Rows.Add("#B0DE09")
DtColor.Rows.Add("#04D215")
DtColor.Rows.Add("#0D8ECF")
DtColor.Rows.Add("#0D52D1")
DtColor.Rows.Add("#2A0CD0")
DtColor.Rows.Add("#8A0CCF")
DtColor.Rows.Add("#CD0D74")
DtColor.Rows.Add("#754DEB")
DtColor.Rows.Add("#DDDDDD")
DtColor.Rows.Add("#999999")
DtColor.Rows.Add("#333333")
DtColor.Rows.Add("#000000")
End Sub
#End If
Private Sub Graficas()
@@ -265,7 +226,7 @@ Partial Class General_RepIndicadorResumen
Row("Unidad") = "MXN" '$"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
DtVxP.Rows.Add(Row)
'RowColorIndex += 1
'If RowColorIndex = 17 Then
'If RowColorIndex = Colors.Length() Then
' RowColorIndex = 0
'End If
End If