как занести програмнно базовую ед.изм, ЕдиницуХраненияОстатков и Единицу для отч

ЗапросЕдиниц = Новый Запрос;
ЗапросЕдиниц.Текст =
"ВЫБРАТЬ
| ЕдиницыИзмерения.Ссылка,
| ЕдиницыИзмерения.Владелец
|ИЗ
| Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения
|ГДЕ
| ЕдиницыИзмерения.Владелец = &Владелец
| И ЕдиницыИзмерения.ЕдиницаПоКлассификатору = &ЕдиницаПоКлассификатору";

ЗапросЕдиниц.УстановитьПараметр("Владелец", НовыйОбъект.Ссылка);
ЗапросЕдиниц.УстановитьПараметр("ЕдиницаПоКлассификатору", ЕдиницаШтука);

Результат = ЗапросЕдиниц.Выполнить().Выгрузить();
Если Результат.Количество() = 0 ТОгда
НоваяЕдиница = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
НоваяЕдиница.Владелец = НовыйОбъект.Ссылка;
НоваяЕдиница.ЕдиницаПоКлассификатору = ЕдиницаШтука;
НоваяЕдиница.Коэффициент = 1;
НоваяЕдиница.Наименование = ЕдиницаШтука.Наименование;
НоваяЕдиница.Записать();
НоваяЕдиница = НоваяЕдиница.Ссылка;
Иначе
НоваяЕдиница = Результат[0].Ссылка;
КонецЕсли;
Если не ЗначениеЗаполнено(НовыйОбъект.ЕдиницаХраненияОстатков) Тогда
НовыйОбъект.ЕдиницаХраненияОстатков = НоваяЕдиница;
КонецЕсли;
Если не ЗначениеЗаполнено(НовыйОбъект.ЕдиницаДляОтчетов) Тогда
НовыйОбъект.ЕдиницаДляОтчетов = НоваяЕдиница;
КонецЕсли;
Если не ЗначениеЗаполнено(НовыйОбъект.ЕдиницаИзмеренияМест) Тогда
НовыйОбъект.ЕдиницаИзмеренияМест = НоваяЕдиница;
КонецЕсли;
Попытка
НовыйОбъект.Записать();
Исключение
ОбщегоНазначения.СообщитьОбОшибке("Не записан товар "+НовыйОбъект.Наименование);
КонецПопытки;