[分享]文档关联：按组织机构分文件夹存储附件**

yancm

针对20楼的限制，给出一个规避方案：
对于某个用到附件的功能里面的代码进行修改，而不改动系统文档关联表单的代码。
修改如下：
１。在这个功能里面添加上SetOrgDir，这个方法就是获得您要存储的具体位置。详细代码见１楼。这个方法也可以放在资源集中定义作为公共方法，以便多个功能调用。
２。在文档关联表单里面修改代码：

procedure TMainForm.DataSetBroker1AfterScroll(DataSet: TDataSet);　//此部分不变，具体参数含义见文档关联的使用说明文档。
begin
  (DocView1.Doc as TRelevancyDoc).FuncURL :='Biz:\YANCMPRIVATE\FUNC\CSWDGLGN.Func';
  (DocView1.Doc as TRelevancyDoc).Load('',
['Biz:\YANCMPRIVATE\PRIVATE.DATABASE\YCM_EASY.Table\ID.Field'],
         [DataSet.FieldByName('ID').AsString],True, TDocAccessKind.akAll);

procedure TMainForm.BizFormShow(Sender: TObject);
begin
  DataSetBroker1AfterScroll(DataSetBroker1.DataSet);
  (DocView1.Doc as TRelevancyDoc).Dir:=SetOrgDir((DocView1.Doc as TRelevancyDoc).Dir); //在这里添加一句调用SetOrgDir的方法。
end;

roice

采取修改文档关联中文档保存位置的方法添加文档了，暂时先这样添加数据，谢谢！