делается сие шаманство следующим образом:
в системе есть замечательная таблица Member Of - она как раз и содержит назначения всех ролей.
то бишь можешь сделать так:
//предварительно объяви переменную MemberOf (Record Member Of)
MemberOf.SETRANGE("User ID", UPPERCASE(USERID));
а теперь просто
IF MemberOf.FIND('-') THEN
REPEAT
//цикл по всем назначенным залогиневшемуся юзверю ролям
// естественно в качестве userid можешь взять любой логин
UNTIL MemberOf.NEXT = 0;
но можешь еще поставить фильтр типа
MemberOf.SETRANGE("Role ID", Text003);
и уже потом сделать
IF MemberOf.FIND('-') THEN
//значит принадлежит
|