diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 3ea56173b..42467113e 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3493,7 +3493,10 @@
                             </tr>
                             <tr align="left" id="TrKilometraje" runat="server" visible="false">
                                 <td>Kilometraje&nbsp;                                        
-                                                <asp:TextBox ID="TxtKilometraje" runat="server" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
+                                                <asp:TextBox ID="TxtKilometraje" runat="server" Width="250px" CssClass="form-control input-sm" MaxLength="7" ></asp:TextBox>
+                                    <ajax:FilteredTextBoxExtender ID="ftkm" runat="server" TargetControlID="TxtKilometraje" FilterType="Custom, Numbers" ValidChars="+-.," />
+
+                                </td>
                             </tr>
                             <tr align="left" id="trCorreoNotif1" runat="server" visible="false">
                                 <td id="Td1" runat="server">Correo Notificación Usuario Final: &nbsp;</td>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1fc29203d..bd3c169d5 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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