修改:业务模型\协同系统\文档\关联\文档关联信息\文档关联网格
procedure TRelevancyGrid.actNewFromDocCenterUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (Sender as TAction).Visible and dsbRelevancy.DataSet.CanInsert
and FDocCenterEnabled and (BizDataSetRecordCount <> 0)
and (Access >= TDocAccessUtils.GetAccessKindValue(TDocAccessKind.akCreate));
end;