【搞定】[问题] 终止流程出现错误！**

roice

在功能的终止流程中，增加删除文档的代码，增加在FlowBroker1 的AfterTaskAbort 事件中，先提示是否终止流程的提示，然后提示是否保存稿签的提示，最后提示删除文档的提示。

用户在终止流程时出现错误提示：“正在提交！”，后台的文档这时已经被被删除，但流程没有终止。如果再次进入功能信息界面，下方的文档管理栏内的文档图标变为不可识别的图标，再次终止流程报错：“文件"ATTACHOC946D7B5684B349C7AD3D9A73A1F95005.DOC"不存在”，这时流程无法终止。

如何能在后台文档已经不存在的情况下，系统自动判断将关联的文档信息删除？ 或者在存在信息引用文档的情况下，用户无法从后台知识中心删除文档？

roice

procedure TMAINFORM.FlowBroker1AfterTaskAbort(Sender: TObject; Command: TTaskAbortCommand);
var
  docs: TStrings;
  i: integer;
  tmpBool:Boolean;
begin
  tmpBool := False;
  if  (dvDoc.Doc as TRELEVANCYDOC).listview.Items.Count >0 then
    tmpBool:=True;
  if  (dvAttach.Doc as TRELEVANCYDOC).listview.Items.Count >0 then
    tmpBool:=True;
  if tmpBool then
  begin
    if forms.Application.MessageBox('终止流程同时删除文档,是否继续?','提示',4  ) <> 6 then
    begin
      raise Exception.Create('流程未终止！');
    end;
    docs:=TStringList.Create;
    try
      (dvDoc.Doc as TRelevancyDoc).GetDocURLList(docs);
      for i:=0 to  docs.Count-1 do
      begin
        TDocSystem.DeleteFile(docs);
      end;
    finally
       docs.free;
    end;
    (dvDoc.Doc as TRelevancyDoc).DataSet.First;
    while not (dvDoc.Doc as TRelevancyDoc).DataSet.Eof   do
    begin
      (dvDoc.Doc as TRelevancyDoc).DataSet.Delete;
      (dvDoc.Doc as TRelevancyDoc).DataSet.ApplyUpdates;
    end;

      docs:=TStringList.Create;
    try
      (dvAttach.Doc as TRelevancyDoc).GetDocURLList(docs);
      for i:=0 to  docs.Count-1 do
      begin
        TDocSystem.DeleteFile(docs);
      end;
    finally
       docs.free;
    end;
    (dvAttach.Doc as TRelevancyDoc).DataSet.First;
    while not (dvAttach.Doc as TRelevancyDoc).DataSet.Eof   do
    begin
      (dvAttach.Doc as TRelevancyDoc).DataSet.Delete;
      (dvAttach.Doc as TRelevancyDoc).DataSet.ApplyUpdates;
    end;
  end;
end;

roice

出现文件不存在的提示后，再次终止流程出现报错：

这时只有关闭功能，再次进入才可以继续终止流程。

yancm

需求已经提交。

roice

这时无法终止的流程怎么处理？

yancm

手工把文件删掉后可以终止流程吗？

roice

此时的文件已经无法删除了，因为只有文档关联的信息，但是后台的文档已经不存在了，这时删除文档同样出现“文件... 不存在”的报错提示。

yancm

(dvDoc.Doc as TRelevancyDoc).DataSet.First;
    while not (dvDoc.Doc as TRelevancyDoc).DataSet.Eof   do
    begin
      (dvDoc.Doc as TRelevancyDoc).DataSet.Delete;
      (dvDoc.Doc as TRelevancyDoc).DataSet.ApplyUpdates;
    end;
   

   
      
    (dvAttach.Doc as TRelevancyDoc).DataSet.First;
    while not (dvAttach.Doc as TRelevancyDoc).DataSet.Eof   do
    begin
      (dvAttach.Doc as TRelevancyDoc).DataSet.Delete;
      (dvAttach.Doc as TRelevancyDoc).DataSet.ApplyUpdates;
    end;
   
   
以上代码即删除关联的代码。同步的问题后续会由平台提供升级解决。
已经发生问题的数据两个方法：
1。单独执行一下以上代码
2。去数据库文档关联表里面删除相应的记录即可。

roice

这段代码是没有办法单独运行的。

1楼的原因是因为在删除文档时出现错误，程序没有执行后面删除文档关联的操作而导致的，能否类似数据库的操作，删除可以回滚，如果出现错误则不进行任何操作，没有错误则执行所有代码？

yancm

9楼所说的后续版本会封装。