Compilación

RH/CatCursosCapacitadores.aspx.vb

@@ -145,8 +145,8 @@ Partial Class RH_CatCursosCapacitadores
 
         Dim objRH As New ClsRH
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
-        Dim CveCapacitador As Integer = GvRow.DataKey("CveCapacitador")
+        Dim activo As Boolean = False
+        Dim CveCapacitador As Integer = GvRow.DataKey("CveCapacitador").ToEntero
 
         If objRH.CapacitadorRemove(CveCapacitador) Then
             CargadatosGvCapacitador()
@@ -162,18 +162,18 @@ Partial Class RH_CatCursosCapacitadores
     Public Sub Edit_ClickCapacitador(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
+        Dim activo As Boolean = False
 
         LtlTituloModalCapacitadores.Text = "Editar Capacitador"
         Actualizar = True
 
-        CveCapaciatador = GvRow.DataKey("CveCapacitador")
+        CveCapaciatador = GvRow.DataKey("CveCapacitador").ToEntero
         TxtCapacitador.Text = GvRow.DataKey("Capacitador")
         TxtEspecialidades.Text = GvRow.DataKey("Especialidades")
         TxtCedula.Text = GvRow.DataKey("Cedula")
 
-        ChkEstatus.Checked = GvRow.DataKey("Estatus")
-        chkExterno.Checked = GvRow.DataKey("Externo")
+        ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
+        chkExterno.Checked = Boolean.Parse(GvRow.DataKey("Externo"))
 
         BtnAgregarCapacitadorModal.Text = "Actualizar"
 

RH/CatCursosTemas.aspx.vb

@@ -95,8 +95,8 @@ Partial Class RH_CatCursosTemas
     Public Sub Remove_ClickTema(sender As Object, e As EventArgs)
         Dim objRH As New ClsRH
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
-        Dim CveTema As Integer = GvRow.DataKey("CveTema")
+        Dim activo As Boolean = False
+        Dim CveTema As Integer = GvRow.DataKey("CveTema").ToEntero
 
         If objRH.TemasRemove(CveTema) Then
             CargadatosGvTemas()
@@ -109,14 +109,14 @@ Partial Class RH_CatCursosTemas
 
     Public Sub Edit_ClickTema(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
+        Dim activo As Boolean = False
 
         LtlTituloModalTema.Text = "Editar Tema"
         HdModalTemaModalidad.Value = "U"
         HdCveTema.Value = GvRow.DataKey("CveTema")
         TxtTema.Text = GvRow.DataKey("Tema")
 
-        ChkEstatusTema.Checked = GvRow.DataKey("Estatus")
+        ChkEstatusTema.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
         BtnAgregarTemaModal.Text = "Actualizar"
         LoadComboTemas()
         UpModalTema.Update()
@@ -173,8 +173,8 @@ Partial Class RH_CatCursosTemas
     Public Sub Remove_ClickSubtema(sender As Object, e As EventArgs)
         Dim objRH As New ClsRH
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
-        Dim CveTema As Integer = GvRow.DataKey("CveSubtema")
+        Dim activo As Boolean = False
+        Dim CveTema As Integer = GvRow.DataKey("CveSubtema").ToEntero
 
         If objRH.SubtemaRemove(CveTema) Then
             CargadatosGvTemas()
@@ -244,7 +244,7 @@ Partial Class RH_CatCursosTemas
         HdCveSubtema.Value = GvRow.DataKey("CveSubtema")
         DDlTema.SelectedValueExist(GvRow.DataKey("CveTema"))
         TxtSubtema.Text = GvRow.DataKey("Subtema")
-        ChkEstatusSubtema.Checked = GvRow.DataKey("Estatus")
+        ChkEstatusSubtema.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
         LtlTituloModalSubtema.Text = "Editar Subtema"
         BtnAgregarSubtemaModal.Text = "Actualizar"
 

RH/CatEstadoCivil.aspx.vb

@@ -159,7 +159,7 @@ Partial Class RH_CatEstadoCivil
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
         EstadoCivilTxt.Text = GvRow.DataKey("EstadoCivil")
         ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
-        CveEstadoCivilAEditar = GvRow.DataKey("CveEstadoCivil") 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
+        CveEstadoCivilAEditar = GvRow.DataKey("CveEstadoCivil").ToEntero 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
 
         UpDatos.Update()
         If ViewState("Orden").ToString() <> String.Empty Then

RH/CatPersonalRequerido.aspx.vb

@@ -175,7 +175,7 @@ Partial Class RH_CatPersonalRequerido
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
-        Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento")
+        Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento").ToEntero
 
         Dim ObjRH As New ClsRH
 
@@ -196,12 +196,12 @@ Partial Class RH_CatPersonalRequerido
     Public Sub Edit_ClickPersonalReq(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
+        Dim activo As Boolean = False
 
         LtlTituloModalPersonalReq.Text = "Editar Personal Requerido"
         Actualizar = True
 
-        CveRequerimiento = GvRow.DataKey("CveRequerimiento")
+        CveRequerimiento = GvRow.DataKey("CveRequerimiento").ToEntero
 
         CargaProyectos()
         CargaTurno()
@@ -212,7 +212,7 @@ Partial Class RH_CatPersonalRequerido
         ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
 
         ReqTurnoDdl.SelectedValueExist(GvRow.DataKey("CveTurno").ToEntero)
-        TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero
+        TxtCantidad.Text = GvRow.DataKey("Cantidad")
 
         DdlDepartamento.SelectedValueExist(GvRow.DataKey("CveDepartamento").ToEntero)
 

RH/CatPuestosSueldos.aspx.vb

@@ -29,7 +29,7 @@ Partial Class RH_CatPuestosSueldos
         DDL.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (CvePuesto NOT IN({0}) OR CvePuesto={1})", FiltroPuestos, CvePuesto))
         DDL.DataBind()
         If CvePuesto > 0 Then
-            DDL.SelectedValue = CvePuesto
+            DDL.SelectedValueExist(CvePuesto)
         End If
     End Sub
 
@@ -75,7 +75,7 @@ Partial Class RH_CatPuestosSueldos
     Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
         Dim index As Integer = e.RowIndex
         Dim cvepuesto As Integer = GvDatos.Rows(index).FCHiddenField("CvePuesto").Value.ToString.ToEntero
-        Dim Importe As Integer = GvDatos.Rows(index).FCTextBox("TxtSueldo").Text.ToString.ToDouble
+        Dim Importe As Integer = GvDatos.Rows(index).FCTextBox("TxtSueldo").Text.ToString.ToEntero
         Dim objRH As New ClsRH
         If objRH.UpdatePuestosSueldos(cvepuesto, Importe) Then
             GvDatos.EditIndex = -1
@@ -92,7 +92,7 @@ Partial Class RH_CatPuestosSueldos
         Dim index As Integer = e.NewEditIndex
         GvDatos.EditIndex = index
         cargaGVDatos()
-        CargaPuestos(GvDatos.Rows(index).FCDropDownList("DdlPuesto"), GvDatos.Rows(index).FCHiddenField("CvePuesto").Value)
+        CargaPuestos(GvDatos.Rows(index).FCDropDownList("DdlPuesto"), GvDatos.Rows(index).FCHiddenField("CvePuesto").Value.ToEntero)
     End Sub
 #End Region