【搞定】在客户端添加快捷方式的问题**

aPanther · 发表于 2006-11-6 13:42:17

见附件。

liubin · 发表于 2006-11-6 17:08:34

1,需要在‘业务模型\系统空间\系统运行库\系统函数库’里加函数：
static procedure TContextUtils.GetAllocatedFuncs(AContext: TContext; AURLs: TStrings);的里面的
lPosDeputized[J] := TOrgUtils.IsDeputized(TOperatorPosition(lPositions[J]));报错
查看了 TOrgUtils里没有IsDeputized的方法
错误：Biz:\SYSTEM\SYSRUN\SystemUtils.Library.pas:Undeclared identifier "IsDeputized"

aPanther · 发表于 2006-11-6 17:28:46

呵呵，漏掉了，下面代码也加在‘业务模型\系统空间\系统运行库\系统函数库’
static function IsDeputized(APosition: TOperatorPosition): Boolean;

static function TOrgUtils.IsDeputized(APosition: TOperatorPosition): Boolean;
var
  I: Integer;
  lDeputizedURLs: TStringList;
  lItem: TOrgDeputyItem;
begin
  lDeputizedURLs := TStringList.Create;
  try
lDeputizedURLs.Sorted := True;
OrgSys.OrgSystem.GetDeputized(APosition.Operator.ID, lDeputizedURLs);
Result := lDeputizedURLs.IndexOf(APosition.PersonMember.BizURL.URL) <> -1;
  finally
lDeputizedURLs.Free;
  end;
end;

liubin · 发表于 2006-11-7 09:07:00

‘业务模型\协同系统\面板功能\我的功能\收藏夹’里修改procedure TFavoritesDoc.actAddShortCutExecute(Sender: TObject);出错

liubin · 发表于 2006-11-7 09:24:01

好像事找不到或没定义TSelectBizObjectDialog 和TFileStrings

aPanther · 发表于 2006-11-7 10:00:24

请下载2507版本，所有代码里面都有，都在‘业务模型\系统空间\系统运行库\系统函数库’和‘业务模型\协同系统\面板功能\我的功能\收藏夹’中。

aPanther · 发表于 2006-11-7 10:55:20

见附件

stellastarr · 发表于 2007-3-19 14:18:27

平台总是报找不到TFileStrings，我在Delphi帮助中也没有查到，在此请教一下版主

stellastarr · 发表于 2007-3-19 14:28:25

版主看到回复了吗，如果看到了请给个反馈，谢谢：）

atiger · 发表于 2007-3-20 11:04:41

TFileStrings 是平台的，在业务模型\系统空间\用户界面基础\库\公共组件库中

		自动登录	找回密码
密码			立即注册