' Скрипт на ??? ' Добавляет двустороннюю ссылку на карточку с заданным ID ' v 1.0.0 Function DoEvent(UserSession, CardFrame, CardData, ActivateFlags, ModeID, FolderID) Dim LinkedID, LinkedCard LinkedID = "<CARD ID>" Set LinkedCard = UserSession.CardManager.CardData(LinkedID) AddCardReference CardData, UserSession, LinkedCard.ID, "Туда" AddCardReference LinkedCard, UserSession, CardData.ID, "Обратно" DoEvent = 2 End Function ' Добавление ссылки Sub AddCardReference(CardData, UserSession, Link, LinkDesc) Dim Refs, Row Set Refs = Sect(CardData, "CardReferences") Set Row = Refs.CreateRow Row.Value("Link") = Link Row.Value("CreationDate") = Now Row.Value("CreatedBy") = StaffObject(UserSession).GetCurrentUserID Row.Value("LinkDesc") = LinkDesc End Sub ' Получение StaffObject Function StaffObject(UserSession) Set StaffObject = CreateObject("TOHelperObjects.StaffObject") Set StaffObject.UserSession = UserSession End Function ' Получение секции карточки по имени Function Sect(CardData, Alias) Set Sect = CardData.Sections(CardData.Type.AllSections.GetByAlias(Alias).ID) End Function