Исходный код
Документ «Расписание», модуль объекта:
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГ ИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
// регистр РНОстРасписаниеУслуг Приход
Движение = Движения.РНОстРасписаниеУ луг.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.При од;
Движение.Период = Дата;
Движение.ДатаРасписания = ДатаРасписания;
Движение.ВремяНачалаУслуг = ВремяНачалаУслугу;
Движение.ВремяОкончанияУс угу = ВремяОкончанияУслугу;
Движение.Специалист = Специалист;
Движение.Помещение = Помещение;
Движение.Услуга = Услуга;
Движение.ВместимостьЧел = ВместимостьЧел;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГ ИСТРОВ
КонецПроцедуры

Документ «Расписание», модуль формы документа:
Процедура ПомещениеОбработкаВыбора( лемент, ВыбранноеЗначение, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ЗначениеЗаполнено(Выбранн еЗначение) Тогда
ЭлементыФормы.Помещение.Зн ачение = ВыбранноеЗначение;
ЭлементыФормы.Вместимость ел.Значение = ВыбранноеЗначение.Вместим стьЧел;
Иначе
ЭлементыФормы.Помещение.Зн ачение = Справочники. Помещения.ПустаяСсылка();
ЭлементыФормы.Вместимость ел.Значение = "";
КонецЕсли;
КонецПроцедуры
Документ «Абонемент», модуль объекта:
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГ ИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
// регистр ОстатокПосещений Приход
Движение = Движения.ОстатокПосещений. Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.При од;
Движение.Период = Дата;
Движение.Абонемент = Номер;
Движение.Дата = Дата;
Движение.Клиент = Клиент;
Движение.Услуга = Услуга;
Движение.СУчетомСкидки = СУчетомСкидки;
Движение.КоличествоУслуг = КоличествоУслуг;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГ ИСТРОВ
КонецПроцедуры

Документ «Абонемент», модуль формы документа:
Процедура ВидАбонементаОбработкаВыб ора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ЗначениеЗаполнено(Выбранн еЗначение) Тогда
ЭлементыФормы.ВидАбонемен а.Значение = ВыбранноеЗначение;
ЭлементыФормы.КоличествоУ луг.Значение = ВыбранноеЗначение.КолУслу ;
ЭлементыФормы.Скидка.Значе ние = ВыбранноеЗначение.РазмерС идки;
Иначе
ЭлементыФормы.ВидАбонемен а.Значение = Справочники.ВидыАбонемент в.ПустаяСсылка();
ЭлементыФормы.КоличествоУ луг.Значение = "";
ЭлементыФормы.Скидка.Значе ние = "";
КонецЕсли;
КонецПроцедуры

Функция АктуальнаяЦенаУслугу(Акту льнаяДата, Услуга)
Отбор = Новый Структура("Услуга", Услуга);//в двойных кавычках имя должно совпадать с измерением нужного регистра сведения
ЗначенияРесурсов = РегистрыСведений.ЦеныНаУс угу.ПолучитьПоследнее(Акт альнаяДата, Отбор);
Возврат ЗначенияРесурсов.ЦенаЧаса;
КонецФункции
Процедура РассчитатьНажатие(Элемент)
Цена = АктуальнаяЦенаУслугу(Дата, Услуга);
//Расчет суммы с учетом скидки
ЦенаУслугу = ЭлементыФормы.Цена.Значени е;
КоличествоУслуг = ЭлементыФормы.КоличествоУ луг.Значение;
Скидка = ЭлементыФормы.Скидка.Значе ние;
ВсегоЗаУслугу = ЦенаУслугу*КоличествоУслу ;
ЭлементыФормы.ИтоговаяЦен .Значение=ВсегоЗаУслугу;
СуммаСкидки = (ВсегоЗаУслугу*Скидка)/100;
СуммаСоСкидкой = ВсегоЗаУслугу-СуммаСкидки;
ЭлементыФормы.СУчетомСкид и.Значение=СуммаСоСкидкой;
КонецПроцедуры
Процедура Печать(Элемент)
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕ Т(Печать)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.Абонемент.Получи тьМакет("Печать");
Область = Макет.ПолучитьОбласть("Ног еваястудия");
ТабДок.Вывести(Область);
// Заголовок
Область = Макет.ПолучитьОбласть("Заг ловок");
Область.Параметры.Номер = Номер;
ТабДок.Вывести(Область);
// Шапка
Шапка = Макет.ПолучитьОбласть("Шап а");
Шапка.Параметры.Заполнить( тотОбъект);
ТабДок.Вывести(Шапка);
Область = Макет.ПолучитьОбласть("Под исьКлиента");
ТабДок.Вывести(Область);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовк = Ложь;
ТабДок.Показать();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕ Т
КонецПроцедуры

Документ «Регистрация посещений», модуль объекта:
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГ ИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
// регистр ОстатокПосещений Расход
Движение = Движения.ОстатокПосещений. Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Рас од;
Движение.Период = Дата;
Движение.Абонемент = Абонемент.Номер;
Движение.Дата = ДатаРегАбонемента;
Движение.Клиент = Клиент;
Движение.Услуга = Услуга;
Движение.СУчетомСкидки = Стоимость;
Движение.КоличествоУслуг = КоличествоУслуг;
// регистр ЗанятостьПомещений Приход
Движение = Движения.ЗанятостьПомещен й.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.При од;
Движение.Период = Дата;
Движение.Расписание = Расписание;
Движение.ДатаРасписания = ДатаРасписания;
Движение.ВремяНачалаУслуг = ВремяНачалаУслуги;
Движение.ВремяОкончанияУс угу = ВремяОкончанияУслуги;
Движение.Услуга = Услуга;
Движение.Помещение = Помещение;
Движение.ВместимостьЧел = ВместимостьЧел;
Движение.Посещение = КоличествоУслуг;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГ ИСТРОВ
КонецПроцедуры
Процедура ОбработкаЗаполнения(Основ ние)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНО АНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Если ТипЗнч(Основание) = Тип("ДокументСсылка.Абонем нт") Тогда
// Заполнение шапки
ВидАбонемента = Основание.ВидАбонемента;
Клиент = Основание.Клиент;
Специалист = Основание.Специалист;
Помещение = Основание.Помещение;
Абонемент = Основание.Ссылка;
ДатаРегАбонемента = Основание.Ссылка.Дата;
Стоимость = Основание.СУчетомСкидки;
Услуга = Основание.Услуга;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНО АНИИ
КонецПроцедуры

Документ «Регистрация посещений», модуль формы документа:
Процедура АбонементПриИзменении(Эле ент)
КлиентИзОснования = Абонемент.Клиент;
ЭлементыФормы.Клиент.Значе ние=КлиентИзОснования;
УслугаИзОснования = Абонемент.Услуга;
ЭлементыФормы.Услуга.Значе ние=УслугаИзОснования;
СпециалистИзОснования = Абонемент.Специалист;
ЭлементыФормы.Специалист.З начение=СпециалистИзОснов ния;
СпециалистИзОснования = Абонемент.Специалист;
ЭлементыФормы.Специалист.З начение=СпециалистИзОснов ния;
ПомещениеИзОснования = Абонемент.Помещение;
ЭлементыФормы.Помещение.Зн ачение=ПомещениеИзОснован я;
ВидАбонементаИзОснования = Абонемент.ВидАбонемента;
ЭлементыФормы.ВидАбонемен а.Значение=ВидАбонементаИ Основания;
ДатаРегистрацииАбонемента ИзОснования = Абонемент.Дата;
ЭлементыФормы.ДатаРегАбон мента.Значение=ДатаРегист ацииАбонементаИзОсновани ;
СтоимостьИзОснования = Абонемент.СУчетомСкидки;
ЭлементыФормы.Стоимость.Зн ачение = СтоимостьИзОснования;
КонецПроцедуры
Процедура РасписаниеПриИзменении(Эл мент)
ВремяНачалаУслугуИзОснова ния = Расписание.ВремяНачалаУсл гу;
ЭлементыФормы.ВремяНачала слугу.Значение = ВремяНачалаУслугуИзОснова ния;
ВремяОкончанияУслугуИзОсн ования = Расписание.ВремяОкончания слугу;
ЭлементыФормы.ВремяОконча ияУслугу.Значение = ВремяНачалаУслугуИзОснова ния;
ДатаРасписанияИзОснования = Расписание.ДатаРасписания;
ЭлементыФормы.ДатаРасписа ия.Значение = ДатаРасписанияИзОснования ;
ВместимостьЧеловекИзОснов ания = Расписание.ВместимостьЧел;
ЭлементыФормы.Вместимость ел.Значение = ВместимостьЧеловекИзОснов ания;
КонецПроцедуры

Документ «Оплата услуг», модуль объекта:
Процедура ОбработкаЗаполнения(Основ ние)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНО АНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Если ТипЗнч(Основание) = Тип("ДокументСсылка.Абонем нт") Тогда
// Заполнение шапки
ВидАбонемента = Основание.ВидАбонемента;
Клиент = Основание.Клиент;
Специалист = Основание.Специалист;
Сумма = Основание.СУчетомСкидки;
Услуга = Основание.Услуга;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНО АНИИ
КонецПроцедуры
Процедура Печать() Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕ Т(Печать)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.ОплатаУслуг.Полу читьМакет("Печать");
// Заголовок
Область = Макет.ПолучитьОбласть("Заг ловок");
ТабДок.Вывести(Область);
// Шапка
Шапка = Макет.ПолучитьОбласть("Шап а");
Шапка.Параметры.Заполнить( тотОбъект);
ТабДок.Вывести(Шапка);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовк = Ложь;
ТабДок.Показать();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕ Т
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГ ИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
// регистр ОплатаУслугОбороты
Движение = Движения.ОплатаУслугОборо ы.Добавить();
Движение.Период = Дата;
Движение.Абонемент = Абонемент;
Движение.Клиент = Клиент;
Движение.ВидАбонемента = ВидАбонемента;
Движение.Услуга = Услуга;
Движение.Специалист = Специалист;
Движение.Помещение = Абонемент.Помещение;
Движение.Дата = Дата;
Движение.Сумма = Сумма;
Движение.ДоходСтудии = (Сумма*50)/100;
Движение.ЗППреподавателя = (Сумма*50)/100;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГ ИСТРОВ
КонецПроцедуры

Документ «Оплата услуг», модуль формы документа:
Процедура АбонементПриИзменении(Эле ент)
КлиентИзОснования = Абонемент.Клиент;
ЭлементыФормы.Клиент.Значе ние = КлиентИзОснования;
ВидАбонементаИзОснования = Абонемент.ВидАбонемента;
ЭлементыФормы.ВидАбонемен а.Значение = ВидАбонементаИзОснования;
УслугаИзОснования = Абонемент.Услуга;
ЭлементыФормы.Услуга.Значе ние = УслугаИзОснования;
СпециалистИзОснования = Абонемент.Специалист;
ЭлементыФормы.Специалист.З начение = СпециалистИзОснования;
СуммаИзОснования = Абонемент.СУчетомСкидки;
ЭлементыФормы.Сумма.Значен ие = СуммаИзОснования;
КонецПроцедуры
Процедура Печать1(Элемент)
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕ Т(Печать1)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.ОплатаУслуг.Полу читьМакет("Печать1");
// Заголовок
Область = Макет.ПолучитьОбласть("Ног еваястудия");
ТабДок.Вывести(Область);
Область = Макет.ПолучитьОбласть("Заг ловок");
Область.Параметры.Номер = Номер;
ТабДок.Вывести(Область);
// Шапка
Шапка = Макет.ПолучитьОбласть("Шап а");
Шапка.Параметры.Заполнить( тотОбъект);
ТабДок.Вывести(Шапка);
Область = Макет.ПолучитьОбласть("Под исьКлиента");
ТабДок.Вывести(Область);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовк = Ложь;
ТабДок.Показать();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕ Т
КонецПроцедуры


Отчет «Занятость помещений», модуль формы документа:
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
ОтчетЗанятостьПомещенийИн ициализация();
КонецПроцедуры
Процедура ПриЗакрытии()
СохранитьЗначение("Настрой каОтчетыОтчетЗанятостьПом ещенийОтчетЗанятостьПомещ ений_4b474d18-e16a-4931-9afc-03a2d276b7fb", ПостроительОтчетаОтчетЗан ятостьПомещений.ПолучитьН стройки());
КонецПроцедуры
Процедура ДействияФормыОтчетЗанятос тьПомещенийНастройка(Кноп а)
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_НАСТРОЙ КА(ОтчетЗанятостьПомещени )
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Форма = ОтчетОбъект.ПолучитьФорму( "ОтчетЗанятостьПомещенийН стройка");
Форма.ПостроительОтчета = ПостроительОтчетаОтчетЗан ятостьПомещений;
Настройка = ПостроительОтчетаОтчетЗан ятостьПомещений.ПолучитьН стройки();
Если Форма.ОткрытьМодально() = Истина Тогда
ОтчетЗанятостьПомещенийВы вести();
Иначе
ПостроительОтчетаОтчетЗан ятостьПомещений.Установит Настройки(Настройка);
КонецЕсли;
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_НАСТРОЙ КА
КонецПроцедуры
Процедура ДействияФормыОтчетЗанятос тьПомещенийСформировать(К опка)
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПРОЦЕДУРА_ВЫЗОВА(ОтчетЗан тостьПомещений)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ОтчетЗанятостьПомещенийВы вести();
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПРОЦЕДУРА_ВЫЗОВА
КонецПроцедуры
Процедура ОтчетЗанятостьПомещенийВы вести()
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ВЫПОЛНИ ТЬ(ОтчетЗанятостьПомещени )
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ЭлементыФормы.ПолеТабличн гоДокумента.Очистить();
ПостроительОтчетаОтчетЗан ятостьПомещений.Параметры. Вставить("ДатаНачала", ДатаНачала);
ПостроительОтчетаОтчетЗан ятостьПомещений.Параметры. Вставить("ДатаОкончания", ДатаОкончания);
ПостроительОтчетаОтчетЗан ятостьПомещений.Выполнить( );
ПостроительОтчетаОтчетЗан ятостьПомещений.Размещени ИзмеренийВСтроках = ТипРазмещенияИзмерений.Вм сте;
ПостроительОтчетаОтчетЗан ятостьПомещений.Размещени РеквизитовИзмеренийВСтро ах = ТипРазмещенияРеквизитовИз мерений.Отдельно;
ПостроительОтчетаОтчетЗан ятостьПомещений.Размещени РеквизитовИзмеренийВКоло ках = ТипРазмещенияРеквизитовИз мерений.Отдельно;
ПостроительОтчетаОтчетЗан ятостьПомещений.МакетОфор ления = ПолучитьМакетОформления(С андартноеОформление.Класс ика);
ПостроительОтчетаОтчетЗан ятостьПомещений.Макет = ОтчетОбъект.ПолучитьМакет( "ОтчетЗанятостьПомещени ");
ПостроительОтчетаОтчетЗан ятостьПомещений.ОформитьМ кет();
ПостроительОтчетаОтчетЗан ятостьПомещений.Вывести(Эл ементыФормы.ПолеТабличног Документа);
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ВЫПОЛНИ ТЬ
КонецПроцедуры
Процедура ОтчетЗанятостьПомещенийИн ициализация()
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ИНИЦИАЛ ИЗАЦИЯ(ОтчетЗанятостьПоме ений)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ПостроительОтчетаОтчетЗан ятостьПомещений.Текст =
"ВЫБРАТЬ
| ЗанятостьПомещенийОстатки ИОбороты.ДатаРасписания КАК ДатаРасписания,
| ЗанятостьПомещенийОстатки ИОбороты.ВремяНачалаУслуг ,
| ЗанятостьПомещенийОстатки ИОбороты.ВремяОкончанияУс угу,
| ЗанятостьПомещенийОстатки ИОбороты.Услуга,
| ПРЕДСТАВЛЕНИЕ(ЗанятостьПо ещенийОстаткиИОбороты.Усл уга),
| ЗанятостьПомещенийОстатки ИОбороты.Помещение,
| ПРЕДСТАВЛЕНИЕ(ЗанятостьПо ещенийОстаткиИОбороты.Пом ещение),
| ЗанятостьПомещенийОстатки ИОбороты.ВместимостьЧел,
| ЗанятостьПомещенийОстатки ИОбороты.ПосещениеПриход
|ИЗ
| РегистрНакопления.Занятос ьПомещений.ОстаткиИОборот ы(&ДатаНачала, &ДатаОкончания, , , ) КАК ЗанятостьПомещенийОстатки ИОбороты
|
|СГРУППИРОВАТЬ ПО
| ЗанятостьПомещенийОстатки ИОбороты.ДатаРасписания,
| ЗанятостьПомещенийОстатки ИОбороты.ВремяНачалаУслуг ,
| ЗанятостьПомещенийОстатки ИОбороты.ВремяОкончанияУс угу,
| ЗанятостьПомещенийОстатки ИОбороты.Услуга,
| ЗанятостьПомещенийОстатки ИОбороты.Помещение,
| ЗанятостьПомещенийОстатки ИОбороты.ВместимостьЧел,
| ЗанятостьПомещенийОстатки ИОбороты.ПосещениеПриход
|ИТОГИ ПО
| ДатаРасписания";
ПостроительОтчетаОтчетЗан ятостьПомещений.Заполнить астройки();
ПостроительОтчетаОтчетЗан ятостьПомещений.Заполнени Расшифровки = ВидЗаполненияРасшифровкиП остроителяОтчета.Значения руппировок;
ПостроительОтчетаОтчетЗан ятостьПомещений.ТекстЗаго овка = "Отчет занятость помещений";
Настройка = ВосстановитьЗначение("Наст ройкаОтчетыОтчетЗанятость ПомещенийОтчетЗанятостьПо мещений_4b474d18-e16a-4931-9afc-03a2d276b7fb");
Если Настройка <> Неопределено Тогда
ПостроительОтчетаОтчетЗан ятостьПомещений.Установит Настройки(Настройка);
КонецЕсли;
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ИНИЦИАЛ ИЗАЦИЯ
КонецПроцедуры

Отчет «Заработок специалистов», модуль формы документа:
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
ЗаработокСпециалистовИниц иализация();
КонецПроцедуры
Процедура ПриЗакрытии()
СохранитьЗначение("Настрой каОтчетыЗаработокСпециали стовЗаработокСпециалистов _655f86c6-c4ac-4a46-9fd1-98157143bdc0", ПостроительОтчетаЗаработо кСпециалистов.ПолучитьНас ройки());
КонецПроцедуры
Процедура ДействияФормыЗаработокСпе циалистовНастройка(Кнопка)
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_НАСТРОЙ КА(ЗаработокСпециалистов)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Форма = ОтчетОбъект.ПолучитьФорму( "ЗаработокСпециалистовНас ройка");
Форма.ПостроительОтчета = ПостроительОтчетаЗаработо кСпециалистов;
Настройка = ПостроительОтчетаЗаработо кСпециалистов.ПолучитьНас ройки();
Если Форма.ОткрытьМодально() = Истина Тогда
ЗаработокСпециалистовВыве сти();
Иначе
ПостроительОтчетаЗаработо кСпециалистов.УстановитьН стройки(Настройка);
КонецЕсли;
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_НАСТРОЙ КА
КонецПроцедуры
Процедура ДействияФормыЗаработокСпе циалистовСформировать(Кно ка)
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПРОЦЕДУРА_ВЫЗОВА(Заработо Специалистов)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ЗаработокСпециалистовВыве сти();
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПРОЦЕДУРА_ВЫЗОВА
КонецПроцедуры
Процедура ЗаработокСпециалистовВыве сти()
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ВЫПОЛНИ ТЬ(ЗаработокСпециалистов)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ЭлементыФормы.ПолеТабличн гоДокумента.Очистить();
ПостроительОтчетаЗаработо кСпециалистов.Параметры.Вс тавить("ДатаНачала", ДатаНачала);
ПостроительОтчетаЗаработо кСпециалистов.Параметры.Вс тавить("ДатаОкончания", ДатаОкончания);
ПостроительОтчетаЗаработо кСпециалистов.Выполнить();
ПостроительОтчетаЗаработо кСпециалистов.РазмещениеИ меренийВСтроках = ТипРазмещенияИзмерений.Вм сте;
ПостроительОтчетаЗаработо кСпециалистов.РазмещениеР квизитовИзмеренийВСтрока = ТипРазмещенияРеквизитовИз мерений.Отдельно;
ПостроительОтчетаЗаработо кСпециалистов.РазмещениеР квизитовИзмеренийВКолонк х = ТипРазмещенияРеквизитовИз мерений.Отдельно;
ПостроительОтчетаЗаработо кСпециалистов.МакетОформл ния = ПолучитьМакетОформления(С андартноеОформление.Класс ика);
ПостроительОтчетаЗаработо кСпециалистов.Макет = ОтчетОбъект.ПолучитьМакет( "ЗаработокСпециалистов");
ПостроительОтчетаЗаработо кСпециалистов.ОформитьМак т();
ПостроительОтчетаЗаработо кСпециалистов.Вывести(Элем ентыФормы.ПолеТабличногоД кумента);
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ВЫПОЛНИ ТЬ
КонецПроцедуры
Процедура ЗаработокСпециалистовИниц иализация()
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ИНИЦИАЛ ИЗАЦИЯ(ЗаработокСпециалис ов)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ПостроительОтчетаЗаработо кСпециалистов.Текст =
"ВЫБРАТЬ
| ОплатаУслугОборотыОбороты .Специалист КАК Специалист,
| ПРЕДСТАВЛЕНИЕ(ОплатаУслуг боротыОбороты.Специалист),
| СУММА(ОплатаУслугОборотыО ороты.ЗППреподавателяОбор от) КАК ЗППреподавателяОборот,
| ОплатаУслугОборотыОбороты .Дата КАК Дата
|ИЗ
| РегистрНакопления.ОплатаУ лугОбороты.Обороты(&ДатаНа чала, &ДатаОкончания, , ) КАК ОплатаУслугОборотыОбороты
|
|СГРУППИРОВАТЬ ПО
| ОплатаУслугОборотыОбороты .Дата,
| ОплатаУслугОборотыОбороты .Специалист
|ИТОГИ
| СУММА(ЗППреподавателяОбор т)
|ПО
| Дата";
ПостроительОтчетаЗаработо кСпециалистов.ЗаполнитьНа тройки();
ПостроительОтчетаЗаработо кСпециалистов.ЗаполнениеР сшифровки = ВидЗаполненияРасшифровкиП остроителяОтчета.Значения руппировок;
ПостроительОтчетаЗаработо кСпециалистов.ТекстЗаголо ка = "Заработок специалистов";
Настройка = ВосстановитьЗначение("Наст ройкаОтчетыЗаработокСпеци алистовЗаработокСпециалис тов_655f86c6-c4ac-4a46-9fd1-98157143bdc0");
Если Настройка <> Неопределено Тогда
ПостроительОтчетаЗаработо кСпециалистов.УстановитьН стройки(Настройка);
КонецЕсли;
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ИНИЦИАЛ ИЗАЦИЯ
КонецПроцедуры

Отчет «Доход от помещений», модуль формы документа:
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
ДоходОтПомещенийИнициализ ация();
КонецПроцедуры
Процедура ПриЗакрытии()
СохранитьЗначение("Настрой каОтчетыДоходОтПомещенийД оходОтПомещений_93005d1e-d4f6-4f9d-91cc-d360a100997a", ПостроительОтчетаДоходОтП омещений.ПолучитьНастройк ());
КонецПроцедуры
Процедура ДействияФормыДоходОтПомещ енийНастройка(Кнопка)
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_НАСТРОЙ КА(ДоходОтПомещений)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Форма = ОтчетОбъект.ПолучитьФорму( "ДоходОтПомещенийНастройк ");
Форма.ПостроительОтчета = ПостроительОтчетаДоходОтП омещений;
Настройка = ПостроительОтчетаДоходОтП омещений.ПолучитьНастройк ();
Если Форма.ОткрытьМодально() = Истина Тогда
ДоходОтПомещенийВывести();
Иначе
ПостроительОтчетаДоходОтП омещений.УстановитьНастро ки(Настройка);
КонецЕсли;
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_НАСТРОЙ КА
КонецПроцедуры
Процедура ДействияФормыДоходОтПомещ енийСформировать(Кнопка)
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПРОЦЕДУРА_ВЫЗОВА(ДоходОтП мещений)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ДоходОтПомещенийВывести();
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПРОЦЕДУРА_ВЫЗОВА
КонецПроцедуры
Процедура ДоходОтПомещенийВывести()
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ВЫПОЛНИ ТЬ(ДоходОтПомещений)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ЭлементыФормы.ПолеТабличн гоДокумента.Очистить();
ПостроительОтчетаДоходОтП омещений.Параметры.Вставит ь("ДатаНачала", ДатаНачала);
ПостроительОтчетаДоходОтП омещений.Параметры.Вставит ь("ДатаОкончания", ДатаОкончания);
ПостроительОтчетаДоходОтП омещений.Выполнить();
ПостроительОтчетаДоходОтП омещений.РазмещениеИзмере ийВСтроках = ТипРазмещенияИзмерений.Вм сте;
ПостроительОтчетаДоходОтП омещений.РазмещениеРеквиз товИзмеренийВСтроках = ТипРазмещенияРеквизитовИз мерений.Отдельно;
ПостроительОтчетаДоходОтП омещений.РазмещениеРеквиз товИзмеренийВКолонках = ТипРазмещенияРеквизитовИз мерений.Отдельно;
ПостроительОтчетаДоходОтП омещений.МакетОформления = ПолучитьМакетОформления(С андартноеОформление.Класс ика);
ПостроительОтчетаДоходОтП омещений.Макет = ОтчетОбъект.ПолучитьМакет( "ДоходОтПомещений");
ПостроительОтчетаДоходОтП омещений.ОформитьМакет();
ПостроительОтчетаДоходОтП омещений.Вывести(ЭлементыФ ормы.ПолеТабличногоДокуме та);
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ВЫПОЛНИ ТЬ
КонецПроцедуры
Процедура ДоходОтПомещенийИнициализ ация()
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ИНИЦИАЛ ИЗАЦИЯ(ДоходОтПомещений)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ПостроительОтчетаДоходОтП омещений.Текст =
"ВЫБРАТЬ
| ОплатаУслугОборотыОбороты .Помещение,
| ПРЕДСТАВЛЕНИЕ(ОплатаУслуг боротыОбороты.Помещение),
| ОплатаУслугОборотыОбороты .Дата КАК Дата,
| СУММА(ОплатаУслугОборотыО ороты.ДоходЦентраОборот) КАК ДоходЦентраОборот
|ИЗ
| РегистрНакопления.ОплатаУ лугОбороты.Обороты(&ДатаНа чала, &ДатаОкончания, , ) КАК ОплатаУслугОборотыОбороты
|
|СГРУППИРОВАТЬ ПО
| ОплатаУслугОборотыОбороты .Дата,
| ОплатаУслугОборотыОбороты .Помещение
|ИТОГИ
| СУММА(ДоходЦентраОборот)
|ПО
| Дата";
ПостроительОтчетаДоходОтП омещений.ЗаполнитьНастрой и();
ПостроительОтчетаДоходОтП омещений.ЗаполнениеРасшиф овки = ВидЗаполненияРасшифровкиП остроителяОтчета.Значения руппировок;
ПостроительОтчетаДоходОтП омещений.ТекстЗаголовка = "Доход от помещений";
Настройка = ВосстановитьЗначение("Наст ройкаОтчетыДоходОтПомещен ийДоходОтПомещений_93005d1e-d4f6-4f9d-91cc-d360a100997a");
Если Настройка <> Неопределено Тогда
ПостроительОтчетаДоходОтП омещений.УстановитьНастро ки(Настройка);
КонецЕсли;
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ИНИЦИАЛ ИЗАЦИЯ
КонецПроцедуры

Отчет «Рейтинг услуг», модуль формы документа:
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
РейтингУслугунициализация ();
КонецПроцедуры
Процедура ПриЗакрытии()
СохранитьЗначение("Настрой каОтчетыРейтингУслугРейти нгУслуг_08f64a0d-5f23-4ecc-971c-4128c71b9ff9", ПостроительОтчетаРейтингУ слуг.ПолучитьНастройки());
КонецПроцедуры
Процедура ДействияФормыРейтингУслуг Настройка(Кнопка)
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_НАСТРОЙ КА(РейтингУслуг)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Форма = ОтчетОбъект.ПолучитьФорму( "РейтингУслугНастройка");
Форма.ПостроительОтчета = ПостроительОтчетаРейтингУ слуг;
Настройка = ПостроительОтчетаРейтингУ слуг.ПолучитьНастройки();
Если Форма.ОткрытьМодально() = Истина Тогда
РейтингУслугВывести();
Иначе
ПостроительОтчетаРейтингУ слуг.УстановитьНастройки(Н астройка);
КонецЕсли;
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_НАСТРОЙ КА
КонецПроцедуры
Процедура ДействияФормыРейтингУслуг Сформировать(Кнопка)
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПРОЦЕДУРА_ВЫЗОВА(РейтингУ луг)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
РейтингУслугВывести();
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПРОЦЕДУРА_ВЫЗОВА
КонецПроцедуры
Процедура РейтингУслугВывести()
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ВЫПОЛНИ ТЬ(РейтингУслуг)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ЭлементыФормы.Диаграмма.Оч истить();
ПостроительОтчетаРейтингУ слуг.Параметры.Вставить("Да таНачала", ДатаНачала);
ПостроительОтчетаРейтингУ слуг.Параметры.Вставить("Да таОкончания", ДатаОкончания);
ПостроительОтчетаРейтингУ слуг.Выполнить();
ПостроительОтчетаРейтингУ слуг.Вывести(ЭлементыФормы .Диаграмма);
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ВЫПОЛНИ ТЬ
КонецПроцедуры
Процедура РейтингУслугунициализация ()
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ИНИЦИАЛ ИЗАЦИЯ(РейтингУслуг)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ПостроительОтчетаРейтингУ слуг.Текст =
"ВЫБРАТЬ
| ОплатаУслугОборотыОбороты .Услуга КАК Услуга,
| ПРЕДСТАВЛЕНИЕ(ОплатаУслуг боротыОбороты.Услуга),
| СУММА(ОплатаУслугОборотыО ороты.СуммаОборот) КАК СуммаОборот
|ИЗ
| РегистрНакопления.ОплатаУ лугОбороты.Обороты(&ДатаНа чала, &ДатаОкончания, , ) КАК ОплатаУслугОборотыОбороты
|
|СГРУППИРОВАТЬ ПО
| ОплатаУслугОборотыОбороты .Услуга
|ИТОГИ
| СУММА(СуммаОборот)
|ПО
| Услуга";
ПостроительОтчетаРейтингУ слуг.ЗаполнитьНастройки();
ПостроительОтчетаРейтингУ слуг.ЗаполнениеРасшифровк = ВидЗаполненияРасшифровкиП остроителяОтчета.Значения руппировок;
ПостроительОтчетаРейтингУ слуг.ТекстЗаголовка = "Рейтинг услуг";
Настройка = ВосстановитьЗначение("Наст ройкаОтчетыРейтингУслугРе йтингУслуг_08f64a0d-5f23-4ecc-971c-4128c71b9ff9");
Если Настройка <> Неопределено Тогда
ПостроительОтчетаРейтингУ слуг.УстановитьНастройки(Н астройка);
КонецЕсли;
//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ _ПОСТРОИТЕЛЬОТЧЕТА_ИНИЦИАЛ ИЗАЦИЯ
КонецПроцедуры