ТабличныйДокумент = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("СписокСвободныхЯчеек");
ОбластьМакета = Макет.ПолучитьОбласть("Ячейки");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СкладШин.ЯчейкаХранения КАК Ячейка
|ИЗ
| РегистрСведений.СкладШин КАК СкладШин
|ГДЕ
| СкладШин.Контейнер = &Контейнер
| И НЕ СкладШин.Занята";
Запрос.УстановитьПараметр("Контейнер", Контейнер);
Результат = Запрос.Выполнить().Выгрузить();
Для Каждого Стр Из Результат Цикл
ОбластьМакета.Параметры.Ячейка = СокрЛП(Стр.Ячейка);
ТабличныйДокумент.Вывести(ОбластьМакета);
КонецЦикла;
ТабДок.Показать("Перечеть всех свободных ячеей контейнера :" + Контейнер);
