Отличный скрипт записывающий значение в поле на вкладке "Основная информация" карточки документа любого вида. В данном примере получается текущий пользователь и записывается в поле Регистратор. При необходимости писать в другое поле - просто меняем RegisteredBy на имя поля. Скрипт можно повесить на любое событие.
' Указание регистратора Function DoEvent(UserSession, CardFrame, CardData, ActivateFlags, ModeID, FolderID) With MainInfo(CardData) .Value("RegisteredBy") = StaffObject(UserSession).GetCurrentUserID End With DoEvent = 2 End Function ' Получение 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 ' Нулевая строка секции MainInfo Function MainInfo(CardData) Set MainInfo = Sect(CardData, "MainInfo").FirstRow End Function