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)