10. April 2006 11:19
MemberOf_Rec.SETCURRENTKEY("User ID","Role ID");
MemberOf_Rec.SETRANGE("User ID",USERID);
MemberOf_Rec.SETRANGE("Role ID",'ROLLE LV');
IF MemberOf_Rec.FIND ('-') THEN
Rolle_LV := TRUE;
BSP_User_rec.SETCURRENTKEY("Actual Structure");
BSP_User_rec.SETRANGE("User ID",USERID);
IF BSP_User_rec.FIND('-') THEN
BEGIN
rec_Structure := BSP_User_rec."Actual Structure";
END;
LV_von := COPYSTR(rec_Structure,1,2) + '000000';
LV_bis := COPYSTR(rec_Structure,1,2) + '999999';
IF Rolle_LV = TRUE THEN BEGIN
Structure.SETCURRENTKEY("Structure No.");
FILTERGROUP(6);
Structure.SETFILTER(Structure."Structure No.", 'LV_von..LV_bis');
FILTERGROUP(0);
END;
10. April 2006 11:50
Structure.SETFILTER(Structure."Structure No.",'%1..%2',LV_von,LV_bis);
10. April 2006 11:54
mgerhartz hat geschrieben:
- Code:
[...]
Structure.SETFILTER(Structure."Structure No.", 'LV_von..LV_bis');
Structure.SETFILTER(Structure."Structure No.", '%1..%2',LV_von,LV_bis);
10. April 2006 11:55
10. April 2006 11:58
10. April 2006 11:58