-- vista smallbtn

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