AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- option explciit

Browse Source
This commit is contained in:
rrene
2023-11-22 09:29:20 -07:00
parent f1370ee678
commit e5d409f8b2
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Sistemas/CatRoles.aspx.vb
View File

@@ -86,7 +86,7 @@ Partial Class CatRoles
Protected Sub GvDatos_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvDatos.RowCommand Protected Sub GvDatos_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvDatos.RowCommand
If e.CommandName = "Permisos" Then If e.CommandName = "Permisos" Then
Dim Array = e.CommandArgument.ToString.Split("|"c) Dim Array As String() = e.CommandArgument.ToString.Split("|"c)
If Array.Length = 2 Then If Array.Length = 2 Then
Dim ObjPermisos As New ClsSisRoles() Dim ObjPermisos As New ClsSisRoles()
ViewState("CveRol") = Array(0).ToEntero ViewState("CveRol") = Array(0).ToEntero
@@ -105,7 +105,7 @@ Partial Class CatRoles
End If End If
End If End If
If e.CommandName = "Procesos" Then If e.CommandName = "Procesos" Then
Dim Array = e.CommandArgument.ToString.Split("|"c) Dim Array As String() = e.CommandArgument.ToString.Split("|"c)
If Array.Length = 2 Then If Array.Length = 2 Then
Dim ObjPermisos As New ClsSisRoles() Dim ObjPermisos As New ClsSisRoles()
ViewState("CveProceso") = Array(0).ToEntero ViewState("CveProceso") = Array(0).ToEntero
@@ -173,7 +173,7 @@ Partial Class CatRoles
Protected Sub GvDatos_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting Protected Sub GvDatos_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
Dim Rol As New ClsSisRoles Dim Rol As New ClsSisRoles
Dim Clave = GvDatos.Rows(e.RowIndex).DataKey("CveRol").ToEntero Dim Clave As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveRol").ToEntero
If Rol.RemoveRol(Clave) Then If Rol.RemoveRol(Clave) Then
Alert("Se ha eliminado correctamente.", TipoMensaje.MsgInformacion) Alert("Se ha eliminado correctamente.", TipoMensaje.MsgInformacion)
UpDatos.Update() UpDatos.Update()