From 7ff970f8ab6a2fc37f90aed3b4ad841d5cf9c500 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 12 Dec 2022 22:20:18 -0700
Subject: [PATCH] -- ocultar columnas que no tengan existencia

---
 Inventarios/KardexAlmacenHorizontal.aspx.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 044361971..dc2f229a8 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -158,10 +158,10 @@ Partial Class Inventarios_KardexAlmacen
                     Dim TotColumna As Double = 0
                     For Each Dr As DataRow In dt.Rows
                         TotColumna += Dr.Item(index).ToString.ToDouble
-                    Next
-                    'If Not TotColumna > 0 Then
-                    '    ListaBorrar.Add(dt.Columns(index))
-                    'End If
+                    Next
+                    If Not TotColumna > 0 Then
+                        ListaBorrar.Add(dt.Columns(index))
+                    End If
                 Next
                 For Each item As DataColumn In ListaBorrar
                     dt.Columns().Remove(item)