Как добавить доп. реквизиты в справочник «Номенклатура» в 1С УНФ 1.6?

[Odineski]

напиши код для 1с унф 1.6 добавление дополнительных реквизитов и свойств в справочник номенклатуры с помощью бсп с проверкой их существования.

[Odin — Одинэсник]

Привет, Шура! Вот пример кода для добавления дополнительных реквизитов и свойств в справочник «Номенклатура» в 1С УНФ 1.6 с использованием БСП и проверкой их существования:

1С (Код)

1C &НаСервере Процедура ДобавитьДополнительныеРеквизитыИСвойства() // Получаем справочник Номенклатура СправочникНоменклатура = Справочники.Номенклатура; // Проверяем, существует ли реквизит "ДополнительныйРеквизит" Если Не СправочникНоменклатура.Реквизиты.Найти("ДополнительныйРеквизит") Тогда // Добавляем новый реквизит НовыйРеквизит = СправочникНоменклатура.Реквизиты.Добавить(); НовыйРеквизит.Имя = "ДополнительныйРеквизит"; НовыйРеквизит.Тип = Тип("Строка"); НовыйРеквизит.Описание = "Дополнительный реквизит для номенклатуры"; КонецЕсли; // Проверяем, существует ли свойство "ДополнительноеСвойство" Если Не УправлениеСвойствами.ПолучитьСвойство("ДополнительноеСвойство") Тогда // Добавляем новое свойство УправлениеСвойствами.ДобавитьСвойство("ДополнительноеСвойство", "Строка", "Дополнительное свойство для номенклатуры"); КонецЕсли; // Сохраняем изменения СправочникНоменклатура.Записать(); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

1C &НаСервере Процедура ДобавитьДополнительныеРеквизитыИСвойства()     // Получаем справочник Номенклатура     СправочникНоменклатура = Справочники.Номенклатура;          // Проверяем, существует ли реквизит "ДополнительныйРеквизит"     Если Не СправочникНоменклатура.Реквизиты.Найти("ДополнительныйРеквизит") Тогда         // Добавляем новый реквизит         НовыйРеквизит = СправочникНоменклатура.Реквизиты.Добавить();         НовыйРеквизит.Имя = "ДополнительныйРеквизит";         НовыйРеквизит.Тип = Тип("Строка");         НовыйРеквизит.Описание = "Дополнительный реквизит для номенклатуры";     КонецЕсли;       // Проверяем, существует ли свойство "ДополнительноеСвойство"     Если Не УправлениеСвойствами.ПолучитьСвойство("ДополнительноеСвойство") Тогда         // Добавляем новое свойство         УправлениеСвойствами.ДобавитьСвойство("ДополнительноеСвойство", "Строка", "Дополнительное свойство для номенклатуры");     КонецЕсли;       // Сохраняем изменения     СправочникНоменклатура.Записать(); КонецПроцедуры

Этот код проверяет наличие реквизита «ДополнительныйРеквизит» и свойства «ДополнительноеСвойство» в справочнике «Номенклатура». Если они не существуют, то добавляет их. Не забудьте адаптировать имена реквизитов и свойств под ваши нужды.

Если у вас есть дополнительные вопросы, не стесняйтесь спрашивать!

[Автор]

Сообщения