【搞定】根据已知条件，如何自动取得下一个环节的执行部门？

wkj · 发表于 2007-3-9 09:21:09

一个工作任务至领导审批并明确责任部门，如何用代码实现：根据先择的责任部门，下一个环节，直接发送到该部门下的人员？请给予指导。

atiger · 发表于 2007-3-9 09:48:40

其实你这个就是根据当前记录选择好部门或者岗位等等，然后流转的时候直接流转到这个部门上，不需要操作者再次选择任务的接受者，

代码指定下个环节的接受者，参考：http://bbs.justep.com/forum.php?mod=viewthread&tid=1207

屏蔽流转选择的对话框：http://bbs.justep.com/forum.php?mod=viewthread&tid=953 5楼

aDragon · 发表于 2007-3-9 10:03:35

应该是这个
http://bbs.justep.com/forum.php?mod=viewthread&tid=4085

wkj · 发表于 2007-3-9 17:10:55

procedure TBGSQS1.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);

var
   lFlowTask:TFlowTask;
   lexecrange:string;
   lperson: string;
begin
lFlowTask:=command.FlowTasks.FindFlowTask('ZRDWFK') ;
if lflowTask<>nil then
   begin
      lflowtask.ProcUnit.ID :='ZRDWFK';
      lFlowTask.Executors.Clear;

      lexecrange:='OrgChildren(OrgKey('''+datasetbroker1.dataset.fieldbyname('zrbm').asstring+''','''',''''),'''',true,false)';
      lFlowTask.AllowExecutorRange:=lexecrange;
      lFlowTask.ExecutorRange:=lexecrange;

   end;
end;

aDragon · 发表于 2007-3-9 17:23:15

跟踪看看datasetbroker1.dataset.fieldbyname('zrbm').asstring是什么值

wkj · 发表于 2007-3-9 17:42:38

请问怎么跟踪？是不是还要引用什么单元？

aDragon · 发表于 2007-3-9 20:32:43

设断点！

wkj · 发表于 2007-3-11 15:11:25

已解决,谢谢

atiger · 发表于 2007-3-12 09:34:35

ok，请把方法共享出来吧

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

【搞定】根据已知条件，如何自动取得下一个环节的执行部门？

不知错在哪里了

请问怎么跟踪

已解决,谢谢