Если Сотрудник <> Неопределено Тогда
ЗаполнениеПоСотруднику();
КонецЕсли;
Если РабочееМесто <> Неопределено Тогда
ЗаполнениеПоРабочемуМесту();
КонецЕсли;
КонецПроцедуры
Процедура ЗаполнениеПоРабочемуМесту()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
| Остатки.МестоХранения КАК МестоХранения,
| Остатки.Комплектующая КАК Комплектующая,
| Остатки.ШтрихКод КАК ШтрихКод,
| Остатки.Гарантия КАК Гарантия,
| Остатки.Количество КАК Количество,
| Остатки.Сумма КАК Сумма
|ИЗ
| РегистрНакопления.ОстаткиКомлектующих КАК Остатки
|ГДЕ
| Остатки.МестоХранения = &МестоХранения
|";
//ЭлТаб = Эл.ТекущаяСтрока;
Для Каждого Элемент ИЗ Выборка Цикл
ЭлТаб = Номенклатура.Добавить();
ЭлТаб.Откуда = Элемент.МестоХранения;
ЭлТаб.Комплектующие = Элемент.Комплектующая;
ЭлТаб.ШтрихКод = Элемент.ШтрихКод;
ЭлТаб.Гарантия = Элемент.Гарантия;
ЭлТаб.Количество = Элемент.Количество;
ЭлТаб.Сумма = Элемент.Сумма;
ЭлТаб.Цена = Элемент.Сумма/Элемент.Количество;
КонецЦикла;
КонецПроцедуры;
Процедура ЗаполнениеПоСотруднику() //Определения процедур и функций должны размещаться перед операторами тела модуля как сделать что бы не ругался О_О
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
| РабочиеМеста.РабочиеМеста КАК РабочиеМеста,
| РабочиеМеста.Сотрудник КАК Сотрудник
|ИЗ
| РегистрСведения.РабочиеМеста КАК РабочиеМеста
|ГДЕ
| Остатки.Сотрудник = &Сотрудник
|";
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший