"> КонецПроцедури
//}} ПРОЦЕДУРА_ПЕЧАТІ
Процедура відкриття ()
ПріЗапісіПерепроводіть (1);
КонецПроцедури
//{{ПРОЦЕДУРА_ПЕЧАТІ (Друк)
//Даний фрагмент побудований конструктором.
//При повторному використанні конструктора, внесені вручну зміни будуть втрачені !!!
Процедура Друк ()
Таб=СоздатьОб'ект ( Таблиця );
Таб.ІсходнаяТабліца ( Друк );
Таб.ВивестіСекцію ( Шапка );
Таб.Опціі (0,0,0,0);
ВибратьСтрокі ();
Поки ПолучітьСтроку ()=1 Цикл
Таб.ВивестіСекцію ( Рядок );
КонецЦікла;
Таб.ВивестіСекцію ( Підвал );
Таб.ТолькоПросмотр (1);
Таб.Показать ( Друк Командировочні , );
КонецПроцедури
//}} ПРОЦЕДУРА_ПЕЧАТІ
Процедура відкриття ()
ПріЗапісіПерепроводіть (1);
КонецПроцедури
//{{ПРОЦЕДУРА_ПЕЧАТІ (Друк)
//Даний фрагмент побудований конструктором.
//При повторному використанні конструктора, внесені вручну зміни будуть втрачені !!!
Процедура Друк ()
Таб=СоздатьОб'ект ( Таблиця );
Таб.ІсходнаяТабліца ( Друк );
Таб.ВивестіСекцію ( Шапка );
Таб.Опціі (0,0,0,0);
ВибратьСтрокі ();
Поки ПолучітьСтроку ()=1 Цикл
Таб.ВивестіСекцію ( Рядок );
КонецЦікла;
Таб.ВивестіСекцію ( Підвал );
Таб.ТолькоПросмотр (1);
Таб.Показать ( Друк План_виставок , );
КонецПроцедури
//}} ПРОЦЕДУРА_ПЕЧАТІ
ДОДАТОК Б
Лістинг запитів на створення звітів
//**************************************** ***
//Процедура генерації запиту Сформувати.
//
Процедура Сформувати ()
Перем Запит, ТекстЗапроса, Таб;
//Створення об'єкта типу Запит
Запит=СоздатьОб'ект ( Запит );
ТекстЗапроса=
"//{{ЗАПИТ (Сформувати)
| Період з ВибНачПеріода по ВибКонПеріода;
| Обробляти НеПомеченниеНаУдаленіе;
| Матеріал=Документ.Поступленіе.Матеріал;
| Кількість=Документ.Поступленіе.Колічество;
| Вартість=Документ.Поступленіе.Стоімость;
| Функція КолічествоСумма=Сума (Кількість);
| Функція СтоімостьСумма=Сума (Вартість);
| Угруповання Матеріал;
|" //}} ЗАПИТ
;
//Якщо помилка в запиті, то вихід з процедури
Якщо Запрос.Виполніть (ТекстЗапроса)=0 Тоді
Повернення;
КонецЕсли;
//Підготовка до заповнення вихідних форм даними запиту
Таб=СоздатьОб'ект ( Таблиця );
Таб.ІсходнаяТабліца ( Сформувати );
//Заповнення полів Тема
Таб.ВивестіСекцію ( Тема );
Стан ( Заповнення вихідний таблиці ... );
Таб.Опціі (0, 0, Таб.ВисотаТабліци (), 0);
Поки Запрос.Группіровка (1)=1 Цикл
//Заповнення полів Матеріал
Таб.ВивестіСекцію ( Матеріал );
КонецЦікла;
//Заповнення полів Разом
Таб.ВивестіСекцію ( Разом );
//Висновок заповненої форми
Таб.ТолькоПросмотр (1);
Таб.Показать ( Сформувати raquo ;, );
КонецПроцедури
//Підготовка до заповнення вихідних форм даними запиту
Таб=СоздатьОб'ект ( Таблиця );
Таб.ІсходнаяТабліца ( Сформувати );
//Заповнення полів Тема
Таб.ВивестіСекцію ( Тема...
