procedure TRelevancyGrid.actNewFromLocalUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (Sender as TAction).Visible and dsbRelevancy.DataSet.CanInsert
and (BizDataSetRecordCount <> 0)
and (Access >= TDocAccessUtils.GetAccessKindValue(TDocAccessKind.akCreate));
end;
procedure TRelevancyGrid.actNewFromDocCenterUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (Sender as TAction).Visible and dsbRelevancy.DataSet.CanInsert
and FDocCenterEnabled
and (Access >= TDocAccessUtils.GetAccessKindValue(TDocAccessKind.akCreate));
end;