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

-

Browse Source
This commit is contained in:
rrene
2022-12-13 08:24:00 -07:00
parent 7ff970f8ab
commit 0c47f6da04
1 changed files with 17 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
General/RepIndicadorResumen.aspx.vb
View File

@@ -292,21 +292,24 @@ Partial Class General_RepIndicadorResumen
DtVxP.Columns.Add("Color") DtVxP.Columns.Add("Color")
DtVxP.Columns.Add("Unidad") DtVxP.Columns.Add("Unidad")
RowColorIndex = 0 RowColorIndex = 0
For Each Dr As DataRow In GvVxP.DataSource.Rows If GvVxP.datasource IsNot Nothing Then
If Not Dr("Orden").ToString = "" Then For Each Dr As DataRow In GvVxP.DataSource.Rows
Dim Row As DataRow = Nothing If Not Dr("Orden").ToString = "" Then
Row = DtVxP.NewRow() Dim Row As DataRow = Nothing
Row("Texto") = Dr("GPO").ToString Row = DtVxP.NewRow()
Row("Valor") = Dr("SubTotal").ToString.FormatoNumero Row("Texto") = Dr("GPO").ToString
Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
Row("Unidad") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
DtVxP.Rows.Add(Row) Row("Unidad") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
RowColorIndex += 1 DtVxP.Rows.Add(Row)
If RowColorIndex = 17 Then RowColorIndex += 1
RowColorIndex = 0 If RowColorIndex = 17 Then
RowColorIndex = 0
End If
End If End If
End If Next
Next End If
'Dim vxp = From s In DtVxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()} 'Dim vxp = From s In DtVxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Unidad = s("Unidad").ToString()}
'Dim group_vxp = vxp.GroupBy(Function(x) x.Texto).[Select](Function(g) New With { 'Dim group_vxp = vxp.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
' .Texto = Function(x) x.Texto.ToString, ' .Texto = Function(x) x.Texto.ToString,