TareasProgramadas Envio de estado cuenta, compras cvetipoOperacion, , reembolsos filtror rwo acumulado, ajkustes carta porte, OC carga desde excel filtro rows vacios, personal cuentas deposito

OC/OC.aspx.vb

@@ -6952,6 +6952,28 @@ Partial Class OC_OC
 
         Dim dt As New DataTable
         dt = ReadExcelFile(Ruta + FileName, True)
+
+
+        If dt.Rows.Count > 0 Then
+            Dim dtOriginal As DataTable = dt
+            Dim dtFiltrada As DataTable = dtOriginal.Clone()
+            Try
+                For Each row As DataRow In dtOriginal.Rows
+                    Dim cantidadStr As String = row("Cantidad").ToString().Trim()
+
+                    Dim cantidadNum As Decimal
+                    If Decimal.TryParse(cantidadStr, cantidadNum) Then
+                        If cantidadNum > 0 Then
+                            dtFiltrada.ImportRow(row)
+                        End If
+                    End If
+                Next
+            Catch ex As Exception
+
+            End Try
+            dt = dtFiltrada
+        End If
+
         Dim ErrorArchivo As Boolean = False
 
         'Dim Conexion As Odbc.OdbcConnection = Nothing