Отличный скрипт записывающий значение в поле на вкладке "Основная информация" карточки документа любого вида. В данном примере получается текущий пользователь и записывается в поле Регистратор. При необходимости писать в другое поле - просто меняем 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