‘正在提交’的问题**

ufida

参考了http://bbs.justep.com/forum.php? ... D%D4%DA%CC%E1%BD%BB

中解决方法，由于目前对主和从数据集需要进行update，看此帖的解决方案UFIDA俄版本是否需要升级？

lisb

什么版本，跟流程有关吗？代码怎么写的？

jiahaiminghr

在提交主数据集时，系统会同时提交从数据集。

系统要求在同一个事务中，一个TSqlDataSet只能ApplyUpdates一次，如果执行多次，会出现正在提交的错误提示。

楼主可以检查一下是否由于上述原因导致一楼错误。

ufida

procedure TXQSPZCT.FlowBroker1BeforeFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
var
PROJECTNO:String;
i:Integer;
begin
if Command.FlowControl.CurrentProcUnit.ID='XQSQITKFSPGN' then
begin
DataSetBroker1.DataSet.Edit;
DataSetBroker1.DataSet.FieldByName('AUDITSTATUS').AsInteger:=9;
DataSetBroker1.DataSet.ApplyUpdates(False);

PROJECTNO:=DataSetBroker1.DataSet.FieldByName('PROJECTNO').AsString;
if  PROJECTNO<>'InputNo' then
begin
DataSetBroker2.DataSet.DisableControls;
//DataSetBroker2.DataSet.First;

jsdialogs.ShowMsg(sysutils.IntToStr(DataSetBroker2.DataSet.RecordCount),'count');
for i:=0 to DataSetBroker2.DataSet.RecordCount-1 do
//while not DataSetBroker2.DataSet.Eof do
begin
DataSetBroker2.DataSet.Edit;
DataSetBroker2.DataSet.FieldByName('PROJECTNO').AsString:=PROJECTNO;
DataSetBroker2.DataSet.Post;
DataSetBroker2.DataSet.Next;
end;//for
DataSetBroker2.DataSet.ApplyUpdates(False);
//DataSetBroker2.DataSet.Refresh;
DataSetBroker2.DataSet.EnableControls;
Command.Accept:=True;
end else
begin
jsdialogs.ShowMsg('项目编号为空，流程不能结束，请回退填写','提示');
Command.Accept:=False;
end;//if


end;//if

end;

ufida

不过上面改用DataSetBroker2.DataSet.ApplyUpdates(False);加了false参数后就好了，主要看了那个帖子，不知是否跟升级是否有关，我们版本是3.0.6.2617

lisb

这个是2617版本的一个缺陷，最新版本已经解决。

jiahaiminghr

ApplyUpdates(Cascade: Boolean);

Cascade是控制是否级联提交主从数据集。