Файл: Учет ремонтных работ жилищно-коммунального хозяйства» в среде 1С:Предприятие 8.3..pdf

ВУЗ: Не указан

Категория: Курсовая работа

Дисциплина: Не указана

Добавлен: 29.06.2023

Просмотров: 140

Скачиваний: 3

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

1 Глава. Аналитическая часть

1.1 Выбор комплекса задач автоматизации

1.2 Характеристика документооборота, возникающего при решении задачи

1.3 Обоснование проектных решений по информационному обеспечению

2 Глава. Проектная часть

2.1 Характеристика разработанных справочников в среде 1С:Предприятие (справочники, константы, перечисления)

2.2 Характеристика разработанных экранных форм документов в среде 1С:Предприятие

2.2.1 Описание документов, необходимых для получения исходной информации (разработка документов и регистров)

2.2.2 Описание разработанных форм отчетов, необходимых для отражения результатов решения задачи

Структура отчета «Отчет по мероприятиям и обслуживанию домов»

2.3 Описание реализации периодических расчетов в среде 1С:Предприятие

2.4 Описание созданной / откорректированной карты маршрута бизнес-процесса в среде 1С:Предприятие

2.5 Описание разработанных подсистем в среде 1С:Предприятие

2.6 Описание разработанного интерфейса пользователя в среде 1С:Предприятие (разработка управляемого интерфейса)

2.7 Контрольный пример реализации проекта в среде 1С:Предприятие и его описание

ЗАКЛЮЧЕНИЕ

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Справочники.Статьи_расходов.ПолучитьМакет("Печать");

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

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

"ВЫБРАТЬ

| Статьи_расходов.Единица_измерения,

| Статьи_расходов.Код,

| Статьи_расходов.Наименование,

| Статьи_расходов.Тариф

|ИЗ

| Справочник.Статьи_расходов КАК Статьи_расходов

|ГДЕ

| Статьи_расходов.Ссылка В (&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

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

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

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

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

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

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

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

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

Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Справочники.Дома.ПолучитьМакет("Печать");

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

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

"ВЫБРАТЬ

| Дома.Дата_последнего_ремонта,

| Дома.Дата_постройки,

| Дома.Квартир,

| Дома.Код,

| Дома.Наименование,

| Дома.Площадь,

| Дома.Подъездов,

| Дома.Техническое_состояние,

| Дома.Этажность

|ИЗ

| Справочник.Дома КАК Дома

|ГДЕ

| Дома.Ссылка В (&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

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

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

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

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

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

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

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

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


Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.Заявка_на_ремонт.ПолучитьМакет("Печать");

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

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

"ВЫБРАТЬ

| Заявка_на_ремонт.Дата,

| Заявка_на_ремонт.Дата_заявки,

| Заявка_на_ремонт.Дом,

| Заявка_на_ремонт.Номер,

| Заявка_на_ремонт.Сотрудник,

| Заявка_на_ремонт.Услуга,


| Заявка_на_ремонт.Мероприятия.(

| НомерСтроки,

| Мероприятие,

| Количество,

| Сумма

| )

|ИЗ

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

|ГДЕ

| Заявка_на_ремонт.Ссылка В (&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

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

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

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

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

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

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

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

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

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

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

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

ВыборкаМероприятия = Выборка.Мероприятия.Выбрать();

Пока ВыборкаМероприятия.Следующий() Цикл

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

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

КонецЦикла;

Подвал.Параметры.Заполнить(Выборка);

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

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

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

Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.Ремонт_на_доме.ПолучитьМакет("Печать");

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

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

"ВЫБРАТЬ

| Ремонт_на_доме.Дата,

| Ремонт_на_доме.Дом,

| Ремонт_на_доме.Номер,

| Ремонт_на_доме.Статья_расходов,

| Ремонт_на_доме.Стоимость,

| Ремонт_на_доме.Услуга,

| Ремонт_на_доме.Мероприятия.(

| НомерСтроки,

| Мероприятие,

| Дата_мероприятия,

| Количество,

| Цена,

| Сумма

| )

|ИЗ

| Документ.Ремонт_на_доме КАК Ремонт_на_доме

|ГДЕ

| Ремонт_на_доме.Ссылка В (&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

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

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

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

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

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

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

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

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц Тогда


ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

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

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

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

ВыборкаМероприятия = Выборка.Мероприятия.Выбрать();

Пока ВыборкаМероприятия.Следующий() Цикл

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

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

КонецЦикла;

Подвал.Параметры.Заполнить(Выборка);

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

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

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

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

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

Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Заявка_на_ремонт") Тогда

// Заполнение шапки

Дом = ДанныеЗаполнения.Дом;

Услуга = ДанныеЗаполнения.Услуга;

КонецЕсли;

//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

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

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

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

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

Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Начисление") Тогда

// Заполнение шапки

Дом = ДанныеЗаполнения.Дом;

Статья_расходов = ДанныеЗаполнения.Статья_расходов;

КонецЕсли;

//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

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

Процедура ОбработкаПроведения(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

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

// регистр Поступления Приход

Движения.Поступления.Записывать = Истина;

Движение = Движения.Поступления.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Дом = Дом;

Движение.Статья_расходов = Статья_расходов;

Движение.Сумма = Итого_оплачено;

Движение.Сотрудник = Сотрудник;

// регистр Поступление_расход Приход

Движения.Поступление_расход.Записывать = Истина;

Движение = Движения.Поступление_расход.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Дом = Дом;

Движение.Статья_расходов = Статья_расходов;

Движение.Сумма = Итого_оплачено;