【结贴】这个代码要怎么写呢?

zql · 发表于 2007-10-9 14:57:14

执行规则设置:GetProcUnitExecutorDept('功能环节2', True) ,这是得到功能环节1执行者的部门吧.当流程走到功能环节2时,该部门中具有执行功能环节2权限的人就可以对这个进行操作,对吧?
现在我想实现这样一个效果:用下面的这代码得到部门,各部门中也有相应的人具有功能环节2的权限(
procedure TZGSH.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lFlowTask:TFlowTask;
  lOrgURL: TOrgURL;
  bm,gw,ry:string;
begin
  Inherited;
lFlowTask := Command.FlowTasks.FindFlowTask('YRBMZGSH');//根据任务环节查找任务
  if lFlowTask <> nil then
  begin
   bm:= DataSetBroker1.DataSet.FieldByName('ADepartment').AsString;
   ……
end；
得到部门(bm)后,实现上述执行规则的功能
也就是当部门为ITB的时候, ITB中有权限的人能操作;当得到的部门如果是人力资源部的时候,该部门中的某个人有操作该环节的权限
注意:得到的部门只能由这段代码来得到,是一个变量,不一定是某环节的执行者

jiahaiminghr · 发表于 2007-10-9 15:05:06

lFlowTask.AllowExecutorRange := '组织机构表达式';

jiahaiminghr · 发表于 2007-10-9 15:05:11

http://bbs.justep.com/forum.php?mod=viewthread&tid=18507

zql · 发表于 2007-10-9 16:52:08

还有其他方法吗？

zql · 发表于 2007-10-9 16:53:26

现在没什么时间看组织结构表达式的知识。看了也写的不一定对
能不能给个现成的

jiahaiminghr · 发表于 2007-10-9 16:54:28

2楼的方法完全可以满足楼主的需求啊！

zql · 发表于 2007-10-9 17:04:14

贾老师，您给写个组织机构表达式吧

jiahaiminghr · 发表于 2007-10-10 08:47:52

OrgChildren(OrgKey('KFB', '', ''), '', True, False)

这个表达式可以得到部门下所有的子。
这样就可以过滤出部门下有权限的所有人员成员了。

lixy · 发表于 2007-10-26 09:23:40

楼主请回馈

zql · 发表于 2007-10-31 12:04:07

先结了,有问题我再开

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