【结贴】为何流转时报未保存**

william

新建的流程 流传的时候明明已经全部保存了 但还是跳出需要保存。而且点是的话 就要报错 这是为何？

atiger

这应该是有代码参与流程了？你屏蔽这些代码看看

然后一点一点开放，


如果还不行，请把代码贴出来，并把原始的错误也贴出来

william

我只有在flowBroker里面写过些更新标志的代码，我屏蔽过了 不过没有用。代码如下：
procedure TMAINFORM.FlowBroker1AfterFlowBack(Sender: TObject; Command: TFlowBackCommand);
var
  lDataSet: TDataSet;
begin
  lDataSet := DataSetApply.DataSet;
  if not lDataSet.Active then
    lDataSet.Open;
  lDataSet.Edit;
  lDataSet.FieldByName('Status').AsString := '90';
  lDataSet.ApplyUpdates;
end;


procedure TMAINFORM.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  lDataSet: TDataSet;
begin
  lDataSet := DataSetApply.DataSet;
  if not lDataSet.Active then
    lDataSet.Open;
  lDataSet.Edit;
  lDataSet.FieldByName('Status').AsString := '20';
  lDataSet.ApplyUpdates;
end;

procedure TMAINFORM.FlowBroker1AfterTaskAbort(Sender: TObject; Command: TTaskAbortCommand);
var
  lDataSet: TDataSet;
begin
  lDataSet := DataSetApply.DataSet;
  if not lDataSet.Active then
    lDataSet.Open;
  lDataSet.Edit;
  lDataSet.FieldByName('Status').AsString := '00';
  lDataSet.ApplyUpdates;
end;


还有报错信息是这样的：

yancm

Choice是什么列？有特殊处理吗？生成物理表里有这一列吗？

william

没有的啊 是临时字段。

atiger

你看3楼的代码，你在AfterFlowOut 去更新DataSetApply的值了，

另外3楼的错误，你定位一下，出错的代码，在执行哪句报出来的。

william

事实上是在点击流转按钮的时候 就跳出来的 根本没有走到3楼的那些代码。出错的地方代码如下：
procedure TSTANDARDSTYLEMAINFORM.actFlowOutExecute(Sender: TObject);
begin
  if CurrentFlowControl <> nil then
    CurrentFlowControl.FlowOut(nil);
end;

还有就是我是在改过从表里的数据后再流转就出这问题，不过我从表的数据是保存过的。

atiger

你是怎么保存的？点击数据导航条的“保存”按钮吗？

3楼的错误，你定位一下，出错的代码，在执行哪句报出来的。
如果仅仅是3楼的代码，且Choice 这是个临时字段，当然你没有特殊设置数据表现控件，不会报这个错误的。

另外，你屏蔽3楼的代码后，编译了吗？
还有是在设计环境下运行的？还是在运行平台运行的？如果是后者，那么编译后签入了吗？签入后，刷新缓存了吗？这些一步都不能少。

如果还是找不到问题，把资源上传上来，不过我要说的，点击“保存”按钮了，也没有代码参与，不可能出现楼主看到的现象

yancm

看这个错误提示好像是试图保存临时字段
为了确定是不是这个临时字段的错误，你看一下你数据集的Update语句
或者把这个临时字段删了看下还报错吗？

Akon

楼主，检查一下流程中的流程字段看看。