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