428 lines
20 KiB
VB.net
428 lines
20 KiB
VB.net
Imports Extensiones
|
|
Imports System.Data
|
|
Imports Newtonsoft.Json
|
|
|
|
Partial Class Finanzas_RepRazonesFinancieras
|
|
Inherits ClsPaginas
|
|
|
|
Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
|
|
CargaCombos()
|
|
DdlRazones.Attributes.Add("onclick", "$('#C_TxtTitulo').val ($('#C_DdlRazones option:selected').text()); ")
|
|
TxtTitulo.Text = DdlRazones.SelectedItem.Text
|
|
CargaDatos()
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub CargaCombos()
|
|
|
|
DdlRazones.DataSource = GlobalDTFinan_RazonesFinancieras
|
|
DdlRazones.DataBind()
|
|
|
|
DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
|
DdlSubproyectos.DataBind()
|
|
DdlSubproyectos.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
DdlSubproyectos.SelectedIndex = 0
|
|
|
|
End Sub
|
|
Private Sub CargaDatos()
|
|
|
|
Dim FechaInicio As Date = MinFecha
|
|
Dim FechaFin As Date = MaxFecha
|
|
|
|
If TxtFechaI.Text.ToDate.Year > 1000 Then FechaInicio = TxtFechaI.Text.ToDate
|
|
If TxtFechaF.Text.ToDate.Year > 1000 Then FechaFin = TxtFechaF.Text.ToDate
|
|
|
|
Dim objFin As New ClsFinanzas
|
|
|
|
objFin.GetRazonesFinancierasRep(UsuarioActual.CveEmpresa, DdlRazones.SelectedValue, FechaInicio, FechaFin, -1, -1)
|
|
|
|
Dim dtt As DataTable = objFin.DtResultados
|
|
If dtt IsNot Nothing AndAlso dtt.Columns.Count > 0 Then
|
|
|
|
Select Case DdlPeriodo.SelectedValue
|
|
Case "M"
|
|
dtt.Columns.RemoveAt(dtt.Columns("Bim1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Bim2").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Bim3").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Bim4").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Bim5").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Bim6").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Trim1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Trim2").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Trim3").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Trim4").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Cuat1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Cuat2").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Cuat3").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Sem1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Sem2").Ordinal)
|
|
Case "B"
|
|
dtt.Columns.RemoveAt(dtt.Columns("Ene").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Feb").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Mar").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Abr").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("May").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Jun").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Jul").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Ago").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Sep").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Oct").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Nov").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Dic").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Trim1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Trim2").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Trim3").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Trim4").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Cuat1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Cuat2").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Cuat3").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Sem1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Sem2").Ordinal)
|
|
Case "T"
|
|
dtt.Columns.RemoveAt(dtt.Columns("Ene").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Feb").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Mar").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Abr").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("May").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Jun").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Jul").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Ago").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Sep").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Oct").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Nov").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Dic").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Bim1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Bim2").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Bim3").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Bim4").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Bim5").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Bim6").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Cuat1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Cuat2").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Cuat3").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Sem1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Sem2").Ordinal)
|
|
Case "C"
|
|
dtt.Columns.RemoveAt(dtt.Columns("Ene").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Feb").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Mar").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Abr").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("May").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Jun").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Jul").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Ago").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Sep").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Oct").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Nov").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Dic").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Bim1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Bim2").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Bim3").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Bim4").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Bim5").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Bim6").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Trim1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Trim2").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Trim3").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Trim4").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Sem1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Sem2").Ordinal)
|
|
Case "S"
|
|
dtt.Columns.RemoveAt(dtt.Columns("Ene").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Feb").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Mar").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Abr").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("May").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Jun").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Jul").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Ago").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Sep").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Oct").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Nov").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Dic").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Bim1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Bim2").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Bim3").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Bim4").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Bim5").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Bim6").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Trim1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Trim2").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Trim3").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Trim4").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Cuat1").Ordinal) : dtt.Columns.RemoveAt(dtt.Columns("Cuat2").Ordinal)
|
|
dtt.Columns.RemoveAt(dtt.Columns("Cuat3").Ordinal)
|
|
End Select
|
|
|
|
Dim dtgrafica As DataTable = dtt.Copy
|
|
dtgrafica.Columns.RemoveAt(1)
|
|
Select Case DdlGrafica.SelectedValue
|
|
Case "L"
|
|
GeneraGraficaLineas(dtgrafica, TxtTitulo.Text)
|
|
Case "B"
|
|
GeneraGraficaBarras(dtgrafica, TxtTitulo.Text)
|
|
Case "S"
|
|
GeneraGraficaStacked(dtgrafica, TxtTitulo.Text)
|
|
End Select
|
|
|
|
End If
|
|
GVDatos.DataSource = dtt
|
|
|
|
objFin.Dispose()
|
|
|
|
GVDatos.DataBind()
|
|
RegistraScript($"LimpiaCeros({DdlEscala.SelectedValue});", "xyc")
|
|
|
|
End Sub
|
|
Private Sub GeneraGraficaLineas(data As DataTable, Titulo As String)
|
|
|
|
Dim Subtitulo As String = "<div style=""width:50%; "">Subtitulo </div>"
|
|
Dim json As String = ToJsonString(GraficaLineas(data, Titulo, Subtitulo, "0", False, G1:=True))
|
|
Dim json2 As String = ToJsonString(GraficaLineas(data, Titulo, Subtitulo, "0", True, G1:=True))
|
|
'Literal1.Text = json
|
|
RegistraScript(String.Format("function CargaGrafica() {{$('#div_Grafica').highcharts({0});}}function CargaGrafica2() {{$('#div_Grafica').highcharts({1});}} CargaGrafica();", json, json2))
|
|
|
|
End Sub
|
|
'Private Sub GetGraficaInicio()
|
|
|
|
' Dim Gral As New ClsGenerales
|
|
' Dim ds As DataSet = Gral.GetIndicadores(UsuarioActual.CveEmpresa)
|
|
' Dim data = ds.Tables(4)
|
|
' data.Columns.RemoveAt(0)
|
|
' GeneraGraficaBarras(data, TxtTitulo.Text)
|
|
' Gral.Dispose()
|
|
' ds.Dispose()
|
|
'End Sub
|
|
Private Sub GeneraGraficaBarras(data As DataTable, Titulo As String)
|
|
|
|
Dim Subtitulo As String = "<div style=""width:50%; "">Subtitulo </div>"
|
|
Dim json As String = ToJsonString(GraficaStandar(data, "column", Titulo, Subtitulo, False))
|
|
Dim json2 As String = ToJsonString(GraficaStandar(data, "column", Titulo, Subtitulo, True))
|
|
'Literal1.Text = json
|
|
RegistraScript(String.Format("function CargaGrafica() {{$('#div_Grafica').highcharts({0});}}function CargaGrafica2() {{$('#div_Grafica').highcharts({1});}} CargaGrafica();", json, json2))
|
|
|
|
End Sub
|
|
|
|
Private Sub GeneraGraficaStacked(data As DataTable, Titulo As String)
|
|
|
|
Dim Subtitulo As String = "<div style=""width:50%; "">Subtitulo </div>"
|
|
Dim json As String = ToJsonString(GraficaStacked(data, "column", Titulo, Subtitulo, False))
|
|
Dim json2 As String = ToJsonString(GraficaStacked(data, "column", Titulo, Subtitulo, True))
|
|
'Literal1.Text = json
|
|
RegistraScript(String.Format("function CargaGrafica() {{$('#div_Grafica').highcharts({0});}}function CargaGrafica2() {{$('#div_Grafica').highcharts({1});}} CargaGrafica();", json, json2))
|
|
|
|
End Sub
|
|
|
|
#Region "Metodos Graficar"
|
|
Public Function GraficaLineas(data As DataTable, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional SinCols As String = "0", Optional VerValor As Boolean = False, Optional G1 As Boolean = False) As HighChart
|
|
Dim grafica As New HighChart
|
|
'Dim removerCols
|
|
'If IsNothing(SinCols) Then
|
|
|
|
'End If
|
|
|
|
If Not IsNothing(data) Then
|
|
|
|
grafica.chart = New Chart
|
|
grafica.chart.type = "line"
|
|
grafica.title = New Title
|
|
grafica.title.text = Titulo
|
|
grafica.subtitle = New Title
|
|
grafica.subtitle.text = Subtitulo
|
|
grafica.subtitle.useHTML = True
|
|
grafica.yAxis = New Axis
|
|
grafica.yAxis.title = New Title
|
|
grafica.yAxis.title.text = " "
|
|
grafica.xAxis = New Axis
|
|
If VerValor Then
|
|
grafica.plotOptions = New PlotOptions
|
|
grafica.plotOptions.line = New Line
|
|
grafica.plotOptions.line.dataLabels = New DataLabels
|
|
grafica.plotOptions.line.dataLabels.enabled = True
|
|
End If
|
|
grafica.xAxis.categories = New List(Of String)
|
|
|
|
Dim index As Integer = 0
|
|
Dim contador As Integer = 0
|
|
For Each col As DataColumn In data.Columns
|
|
|
|
If contador = 0 Then
|
|
index = contador
|
|
Else
|
|
grafica.xAxis.categories.Add(col.ColumnName)
|
|
End If
|
|
contador += 1
|
|
|
|
Next
|
|
grafica.series = New List(Of Series)
|
|
|
|
For Each row As DataRow In data.Rows
|
|
Dim serie As New Series
|
|
serie.data = New List(Of Object)
|
|
Dim anterior As Double = 0
|
|
For i As Integer = 0 To data.Columns.Count - 1
|
|
If i = index Then
|
|
serie.name = row(i).ToString()
|
|
Else
|
|
Dim actual = row(i).ToString().ToDouble
|
|
serie.data.Add(actual)
|
|
anterior = actual
|
|
'If Not G1 OrElse (actual >= anterior) Then
|
|
'End If
|
|
End If
|
|
Next
|
|
grafica.series.Add(serie)
|
|
Next
|
|
|
|
End If
|
|
Return grafica
|
|
End Function
|
|
Public Function GraficaStandar(data As DataTable, charttype As String, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional VerValor As Boolean = False) As HighChart
|
|
Dim grafica As New HighChart
|
|
If Not IsNothing(data) Then
|
|
|
|
grafica.chart = New Chart
|
|
grafica.chart.type = charttype
|
|
grafica.title = New Title
|
|
grafica.title.text = Titulo
|
|
grafica.subtitle = New Title
|
|
grafica.subtitle.text = Subtitulo
|
|
grafica.subtitle.useHTML = True
|
|
grafica.yAxis = New Axis
|
|
grafica.yAxis.title = New Title
|
|
grafica.yAxis.title.text = " "
|
|
grafica.xAxis = New Axis
|
|
grafica.xAxis.categories = New List(Of String)
|
|
|
|
Dim index As Integer = 0
|
|
Dim contador As Integer = 0
|
|
|
|
If charttype = "bar" Then
|
|
For Each col As DataRow In data.Rows
|
|
|
|
'If contador = 0 Then
|
|
' index = contador
|
|
'Else
|
|
' grafica.xAxis.categories.Add(col(0).ToString)
|
|
'End If
|
|
grafica.xAxis.categories.Add(col(0).ToString)
|
|
contador += 1
|
|
|
|
Next
|
|
grafica.series = New List(Of Series)
|
|
|
|
For i As Integer = 1 To data.Columns.Count - 1
|
|
Dim serie As New Series
|
|
serie.data = New List(Of Object)
|
|
serie.name = data.Columns(i).ColumnName
|
|
For Each row As DataRow In data.Rows
|
|
serie.data.Add(row(i).ToString().ToDouble)
|
|
Next
|
|
If VerValor Then
|
|
|
|
serie.dataLabels = New DataLabels
|
|
serie.dataLabels.enabled = True
|
|
End If
|
|
grafica.series.Add(serie)
|
|
Next
|
|
|
|
Else
|
|
For Each col As DataColumn In data.Columns
|
|
|
|
If contador = 0 Then
|
|
index = contador
|
|
Else
|
|
grafica.xAxis.categories.Add(col.ColumnName)
|
|
End If
|
|
contador += 1
|
|
|
|
Next
|
|
grafica.series = New List(Of Series)
|
|
|
|
For Each row As DataRow In data.Rows
|
|
Dim serie As New Series
|
|
serie.data = New List(Of Object)
|
|
For i As Integer = 0 To data.Columns.Count - 1
|
|
If i = index Then
|
|
serie.name = row(i).ToString()
|
|
Else
|
|
serie.data.Add(row(i).ToString().ToDouble)
|
|
End If
|
|
Next
|
|
If VerValor Then
|
|
|
|
serie.dataLabels = New DataLabels
|
|
serie.dataLabels.enabled = True
|
|
End If
|
|
grafica.series.Add(serie)
|
|
Next
|
|
End If
|
|
End If
|
|
Return grafica
|
|
End Function
|
|
Public Function GraficaStandarB(data As DataTable, charttype As String, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional VerValor As Boolean = False) As HighChart
|
|
Dim grafica As New HighChart
|
|
If Not IsNothing(data) Then
|
|
|
|
grafica.chart = New Chart
|
|
grafica.chart.type = charttype
|
|
grafica.title = New Title
|
|
grafica.title.text = Titulo
|
|
grafica.subtitle = New Title
|
|
grafica.subtitle.text = Subtitulo
|
|
grafica.subtitle.useHTML = True
|
|
grafica.yAxis = New Axis
|
|
grafica.yAxis.title = New Title
|
|
grafica.yAxis.title.text = " "
|
|
grafica.xAxis = New Axis
|
|
grafica.xAxis.categories = New List(Of String)
|
|
|
|
Dim index As Integer = 0
|
|
Dim contador As Integer = 0
|
|
|
|
If charttype = "bar" Then
|
|
For Each col As DataRow In data.Rows
|
|
|
|
grafica.xAxis.categories.Add(col(0).ToString)
|
|
contador += 1
|
|
|
|
Next
|
|
grafica.series = New List(Of Series)
|
|
|
|
For i As Integer = 1 To data.Columns.Count - 1
|
|
Dim serie As New Series
|
|
serie.data = New List(Of Object)
|
|
serie.name = data.Columns(i).ColumnName
|
|
For Each row As DataRow In data.Rows
|
|
serie.data.Add(row(i).ToString().ToDouble)
|
|
Next
|
|
If VerValor Then
|
|
|
|
serie.dataLabels = New DataLabels
|
|
serie.dataLabels.enabled = True
|
|
End If
|
|
grafica.series.Add(serie)
|
|
Next
|
|
|
|
Else
|
|
For Each col As DataRow In data.Rows
|
|
|
|
grafica.xAxis.categories.Add(col(0))
|
|
contador += 1
|
|
|
|
Next
|
|
grafica.series = New List(Of Series)
|
|
For x As Integer = 1 To data.Columns.Count - 1
|
|
Dim serie As New Series
|
|
serie.data = New List(Of Object)
|
|
serie.name = data.Columns(x).ColumnName
|
|
For i As Integer = 0 To data.Rows.Count - 1
|
|
serie.data.Add(data.Rows(i)(x).ToString().ToDouble)
|
|
Next
|
|
grafica.series.Add(serie)
|
|
Next
|
|
|
|
End If
|
|
End If
|
|
Return grafica
|
|
End Function
|
|
|
|
Public Function GraficaStacked(data As DataTable, charttype As String, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional VerValor As Boolean = False) As HighChart
|
|
|
|
Dim grafica As HighChart
|
|
grafica = GraficaStandar(data, charttype, Titulo, Subtitulo, VerValor)
|
|
If IsNothing(grafica.plotOptions) Then
|
|
grafica.plotOptions = New PlotOptions()
|
|
End If
|
|
If IsNothing(grafica.plotOptions.column) Then
|
|
grafica.plotOptions.column = New Column
|
|
End If
|
|
grafica.plotOptions.column.stacking = "normal"
|
|
|
|
If VerValor Then
|
|
grafica.yAxis.stackLabels = New DataLabels
|
|
grafica.yAxis.stackLabels.enabled = True
|
|
'grafica.yAxis.stackLabels.color = "#FFFFFF"
|
|
grafica.yAxis.stackLabels.rotation = -90
|
|
grafica.yAxis.stackLabels.y = -35
|
|
End If
|
|
Return grafica
|
|
|
|
End Function
|
|
Public Function ToJsonString(obj As Object) As String
|
|
Dim settings As New JsonSerializerSettings
|
|
settings.NullValueHandling = NullValueHandling.Ignore
|
|
settings.Formatting = Formatting.Indented
|
|
Return JsonConvert.SerializeObject(obj, settings).ToString
|
|
End Function
|
|
|
|
#End Region
|
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
|
CargaDatos()
|
|
End Sub
|
|
Protected Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
For i = 1 To e.Row.Cells.Count - 1
|
|
'Mind that i used i=1 not 0 because the width of cells(0) has already been set
|
|
Dim cell2 As TableCell = e.Row.Cells(i)
|
|
cell2.CssClass = "ceros"
|
|
cell2.HorizontalAlign = HorizontalAlign.Right
|
|
Next
|
|
|
|
End If
|
|
End Sub
|
|
End Class
|