Файл: Программное обеспечение для учёта услуг по прокату оборудования.pdf

64 7. Календарный план выполнения выпускной квалификационной работы
№ п/п
Наименование этапа дипломной работы
Срок выполнения этапа
Процент выполне- ния ВКР
Отметка руководи- теля о вы- полнении
1
Сбор информации по выпускной квалификационной ра- боте
23.04.2018 10% подпись
2
Выполнение работ по разрабатываемым вопросам и их изложение в пояснительной записке:
03.05.2015 60% подпись
2.1
Анализ предметной области.
04.05.2018 10% подпись
2.2
Анализ аналогичных программных продуктов
06.05.2018 5% подпись
2.3
Разработка модели информационной системы.
09.05.2018 5% подпись
2.4
Разработка программного обеспечения для автоматизации учета услуг по прокату оборудования на платформе
«1С:Предприятие 8.3».
11.05.2018 25% подпись
2.5
Опытная эксплуатация программного обеспечения в ком- пании ИП Сумин Н.Л.
30.05.2018 15% подпись
3
Оформление текстовой части ВКР
15.05.2018 10% подпись
4
Выполнение демонстрационных материалов к ВКР
01.06.2018 10% подпись
5
Нормоконтроль
08.06.2018 5% подпись
6
Подготовка доклада к защите в ГЭК
13.06.2018 5% подпись
8. Консультанты по разделам выпускной квалификационной работы
Наименование раздела
Консультант
Задание выдал
Задание принял подпись дата подпись дата
Руководитель
Задание получил подпись дата подпись студента дата
9. Дипломная работа и все материалы проанализированы.
Считаю возможным допустить
Комарову М.О.
к защите выпускной квалификационной работы в государственной экзаменационной комиссии.
Руководитель подпись дата
10. Допустить
Комарову М.О.
к защите выпускной квалификационной работы фамилия и. о. студента в государственной экзаменационной комиссии (протокол заседания кафедры от « »
20 г., №
)
Заведующий кафедрой подпись дата

65

ПРИЛОЖЕНИЕ Б
Разработанная конфигурация на платформе «1С:Предприятие 8.3» со- держит:
•
5 подсистем;
На рисунке 1 представлен вид подсистем.
Рисунок 1 – Подсистемы
•
4 роли;
На рисунке 2 представлены роли.
Рисунок 2 - Роли
•
11 справочников;
На рисунке 3 представлен перечень справочников.
Рисунок 3 - Справочники

66
•
6 документов;
На рисунке 4 представлен перечень документов.
Рисунок 4 - Документы
•
5 отчетов;
На рисунке 5 представлен вид отчетов.
Рисунок 5 - Отчеты
• 2 регистра сведений;
На рисунке 6 представлен вид регистров сведений.
Рисунок 6 – Регистры сведений
•
1 регистр накопления.
На рисунке 7 представлен регистр накопления.
Рисунок 7 – Регистр накопления

67
ПРИЛОЖЕНИЕ В
В разработанном ПО создались модули для объектов конфигурации.
1.
Листинг модуля для объекта «Клиенты» и «Сотрудники», позволяет автоматически вписывать в наименование фамилию и инициалы.
&НаКлиенте
Процедура АвтозаполнениеНаименования () объект.Наименование = СокрЛП(объект.Фамилия)+" "+
Сред(СокрЛП(объект.Имя),1,1)+". "+
Сред(СокрЛП(объект.Отчество),1,1)+"."; конецпроцедуры
&НаКлиенте процедура ФамилияПриИзменении (Элемент)
АвтозаполнениеНаименования () конецпроцедуры
&НаКлиенте процедура ИмяПриИзменении (Элемент)
АвтозаполнениеНаименования () конецпроцедуры
&НаКлиенте процедура ОтчествоПриИзменении (Элемент)
АвтозаполнениеНаименования () конецпроцедуры
2.
Листинг модуля для расчета стоимости заказа позволяет автомати- чески рассчитывать залог и сумму заказа с учётом количества дней.
&НаКлиенте
Процедура ОборудованиеКоличествоПриИзменении(Элемент)
Строка = Элементы.Оборудование.ТекущиеДанные;
Строка.Залог=Строка.Количество*Строка.Залог;
Строка.Сумма=(Строка.Количество*Строка.ЦенаЗаСутки); объект.ИтоговаяСуммаЗаказа=объект.Оборудование.Итог("сумма")*объект.Количе ствоДней+объект.Оборудование.Итог("Залог");
КонецПроцедуры
&НаКлиенте
Процедура ОборудованиеЦенаПриИзменении(Элемент)
Строка = Элементы.Оборудование.ТекущиеДанные;
Строка.Сумма=(Строка.Количество*Строка.ЦенаЗаСутки);
Строка.Залог=Строка.ЦенаЗаСутки*0.8; объект.ИтоговаяСуммаЗаказа=объект.Оборудование.Итог("сумма")*объект.Количе ствоДней+объект.Оборудование.Итог("Залог");
КонецПроцедуры
&НаСервере
Процедура ДатаНачалаПриИзмененииНаСервере()
РазницаДней = (Объект.ДатаОкончания - Объект.ДатаНачала) / 86400;

68
Объект.КоличествоДней = РазницаДней;
КонецПроцедуры
&НаКлиенте
Процедура ДатаНачалаПриИзменении(Элемент)
ДатаНачалаПриИзмененииНаСервере();
КонецПроцедуры
&НаСервере
Процедура ДатаОкончанияПриИзмененииНаСервере()
РазницаДней = (Объект.ДатаОкончания - Объект.ДатаНачала) / 86400;
Объект.КоличествоДней = РазницаДней;
КонецПроцедуры
&НаКлиенте
Процедура ДатаОкончанияПриИзменении(Элемент)
ДатаОкончанияПриИзмененииНаСервере();
КонецПроцедуры
3.
Листинг модуля для автоматического подтягивания цены из реги- стра сведений в табличную часть.
&НаКлиенте
Процедура ОборудованиеНазваниеПриИзменении (Элемент)
СтрТаб = Элементы.Оборудование.ТекущиеДанные;
СтрТаб.ЦенаЗаСутки = ПолучитьЦена(СтрТаб.Название, Объект.Дата);
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПолучитьЦена (Название, ТекДата)
ОтборЦены = новый структура("Оборудование", Название);
ЗначениеРесурсов=РегистрыСведений.Цены.ПолучитьПоследнее(ТекДата,
ОтборЦены); возврат ЗначениеРесурсов.Цена;
КонецФункции
4.
Листинг модуля для определения текущего пользователя
Функция ПолучитьТекущегоПользователя() экспорт
Польз =
Справочники.Сотрудники.НайтиПоНаименованию(ИмяПользователя());
Возврат Польз;
КонецФункции
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Объект.Сотрудник =
ОбщийМодульСистема.ПолучитьТекущегоПользователя();
КонецПроцедуры
5.
Листинг модуля для замены залога на значение «0», когда статус у оборудования «Неисправен».
&НаКлиенте
Процедура ОборудованиеСтатусПриИзменении(Элемент)
Если СтатусНеисправен(Элемент.Родитель.ТекущиеДанные.Статус) Тогда

69
Элемент.Родитель.ТекущиеДанные.Залог = 0;
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция СтатусНеисправен(Статус)
Если Статус =
Справочники.СтатусОборудования.НайтиПоНаименованию("НЕИСПРАВЕН") Тогда
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;
КонецФункции
6.
Листинг модуля менеджера для печатной формы «Квитанция об оплате»
Процедура Квитанция(ТабДок, Ссылка) Экспорт
Макет = Документы.Прокат.ПолучитьМакет("Квитанция");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|
Прокат.ДатаНачала,
|
Прокат.ДатаОкончания,
|
Прокат.ИтоговаяСуммаЗаказа,
|
Прокат.Номер,
|
Прокат.Сотрудник,
| Прокат.КоличествоДней,
|
Прокат.ФИО,
|
Прокат.Оборудование.(
|
Название,
|
Количество,
|
ЦенаЗаСутки,
|
Залог,
|
Сумма
|
)
|ИЗ
|
Документ.Прокат КАК Прокат
|ГДЕ
|
Прокат.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьОборудованиеШапка =
Макет.ПолучитьОбласть("ОборудованиеШапка");
ОбластьОборудование = Макет.ПолучитьОбласть("Оборудование");
Подвал=Макет.ПолучитьОбласть("Подвал");
ОбластьИтог=Макет.ПолучитьОбласть("Область");
ОбластьНазвание=Макет.ПолучитьОбласть("Название");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
СуммаИтог=0;

70
ЗалогИтог=0;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ОбластьНазвание.Параметры.Заполнить(Выборка); табдок.вывести(ОбластьНазвание);
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьОборудованиеШапка);
ВыборкаОборудование = Выборка.Оборудование.Выбрать();
Пока ВыборкаОборудование.Следующий() Цикл
ОбластьОборудование.Параметры.Заполнить(ВыборкаОборудование);
ТабДок.Вывести(ОбластьОборудование,
ВыборкаОборудование.Уровень());
СуммаИтог = СуммаИтог + ВыборкаОборудование.Сумма;
ЗалогИтог=ЗалогИтог + ВыборкаОборудование.Залог;
КонецЦикла;
ОбластьИтог.Параметры.ВсегоПоДокументу = СуммаИтог;
ОбластьИтог.Параметры.Залог = ЗалогИтог;
ТабДок.Вывести(ОбластьИтог);
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры