Merge branch 'master' of http://adsistemasof.sytes.net:8383/SIG

Ventas/RepTopClientesVentas.aspx.vb

@@ -105,10 +105,12 @@ Partial Class Ventas_RepTopClientesVentas
     End Sub
 
     Private Sub CambioGrafica()
+        Dim DtClientesAux As New DataTable
+        DtClientesAux = DtClientes.FiltraParametros("CveCliente > 0")
         Dim Dt As New DataTable()
         Dt.Columns.Add("Cliente")
         Dt.Columns.Add("Importe")
-        For Each Dr As DataRow In DtClientes.Rows
+        For Each Dr As DataRow In DtClientesAux.Rows
             Dim Row As DataRow = Nothing
             Row = Dt.NewRow()
             Row("Cliente") = Dr("NombreComercial").ToString