ign="justify"> Сч.ВибратьСчета ();
Поки Сч.ПолучітьСчет () = 1 Цикл
Якщо Сч.Валютний = 1 тоді
в = "+" інакше в = "."; p align="justify"> КонецЕсли;
Якщо Сч.Колічественний = 1 тоді
до = "+" інакше до = ".";
КонецЕсли;
Якщо Сч.Забалансовий = 1 тоді
з = "+" інакше з = ".";
КонецЕсли;
Якщо Сч.Актівний = 1 тоді
а = "А" інакше
Якщо Сч.Актівний = 2 тоді
а = "П" інакше
Якщо Сч.Актівний = 3 тоді
а = "АП"
КонецЕсли;
КонецЕсли;
КонецЕсли;
з1 = Сч.ВідСубконто (1);
с2 = Сч.ВідСубконто (2);
с3 = Сч.ВідСубконто (3);
Таб.ВивестіСекцію ("Дані");
КонецЦікла;
Таб.ВивестіСекцію ("Підвал");
Таб.ТолькоПросмотр (1);
Таб.Показать ();
КонецПроцедури
Модуль звіту В«ОстаткіНаСкладахВ»:
Процедура відкриття ()
ВибДата = ТекущаяДата () +1;
КонецПроцедури
Процедура ВибДата ()
Якщо ВибДата> ПолучітьДатуТА () Тоді
ВибДата = ПолучітьДатуТА ();
КонецЕсли;
КонецПроцедури
Процедура Прапор ()
Якщо Флаг1 = 1 Тоді ВибСклад = "";
Форма.ВыбСклад.Редактирование (0); Інакше
Форма.ВыбСклад.Редактирование (1);
КонецЕсли
КонецПроцедури
Процедура Сформувати ()
Запит = СоздатьОб'ект ("Запит");
ТекстЗапроса =
"//{{ЗАПИТ (Сформувати)
| Товар = Регистр.ОстаткиСклада.Товар;
| Склад = Регистр.ОстаткиСклада.Склад;
| Кількість = Регистр.ОстаткиСклада.Количество;
| ТекущійЕлемент = Справочник.Наменклатура.ТекущийЭлемент;
| Функція Кількість = КонОст (Кількість);
| Угруповання Товар порядок Товар.Наіменованіе, Товар.ОтпускнаяЦена;
| Угруповання Склад порядок Склад.Наіменованіе;
| Умова (Товар в ВибТовар);
| Умова (Склад в ВибСклад);
| "/ /}} ЗАПИТ
;
// Якщо помилка в запиті, т...