You are viewing an old version of this page. View the current version.
Compare with Current
View Page History
Version 1
Next »
' Скрипт на ???
' Добавляет двустороннюю ссылку на карточку с заданным 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