Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
РГЗ.docx
Скачиваний:
0
Добавлен:
01.07.2025
Размер:
1.86 Mб
Скачать

Список использованных источников

  1. 1С:Предприятие 8. Система программ [Электронный ресурс]. – Режим доступа: http://v8.1c.ru/overview/PlAnaliz.htm. Дата доступа: 24.03.2015.

  2. 1С:Предприятие 8. Анализ данных и прогнозирование http://v8.1c.ru/overview/PlAnaliz.htm. Дата доступа: 24.03.2015.

  3. Ведомственные строительные нормы ВСН 58-88 (р) «Положение об организации и проведении реконструкции, ремонта и технического обслуживания зданий, объектов коммунального и социально-культурного назначения» [Электронный ресурс]. – Режим доступа: http://izhcommunal.ru/dir/5-1-0-73. Дата доступа: 24.03.2015.

  4. Устав ООО «УК ДомМонтажСервис Плюс».

  5. Должностная инструкция специалиста группы эксплуатации жилищным фондом.

Приложение а

(обязательное)

Листинг программы Модуль отчета «Проекты сотрудника»

Процедура ДействияФормыПроекты_сторудникаСформировать(Кнопка)

//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА(Проекты_сторудника)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;

Проекты_сторудника(ТабДок, Ответственный_сотрудник);

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА

КонецПроцедуры

Процедура Проекты_сторудника(ТабДок, Ответственный_сотрудник) Экспорт

//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ(Проекты_сторудника)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Макет = ОтчетОбъект.ПолучитьМакет("Проекты_сторудника");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| Наряд_на_ремонт.Ссылка,

| Наряд_на_ремонт.Представление,

| Наряд_на_ремонт.Затраты,

| Наряд_на_ремонт.Начало_работы,

| Наряд_на_ремонт.Дата_окончания

|ИЗ

| Документ.Наряд_на_ремонт КАК Наряд_на_ремонт

|ГДЕ

| Наряд_на_ремонт.Ответственный_сотрудник = &Ответственный_сотрудник";

Запрос.УстановитьПараметр("Ответственный_сотрудник", Ответственный_сотрудник);

Результат = Запрос.Выполнить();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");

ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");

ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");

ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

ТабДок.Очистить();

ТабДок.Вывести(ОбластьЗаголовок);

ТабДок.Вывести(ОбластьШапкаТаблицы);

ТабДок.НачатьАвтогруппировкуСтрок();

ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);

ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень());

КонецЦикла;

ТабДок.ЗакончитьАвтогруппировкуСтрок();

ТабДок.Вывести(ОбластьПодвалТаблицы);

ТабДок.Вывести(ОбластьПодвал);

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ

КонецПроцедуры

Модуль отчета «Затраты за период»

Процедура ДействияФормыЗатратыЗаПериодСформировать(Кнопка)

//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА(ЗатратыЗаПериод)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;

ЗатратыЗаПериод(ТабДок, Кон, Нач);

ТабДок.ОтображатьЗаголовки = Ложь;

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА

КонецПроцедуры

Процедура ЗатратыЗаПериод(ТабДок, Кон, Нач) Экспорт

//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ(ЗатратыЗаПериод)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Макет = ОтчетОбъект.ПолучитьМакет("ЗатратыЗаПериод");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| Решение.Дата,

| Решение.Номер_проекта,

| ПРЕДСТАВЛЕНИЕ(Решение.Номер_проекта),

| Решение.Финансирование КАК Финансирование

|ИЗ

| Документ.Решение КАК Решение

|ГДЕ

| Решение.Дата >= &Нач

| И Решение.Дата <= &Кон

|ИТОГИ

| СУММА(Финансирование)

|ПО

| ОБЩИЕ";

Запрос.УстановитьПараметр("Кон", Кон);

Запрос.УстановитьПараметр("Нач", Нач);

Результат = Запрос.Выполнить();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");

ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");

ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");

ОбластьОбщийИтог = Макет.ПолучитьОбласть("ОбщиеИтоги");

ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

ТабДок.Очистить();

ТабДок.Вывести(ОбластьЗаголовок);

ТабДок.Вывести(ОбластьШапкаТаблицы);

ВыборкаОбщийИтог = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

ВыборкаОбщийИтог.Следующий(); // Общий итог

ОбластьОбщийИтог.Параметры.Заполнить(ВыборкаОбщийИтог);

ТабДок.Вывести(ОбластьОбщийИтог);

ВыборкаДетальныеЗаписи = ВыборкаОбщийИтог.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);

ТабДок.Вывести(ОбластьДетальныхЗаписей);

КонецЦикла;

ТабДок.Вывести(ОбластьПодвалТаблицы);

ТабДок.Вывести(ОбластьПодвал);

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ

КонецПроцедуры

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]