-mejora

Sistemas/RolesDetalle.aspx.vb

@@ -29,7 +29,7 @@ Partial Class Sistemas_RolesDetalle
         CargaGridProcesos()
         CargaUsuarios()
 
-        DdlModulo.DataSource = GlobalDTModulos()
+        DdlModulo.DataSource = GlobalDTModulos().FiltraParametros("", Orderby:="Modulo")
         DdlModulo.DataBind()
 
         If CveRol <> -1 Then
@@ -153,11 +153,10 @@ Partial Class Sistemas_RolesDetalle
         Dim TieneError As Boolean = False
 
         If CveRol <> -1 Then
-            If TxtRol.Text <> LblRol.Text And CveRol <> -1 Then
-                If Not Roles.UpdateRol(DdlModulo.SelectedValue.ToEntero, TxtRol.Text, UsuarioActual.CveUsuario, CveRol) Then
-                    TieneError = True
-                    Exit Sub
-                End If
+
+            If Not Roles.UpdateRol(DdlModulo.SelectedValue.ToEntero, TxtRol.Text, UsuarioActual.CveUsuario, CveRol) Then
+                TieneError = True
+                Exit Sub
             End If
 
             'Agregar Indicadores