【结】流程回退的问题**

op+

有个请假流程问题。
请假编号填充的是自动填充属性：（请假编号）代码是自己定义的一个全局变量参数组

procedure TQJCSZ.ParamQJBHGetValue(Sender: TObject; var Value: Variant);   //请假编号
begin
         Value := TCommonUtils.GetAutoIncreaseID(Self.Context,
  TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
  { 可根据需要定制Value的格式 }
  Value := TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0',5);
end;

现在我的请假申请单在回退给张三，在张三待办任务里点击回退的请假申请单时候，点击出来的是新增的一条记录，而不是回退的那条有记录的。。。怎么回事？？

atiger

这应该是你代码做了处理了吧，例如进入功能首先append一条记录，设置断点跟踪一下就知道了

op+

这个是请假申请单创建的时候：
procedure TMAINFORM.BizFormCreate(Sender: TObject);
var
i:string;
begin
lForm:=GZJD.TGZJD.Create(self.Context);
i:=FuncBroker.Func.Parameters;

if strparam ='' then
begin
  DataSetBroker.DataSet.Open;
  DataSetBroker.DataSet.Append;
  //lForm.Free;
exit;
end
else
begin
  TSQLDataSet(DataSetBroker.DataSet).SQLFilter:='BH='''+i+'''';
  TSQLDataSet(DataSetBroker.DataSet).SQLFiltered:=true;
  DocViewQJ_QJBGWD.ReadOnly :=true;
  DataNavigator.Visible:=false;
end;
//lForm.Free;
end;                   当回退时候我参数i不为空啊~~~


这里是新增请假申请单功能：
//新增请假申请
procedure TMAINFORM.labNewClick(Sender: TObject);
var
  lFunc: TFunc;
  lTmpStr: string;
  lContext: TContext;
begin
  lTmpStr:='Biz:\OABGZDHXT\QJJ.FUNC';
   lFunc:=SysTemCore.TSystemCore.FuncManager.FindRunning(lTmpStr);
  if Assigned(lFunc) then
  begin
   SystemCore.TSystemCore.FuncManager.ActivateFunc(lFunc);
   Exit;
  end;
  lContext := TContext.Create(Context.Owner, Context.Parent) ;
  lFunc:=SystemCore.TSystemCore.FuncManager.CreateFunc(lContext, lTmpStr);
  lFunc:=SystemCore.TSystemCore.FuncManager.RunFunc(Context, '', lTmpStr , '', nil, False);
end;

atiger

你跟踪了吗？在按你的要求走吗？传的值对吗?

op+

跟踪了。。其实就象你说的一样开始就append了一条。。我它屏蔽就好了。。但是屏蔽以后窗体Create时候默认为前面提交的那一条记录，就要手动点击新增按钮才新增一条记录。我就想它在Create时候就新增，有什么办法即Create(时候新增，回退时候不新增。~看下我2楼Create(窗体的代码。~~~~~~~~~呵呵

atiger

这个功能是流程的入口功能吗？
如果是，那么判断当前打开的任务是否有前驱任务就可以了

前驱任务如何获取到，请在bbs上以"前驱任务"搜索

op+

OK.结T。

atiger

hao