Тема: Не заполняется атрибут типа Классификатор
Подскажите как заполнить атрибут содержащий значение классификатора. Перепробовал все варианты пришедшие в голову, пишет "Объект не найден" и хоть убейся.
Подобная процедура используется для заполнения подразделения в альбомах, но здесь не срабатывает.
Sub Object_Created(pObject, pParentObject)
Set CurUser = ThisApplication.CurrentUser'PosUsers("NODE_SECRETARY")
Set Secretary = pObject.Attributes("ATTR_SECRETARY").User
Set Executor = pObject.Attributes("ATTR_EXECUTOR").User
Call AddRole(pObject, Secretary, "ROLE_SEND_MAIL", False)
Call AddRole(pObject, CurUser, "ROLE_SEND_MAIL", False)
Call AddRole(pObject, Executor, "ROLE_FILES_VIEW", False)
'Заполняем журнал регистрации
Set journal = ThisApplication.Root.ContentAll.ObjectsByDef("OBJECT_MAGAZIN_OUTMAIL").item(0)
"Получаем табличный атрибут объекта, в который необходимо записать значение классификатора. Он тоже имеет тип классификатор.
Set JournalRows = journal.Attributes("ATTR_MAGAZINE_OUTMAIL").Rows
Set NewRow = JournalRows.Create
'Получаем значение классификатора
TypMail = ThisObject.Attributes("ATTR_TYPE_MAIL").Classifier.SysName
NewRow.Attributes("ATTR_DATE").Value = ThisObject.Attributes("ATTR_DATE").Value
NewRow.Attributes("ATTR_NUMBER").Value = ThisObject.Attributes("ATTR_NUMBER").Value
NewRow.Attributes("ATTR_OBJECT") = ThisObject
NewRow.Attributes("ATTR_TEMA").Value = ThisObject.Attributes("ATTR_TEMA").Value
NewRow.Attributes("ATTR_EXECUTOR").User = ThisObject.Attributes("ATTR_EXECUTOR").User
NewRow.Attributes("ATTR_COMMENTS").Value = ThisObject.Attributes("ATTR_COMMENTS").Value
'При присвоении значения выдает отсутствие объекта, хотя в таблице и объекте есть атрибут со значением классификатора. Руками выбирается и заполняется вполне спокойно.
NewRow.Attributes("ATTR_TYPE_MAIL").Classifier = ThisApplication.Classifiers("NODE_TYPE_MAIL").Classifiers.Find(TypMail)
NewRow.Attributes("ATTR_ADRESES").Value = ThisObject.Attributes("ATTR_ADRESES").Value
End Sub