阜阳2827升级3012出现供应链问题**

Crazy_wen2006

版本：由2827升级到3012
出现问题，在选定审批人之后，点击“确定”出现正在提交对话框，没有反应。

atiger

楼主，你有代码参与流程的流转动作吗？主要是提交数据这部分，如果有，先把提交屏蔽掉，然后运行看看

Crazy_wen2006

j截图

lixy

看看继承的功能和窗体的代码

Crazy_wen2006

应该没有代码参与

lixy

？？在您的代码上看的出来功能是继承下来的。
应该是对数据集进行了多次提交。
http://bbs.justep.com/forum.php?mod=viewthread&tid=21996

Crazy_wen2006

点击从初始化运行，在选定审批人之后，点击“确定”出现如图所示错误，代码停留在红色区
procedure TSCMObjectDataSetContainer.ApplyUpdates;
var
  I: Integer;
begin
  for I := 0 to DataSetCount - 1 do
  begin
    if (DataSets[I] <> nil) and
      DataSets[I].UpdatesPending and
      DataSets[I].UpdateOptions.Enabled {and
      not DataSets[I].Relation.Active }then
       DataSets[I].ApplyUpdates(False);
  end;
end;

procedure TSCMObjectDataSetContainer.CancelUpdates;
var
  I: Integer;
begin
  for I := 0 to DataSetCount - 1 do
  begin
    if DataSets[I] = nil then
      Continue;

    if DataSets[I].State in [TDataSetState.dsInsert, TDataSetState.dsEdit] then
      DataSets[I].Cancel;
    if DataSets[I].UpdatesPending then
      DataSets[I].CancelUpdates;
  end;
end;

procedure TSCMObjectDataSetContainer.DisableControls;
var
  I: Integer;
begin
  for I := 0 to DataSetCount - 1 do
    if DataSets[I] <> nil then
      DataSets[I].DisableControls;
end;

procedure TSCMObjectDataSetContainer.EnableControls;
var
  I: Integer;
begin
  for I := 0 to DataSetCount - 1 do
    if DataSets[I] <> nil then
      DataSets[I].EnableControls;
end;

{ TSCMInvVoucher }
const
  MaxInvVoucherDetailCount = 1000;

constructor TSCMInvVoucher.Create;
begin
  SetLength(FDetails, MaxInvVoucherDetailCount);
end;

procedure TSCMInvVoucher.Add(const ItemCode, InvAccount, WhsCode: string;
  Operator: TInvOperator; Quantity, Price, Sum: Double);
begin
  FDetails[FCount].ItemCode := ItemCode;
  FDetails[FCount].InvAccount := InvAccount;
  FDetails[FCount].WhsCode := WhsCode;
  FDetails[FCount].Operator := Operator;
  FDetails[FCount].Quantity := Quantity;
  FDetails[FCount].Price := Price;
  FDetails[FCount].Sum := Sum;
  Inc(FCount);
end;

function TSCMInvVoucher.SumSum: Double;
var
  I: Integer;
begin
  Result := 0;
  for I := 0 to Count - 1 do
    Result := Result + FDetails[I].Sum;
end;

var
  OINMData: object;

{ TSCMInvAccount }

Crazy_wen2006

在系统的主界面的onshow事件中，写了
flow.FlowControlProviderTransaction := False

还是不行，求助？

atiger

楼主，你把7楼的红色代码屏蔽，保存，保存后编译，编译后签入，签入后刷新，然后运行看看是否正常，主要看两点
1、看运行是否报错？
2、数据是否保存进来了？

Crazy_wen2006

运行不再报错，但不能自动更新了，也不能产生协同任务了。
例：部门领料单----部门审批------仓库管理员
目前部门审批完之后仓库管理员平台上不出现任务，以前出现。