From 0c47f6da041612a0769cca5f004d7d2f3807c029 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 13 Dec 2022 08:24:00 -0700
Subject: [PATCH] -

---
 General/RepIndicadorResumen.aspx.vb | 31 ++++++++++++++++-------------
 1 file changed, 17 insertions(+), 14 deletions(-)

diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb
index 8e6e21eef..7fc4cfade 100644
--- a/General/RepIndicadorResumen.aspx.vb
+++ b/General/RepIndicadorResumen.aspx.vb
@@ -292,21 +292,24 @@ Partial Class General_RepIndicadorResumen
         DtVxP.Columns.Add("Color")
         DtVxP.Columns.Add("Unidad")
         RowColorIndex = 0
-        For Each Dr As DataRow In GvVxP.DataSource.Rows
-            If Not Dr("Orden").ToString = "" Then
-                Dim Row As DataRow = Nothing
-                Row = DtVxP.NewRow()
-                Row("Texto") = Dr("GPO").ToString
-                Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
-                Row("Unidad") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
-                DtVxP.Rows.Add(Row)
-                RowColorIndex += 1
-                If RowColorIndex = 17 Then
-                    RowColorIndex = 0
+        If GvVxP.datasource IsNot Nothing Then
+            For Each Dr As DataRow In GvVxP.DataSource.Rows
+                If Not Dr("Orden").ToString = "" Then
+                    Dim Row As DataRow = Nothing
+                    Row = DtVxP.NewRow()
+                    Row("Texto") = Dr("GPO").ToString
+                    Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
+                    Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                    Row("Unidad") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
+                    DtVxP.Rows.Add(Row)
+                    RowColorIndex += 1
+                    If RowColorIndex = 17 Then
+                        RowColorIndex = 0
+                    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 group_vxp = vxp.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
         '    .Texto = Function(x) x.Texto.ToString,