! | Правила, п.5. И не надо писать большими буквами! |
! | Правила, п.5. И не надо писать большими буквами! |
Ссылка = Объект.Ссылка;
БазоваяЕдиницаИзмерения = Объект.БазоваяЕдиницаИзмерения;
ВыборкаЕдиниц = Справочники.ЕдиницыИзмерения.Выбрать(, Ссылка);
Если ВыборкаЕдиниц.Следующий() Тогда
НайденнаяЕдиница = ВыборкаЕдиниц.Ссылка;
Иначе
НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
НайденнаяЕдиницаОбъект.Наименование = СокрЛП(БазоваяЕдиницаИзмерения);
НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = БазоваяЕдиницаИзмерения;
НайденнаяЕдиницаОбъект.Коэффициент = 1;
НайденнаяЕдиницаОбъект.Владелец = Ссылка;
НайденнаяЕдиницаОбъект.Записать();
КонецЕсли;
Объект.ЕдиницаХраненияОстатков = НайденнаяЕдиницаОбъект.ссылка;
Объект.ЕдиницаДляОтчетов = НайденнаяЕдиницаОбъект.ссылка;