Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Co-authored-by: Artur Ayukhanov <[email protected]>
  • Loading branch information
witales and artbear committed Jan 9, 2020
1 parent 8f11bab commit 6892059
Showing 1 changed file with 18 additions and 4 deletions.
22 changes: 18 additions & 4 deletions plugins/Данные/Данные/Ext/ObjectModule.bsl
Original file line number Diff line number Diff line change
Expand Up @@ -573,9 +573,11 @@
ВыполнитьАвтозаполнениеПараметров("ПланОбмена", ИмяПланаОбмена, ПараметрыЭлемента);

Элемент = ПланыОбмена[ИмяПланаОбмена].СоздатьУзел();

СгенерироватьНаименованиеВСлучаеОтсутствия(ПараметрыЭлемента, ИмяПланаОбмена);

ЗаполнитьЗначенияСвойств(Элемент, ПараметрыЭлемента);

Элемент.Наименование = ?(Элемент.Наименование = "", ИмяПланаОбмена + "_" + Строка(Новый УникальныйИдентификатор), Элемент.Наименование);
Элемент.ОбменДанными.Загрузка = Истина;
Элемент.Код = Строка(Новый УникальныйИдентификатор);
Элемент.УстановитьСсылкуНового(ПланыОбмена[ИмяПланаОбмена].ПолучитьСсылку(Новый УникальныйИдентификатор));
Expand All @@ -596,12 +598,14 @@
Элемент = Справочники[ИмяСправочника].СоздатьГруппу();
Иначе
Элемент = Справочники[ИмяСправочника].СоздатьЭлемент();
КонецЕсли;
КонецЕсли;

СгенерироватьНаименованиеВСлучаеОтсутствия(ПараметрыЭлемента, ИмяСправочника);

ЗаполнитьЗначенияСвойств(Элемент, ПараметрыЭлемента);

ЗаполнитьТабличнуюЧасть(Элемент, Неопределено, ПараметрыЭлемента);

Элемент.Наименование = ?(Элемент.Наименование = "", ИмяСправочника + "_" + Строка(Новый УникальныйИдентификатор), Элемент.Наименование);
Элемент.ОбменДанными.Загрузка = Истина;
Элемент.УстановитьСсылкуНового(Справочники[ИмяСправочника].ПолучитьСсылку(Новый УникальныйИдентификатор));

Expand Down Expand Up @@ -687,18 +691,28 @@
Элемент = ПланыВидовХарактеристик[ИмяМетаданных].СоздатьЭлемент();
КонецЕсли;

СгенерироватьНаименованиеВСлучаеОтсутствия(ПараметрыЭлемента, ИмяМетаданных);

ЗаполнитьЗначенияСвойств(Элемент, ПараметрыЭлемента);

ЗаполнитьТабличнуюЧасть(Элемент, Неопределено, ПараметрыЭлемента);

Элемент.Наименование = ?(Элемент.Наименование = "", ИмяМетаданных + "_" + Строка(Новый УникальныйИдентификатор), Элемент.Наименование);
Элемент.ОбменДанными.Загрузка = Истина;
Элемент.УстановитьСсылкуНового(ПланыВидовХарактеристик[ИмяМетаданных].ПолучитьСсылку(Новый УникальныйИдентификатор));

Возврат Элемент;

КонецФункции

Процедура СгенерироватьНаименованиеВСлучаеОтсутствия(Параметры, ИмяОбъекта)

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

КонецПроцедуры

// } СлужебныеПроцедуры

ИмяМетаданныхСлужебный = "";
Expand Down

0 comments on commit 6892059

Please sign in to comment.