起步软件技术论坛-X3

 找回密码
 立即注册
搜索
楼主: huangyue

流程轨迹问题??**

[复制链接]
发表于 2010-5-5 17:23:24 | 显示全部楼层
调用一下甘特图的refresh方法看看呢?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-6 09:04:41 | 显示全部楼层
这个怎么调用?
回复 支持 反对

使用道具 举报

发表于 2010-5-6 09:10:56 | 显示全部楼层
FlowTrackView1.refresh
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-6 09:57:40 | 显示全部楼层
我是调用“业务模型\系统空间\用户界面基础\界面\系统接口\流程浏览”窗体的
回复 支持 反对

使用道具 举报

发表于 2010-5-6 10:27:33 | 显示全部楼层
把你的代码贴出来看看吧。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-6 11:00:03 | 显示全部楼层
procedure TMAINFORM.ToolButton3Click(Sender: TObject);
begin
  BH := DataGrid1.DataSource.DataSet.FieldByName('bh').AsString;
  Query1.Close;
  Query1.CommandText :='SELECT BZQRJL.*,FID FROM TFLOWID,BZQRJL where TFLOWID.FID='''+bh+'''';
  Query1.Open;
  GetIDStr := Query1.FieldByName('FID').AsString;
  FID := GetIDStr;
  if FID <> '' then
    with LCZYJ.TLCZYJ.Create(Context) do
   begin
      try
      GetFlowForm(FID, SysUtils.UpperCase('Biz:\ZJGLXT\PROC\XJCFF_BZQRJL.PROC'));
      finally
        Free;
      end;
//资源集的
procedure TLCZYJ.GetFlowForm(AGuidStr, ABizURL: string);
var
  lFlowGuid: String;
  lFlow: TFlow;
  lFlowIDQuery: TQuery;
begin
  lFlowIDQuery:= TQuery.Create(Nil);
  try
    lFlowIDQuery.ConnectionString:='DATABASEURL=Biz:\SYSTEM\System.DataBase';
    if AGuidStr <> '' then
    begin
      lFlowIDQuery.Close;
      lFlowIDQuery.CommandText := 'select TFLOW.FGUID from TFLOW,TFLOWID' +
                   ' where TFLOW.FGUID=TFLOWID.FFLOWGUID and TFLOWID.FID=''' + AGuidStr +
                   ''' and TFLOW.FPROCURL = ''' + ABizURL + '''';
      lFlowIDQuery.Open;

      lFlowGuid := lFlowIDQuery.Fields[0].AsString;
      if lFlowGuid <> '' then
      begin
        lFlow := TFlow.Create;
        Flow.FlowEngine.LoadFlow(lFlowGuid, lFlow);//加载流程数据
        if lFlow <> nil then
          TSystemCore.SystemInterface.ShowFlowView(lFlow);//显示
        lFlow.Free;
      end
      else
      begin
        jsDialogs.ShowMsg('该数据还未启动流程!','提示')
      end;
      lFlowIDQuery.Close;
    end
    else
    begin
       jsDialogs.ShowWarning('非流程功能模块!','提示');
    end;
  finally
    lFlowIDQuery.Free;
  end;
end;
回复 支持 反对

使用道具 举报

发表于 2010-5-6 11:06:26 | 显示全部楼层
lFlowGuid := lFlowIDQuery.Fields[0].AsString;
lFlowGuid 的值是你想要的值么?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-6 11:38:30 | 显示全部楼层
是啊。。这个我可以取出相应的值。。。你怀疑是这个的问题?
回复 支持 反对

使用道具 举报

发表于 2010-5-6 13:15:08 | 显示全部楼层
TSystemCore.SystemInterface.ShowFlowView(lFlow);//
看看Flow.id的值是不是你想要的?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-6 15:20:36 | 显示全部楼层
Flow.id的值也是对的啊,取出来的值和流程ID表的ID一样的
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-9 21:30 , Processed in 0.041445 second(s), 13 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表