0
Tumakota
24.12.15
✎
15:09
|
Пока Выборка.Следующий() цикл
//НОМЕНКЛАТУРА
УИДНОМ = Выборка.Владелец.UUID();
ГУИДНОМ = Base1С.String(УИДНОМ);
Номен = Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор(ГУИДНОМ));
Если СокрЛП(Номен.Наименование) <> "" и СокрЛП(Выборка.Штрихкод) <> "" тогда
НовыйНаборЗаписей = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьМенеджерЗаписи();
НовыйНаборЗаписей.Штрихкод = Выборка.Штрихкод;
НовыйНаборЗаписей.Номенклатура = Номен.Ссылка;
Характеристика = Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(Выборка.ХарактеристикаНоменклатуры.Наименование,истина,,Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор(ГУИДНОМ)));
Если Характеристика.Пустая() и (Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор(ГУИДНОМ)).ВидНоменклатуры.ИспользоватьХарактеристики или Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор(ГУИДНОМ)).ИспользованиеХарактеристик = Перечисления.ВариантыИспользованияХарактеристикНоменклатуры.ИндивидуальныеДляНоменклатуры) тогда
НеизвестнаяХарактеристика = Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию("Неизвестная характеристика",истина,,Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор(ГУИДНОМ)));
Если НеизвестнаяХарактеристика.Пустая() тогда
ХарактеристикаНовая = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
ХарактеристикаНовая.Владелец = Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор(ГУИДНОМ));
ХарактеристикаНовая.Наименование = "Неизвестная характеристика";
ХарактеристикаНовая.НаименованиеПолное = "Неизвестная характеристика";
ХарактеристикаНовая.Записать();
НовыйНаборЗаписей.Характеристика = Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию("Неизвестная характеристика",истина,,Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор(ГУИДНОМ)));
Иначе
НовыйНаборЗаписей.Характеристика = НеизвестнаяХарактеристика;
КонецЕсли;
Иначе
НовыйНаборЗаписей.Характеристика = Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(Выборка.ХарактеристикаНоменклатуры.Наименование,истина,,Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор(ГУИДНОМ)));
КонецЕсли;
НовыйНаборЗаписей.Записать();
КонецЕсли;
КонецЦикла;
Не могу понять он создает 200 штрих кодов, потом чистит создает пару потом по 1 потом опять может 200 создать, как сделать чтобы не затирал! Конфа 11.1
|
|
3
Лефмихалыч
24.12.15
✎
15:15
|
Во-первых, удали этот код и напиши другой заново. В этом нечего чинить.
Во-вторых, ты врешь. Потому, что менеджер записи не может удалить ни чего до тех пор, пока ты не вызовешь его метод Удалить();
|
|