From ecaa05fb999a8add12d61574ce36f8a16dcf230c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 3 Jan 2024 12:54:57 -0700
Subject: [PATCH] -- vista smallbtn

---
 OS/CatEstatusOrdenServicio.aspx    | 5 ++---
 OS/CatEstatusOrdenServicio.aspx.vb | 4 ++--
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/OS/CatEstatusOrdenServicio.aspx b/OS/CatEstatusOrdenServicio.aspx
index 44fed26a7..598410c75 100644
--- a/OS/CatEstatusOrdenServicio.aspx
+++ b/OS/CatEstatusOrdenServicio.aspx
@@ -93,8 +93,7 @@
     <ajax:TabContainer runat="server" ActiveTabIndex="0" Width="100%" CssClass="tabBodyOverride">
         <ajax:TabPanel runat="server" ID="TabCatalogo" HeaderText="Estatus">
             <ContentTemplate>
-                <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
-                    <label for="TxtBusquedaEstatus">Buscar: </label>
+                <div class="row" style="margin-right: 10px; " align="right">                   
                     <input type="text" id="TxtBusquedaEstatus" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                     <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvUsuariosEstatus.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                 </div>
@@ -102,7 +101,7 @@
                     <ContentTemplate>
                         <asp:HiddenField ClientIDMode="Static" runat="server" ID="HdnCveEstatus" Value="-1" />
 
-                        <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CveEstatusOrdenServicio,TipoEstatus,TipoEstatusTexto,EstatusOrdenServicio,EstatusBool,Estado,Orden,BackgroundColor" CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Estatus de Ordenes de Servicios">
+                        <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CveEstatusOrdenServicio,TipoEstatus,TipoEstatusTexto,EstatusOrdenServicio,EstatusBool,Estado,Orden,BackgroundColor" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Estatus de Ordenes de Servicios">
                             <Columns>
                                 <asp:BoundField DataField="EstatusOrdenServicio" HeaderText="Estatus Orden Servicio" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField DataField="Estado" HeaderText="Estado" ItemStyle-HorizontalAlign="Left" />
diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb
index 2db9fc0d4..ab48bc89e 100644
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/OS/CatEstatusOrdenServicio.aspx.vb
@@ -106,7 +106,7 @@ Partial Class OS_CatEstatusOrdenServicio
     End Sub
     Protected Sub BtnAgregarEstatusOS_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatusOS.Click
         Dim ObjEstatusOrdenServicios As New ClsOS
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         If HdnModalidad.Value = "I" Then
             If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtBackgroundColor.Text.Replace("#", "")) Then
@@ -262,7 +262,7 @@ Partial Class OS_CatEstatusOrdenServicio
 
             For Each Row As GridViewRow In GvUsuariosEstatus.Rows
                 Dim controles As Integer = Row.Controls.Count
-                For i = 1 To Row.Cells.Count - 1
+                For i As Integer = 1 To Row.Cells.Count - 1
                     Dim chk As CheckBox = CType(Row.Cells(i).Controls(0), CheckBox)
                     Dim CveEstatus As Integer = DtEstatusOS.FiltroPrimeroValor("CveEstatusOrdenServicio", String.Format("EstatusOrdenServicio = '{0}'", GvUsuariosEstatus.Columns(i).HeaderText)).ToEntero
                     If Not chk.Checked Then