0
maxi0n
20.01.15
✎
15:24
|
Добрый день может быть кто нибудь подскажет есть код:
Функция ВернутьЕдИзм(Номенклатура)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЕдиницыИзмерения.Ссылка КАК ЕдИзм
|ИЗ
| Справочник.ЕдиницыИзмерения КАК ЕдиницыИзмерения
|ГДЕ
| ЕдиницыИзмерения.Владелец = &Владелец
| И ЕдиницыИзмерения.ЕдиницаПоКлассификатору = &ЕдиницаПоКлассификатору";
Запрос.УстановитьПараметр("Владелец",Номенклатура);
Запрос.УстановитьПараметр("ЕдиницаПоКлассификатору",Номенклатура.ЕдиницаХраненияОстатков);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Возврат Выборка.ЕдИзм.Ссылка;
КонецЦикла;
КонецФункции
//------------------------------------------------------------------------------
Процедура КнопкаВыполнитьНажатие(Кнопка)
СпрХарактеристикиНоменклатуры = Справочники.ХарактеристикиНоменклатуры;
СпрНоменклатура = Справочники.Номенклатура;
Наменклатура = СпрНоменклатура.Выбрать(Родитель);
Пока Наменклатура.Следующий() Цикл
Элемент = Наменклатура.ПолучитьОбъект();
Элемент.ВестиУчетПоХарактеристикам = Истина;
Элемент.Записать();
ЭлементХар = СпрХарактеристикиНоменклатуры.СоздатьЭлемент();
ЭлементХар.Владелец = Элемент.Ссылка;
ЭлементХар.Наименование = "Брак";
ЭлементХар.Активная = Истина;
ЭлементХар.Записать();
//ЭлементХар = СпрХарактеристикиНоменклатуры.СоздатьЭлемент();
//ЭлементХар.Владелец = Элемент.Ссылка;
//ЭлементХар.Наименование = "Бой";
//ЭлементХар.Активная = Истина;
//ЭлементХар.Записать();
КонецЦикла;
Предупреждение("Загрузка завершена");
КонецПроцедуры
Нужно,если есть элемент в справочники "Бой" или "Брак" не создавал повторно и пропускал этот элемент.
|
|