【搞定】阜阳升级后:流程中的问题**

fyzy

见附图,图上有说明
结束前的二个环节都是"异步环节"，升级2800前，在“采购申请审批公司领导”环节弹出流转窗口后，会自动的选中“结束环节”，而现在必须人为的选一下才行。是这样吗，以前的方式很好的。

有这样异步环节的流程都是这样的情况

atiger

问题已经再现，正在找原因

Akon

楼主，请在修改前，一定要先备份系统数据库 。  

修改过程如下：

将 系统空间\用户界面基础\界面库\系统接口\流转窗体代码
中的BizFormShow过程替换
procedure TFLOWOUTFORM.BizFormShow(Sender: TObject);
var
  I: Integer;
  lAllAsy: Boolean;
begin
  Inherited;
  SelectFlowOutUnitForm.Show;
  SelectFlowOutUnitForm.Align := TAlign.alClient;  // 把它移动到这里来，是为了解决98下的刷新问题
  lAllAsy := FlowTasks.Count = 0;
  for I := 0 to FlowTasks.Count - 1 do
  begin
    lAllAsy := FlowTasks[I].IsAsynchronous;
    if not lAllAsy then
      Break;
  end;
  if lAllAsy then
  begin
    RefreshFlowTaskNodes;
    SetDefaultSelectedFlowTaskNode;
  end
  else
    RefreshFlowTaskNodes;
{  if FlowTasks.Count = 0 then
    SetDefaultSelectedFlowTaskNode
  else
    RefreshFlowTaskNodes;
}
  SetDefaultCurSelectedFlowTaskNode;
  SelectFlowOutUnitForm.RefreshFlowChartObjects;
end;

楼主，无论结果怎样，都请跟贴反馈一下

atiger

??

fyzy

试了一个,可以了

atiger

ok,谢谢反馈，结贴了

有问题，请重新开贴吧