-filteredtext en kilometraje, solo numericos

-- correcion de la  clasifccaión de ajuste, y no por CveClasificacion

Ventas/Ventas.aspx.vb

@@ -7481,8 +7481,8 @@ Partial Class Ventas
 
             If TxtKilometraje.Text.ToEntero() = 0 Then
                 'cuando es la clasificacion de llantas
-                Dim FaltaObservacion As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero()
-                If FaltaObservacion = 20342 Then
+                Dim FaltaObservacion As Integer = TmpDT.MAX("CveClasificacion", "Clasificacion like '%Llanta%'").ToEntero '.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero()
+                If FaltaObservacion > 0 Then 'sino se ha especificado km cuando tiene al clasif llanta
                     Alert("No se ha especificado el <strong>kilometraje</strong>.", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If