-

Inventarios/RepAnomalias.aspx.vb

@@ -339,13 +339,15 @@ Partial Class Inventarios_RepAnomalias
             ImgExcelProdcutosCoinciden.Visible = False
             LnkDescarExcelGrupos.Visible = True
 
-            GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0")
-            GvGrupos.DataBind()
-
-            LtlGrupos1.Text = dt.FiltraParametros("Orden = 1  and CvePS > 0").Rows.Count.ToString
-            LtlGrupos2.Text = dt.FiltraParametros("Orden = 2  and CvePS > 0").Rows.Count.ToString
-            LtlGrupos3.Text = dt.FiltraParametros("Orden = 3  and CvePS > 0").Rows.Count.ToString
-
+            If dt IsNot Nothing Then
+                GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0")
+                LtlGrupos1.Text = dt.FiltraParametros("Orden = 1  and CvePS > 0").Rows.Count.ToString
+                LtlGrupos2.Text = dt.FiltraParametros("Orden = 2  and CvePS > 0").Rows.Count.ToString
+                LtlGrupos3.Text = dt.FiltraParametros("Orden = 3  and CvePS > 0").Rows.Count.ToString
+
+            End If
+            GvGrupos.DataBind()
+
             If DdlGPO.SelectedValue.ToEntero = 1 Then
                 PSIguales()
             End If