From d6b1bebeae669467ccfed8509f69e2e5bf728c03 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 20:23:39 -0700
Subject: [PATCH] =?UTF-8?q?-filteredtext=20en=20kilometraje,=20solo=20nume?=
 =?UTF-8?q?ricos=20--=20correcion=20de=20la=20=20clasifccai=C3=B3n=20de=20?=
 =?UTF-8?q?ajuste,=20y=20no=20por=20CveClasificacion?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx    | 5 ++++-
 Ventas/Ventas.aspx.vb | 4 ++--
 2 files changed, 6 insertions(+), 3 deletions(-)

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