From 5156f33bfa3d19bb6e1391b3cc3047a0cb75fc29 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 24 May 2025 07:06:33 -0700
Subject: [PATCH] =?UTF-8?q?--=20cambio=20en=20validaci=C3=B3n=20de=20kilom?=
 =?UTF-8?q?etraje?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx    | 37 ++++++++++++++++++-------------------
 Ventas/Ventas.aspx.vb | 24 ++++++++++--------------
 2 files changed, 28 insertions(+), 33 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index b6b2b0452..35fc95342 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -4322,10 +4322,24 @@
                                 <td>
                                     <asp:TextBox ID="TxtObsAlmacen" runat="server" Rows="2" TextMode="MultiLine" Width="100%" CssClass="form-control input-sm"></asp:TextBox></td>
                             </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" MaxLength="6" CausesValidation="true" Text="000000"></asp:TextBox>
-                                    <ajax:MaskedEditExtender ID="MEEKilometraje" runat="server" TargetControlID="TxtKilometraje" ClearMaskOnLostFocus="false" MaskType="Number" Mask="999999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                            <tr align="center" id="TrKilometraje" runat="server" visible="false">
+                                <td>
+                                    <div class="row">
+                                        <div class="col-md-2">
+                                              Kilometraje&nbsp;                                        
+                                              <asp:TextBox ID="TxtKilometraje" runat="server" Width="65px" CssClass="form-control input-sm" MaxLength="6" CausesValidation="true" Text="000000"></asp:TextBox>
+                                              <asp:RegularExpressionValidator     ID="REVKilometraje"     runat="server"     ControlToValidate="TxtKilometraje"     ValidationExpression="^\d{4,6}$"     ErrorMessage="Debe tener entre 4 y 6 dígitos numéricos."   Display="Dynamic"   ForeColor="Red" />
+                                              <%--<ajax:MaskedEditExtender ID="MEEKilometraje" runat="server" TargetControlID="TxtKilometraje" ClearMaskOnLostFocus="false" MaskType="Number" Mask="999999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>--%>
+                                        </div>
+                                        <div class="col-md-5">
+                                            Próxima Rotación y Balanceo:<br />
+                                             <asp:Label runat="server" ID="LblRotacion" Text=""></asp:Label>
+                                        </div>
+                                        <div class="col-md-5">
+                                            Próxima Alineación:<br />
+                                             <asp:Label runat="server" ID="LblAlineacion" Text=""></asp:Label>
+                                        </div>
+                                    </div>                                  
                                 </td>
                             </tr>
                             <tr align="left" id="trCorreoNotif1" runat="server" visible="false">
@@ -4350,21 +4364,6 @@
                             <tr align="left" id="trPaqueteriaDirectaLabel" runat="server" visible="false">
                                 <td id="Td4" runat="server">Tipo de Entrega:&nbsp;<b>Entrega Directa</b></td>
                             </tr>
-                            <tr align="left" id="trRotacion" runat="server" visible="false">
-                                <td id="Td3" runat="server">Próxima Rotación y Balanceo:&nbsp;</td>
-                            </tr>
-                            <tr align="left" id="trRotacionlbl" runat="server" visible="false">
-                                <td>
-                                    <asp:Label runat="server" ID="LblRotacion" Text=""></asp:Label></td>
-                            </tr>
-                            <tr align="left" id="trAlineacion" runat="server" visible="false">
-                                <td id="Td7" runat="server">Próxima Alineación:&nbsp;</td>
-                            </tr>
-                            <tr align="left" id="trAlineacionlbl" runat="server" visible="false">
-                                <td>
-                                    <asp:Label runat="server" ID="LblAlineacion" Text=""></asp:Label></td>
-                            </tr>
-
 
                             <%--<tr align="left" id="TrObsMedico1" visible="false" runat="server">
                                 <td>Médico:&nbsp;</td>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 086decbcd..cff95b633 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3487,7 +3487,7 @@ Partial Class Ventas
                 DivContadoOtros.Visible = True
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
 
                 DivMesesSinIntereses.Visible = True
                 DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4")
@@ -3591,10 +3591,6 @@ Partial Class Ventas
             'End If
 
             If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
-                trRotacion.Visible = True
-                trRotacionlbl.Visible = True
-                trAlineacion.Visible = True
-                trAlineacionlbl.Visible = True
 
                 Dim FechaRotaAlinea As Date = TxtFecha.Text.ToDate
                 LblRotacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString
@@ -10038,9 +10034,9 @@ Partial Class Ventas
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 AndAlso TrKilometraje.Visible Then
-            If TxtKilometraje.Text.Length < 6 Then
-                Alert("El kilometraje debe tener 6 digitos.", TipoMensaje.MsgAdvertencia)
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TrKilometraje.Visible Then
+            If TxtKilometraje.Text.Length < 4 OrElse TxtKilometraje.Text.Length > 6 Then
+                Alert("El kilometraje debe tener de 4 a 6 dígitos.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
         End If
@@ -13347,7 +13343,7 @@ Partial Class Ventas
         ObjFactura.EsGarantia = Me.EsGarantia
         ObjFactura.Bloqueada = Me.Bloqueada
 
-        If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 AndAlso TrKilometraje.Visible Then
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TrKilometraje.Visible Then
             ObjFactura.Kilometraje = TxtKilometraje.Text.Trim.ToDecimal()
         End If
 
@@ -18797,7 +18793,7 @@ Partial Class Ventas
                     End If
                 Else
                     If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
-                        If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
+                        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then 'Si es Empresa llantera
                             TxtPrecio.Enabled = True
                         Else
                             'TxtPrecio.Enabled = False
@@ -25240,7 +25236,7 @@ Partial Class Ventas
                 End If
 
             Case 2 'CONTADO
-                If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") OrElse (UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And DdlTipoComprobante.SelectedValue = "Cot") OrElse (CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso Not UsuarioActual.CveEmpresa.Contiene(119, 158)) Then
+                If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") OrElse (UsuarioActual.Empresa.Funcionalidad(558) = "1" And DdlTipoComprobante.SelectedValue = "Cot") OrElse (CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso Not UsuarioActual.CveEmpresa.Contiene(119, 158)) Then
                     DivContado.Visible = True
                     If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                         DivTransferencia.Visible = False
@@ -25514,7 +25510,7 @@ Partial Class Ventas
                 DrCredito("Tipo") = "Tarjeta de Crédito"
                 DrCredito("CveMetodoPago") = 4
 
-                If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then
+                If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                     DrCredito("MesesSinIntereses") = DDlMesesSinIntereses.SelectedValue.ToEntero()
                 Else
                     DrCredito("MesesSinIntereses") = -1
@@ -25610,7 +25606,7 @@ Partial Class Ventas
                         DrCredito("Observaciones") = ""
                         DrCredito("Tipo") = "Tarjeta de Crédito"
                         DrCredito("CveMetodoPago") = 4
-                        If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then
+                        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                             DrCredito("MesesSinIntereses") = DdlMesesSinIntereses2.SelectedValue.ToEntero()
                         Else
                             DrCredito("MesesSinIntereses") = -1
@@ -36017,7 +36013,7 @@ Partial Class Ventas
             SeEstaFActurandoVentaMedica = True
         End If
 
-        If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And RBLPago.SelectedValue.ToEntero() = 2 Then
+        If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558) = "1" And RBLPago.SelectedValue.ToEntero() = 2 Then
             Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
         Else
             Dim FolioFijo As Integer = 0