GeneXus - Permisos de usuarios en sistema de login (Genexus Ev 3)

   
Vista:
Imágen de perfil de Matias

Permisos de usuarios en sistema de login (Genexus Ev 3)

Publicado por Matias Matias.a.lobos@gmail.com (1 intervención) el 19/10/2016 16:51:38
Buenas! Necesito saber como dar ciertos permisos (Como por ejemplo administrador, que pueda ver, leer, modificar o eliminar datos de una tabla. O un usuario común que solo pueda visualizar estos datos) sin el GAM de genexus (Que es demasiado complejo su funcionamiento, al menos como para alguien que esta comenzando como yo).

Os dejo el código que tengo hasta ahora :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Login(Es un web panel que pide que ingreses un usuario y una contraseña y cuando le das al botón llama un procedimiento que valida la información  ingresada)
 
Event 'loging'
 
	&validar = Logear.Udp(&Usuario,&Password)
 
	if &validar = TRUE
		Msg('Bienvenido')
		&ID = UsuarioObtenerID.Udp(&Usuario)
		pagina.Call(&ID)
	else
		Msg('Usuario o password incorrectos')
	endif
Endevent
 
Event 'Registrarme'
 
&Mode=TrnMode.Insert
Usuario.Call(&Mode)
 
Endevent

En registrarme llama a la transacción para dar de alta un nuevo usuario en modo insert.

Procediento Logear

1
2
3
4
5
6
7
8
9
10
11
&validar = FALSE
 
For each Usuario
 
	if UsuarioUsuario LIKE &usuario and UsuarioPassword = &password
 
		&validar = TRUE
	endif
endfor
 
PARM(&usuario,&password,OUT:&validar);


Procedimiento UsuarioObtenerID

1
2
3
4
5
6
FOR EACH Usuario
	WHERE UsuarioUsuario = &Usuario
		&ID = UsuarioCodigo
ENDFOR
 
PARM(IN:&Usuario,OUT: &ID);




Si podrían ayudarme estaría muy agradecido!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder