[结贴][请求] 在删除信息同时将关联的文档删除，如何做到同步操作？**

roice

在公文管理功能中，删除公文信息的同时，将关联的文档也同时删除，现在有一个问题：
点击红叉，删除公文信息的时候并没有将此信息真正删除，而是有一个缓冲，点击保存按钮后才真正删除信息，但文档此时却已经从知识中心删除了，如何将文档删除的操作与信息的删除操作同步，即恢复公文信息的时候将文档也恢复？

代码如下，请看看能否有优化的地方：

procedure TMAINFORM.DataNavigator3BeforeAction(Sender: TObject; var Accept: Boolean);
var
  i: integer;
begin
  case TBizDataSetAction(Sender).ID of
    BizActnConsts.ActionDataSetDelete:
    begin
      if forms.Application.MessageBox('删除发文同时删除正文和附件文档,是否继续?','提示',4  ) <> 6 then
      begin
        raise Exception.Create('删除终止');
      end else
      begin
        docs:=TStringList.Create;
        try
         (dvDoc.Doc as TRelevancyDoc).GetDocURLList(docs);
          for i:=0 to  docs.Count-1 do
          begin
            TDocSystem.DeleteFile(docs);
          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;
        finally
          docs.Free;
        end;
        docs:=TStringList.Create;
        try
          (dvattach.doc as trelevancydoc).getdocurllist(docs);
          for i:=0 to  docs.count-1 do
          begin
            tdocsystem.deletefile(docs);
          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;
        finally
          docs.Free;
        end;
      end;
    end;
  end;
end;

yancm

删除文档后无法恢复，唯一的办法是在保存时判断当前状态为删除再将文档删掉。
关于文档和附件的同步，在下一个新发版本会解决（大约为1-2个月）。

roice

如果删除一条数据，就保存 没有问题，但是如果一次操作几个数据，然后再保存如何实现呢？

yancm

如果不进入附件的页面删除，则现在的机制无法删掉附件。无论是一条还是多条。
3楼的意思是在一个列表页面进行删除吧？这样的同步删除需要等我们文档中心更新后支持。