【搞定】获取流程步骤名称的问题**

Coordinator

str := FlowBroker1.FlowControl.CurrentProcUnit.ID;
用了这句但是报错
就是要获取当前流程和后续流程的名称

Coordinator

这个也试了
FlowBroker1.FlowControl.CurrentProcUnit.LeadingUnits[0].ID
都是同样的错误 请帮忙

lisb

你是在哪写的代码？我测试没有问题啊.

Coordinator

BizFormShow 的事件里阿
procedure TMainForm.GetSuccedentUnits();
var
  I: Integer;
  lUnits: TList;
begin
  lUnits := TList.Create;
  try   
    FlowDDLR.FlowControl.CurrentProcUnit.GetSuccedentUnits(lUnits,
      [TProcUnitKind.ukActivity], [TProcUnitKind.ukActivity]);  // ukActivity表示活动环节
    AComboBox.Items.Add('下一活动环节列表');
    for I := 0 to lUnits.Count - 1 do
    begin
      AComboBox.Items.Add(TProcUnit(lUnits[I]).ID);   //环节列表中的环节ID
      AComboBox.Items.Add(TProcUnit(lUnits[I]).DisplayName);  
    end;
  finally
    lUnits.Free;
  end;
  AComboBox.ItemIndex:=0;
end;
这个也用过也不成

lisb

我用你上面的代码测试也没有重现出来错误，估计和版本有关系吧，你们那是一个特殊的版本吧，上次发的贴子里说点任何功能都报错的问题解决了吗？估计跟上次那个一样，你们版本搞乱了吧．

Coordinator

找到原因了 我的那个流程是在showmadol窗体里的 所以提示那个错误， 如果直接在平台上启动就没有错误了 如何解决阿

lisb

在创建子窗体的时候这样写看看是否还有问题
procedure TMAINFORM.BitBtn1Click(Sender: TObject);
var
  lCT1: TCT1;
  lURL: TBizClassURL;
begin
  lURL := TBizClassURL.Create;
  lURL.BizURL.URL := 'Biz:\NRJBYWKJ\SQ1.FUNC\CT1.Form';
  lCT1 := Context.GetBizObject(lURL) as TCT1;
  lCT1.ShowModal;
end;

Coordinator

试了 还是不行 还是同样的错误

lisb

在＂悄悄话＂中发个ｑｑ过来吧，我们用ｑｑ远程连上去看一下．

lisb

已经远程看了，是通过一个非流程的功能create的方式创建流程中的功能的窗体，然后在这个窗体中又创建子窗体来访问流程实例，这样并没有流程环境所以报指针错，通过RunFunc函数运行那个流程功能就可以了。