Сценарий VBS "Указание значения свойства из универсального справочника"

Function DoEvent(UserSession, CardFrame, CardData, ActivateFlags, ModeID, FolderID)

const SectionNumber = "{B822D7D1-2280-4B51-AE58-A1CF757C5672}"

CardData.Sections(SectionNumber).Rows(18).Value("Value")   = "{1D03A0CD-04BF-4F8E-8C42-8323C0039394}"
CardData.Sections(SectionNumber).Rows(18).Value("DisplayValue")   = "На согласование"

DoEvent = 8 or 16 or 32
End Function