RH/Personal.aspx.vb

@@ -809,9 +809,6 @@ Partial Class RH_Personal
             ViewState("Archivo") = ""
             DTConsumos = Nothing
 
-            If UsuarioActual.CveRol = 1 Or UsuarioActual.CveEmpresa = 74 Then
-                TabGES.Visible = True
-            End If
 
             SetValues()
             'SetPermisos() 
@@ -3085,8 +3082,10 @@ Partial Class RH_Personal
 
         End If
     End Sub
-    Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
-        Dim gvrow As GridViewRow = GvBancosCuentas.Rows(e.NewEditIndex) 'DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
+    Protected Sub LnkshowEditcuentasbancarias_Click(sender As Object, e As EventArgs)
+        Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         BtnActualizarCuentaBanco.Visible = True
         BtnAgregarCuentaBanco.Visible = False
         'CveCuentaDeposito,CveSATBanco,Cuenta,CLABE,EstatusPagoElectronico,CveMoneda
@@ -3099,9 +3098,12 @@ Partial Class RH_Personal
         ChkEstatuscuenta.Checked = gvrow.DataKey("EstatusTexto").ToUpper().Contiene("TRUE", "1", "ACTIVO")
         UpCuentasVancarias.Update()
         RegistraScript("$('#DivCuentasVancarias').modal();")
+    End Sub
+    Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
 
-        'GvBancosCuentas.EditIndex = e.NewEditIndex
-        'CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+
+        GvBancosCuentas.EditIndex = e.NewEditIndex
+        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
     End Sub
     Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit
         GvBancosCuentas.EditIndex = -1
@@ -6477,4 +6479,6 @@ Partial Class RH_Personal
         End If
         ObjBancos.Dispose()
     End Sub
+
+
 End Class