diff --git a/RH/CatDocumentos.aspx.vb b/RH/CatDocumentos.aspx.vb
index 530066dbc..55bf7dd7f 100644
--- a/RH/CatDocumentos.aspx.vb
+++ b/RH/CatDocumentos.aspx.vb
@@ -92,7 +92,7 @@ Partial Class RH_CatDocumentos
     Property Estatus As Boolean
         Get
             If ViewState("Estatus") Is Nothing Then
-                Return 0
+                Return False
             Else
                 Return DirectCast(ViewState("Estatus"), Boolean)
             End If
@@ -220,21 +220,21 @@ Partial Class RH_CatDocumentos
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
-        CveDocumentacion = GvRow.DataKey("CveDocumentacion")
+        CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToEntero
         Documentacion = GvRow.DataKey("Documentacion")
         DocumentacionFormato = GvRow.DataKey("DocumentacionFormato")
-        CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo")
+        CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo").ToEntero
         DocumentacionTipo = GvRow.DataKey("DocumentacionTipo")
-        Orden = GvRow.DataKey("Orden")
-        Estatus = GvRow.DataKey("Estatus")
-        Requerido = GvRow.DataKey("Requerido")
+        Orden = GvRow.DataKey("Orden").ToEntero
+        Estatus = Boolean.Parse(GvRow.DataKey("Estatus"))
+        Requerido = Boolean.Parse(GvRow.DataKey("Requerido"))
 
         Txtdocumentacion.Text = Documentacion
-        TxtOrden.Text = Orden
+        TxtOrden.Text = Orden.ToString
 
         TxtDiasLimite.Text = GvRow.DataKey("DiasLimite")
-        ChkAplicaDiasLimite.Checked = GvRow.DataKey("AplicaDiasLimite")
-        ChkAplicaFechaVencimiento.Checked = GvRow.DataKey("AplicaFechaVencimiento")
+        ChkAplicaDiasLimite.Checked = Boolean.Parse(GvRow.DataKey("AplicaDiasLimite"))
+        ChkAplicaFechaVencimiento.Checked = Boolean.Parse(GvRow.DataKey("AplicaFechaVencimiento"))
 
 
         DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo)
@@ -306,7 +306,7 @@ Partial Class RH_CatDocumentos
     Public Sub Remove_ClickDocumentacion(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion")
+        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToEntero
         Dim _documetacionFormato As String = GvRow.DataKey("DocumentacionFormato")
 
 
@@ -423,7 +423,7 @@ Partial Class RH_CatDocumentos
             'Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
             Dim ImgDownLoadFormato As LinkButton = e.Row.FCLinkButton("ImgDownLoadFormato")
 
-            Dim separado As Char() = {"."}
+            Dim separado As Char() = {"."c}
             Dim array() As String = DocumetacionFormato.Split(separado)
             Dim extencion As String = ""