-- mejora en recorrido de excel

Ventas/ActualizarPrecios.aspx.vb

@@ -590,7 +590,7 @@ Partial Class Ventas_ActualizarPrecios
             'ObjPS.IniciaTransacSQL()
             Try
                 Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
-                For Each row As DataRow In dt.Rows
+                For Each row As DataRow In dt.FiltraParametros("Código <> ''").Rows
                     Dim Correcto As Boolean = False
                     Dim TieneError As Boolean = False
                     Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}'", row(0).ToString())).ToEntero