业务模型\协同系统\文档\关联\文档关联信息\文档关联网格
procedure TRelevancyGrid.actEditUpdate(Sender: TObject);
var
lo: string;
lOrgUnit: TOrgUnit;
lBizUrl : TBizUrl;
begin
(Sender as TAction).Enabled := (Sender as TAction).Visible and dsbRelevancy.DataSet.CanEdit and (RecordCount <> 0) and
ValidSecretLevel and (Access >= TDocAccessUtils.GetAccessKindValue(TDocAccessKind.akEdit));
//判断提交人是不是当前登陆人
(Sender as TAction).Enabled := (Sender as TAction).Enabled or (DataSetDocRelevancy.fieldbyname('FCREATORNAME').AsString = systemcore.TSystemCore.Operator.DISPLAYNAME);
end;