SQL pour la confidentialité sous HR Access
Par AMO
LB12-Liste de toutes les activités (Windows)
select a.TYENTI, a.CDENTI, a.LILONG
from HR.LB12 a
where TYENTI = 'HB' and a.CDLANG = 'F'
RM10-Liste des rôles (Windows)
select a.ROLMOD, b.TYELEM, b.LABEL, a.*
from HR.RM10 a, HR.RM11 b
where a.ROLMOD = b.ROLMOD and b.CDLANG = 'F' and b.IDELEM = ' '
EN10-Description des activités (Windows)
select b.TYENTI, b.CDENTI, CONVERT(
varchar(max),
cast('' as XML).value('xs:base64Binary(sql:column("BASE64_COLUMN"))', 'VARBINARY(MAX)')
) as result from
(select a.TYENTI, a.CDENTI, SUBSTRING(a.MINXML,105,1000) AS BASE64_COLUMN
from HR.EN10 a
where TYENTI = 'HB') b
RM30-Liste des activités par modèles de rôle (Windows)
select a.ROLMOD, b.TYELEM, b.LABEL, a.CDACTV, c.LILONG, a.FLSBDP, a.FLCOTX
from HR.RM30 a, HR.RM11 b, HR.LB12 c
where a.ROLMOD = b.ROLMOD and b.CDLANG = 'F' and b.IDELEM = ' ' and c.TYENTI = 'HB' and c.CDLANG = 'F' and a.CDACTV = c.CDENTI
Utilisateur-Déconnexion
update uc10 set crypto = '0' where cdutil = 'AMON';
update uc10 set cdpass = 'HR' where cdutil = 'AMON';
update uc10 set timpsw = '01/01/0001' where cdutil = 'AMON';
update uc10 set lastcn = '01/01/0001' where cdutil = 'AMON';
update uc10 set zonpsw = '0' where cdutil = 'AMON';
select * from uc10 where cdutil = 'AMON' ;
UC10-La table des utilisateurs
select * from uc10 where cdutil = 'Matricule' ;
select a.matcle, a.prenom, a.nomuse, b.userid from zy00 a, zyy2 b
where a.nudoss = b.nudoss
and a.nomuse like '%'|| upper('Motif') || '%' ;
Comptes utilisateurs internes
select a.matcle, substr(b.lognid,1,15) as "ID de connexion" from zy00 a, zy4i b
where a.nudoss = b.nudoss ;