【搞定】平台中客户中心新建任务的机制**

stellastarr · 发表于 2007-7-9 15:06:21

版主，我想问一下关于系统平台中，在客户中心中选定客户后，切换到任务中心，此时新建任务时客户自动填充为当前选定的客户，并且去掉该客户后再下拉选择，仍然是当前客户，我想知道平台是如何实现的，请版主给予明确回复，谢谢

yancm · 发表于 2007-7-9 17:21:00

未发现楼主所说机制

stellastarr · 发表于 2007-7-9 17:42:22

比如说：在客户中心的任务中心新建工作任务

stellastarr · 发表于 2007-7-9 17:46:46

新建工作任务之后，客户的下拉查找：

atiger · 发表于 2007-7-9 17:50:03

通过业务语义策略来过滤的，
在“业务模型\协同系统\协同数据库\系统\业务数据表” 这个表中 “客户ID”和“客户名称”都用到了业务元素。

然后在功能上代码加上数据过滤的范围，
在，业务模型\业务系统\客户关系管理(CRM)\客户管理\客户中心的功能上，写了一个公共的方法
procedure TCUSTOMERMNGFUNC.ResetTaskDataPolicy(const ACustomID: string);
begin
SememicDataPolicy.BizRange.Text :=
SysUtils.Format('&[Biz:\SYSTEM\SysElements.ElementGroup\Party.Element]=''%s''', [ACustomID]);
end;
在其他地方调用

stellastarr · 发表于 2007-7-10 09:10:37

在哪个地方调用呢，请版主再说详细一些

atiger · 发表于 2007-7-10 15:20:56

你看客户中心里面的代码了吗？
在tbTabChange 事件，这里设置断点跟踪一下，哪里执行到上面定义的策略了，

stellastarr · 发表于 2007-7-10 15:42:47

客户中心中没有tbTabChange 事件呀

atiger · 发表于 2007-7-10 16:15:07

你们用的是老版本，你打开客户中心，见图，看看红色框的事件，

atiger · 发表于 2007-7-10 16:27:51

procedure TMainForm.RefreshTaskPage;
。。。
TaskDoc.Filter := '&[Biz:\SYSTEM\SysElements.ElementGroup\Party.Element] = ''' +
CustomerIndexDataSet.FieldByName('CUSTOMERID').AsString + '''';
。。。

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