&НаКлиенте
Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)
ОбработкаВыбораПодборНаСервере(ВыбранноеЗначение);
КонецПроцедуры
&НаКлиенте
Процедура ПодборНоменклатуры(Команда)
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("РежимПодбораБезСуммовыхПараметров", Истина);
ПараметрыФормы.Вставить("Дата", ТекущаяДата());
ОткрытьФорму("Обработка.ПодборТоваров.Форма", ПараметрыФормы, ЭтаФорма, УникальныйИдентификатор);
КонецПроцедуры
&НаСервере
Функция ОбработкаВыбораПодборНаСервере(ВыбранноеЗначение)
ТаблицаТоваров = ПолучитьИзВременногоХранилища(ВыбранноеЗначение.АдресТоваровВХранилище);
для каждого стр из ТаблицаТоваров цикл
сс=объект.СписокНоменклатуры.Добавить();
сс.номенклатура=стр.номенклатура;
конеццикла;
КонецФункции
&НаСервере
Процедура изменитьвид(ном,вид)
об=ном.ПолучитьОбъект();
об.ВидНоменклатуры=вид;
об.Записать();
КонецПроцедуры
&НаКлиенте
Процедура ИзменитьВидНоменклатуры(Команда)
если объект.ВидНоменклатуры=объект.ВидНоменклатуры.Пустая() тогда
сообщить("Не выбран вид номенклатуры!");
иначе
для каждого стр из объект.СписокНоменклатуры цикл
изменитьвид(стр.номенклатура,объект.ВидНоменклатуры);
конеццикла;
сообщить("Готово!");
конецесли;
КонецПроцедуры
