Файл: Учет ремонтных работ жилищно-коммунального хозяйства» в среде 1С:Предприятие 8.3..pdf
Добавлен: 29.06.2023
Просмотров: 140
Скачиваний: 3
СОДЕРЖАНИЕ
1.1 Выбор комплекса задач автоматизации
1.2 Характеристика документооборота, возникающего при решении задачи
1.3 Обоснование проектных решений по информационному обеспечению
2.2 Характеристика разработанных экранных форм документов в среде 1С:Предприятие
2.2.2 Описание разработанных форм отчетов, необходимых для отражения результатов решения задачи
Структура отчета «Отчет по мероприятиям и обслуживанию домов»
2.3 Описание реализации периодических расчетов в среде 1С:Предприятие
2.4 Описание созданной / откорректированной карты маршрута бизнес-процесса в среде 1С:Предприятие
2.5 Описание разработанных подсистем в среде 1С:Предприятие
2.7 Контрольный пример реализации проекта в среде 1С:Предприятие и его описание
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Справочники.Статьи_расходов.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Статьи_расходов.Единица_измерения,
| Статьи_расходов.Код,
| Статьи_расходов.Наименование,
| Статьи_расходов.Тариф
|ИЗ
| Справочник.Статьи_расходов КАК Статьи_расходов
|ГДЕ
| Статьи_расходов.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Справочники.Дома.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Дома.Дата_последнего_ремонта,
| Дома.Дата_постройки,
| Дома.Квартир,
| Дома.Код,
| Дома.Наименование,
| Дома.Площадь,
| Дома.Подъездов,
| Дома.Техническое_состояние,
| Дома.Этажность
|ИЗ
| Справочник.Дома КАК Дома
|ГДЕ
| Дома.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.Заявка_на_ремонт.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Заявка_на_ремонт.Дата,
| Заявка_на_ремонт.Дата_заявки,
| Заявка_на_ремонт.Дом,
| Заявка_на_ремонт.Номер,
| Заявка_на_ремонт.Сотрудник,
| Заявка_на_ремонт.Услуга,
| Заявка_на_ремонт.Мероприятия.(
| НомерСтроки,
| Мероприятие,
| Количество,
| Сумма
| )
|ИЗ
| Документ.Заявка_на_ремонт КАК Заявка_на_ремонт
|ГДЕ
| Заявка_на_ремонт.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьМероприятияШапка = Макет.ПолучитьОбласть("МероприятияШапка");
ОбластьМероприятия = Макет.ПолучитьОбласть("Мероприятия");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьМероприятияШапка);
ВыборкаМероприятия = Выборка.Мероприятия.Выбрать();
Пока ВыборкаМероприятия.Следующий() Цикл
ОбластьМероприятия.Параметры.Заполнить(ВыборкаМероприятия);
ТабДок.Вывести(ОбластьМероприятия, ВыборкаМероприятия.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.Ремонт_на_доме.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Ремонт_на_доме.Дата,
| Ремонт_на_доме.Дом,
| Ремонт_на_доме.Номер,
| Ремонт_на_доме.Статья_расходов,
| Ремонт_на_доме.Стоимость,
| Ремонт_на_доме.Услуга,
| Ремонт_на_доме.Мероприятия.(
| НомерСтроки,
| Мероприятие,
| Дата_мероприятия,
| Количество,
| Цена,
| Сумма
| )
|ИЗ
| Документ.Ремонт_на_доме КАК Ремонт_на_доме
|ГДЕ
| Ремонт_на_доме.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьМероприятияШапка = Макет.ПолучитьОбласть("МероприятияШапка");
ОбластьМероприятия = Макет.ПолучитьОбласть("Мероприятия");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьМероприятияШапка);
ВыборкаМероприятия = Выборка.Мероприятия.Выбрать();
Пока ВыборкаМероприятия.Следующий() Цикл
ОбластьМероприятия.Параметры.Заполнить(ВыборкаМероприятия);
ТабДок.Вывести(ОбластьМероприятия, ВыборкаМероприятия.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
// Данный фрагмент построен конструктором.
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Заявка_на_ремонт") Тогда
// Заполнение шапки
Дом = ДанныеЗаполнения.Дом;
Услуга = ДанныеЗаполнения.Услуга;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Начисление") Тогда
// Заполнение шапки
Дом = ДанныеЗаполнения.Дом;
Статья_расходов = ДанныеЗаполнения.Статья_расходов;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
// регистр Поступления Приход
Движения.Поступления.Записывать = Истина;
Движение = Движения.Поступления.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Дом = Дом;
Движение.Статья_расходов = Статья_расходов;
Движение.Сумма = Итого_оплачено;
Движение.Сотрудник = Сотрудник;
// регистр Поступление_расход Приход
Движения.Поступление_расход.Записывать = Истина;
Движение = Движения.Поступление_расход.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Дом = Дом;
Движение.Статья_расходов = Статья_расходов;
Движение.Сумма = Итого_оплачено;