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