Permisos de usuarios en sistema de login (Genexus Ev 3)
Publicado por Matias (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 :
En registrarme llama a la transacción para dar de alta un nuevo usuario en modo insert.
Procediento Logear
Procedimiento UsuarioObtenerID
Si podrían ayudarme estaría muy agradecido!
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
0