option strict on

General/CatPaqueterias.aspx.vb

@@ -75,8 +75,8 @@ Partial Class Inventarios_CatPaqueterias
     Private Sub BtnAgregarPaqueteria_Click(sender As Object, e As EventArgs) Handles BtnAgregarPaqueteria.Click
         Dim ObjGral As New ClsGenerales
         Dim TieneError = False
-        Dim Estatus = 0
-        If ChkEstatus.Checked Then Estatus = 1
+        Dim Estatus As Boolean = False
+        If ChkEstatus.Checked Then Estatus = True
 
         If HdnModalidad.Value = "A" Then
             If ObjGral.AddGralPaqueterias(TxtPaqueteria.Text.Trim, TxtLiga.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then