1С 8.3 Создать единицу измерения
Данные > Примеры кода 1С > 1С 8.3 Типовые (БП3, ЗУП, УТ)
Перейти в раздел примеры кода 1С 8.3:
Программное создание элемента справочника: единица измерения в 1С 8.3:
Функция НоваяЕдиницаИзмерения(ИмяЕИ) Экспорт // "шт."
Результат = Неопределено;
ЕдИзм = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
ЕдИзм.Наименование = ИмяЕИ;
ЕдИзм.ЕдиницаПоКлассификатору = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду("796");
ЕдИзм.Коэффициент = 1;
ЕдИзм.Владелец = Объект.Ссылка;
Попытка
ЕдИзм.Записать();
Исключение
Сообщить("Не_удалось_записать_единицу_измерения: " + ОписаниеОшибки(), СтатусСообщения.Важное);
КонецПопытки;
Попытка
Результат = ЕдИзм.Ссылка;
Объект.ЕдиницаХраненияОстатков = Результат;
Объект.ЕдиницаДляОтчетов = Результат;
Объект.Записать();
Результат = Неопределено;
ЕдИзм = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
ЕдИзм.Наименование = ИмяЕИ;
ЕдИзм.ЕдиницаПоКлассификатору = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду("796");
ЕдИзм.Коэффициент = 1;
ЕдИзм.Владелец = Объект.Ссылка;
Попытка
ЕдИзм.Записать();
Исключение
Сообщить("Не_удалось_записать_единицу_измерения: " + ОписаниеОшибки(), СтатусСообщения.Важное);
КонецПопытки;
Попытка
Результат = ЕдИзм.Ссылка;
Объект.ЕдиницаХраненияОстатков = Результат;
Объект.ЕдиницаДляОтчетов = Результат;
Объект.Записать();
ФормаЕИ = Объект.Ссылка.ПолучитьФорму();
ФормаЕИ.ЗаписатьВФорме();
Исключение
КонецПопытки;
Возврат Результат;
КонецФункции
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник