diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index ab70b76b3..afee7485a 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -943,25 +943,22 @@ Partial Class RH_Personal
 
                     divBitacora.Visible = True
                     CargaGvBitacora()
+                    CargaCuentasBancarias()
+                    CarcaConceptosNomina()
+                    CargaFonacot()
                 End If
 
             Else
                 cargatipoTrabajador()
                 MostrarOcultarFechasEstatus()
                 LoadDefaultValues()
-                'Configuración de Modalidad Insert
 
                 ImgAddObs.Visible = False
                 LblFechaCaptura.Text = Now.ToShortDateString()
                 LblUsuarioCapturo.Text = UsuarioActual.Usuario
                 ViewState("CvePersonal") = -1
                 BtnEliminar.Visible = False
-                CarcaConceptosNomina()
-                CargaFonacot()
-                CargaCuentasBancarias()
 
-                'Inicia Permisos
-                'Fin Permisos
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
@@ -3399,7 +3396,7 @@ Partial Class RH_Personal
         End If
 
         LimpiaCuentasBancarias()
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGridCuentasBancos("")
 
         If CvePersonal > 0 Then
             CargaGvBitacora()
@@ -3412,7 +3409,6 @@ Partial Class RH_Personal
     End Sub
     Private Sub CargaCuentasBancarias()
         Dim ObjCuentasBancos As New ClsGenerales
-        ViewState("OrdenCuentasBancos") = ""
         DTCuentasBancos = New DataTable
         TempDTCuentasBancos = New DataTable
 
@@ -3427,7 +3423,7 @@ Partial Class RH_Personal
         End If
 
         ObjCuentasBancos.Dispose()
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGridCuentasBancos("")
     End Sub
 
 #Region "GRIDVIEW - CUENTAS BANCARIAS"
@@ -3485,11 +3481,11 @@ Partial Class RH_Personal
 
 
         GvBancosCuentas.EditIndex = e.NewEditIndex
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGridCuentasBancos("")
     End Sub
     Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit
         GvBancosCuentas.EditIndex = -1
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGridCuentasBancos("")
     End Sub
     Protected Sub GvBancosCuentas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBancosCuentas.RowUpdating
         Dim NombreBanco = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim
@@ -3582,7 +3578,7 @@ Partial Class RH_Personal
         ObjCuentasBancos.Dispose()
 
         GvBancosCuentas.EditIndex = -1
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGridCuentasBancos("")
         CargaGvBitacora()
     End Sub
     Protected Sub GvBancosCuentas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvBancosCuentas.RowDeleting
@@ -3600,7 +3596,7 @@ Partial Class RH_Personal
             TempDTCuentasBancos.Rows.RemoveAt(index)
         End If
 
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGridCuentasBancos("")
         ObjCuentasBancos.Dispose()
         CargaGvBitacora()
     End Sub