Ajustes comparacion

Edoc/CatDocumentos.aspx.vb

@@ -1,10 +1,13 @@
-
+Option Explicit On
+Option Strict On
+
 
 Imports System.Data
 Imports System.Linq
 Imports Extensiones
 Imports System.IO
-
+Imports iText.StyledXmlParser.Css.Resolve.Shorthand.Impl
+
 Partial Class RH_CatDocumentos
     Inherits ClsPaginas
 
@@ -92,10 +95,9 @@ Partial Class RH_CatDocumentos
     Property Estatus As Boolean
         Get
             If ViewState("Estatus") Is Nothing Then
-                Return False
-            Else
-                Return DirectCast(ViewState("Estatus"), Boolean)
+                ViewState("Estatus") = False
             End If
+            Return DirectCast(ViewState("Estatus"), Boolean)
         End Get
         Set(value As Boolean)
             ViewState("Estatus") = value
@@ -219,17 +221,18 @@ Partial Class RH_CatDocumentos
         CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo").ToEntero
         DocumentacionTipo = GvRow.DataKey("DocumentacionTipo")
         Orden = GvRow.DataKey("Orden").ToEntero
-        Estatus = GvRow.DataKey("Estatus") = "True"
-        Requerido = GvRow.DataKey("Requerido") = "True"
+        Estatus = Boolean.Parse(GvRow.DataKey("Estatus"))
+        Requerido = Boolean.Parse(GvRow.DataKey("Requerido"))
+
 
         Txtdocumentacion.Text = Documentacion
-        TxtOrden.Text = GvRow.DataKey("Orden")
+        TxtOrden.Text = Orden.ToString
 
         TxtDiasLimite.Text = GvRow.DataKey("DiasLimite")
-        ChkAplicaDiasLimite.Checked = GvRow.DataKey("AplicaDiasLimite") = "True"
+        ChkAplicaDiasLimite.Checked = Boolean.Parse(GvRow.DataKey("AplicaDiasLimite"))
         TxtPeriodicidad.Text = GvRow.DataKey("Periodicidad")
 
-        ChkAplicaFechaVencimiento.Checked = GvRow.DataKey("AplicaFechaVencimiento") = "True"
+        ChkAplicaFechaVencimiento.Checked = Boolean.Parse(GvRow.DataKey("AplicaFechaVencimiento"))
 
         DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo)
         chkEstatus.Checked = Estatus

Edoc/CatDocumentosContratos.aspx.vb

@@ -1,4 +1,6 @@
-Option Strict On
+Option Explicit On
+Option Strict On
+
 
 Imports System.Data
 Imports System.Linq

Edoc/CatTipoContratos.aspx.vb

@@ -1,4 +1,6 @@
-Option Strict On
+Option Explicit On
+Option Strict On
+
 
 Imports System.Data
 Imports System.Linq

Edoc/Contratos.aspx.vb

@@ -1,4 +1,6 @@
-Option Strict On
+Option Explicit On
+Option Strict On
+
 
 Imports System.Data
 Imports System.Linq