From e5d409f8b25d1832a473508012bbace44181b85e Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 22 Nov 2023 09:29:20 -0700 Subject: [PATCH] - option explciit --- Sistemas/CatRoles.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Sistemas/CatRoles.aspx.vb b/Sistemas/CatRoles.aspx.vb index 679ff144d..893e8e3d3 100644 --- a/Sistemas/CatRoles.aspx.vb +++ b/Sistemas/CatRoles.aspx.vb @@ -86,7 +86,7 @@ Partial Class CatRoles Protected Sub GvDatos_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvDatos.RowCommand 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 Dim ObjPermisos As New ClsSisRoles() ViewState("CveRol") = Array(0).ToEntero @@ -105,7 +105,7 @@ Partial Class CatRoles End If End If 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 Dim ObjPermisos As New ClsSisRoles() 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 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 Alert("Se ha eliminado correctamente.", TipoMensaje.MsgInformacion) UpDatos.Update()