persistent 0 %Persistent Res.Portal.MakovaUser 1 Res.Portal.Program 1 1 NTUserName,Program 1 1 NTUserName:%String Id = ?"))) Do RS.Execute(NTUserName) ]]> %SQLQuery paUser:%String Name As ProgramName,Program->Location->Caption As ProgramLocationCaption,Program->ID As ProgramID,Program->Icon As ProgramIcon FROM Res_Portal.UserProfiles WHERE (NTUserName = :paUser) ORDER BY Program->Location->VolgNr]]> %SQLQuery paUser:%String,paLocationID:%String Icon As Icon,Program->MakovaParamPiece As MakovaParamPiece,Program->GroupNr As GroupNr, Program->Name As Name,Program->Location->Caption As LocationCaption, Program->Id As Id FROM Res_Portal.UserProfiles WHERE (NTUserName = :paUser) AND (Program->Location=:paLocationID) ORDER BY Program->GroupNr,Program->VolgNr]]> %Library.CacheStorage ^Res.Port.UserProfilesD UserProfilesDefaultData ^Res.Port.UserProfilesD ^Res.Port.UserProfilesI ^Res.Port.UserProfilesS listnode %%CLASSNAME NTUserName Program