admin/kb-personal
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

edit

Browse Source
This commit is contained in:
wakadakawaka 2025-07-14 20:49:54 +05:00
parent 83ec66bd55
commit d529eee314
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/content/docs/knowledge-base/Общие/(БСП) Стандартные подсистемы/Свойства/Подключение к подсистеме Свойства.md
View File

@ -326,14 +326,21 @@ __В модуле объекта метаданных, по которому о
Процедура ЗаполнитьНаборСвойствПоВидуНоменклатуры(Номенклатура, ТипСсылки, НаборыСвойств)
// безопасная безопасность
Если ТипЗнч(Номенклатура) = ТипСсылки Тогда
ДанныеНоменклатуры = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Номенклатура, "ЭтоГруппа, ВидНоменклатуры");
Строка = НаборыСвойств.Добавить();
Строка.Набор = УправлениеСвойствами.НаборСвойствПоИмени("Справочник_Номенклатура");
Строка.ОбщийНабор = Истина;
Если ТипЗнч(Объект) = ТипСсылки Тогда
Номенклатура = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(
Объект, "ЭтоГруппа, ВидНоменклатуры");
Иначе
Номенклатура = Объект;
КонецЕсли;
Если НЕ ДанныеНоменклатуры.ЭтоГруппа Тогда
Если Номенклатура.ЭтоГруппа = Ложь Тогда
Строка = НаборыСвойств.Добавить();
Строка.Набор = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ДанныеНоменклатуры.ВидНоменклатуры, "НаборСвойств");
Строка.Набор = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(
Номенклатура.ВидНоменклатуры, "НаборСвойств");
КонецЕсли;
КонецПроцедуры