procedure TMainForm.getAllValidFun();
var
lCurContext: TContextCurrent;
lID: String;
begin
lCurContext := TContextCurrent.Create(CommonComponentLibrary.TCommonComponentLibrary.UserSystem.CurrentPosition.Context);
lID := lCurContext.Operator.ID;
lCurContext.Free;
if lpList <> nil then
begin
try
lplist.Clear;
OrgSys.OrgSystem.GetPersonAllFuncs(lID, lplist);
except
JsDialogs.ShowMsg('取当前用户所有功能错误!','提示');
end;
end;
end;