Дипломная работа на тему: Теоретическая часть. Характеристика объекта автоматизации и его деятельности

Введение

На сегодняшний день, учебное заведение является сложной активной социально-экономической системой. Управление такой системой является трудоемкий процесс, требующий больших затрат ресурсов не только энергетических, материальных, но и человеческих. Главный ресурс любого вуза - научно-педагогические работники. Они непосредственно обеспечивают осуществления учебно-воспитательного процесса, выполняют основную, наиболее трудоемкую работу. Уровень подготовки специалистов, репутация и конкурентоспособность вузов в свою очередь зависят от состава, состояния и численности научно-педагогических работников, эффективности их работы. Становится очевидной одна из основных задач управления учебным заведением, которая заключается в оптимизации образовательного процесса по показателям, характеризующим этот процесс.

Актуальность работы определяется проблемой распределения учебной нагрузки и учётом рабочего времени преподавательского состава в учебном заведении. Выполнение этой работы занимает много времени, неизбежны ошибки и многочисленные корректировки. Процесс составления учебных планов, основанный на опыте и интуиции работников высшей школы, нуждается в серьезном совершенствовании и научном обосновании принимаемых решений. Это особенно актуально в условиях все возрастающих требований к подготовке специалистов, необходимости частого обновления учебных планов, необходимости повышения качества учебного процесса в условиях перехода России к рыночным отношениям. Необходим поиск новых подходов, обеспечивающий целесообразную перестройку системы профессионального образования с учетом жизненных реалий. Очевидно, что эффективное управление учебным процессом в вузе сегодня требует перехода на качественно новые технологии работы с данными, относящимися к учебному процессу, основанные на использовании компьютерных сетей и баз данных.

Несмотря на продолжительную историю создания в вузах информационных систем поддержки управления и примеры успешного решения этой задачи в отдельных вузах, она по -прежнему является одной из важнейших задач вузовской информатизации. Необходимость ее решения становится еще более актуальной в связи с внедрением в университетах стратегического планирования, создания системы управления качеством. Для эффективного управления учебным процессом необходим переход на качественно новые технологии работы с данными, относящимися к учебному процессу, а также технологии, основанные на использовании компьютерных сетей и баз данных.

Объектом исследования является Московский колледж экономики, страхового дела и информационных технологий.

Предметом исследования является процесс учебного планирования и распределения учебной нагрузки преподавателей.

Целью дипломной работы является повышение эффективности организации учебного процесса колледжа КЭСИ путем разработки информационной системы для учебного планирования и распределения учебной нагрузки преподавателей на платформе 1С:Предприятие 8.

Для дипломной работы были поставлены следующие задачи:

- охарактеризовать предметную область и состояние информационных технологий в колледже КЭСИ;

- провести анализ бизнес процесса планирования и распределения учебной нагрузки преподавателей и сформировать предложения по автоматизации;

- осуществить постановка задачи автоматизации бизнес процессов и описать функциональные и нефункциональные требования;

- выполнить проектирование программного продукта и рассчитать его экономическую эффективность.

Оглавление

- Введение 3

- Теоретическая часть

- Характеристика объекта автоматизации и его деятельности

- Описание программно-технических средств

- Анализ существующих разработок для автоматизации программного средства

- Обоснование и выбор программного обеспечения для разработки программного средства

- Обоснование проектных решений

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

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

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

- Проектная часть

- Характеристика входной информации

- Характеристика результатной информации

- Проектирование и разработка информационной системы

- Структурная схема объектов программного средства

- Описание программных модулей программного средства

- Контрольный пример реализации программного средства и его описание

- Обоснование экономической эффективности проекта

- Основные и вспомогательные материалы

- Расчет времени на создание программного продукта

- Расчет себестоимости программного продукта

- Заключение 67

- Список используемой литературы 69

Заключение

В результате выполнения выпускной квалификационной работы была рассмотрена и проанализирована деятельность учебно -методического отдела колледжа КЭСИ, разработано и внедрено проектное решение по автоматизации процесса учебного планирования и распределения учебной нагрузки.

В ходе выполнения работы была построена соответствующая структура дипломного проекта, которая представляет собой несколько логических частей (разделов) - предпроектное обследование, концепция проекта, системная архитектура проекта и экономическая эффективность инвестиций в ИТ - проект.

В процессе предпроектного обследования было произведено ознакомление с колледжем и его деятельностью, изучена организационная структура., определены миссия и стратегия развития учебного заведения с курсом на развитие ИТ-стратегии, определено, какими программными средствами пользуются сотрудники организации.

На основании полученной и проанализированной информации был определен процесс, который малоэффективен и требует автоматизации - планирование учебного процесса. После того, как этот процесс был подробно изучен и описан с помощью модели потоков данных "АS - IS", были выделены все узкие места данного процесса.

На основании выявленных проблем, после анализа Российского рынка современного программной обеспечения, было принято решение о разработке собственной системы на платформе 1С:Предприятие.

Во второй главе был описан процесс проектирования и разработки информационной системы, построено дерево функций и сценарий диалога, описаны основные разработанные объекты конфигурации и принцип обеспечения безопасности системы.

В заключительной, третьей главе дипломного проекта оценивается экономическая эффективность инвестиций в ИТ-решение с помощью концепции оценки совокупной стоимости владения ИТ. После проведения расчётов было выявлено, что стоимость разработки и внедрения проекта составляет 275000,00руб., автоматизация позволит снизить трудовые затраты на 43,13%, а стоимостные затраты - на 43,61 % (99 587,25 руб.). Предположительный срок окупаемости - 18 месяцев, после чего система начнет приносить прибыль, а прямой экономический эффект с учетом капитальных затрат составит 99 587,00 рублей.

При подведении итога данной работы, хотелось бы отметить, что информационные технологии являются неотъемлемой частью современного предприятия. Современные ИТ-решения при грамотном внедрении и эксплуатации позволяют получить ценные конкурентные преимущества, которые позволяют колледжу занимать передовые позиции в рейтинге учебных заведений.

Внедрение разработанной системы, несомненно, повысит эффективность труда сотрудников учебно-методического отдела, поможет правильно оценить ситуацию и вовремя принять необходимые решения.

Таким образом, цели и задачи, поставленные перед написанием выпускной квалификационной работы, были успешно выполнены.

Список литературы

1. Извольская Н.А. Проблемы и пути совершенствования организационной структуры управления предприятия. 2014. Т. 1. С. 52-59.

2. Чечевицына, Л.Н. Анализ финансово-хозяйственной деятельности: учебник / К.В. Чечевицын. - Ростов-на-Дону: Феникс, 2013. - 368 с

3. Гузик С. Стандарт COBIT управление и аудит информационных технологий. Особенности проведения внешнего аудита ит. [Электронный ресурс]. URL: http://www.kacit.ru/ (дата обращения 23.04.2017).

4. "Учебные планы" ТАНДЕМ.Университет. [Электронный ресурс].

moduli/uchebnyj-protsess (дата обращения 23.04.2017).

5. ИСУ ВУЗ [Электронный ресурс]. URL: http://isu.tisbi.ru/ (дата обращения 23.04.2017).

6. Автоматизированная система "Нагрузка ВУЗа" [Электронный

ресурс]. URL: http://www.mmis.ru/programs/nagruzka (дата обращения

7. Автоматизация - с чего начать? [Электронный ресурс]. URL: http://www.businessstudio.ru/procedures/it/podxod/2 (дата обращения

8. Википедия. 1С Предприятие [Электронный ресурс]. URL: http://ru.wikipedia.org/wiki/1С:Предприятие (дата обращения 21.04.2017).

9. Информация для пользователей и партнеров .№16652 от 13.05.2013 [Электронный ресурс]. URL: http://www.1с.ru/news/mfojsp?id=16652 (дата обращения 23.04.2017).

10. Виды обеспечения АИС [Электронный ресурс]. URL: http://studopedia.ru/14_93295_vidi-obespecheniya-ais.html (дата обращения

11. Обзор платформы. Варианты работы системы [Электронный ресурс]. URL: http://v8.1с.ru/overview/Term_000000034.htm (дата обращения

12. Вдовин, В.М. Информационные технологии: Учебное пособие / В.М. Вдовин, Л.Е. Суркова. - М.: Дашков и К, 2016. - 304 с.

13. Обзор платформы. Варианты работы системы [Электронный ресурс]. URL: http://v8.1с.ru/overview/Term_000000034.htm (дата обращения

14. Самохвалова, Е.В. Администрирование Postgre SQL / Саймон Ригс, Ханну Кросинг - С-Петербург, 2013

15. Черемных С.В. Моделирование и анализ систем. IDEF- технологии: практикум / С.В.Черемных [и др.]. - М.: Финансы и статистика, 2013. - 192 с.

16. Википедия - Права доступа [Электронный ресурс]. URL: https://ru.wikipedia.org/wiki/Права_доступа (дата обращения 23.04.2017).

17. Радченко М.Г. 1С:Предприятие 8.3. Практическое пособие разработчика. Примеры и типовые приемы - М.:Питер, 1С-Паблишинг, 2014.

- 512 с.

18. Цыгалов Ю. Экономическая эффективность инвестиций в ИТ: оптимальный метод оценки. [Электронный ресурс]. URL: http://www.pcweek.ru/idea/article/detail.php?ID=68331 (дата обращения

19. Минухин С. В. Методика выбора и расчета затрат совокупной стоимости владения вычислительным кластером // Радиоэлектронные и компьютерные системы: сб. ст. / С. В. Минухин, С.В. Знахур. - Вып. №1 (49).-Харьков, 2013. - С. 90-96.

20. П.В. Бураков, В.Ю. Петров ВВЕДЕНИЕ В СИСТЕМЫ БАЗ ДАННЫХ - Санкт-Петербург: , 2010. - 129с.;

21. Бураков П. В., Петров В. Ю. Информационные системы в экономике: учебное пособие / М - во образования и науки РФ; Федер . агентство по образованию ; СПбГУ ИТМО . - СПб ., 2009.- 66с.;

22. Постовалов С.Н., Постовалова А.Ю. 1С: Предприятие 7.7. Уроки программирования/ С.Н. Постовалов. - Издательство: БХВ-Петербург, 2012г. - 320с.;

23. Михайлов С. 1С:Бухгалтерия 7.7. Решение типичных проблем пользователя/ С. Михайлов. - Издательство: БХВ-Петербург, 2005г. - 272с.;

24. Михайлов А. 1С:Предприятие 7.7/8.0: системное программирование/ А. Михайлов. - Издательство: БХВ-Петербург, 2005г. - 336с.;

25. Михайлов А. 1С:Предприятие 7.7/8.0: системное программирование, 2-ое издание / А. Михайлов. - Издательство: БХВ-Петербург, 2007г. - 336с.;

26. Бартеньев О.В. 1С:Предприятие: программирование для всех. Базовые объекты, расчеты и регистры/ О.В. Бартеньев. - Издательство: Диалог-Мифи, 2005г. - 464с.;

27. Митичкин С. Практика программирования в среде 1С: Предприятие 7.7/ С. Митичкин. - Издательство: КомБук, 2004. - 272с.;

28. Дубянский В. 1С Предприятие. Конфигурирование и администрирование для начинающих/ В. Дубянский. - Издательство: БХВ-Петербург, 2005. - 172с.;

29. Трутнев Д. Р. Архитектуры информационных систем. Основы проектирования: Учебное пособие. - СПб.: НИУ ИТМО, 2012. - 66 с.;

30. Описание продукта 1С: Предприятие 7.7. [Электронный ресурс] / Режим доступа: http://www.1с.ru/rus/products/1с/predpr/buh44.htm, свободный;

31. Репин В. Бизнес-процессы. Моделирование, внедрение, управление/ В. Репин. - Издательство: Манн, Иванов и Фербер, 2013г. - 512с.;

32. Ардерсен Б. Бизнес-процессы. Инструменты совершенствования/ Издательство: Стандарты и качество, 2007г. - 272с.;

33. Михайлова Э. А., Орлова Л. Н. Экономическая оценка инвестиций/ Учебное пособие. - Рыбинск: РГАТА, 2008. - 176 с.;

34. Сироткин С., Кельчевская Н. Экономическая оценка инвестиционных проектов/ Издательство: Юнити-Дана, 2011г. - 312с.;

35. Ажеронок, В.А. "Профессиональная разработка в системе 1С:Предприятие 8.3" [Текст] / В.А. Ажеронок, А.П. Габец - М.: 1С:Библиотека специалиста по внедрению, 2014. - 218 с.

36. Гончаров, Д.И. "Решение специальных прикладных задач в "1С:Предприятии 8.2"" [Текст] / Д.И. Гончаров, Е.Ю. Хрусталева - М.: 1С:Библиотека специалиста по внедрению, 2017. -300 с.

37. Кашаев, С.М. ". Программирование в 1С.Предприятие 8.3." [Текст] / С.М. Кашаев- М.: 1С:Библиотека специалиста по внедрению, 2014. - 280 с.

38. Радченко, М.Г. "1С:Предприятие 8.3. Практическое пособие разработчика. Примеры и типовые приемы" [Текст] / М.Г. Радченко - М.: 1С:Библиотека специалиста по внедрению, 2013. - 300 с.

39. "Решения 1С для корпоративных клиентов" [Электронный ресурс]. - Режим доступа: https://its.1с.ru/db/metod8dev#browse:13:-1:1989:200

40. "1С: Предприятие" [Электронный ресурс]. - Режим доступа: http://v8.1с.ru/overview/release_8_3/

41. Беллами Д. "Цифровая телефония" Изд-во: Эко-Трендз, 2008

42. Брайан Хилл Полный справочник по Cisco = Cisco: The Complete Reference. - М.: "Вильямс", 2007. - С. 1088.

43. Бройдо, Владимир Львович. Вычислительные системы, сети и телекоммуникации: Учеб. пособие для студ. вузов, обуч. по напр. "Прикладная информатика" и "Информационные системы в экономике"/ Бройдо В.Л.-СПб.:ПИТЕР,2003.-688 с.:ил.;24 см.-(Учебник для вузов)

44. Владимиров Н. А. Технология АТМ: основные положения. // "Сети", N 2, 2007

45. Компьютеры, сети, Интернет:Энциклопедия/Новиков Ю.Н., Новиков Д. Ю., Черепанов А.С. и др.; Под ред. Новикова Ю.Н.-СПб.: ПИТЕР, 2002.- 928 с.:ил.;24 см.-(Энциклопедия: Наиболее полное и подробное руководство)

46. Компьютерные сети. Учебный курс, 2-е изд. - MicrosoftPress, Русская редакция, 2007

47. Кульгин Максим Компьютерные сети. Практика построения - С.-Петербург, ПИТЕР, 2005

48. Медведовский И.Д. Локальные и глобальные сети. - СПб.: "Мир и семья-95", 2007

49. Морозевич А.Н. Основы информатики: Учебное пособие. - Издательство Новое знание, 2001. - 544с.

50. Новиков Ю. В., Кондратенко С. В. Основы локальных сетей. Курс лекций. - М.: Интернет-университет информационных технологий, 2005.

51. .Олифер В. Г., Олифер Н. А. Компьютерные сети. Принципы, технологии, протоколы: Учебник для вузов. 3-е изд. - СПб.: Питер, 2006. - 958 с: ил.

52. Палмер М., Синклер Р. Б. Проектирование и внедрение компьютерных сетей. Учебный курс, 2007

53. Платонов В. Глобальная информационная сеть. - М.: Проспект, 2006

54. Репкин Д.Е. Глобальные сети как средство человеческого общения. - М.: АНО "ИТО", 2007

55. Росляков А.В. Виртуальные частные сети. Основы построения и применения. Изд-во: Эко-Трендз, 2006

56. Таненбаум Э. Архитектура компьютера. - С.-Петербург, ПИТЕР, 2005

57. Таненбаум Э. Компьютерные сети - С.-Петербург, ПИТЕР,2007

58. Александр Филимонов - Построение мультисервисных сетей Ethernet, bhv, 2007

59. Уэнделл Одом Компьютерные сети. Первый шаг = Computer Networking First-step. - М.: "Вильямс", 2005.

60. http://www.osp.ru/ - Открытые системы

62. Кулешов Д. Информационные системы в торговле / Управление предприятием, №9 (32), 2013 // http://consulting.1с.ru/journal-article.jsp?id=445.

63. Обзор системы 1С:Предприятие 8. Официальный сайт 1С: Предприятие 8. // http://v8.1с.ru/overview/.

66. Методология структурного анализа и проектирования // http://оr-rsv.net/SADT/SADT.htm.

67. Шеер А.-В. ARIS - моделирование бизнес-процессов. - 3-е изд. - М.: Вильямс, 2009. - 224 с.

68. Галкин В.В. Медицинский бизнес. - М.: КНОРУС, 2010. - 272 с.

69. Вендров А.М. CASE-технологии. Проектирование программного обеспечения экономических информационных систем. - М.: Финансы и статистика, 2005. - 544 с.

70. ГОСТ 19.701-90. Схемы алгоритмов, программ, данных и систем. Обозначения условные и правила выполнения. 1990 - 23 с.

71. Федотова Д.Э., Семенов Ю.Д., Чижик К.Н. CASE-технологии: Практикум. - М.: Горячая линия - Телеком, 2005. - 160 с.: ил.

72. Черемных С.В., Семенов И.О., Ручкин В.С. Моделирование и анализ систем. IDEF - технологии: Практикум, 2005. - 192 с.Моделирование информационных систем на основе структурного подхода: Лабораторный практикум по дисциплине "CASE - технологии" / УГАТУ; Сост.; Е.А. Кузьмина, Ф.В. Терехов. - Уфа, 2006. - 42с.

73. Ларман К. Применение UML 2.0 и шаблонов проектирования. - 3-е изд. - М.: Вильямс, 2006. - 736 с.

74. Конфигурация 1С:Торговля и склад 8.7 // http://sky1c.ru/node/27.

75. К.Е.Кляйн, Д.Кляйн, Б.Хант - SQL. Справочник, 3-е издание - 2010 Символ, 2010.

76. Microsoft SQL Server 2012. Руководство для начинающих. Д. Петкович. BHV. 2013.

77. Проектирование серверной инфраструктуры баз данных Microsoft SQL Server 2005. Учебный курс Microsoft. Дж. Макин, М.Хотек. Русская редакция. 2008.

78. Microsoft SQL Server. Эффективная работа. Алексей Вишневский. Питер. 2009.

79. Фленов Михаил Библия С#; БХВ-Петербург, 2011. - 560 с.

80. Гросс, К. Самоучитель С# 2008 / К. Гросс - БХВ-Петербург., 2009. - 576с.

81. Герберт Шилдт. С# 4.0. Полное руководство. ISBN 978-5-8459-1684-6. Вильямс. 2010.

82. Ицик Бен-Ган. Microsoft SQL Server 2008. Основы Т-SQL. БХВ-Петербург. 2009

83. Алекс Кригель, Борис Трухнов. SQL Библия пользователя 2-е издание. Диалектик 2010.

84. Информационные технологии управления: Учебник / Уткин В.Б., Балдин К.В. - М.: Академия, 2008. - 395 с.

85. Смирнова Г.Н., Тельнов Ю.Ф. Проектирование экономических информационных систем. - М.: МЭСИ, 2005. - 511 с.

86. Гвоздева Т.В., Баллод Б.А. Проектирование информационных систем. - М.: Феникс, 2009. - 512 с.

87. Информационные технологии: Учебное пособие / Зимин В.П. - Томск: ТПУ, 2006. - 134 с.

88. Львов Б.Г., А.К. Скурат, И.В. Соловьев, Чередниченко Д.А. Обеспечение качества технологических машин на стадии автоматизированного рабочего проектирования // Качество, инновации, образование. 2002

89. Ларичев О.И. , Нечитов А.И., Мошкович Е.М., Фуренс Е.М.. Выявление экспертных знаний М.: Наука, 1989.С.42.

90. Андриченко А.Н. "Вертикаль" - новое поколение технологических САПР: объектный подход // САПР и графика. 2005. №6.

91. Емельянова Н. З., Партыка Т. Л., И. И. Попов, Проектирование информационных систем - М.: Форум, 2009. - 432 с.

92. Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем - М.: Бином. Лаборатория знаний, 2008. - 304 с.

93. Вендров А.М. Проектирование программного обеспечения экономических информационных систем: Учебник - М.: Финансы и статистика, 2006. - 544 с.

94. Гвоздева Т. В., Баллод Б. А., Проектирование информационных систем - М.: Феникс, 2009. - 512 с.

95. Орлик С., Булуй Ю. Введение в программную инженерию и управление жизненным циклом ПО. Программная инженерия. Программные требования - М.: Вильямс, 2008. - 358 с.

96. Банк В. Р., Зверев В. С. - Информационные системы в экономике - М.: Экономист, 2010 - 477 с.

97. Симионов Ю.Ф., Боромотов В.В. Информационный менеджмент. - Ростов н.Д: Феникс, 2008. - 250 с.

98. Джалота П. Управление программным проектом на практике - М.: Лори, 2007 - 268 с.

99. Голицына О. Л., И. И. Попов, Н. В. Максимов, Т. Л. Партыка, Информационные технологии - М.: Инфра, 2009. - 608 с.

100. Карминский А.М., Черников Б.В. Информационные системы в экономике: методология создания - М.: Финансы и статистика, 2009 - 240с.

101. Коваленко В.В. Проектирование информационных систем - М.: Форум, 2012 - 320 с.

102. Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических информационных систем: Учебник. - М.: Финансы и статистика, 2010 - 512 с.

103. Официальный сайт ООО "1С" [Электронный ресурс]. URL: http://www.1с.ru (дата обращения: 01.12.2015).

104. Официальный сайт ЗАО "Технолинк" [Электронный ресурс]. URL: http://old.technolink.spb.ru/index.php (дата обращения: 01.12.2015).

105. Официальный сайт ООО "Бизнес Технологии" [Электронный ресурс]. URL: http://www.global-system.ru (дата обращения: 10.12.2015).

106. Официальный сайт ООО "Информконтакт" [Электронный ресурс]. URL: http://alfasystem.ru (дата обращения: 10.12.2015).

107. Официальный сайт ООО "ДоксВижн" [Электронный ресурс]. URL: http://www.docsvision.com (дата обращения: 10.12.2015).

108. Топоркова О.М. Информационные системы. Конспект лекций для направления подготовки бакалавров "Прикладная информатика" - Калининград: КГТУ , 2014. - 107 с.

109. Елиферов В.Г., Репин В.В. Бизнес-процессы: Регламентация и управление: Учебник - М.: Инфра-М, 2007. - 319 с.

110. Вигерс К. Разработка требований к программному обеспечению, Пер, с англ. - М.: Русская Редакция, 2008. - 576с.

111. Орлов, С. А. Технологии разработки программного обеспечения: учебн. пособие. - СПб.: Питер, 2007. - 480 с.

112. Вендров А.М. CАSE-технологии. Современные методы и средства проектирования информационных систем - М.: Финансы и статистика, 2007. - 456 с.

113. Федотова Д.Э., Семёнов Ю.Д., Чижик К.Н. CASE-технологии: учебное пособие - М.: Горячая линия - Телеком, 2008. - 160 с.

114. Маклаков С. Моделирование бизнес-процессов с AIIFusion Process Modeler - М.: Диалог-МИФИ, 2004. - 240 с.

115. Соколов, И. П. Технологии разработки программного обеспечения: учебн. пособие. - СПб.: Питер, 2009 - 480 с.

116. Леффингуелл Д., Уидриг Д, Принципы работы с требованиями к программному обеспечению - М.: Вильямс, 2008. - 278 с.

117. Петров В. Н, Информационные системы, СПб.: Питер, 2008. - 688 с.

118. Глаголев В. Разработка технической документации. Руководство для технических писателей и локализаторов ПО (+ СD-ROM) - СПб.: Питер, 2011. - 192 с.

119. Лешек А. Мацяшек Анализ требований и проектирование систем. Разработка информационных систем с использованием UML - М.: Вильямс, 2008. - 432 с.

120. Корчагин, С. В. Разработка программных комплексов. Учеб. пособие для вузов - М.: БХВ-Петербург, 2008 - 500 с.

121. Котляров В. П., Коликова Т. В. Основы тестирования программного обеспечения - М.; Бином. Лаборатория знаний, 2009. - 288 с.

122. Пирогов В. Ю. Информационные системы и базы данных - М.: БХВ-Петербург, 2009. - 528 с.

123. Маслов А.В. Проектирование информационных систем в экономике Томск: Изд-во Томского политехнического университета, 2008. - 216 с.

124. Желены М. Информационные технологии в бизнесе - СПб.: Питер, 2010. - 1120 с.

125. Керниrан Б., Пайк Р. Практика программирования. : Пер. с англ. - М.: Вильямс, 2015. - 288 с.

126. Нейгард М. Release it! Проектирование и дизайн ПО для тех, кому не всё равно - СПб.: Питер, 2016. - 320с.

127. Зайцев С.Л. - Проектирование баз данных с ERwin - М.: Технология, 2011 - 176 с.

128. Фаронов В.В., Шумаков П.В. Руководство разработчика баз данных - М.: Нолидж, 2009 - 125 с.

129. Хомоненко А.Д., Гофман В.Э. Работа с базами данных в Delphi: учебное пособие. - СПб.: БХВ-Петербург, 2008. - 640 с.

130. Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. - М.: Финансы и статистика, 2008. - 562 с.

131. Брауде Э. Технология разработки программного обеспечения - СПб.: Питер, 2012 - 698 с.

132. Рендольф Н., Гарднер Д. Visual Studio 2010 для профессионалов - М.: Вильямс, 2011. - 1184 с.

Приложение 1

Процедура расчета диаметра рулона документа "Заявка на производство".

Процедура РасчетДиаметраРулона()

ВнешнийДиаметрРулонаРасч = 0;

КоличествоСлоёвМатериала = 0;

Если ОсновнойЭкструдер.Выбран() = 0 Тогда

МетражРулонаДляРасч = МетражРулона;

Если МетражРулонаДляРасч = 0 Тогда

Предупреждение("Менеджером не указан метраж рулона!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Иначе

Если ОсновнойЭкструдер = Оборудование1 Тогда

МетражРулонаДляРасч = МетражРулонаФакт1;

ИначеЕсли ОсновнойЭкструдер = Оборудование2 Тогда

МетражРулонаДляРасч = МетражРулонаФакт2;

ИначеЕсли ОсновнойЭкструдер = Оборудование3 Тогда

МетражРулонаДляРасч = МетражРулонаФакт3;

КонецЕсли;

Если МетражРулонаДляРасч = 0 Тогда

Предупреждение("Технологом не указан метраж рулона на основном экструдере!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

КонецЕсли;

МетражРулонаДляРасч = МетражРулонаДляРасч * 100;

Если ВидПП.Выбран() = 1 Тогда

Если (ВидПП = Перечисление.ВидыПродукции.ДвойноеПолотно) или (ВидПП = Перечисление.ВидыПродукции.Полурукав) или (ВидПП = Перечисление.ВидыПродукции.Рукав) Тогда

КоличествоСлоёвМатериала = 2;

ИначеЕсли (ВидПП = Перечисление.ВидыПродукции.Полотно) Тогда

КоличествоСлоёвМатериала = 1;

ИначеЕсли (ВидПП = Перечисление.ВидыПродукции.РукавСФальцами) или (ВидПП = Перечисление.ВидыПродукции.ПолурукавСФальцами) Тогда

КоличествоСлоёвМатериала = 4;

КонецЕсли;

КонецЕсли;

Если КоличествоСлоёвМатериала = 0 Тогда

Предупреждение("Не выбран Вид ПП: полотно, тукав, рукав с фальцами...!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если Толщина = 0 Тогда

Предупреждение("Не указана толщина материала!");

СтатусВозврата(0);

Возврат;

Иначе

ТолщинаРасч = Толщина/10000;

КонецЕсли;

ВнешнийДиаметрРулонаРасч = 2 * Корень((((Константа.ОсновнойВнешнийДиаметрШпули/2) * (Константа.ОсновнойВнешнийДиаметрШпули/2)) + (ТолщинаРасч * КоличествоСлоёвМатериала * МетражРулонаДляРасч)/3.1415926535), 2);

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

Функция ВернутьКонстантаДиаметрШпули()

Возврат ("при наружнем диаметре шпули " + Константа.ОсновнойВнешнийДиаметрШпули + " см.");

КонецФункции

Модуль кнопки "Заполнить" документа "План производства".

Процедура Заполнить()

Если Экструдер.Выбран() = 0 тогда

Предупреждение("Не выбран Экструдет, по которуму создаем План!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если ПустоеЗначение(СтартДата) = 1 тогда

Предупреждение("Не выбрана Дата старта!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

ВыбКонПериода = ДатаДок;

Если ПолучитьДатуТА()<ВыбКонПериода Тогда

ВыбКонПериода = ПолучитьДатуТА();

КонецЕсли;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

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

"//{{ЗАПРОС(Сформировать)

|Период с ДатаПервогоЗаказа по ВыбКонПериода;

|Док = Регистр.ВыполнениеЗаявок.Документ;

|Заявка = Регистр.ВыполнениеЗаявок.Заявка.Документ;

|Проект = Регистр.ВыполнениеЗаявок.Заявка.Документ.Проект;

|ЗЭкструдер = Регистр.ВыполнениеЗаявок.Заявка.Документ.ОсновнойЭкструдер;

|Контрагент = Регистр.ВыполнениеЗаявок.Заявка.Документ.Контрагент;

|ГП = Регистр.ВыполнениеЗаявок.Заявка.Документ.ГП;

|Номенклатура = Регистр.ВыполнениеЗаявок.Номенклатура;

|КолКг = Регистр.ВыполнениеЗаявок.КоличествоКг;

|КолРулонов = Регистр.ВыполнениеЗаявок.КоличествоРулонов;

|Функция КолКгПриход = Приход(КолКг);

|Функция КолКгРасход = Расход(КолКг);

|Группировка Заявка;

|Условие (ЗЭкструдер = Экструдер);

|"//}}ЗАПРОС

Заг = "";

Если глФильтрПоСправочнику("","",МФЗаявка,"МФЗаявка",ВидМФЗаявка.ТекущаяСтрока(),ТекстЗапроса,Заг,"Заявка")=0 Тогда Возврат; КонецЕсли;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

Пока Запрос.Группировка(1) = 1 Цикл

НоваяСтрока();

Заявка = Запрос.Заявка;

Номенклатура = Запрос.Заявка.ГП;

Контрагент = Запрос.Заявка.Контрагент;

Менеджер = Запрос.Заявка.Проект;

ДатаОтгрузки = Запрос.Заявка.ДатаОтгрузки1;

КолОтгрузки = Запрос.Заявка.ВесПартии1;

КолНаличие = Запрос.КолКгРасход;

КолНеобходимо = КолОтгрузки - КолНаличие;

Производительность = Запрос.Заявка.ОсновнаяПроизводительность;

ВремяРаботы = 0;

Если Производительность <> 0 Тогда

ВремяРаботы = КолНеобходимо/Производительность;

НеобхЧ = Цел(ВремяРаботы);

НеобхМ = (ВремяРаботы-НеобхЧ)*60;

ВремяРаботыДоп = ВремяРаботы/100*МеждуЗаказамиПроцент;

Если МеждуЗаказамиМин = 0 Тогда

ПереходЧ = Цел(ВремяРаботыДоп);

ПереходМ = (ВремяРаботыДоп-ПереходЧ)*60;

Иначе

ПереходЧ = Цел(МеждуЗаказамиМин/60);

ПереходМ = (МеждуЗаказамиМин-Цел(МеждуЗаказамиМин/60));

КонецЕсли;

КонецЕсли;

Если ПустоеЗначение(Запрос.Заявка.ДатаОтгрузки2) = 0 Тогда

НоваяСтрока();

Заявка = Запрос.Заявка;

Номенклатура = Запрос.Заявка.ГП;

Контрагент = Запрос.Заявка.Контрагент;

Менеджер = Запрос.Заявка.Проект;

ДатаОтгрузки = Запрос.Заявка.ДатаОтгрузки2;

КолОтгрузки = Запрос.Заявка.ВесПартии2;

КолНаличие = Запрос.КолКгРасход;

КолНеобходимо = КолОтгрузки - КолНаличие;

Производительность = Запрос.Заявка.ОсновнаяПроизводительность;

ВремяРаботы = 0;

Если Производительность <> 0 Тогда

ВремяРаботы = КолНеобходимо/Производительность;

НеобхЧ = Цел(ВремяРаботы);

НеобхМ = (ВремяРаботы-НеобхЧ)*60;

ВремяРаботыДоп = ВремяРаботы/100*МеждуЗаказамиПроцент;

Если МеждуЗаказамиМин = 0 Тогда

ПереходЧ = Цел(ВремяРаботыДоп);

ПереходМ = (ВремяРаботыДоп-ПереходЧ)*60;

Иначе

ПереходЧ = Цел(МеждуЗаказамиМин/60);

ПереходМ = (МеждуЗаказамиМин-Цел(МеждуЗаказамиМин/60));

КонецЕсли;

КонецЕсли;

КонецЕсли;

Если ПустоеЗначение(Запрос.Заявка.ДатаОтгрузки3) = 0 Тогда

НоваяСтрока();

Заявка = Запрос.Заявка;

Номенклатура = Запрос.Заявка.ГП;

Контрагент = Запрос.Заявка.Контрагент;

Менеджер = Запрос.Заявка.Проект;

ДатаОтгрузки = Запрос.Заявка.ДатаОтгрузки3;

КолОтгрузки = Запрос.Заявка.ВесПартии3;

КолНаличие = Запрос.КолКгРасход;

КолНеобходимо = КолОтгрузки - КолНаличие;

Производительность = Запрос.Заявка.ОсновнаяПроизводительность;

ВремяРаботы = 0;

Если Производительность <> 0 Тогда

ВремяРаботы = КолНеобходимо/Производительность;

НеобхЧ = Цел(ВремяРаботы);

НеобхМ = (ВремяРаботы-НеобхЧ)*60;

ВремяРаботыДоп = ВремяРаботы/100*МеждуЗаказамиПроцент;

Если МеждуЗаказамиМин = 0 Тогда

ПереходЧ = Цел(ВремяРаботыДоп);

ПереходМ = (ВремяРаботыДоп-ПереходЧ)*60;

Иначе

ПереходЧ = Цел(МеждуЗаказамиМин/60);

ПереходМ = (МеждуЗаказамиМин-Цел(МеждуЗаказамиМин/60));

КонецЕсли;

КонецЕсли;

КонецЕсли;

КонецЦикла;

ТЗ = СоздатьОбъект("ТаблицаЗначений");

ВыгрузитьТабличнуюЧасть(ТЗ);

УдалитьСтроки();

ТЗ.НоваяКолонка("ДатаЗ",,,,,,,);

ТЗ.ВыбратьСтроки();

Пока ТЗ.ПолучитьСтроку() = 1 Цикл

ТЗ.ДатаЗ = ТЗ.Заявка.ДатаДок;

КонецЦикла;

ТЗ.Сортировать("ДатаОтгрузки, ДатаЗ");

НС = 1;

ТЗ.ВыбратьСтроки();

Пока ТЗ.ПолучитьСтроку() = 1 Цикл

Если ПустоеЗначение(ТЗ.Заявка) = 1 Тогда

Продолжить;

КонецЕсли;

Если ПустоеЗначение(ТЗ.ДатаОтгрузки) = 1 Тогда

Продолжить;

КонецЕсли;

Если ТЗ.ДатаОтгрузки < ТЗ.Заявка.ДатаДок Тогда

Продолжить;

КонецЕсли;

Если ТЗ.Производительность = 0 Тогда

Продолжить;

КонецЕсли;

Если (ТЗ.КолНеобходимо < 0) или (ТЗ.КолНеобходимо = 0) Тогда

КонецЕсли;

НС = НС + 1;

НоваяСтрока();

Заявка = ТЗ.Заявка;

Менеджер = ТЗ.Менеджер;

Контрагент = ТЗ.Заявка.Контрагент;

Номенклатура = ТЗ.Заявка.ГП;

ДатаОтгрузки = ТЗ.ДатаОтгрузки;

КолОтгрузки = ТЗ.КолОтгрузки;

КолНаличие = ТЗ.КолНаличие;

КолНеобходимо = ТЗ.КолНеобходимо;

Производительность = ТЗ.Производительность;

НеобхЧ = ТЗ.НеобхЧ;

НеобхМ = ТЗ.НеобхМ;

КонецЦикла;

ПокнПересчитатьВремя();

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

Процедура расчета диаметра рулона документа "Заявка на производство".

Процедура РасчетДиаметраРулона()

ВнешнийДиаметрРулонаРасч = 0;

КоличествоСлоёвМатериала = 0;

Если ОсновнойЭкструдер.Выбран() = 0 Тогда

МетражРулонаДляРасч = МетражРулона;

Если МетражРулонаДляРасч = 0 Тогда

Предупреждение("Менеджером не указан метраж рулона!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Иначе

Если ОсновнойЭкструдер = Оборудование1 Тогда

МетражРулонаДляРасч = МетражРулонаФакт1;

ИначеЕсли ОсновнойЭкструдер = Оборудование2 Тогда

МетражРулонаДляРасч = МетражРулонаФакт2;

ИначеЕсли ОсновнойЭкструдер = Оборудование3 Тогда

МетражРулонаДляРасч = МетражРулонаФакт3;

КонецЕсли;

Если МетражРулонаДляРасч = 0 Тогда

Предупреждение("Технологом не указан метраж рулона на основном экструдере!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

КонецЕсли;

МетражРулонаДляРасч = МетражРулонаДляРасч * 100;

Если ВидПП.Выбран() = 1 Тогда

Если (ВидПП = Перечисление.ВидыПродукции.ДвойноеПолотно) или (ВидПП = Перечисление.ВидыПродукции.Полурукав) или (ВидПП = Перечисление.ВидыПродукции.Рукав) Тогда

КоличествоСлоёвМатериала = 2;

ИначеЕсли (ВидПП = Перечисление.ВидыПродукции.Полотно) Тогда

КоличествоСлоёвМатериала = 1;

ИначеЕсли (ВидПП = Перечисление.ВидыПродукции.РукавСФальцами) или (ВидПП = Перечисление.ВидыПродукции.ПолурукавСФальцами) Тогда

КоличествоСлоёвМатериала = 4;

КонецЕсли;

КонецЕсли;

Если КоличествоСлоёвМатериала = 0 Тогда

Предупреждение("Не выбран Вид ПП: полотно, тукав, рукав с фальцами...!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если Толщина = 0 Тогда

Предупреждение("Не указана толщина материала!");

СтатусВозврата(0);

Возврат;

Иначе

ТолщинаРасч = Толщина/10000;

КонецЕсли;

ВнешнийДиаметрРулонаРасч = 2 * Корень((((Константа.ОсновнойВнешнийДиаметрШпули/2) * (Константа.ОсновнойВнешнийДиаметрШпули/2)) + (ТолщинаРасч * КоличествоСлоёвМатериала * МетражРулонаДляРасч)/3.1415926535), 2);

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

Функция ВернутьКонстантаДиаметрШпули()

Возврат ("при наружнем диаметре шпули " + Константа.ОсновнойВнешнийДиаметрШпули + " см.");

КонецФункции

Модуль кнопки "Заполнить" документа "План производства".

Процедура Заполнить()

Если Экструдер.Выбран() = 0 тогда

Предупреждение("Не выбран Экструдет, по которуму создаем План!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если ПустоеЗначение(СтартДата) = 1 тогда

Предупреждение("Не выбрана Дата старта!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

ВыбКонПериода = ДатаДок;

Если ПолучитьДатуТА()<ВыбКонПериода Тогда

ВыбКонПериода = ПолучитьДатуТА();

КонецЕсли;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

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

"//{{ЗАПРОС(Сформировать)

|Период с ДатаПервогоЗаказа по ВыбКонПериода;

|Док = Регистр.ВыполнениеЗаявок.Документ;

|Заявка = Регистр.ВыполнениеЗаявок.Заявка.Документ;

|Проект = Регистр.ВыполнениеЗаявок.Заявка.Документ.Проект;

|ЗЭкструдер = Регистр.ВыполнениеЗаявок.Заявка.Документ.ОсновнойЭкструдер;

|Контрагент = Регистр.ВыполнениеЗаявок.Заявка.Документ.Контрагент;

|ГП = Регистр.ВыполнениеЗаявок.Заявка.Документ.ГП;

|Номенклатура = Регистр.ВыполнениеЗаявок.Номенклатура;

|КолКг = Регистр.ВыполнениеЗаявок.КоличествоКг;

|КолРулонов = Регистр.ВыполнениеЗаявок.КоличествоРулонов;

|Функция КолКгПриход = Приход(КолКг);

|Функция КолКгРасход = Расход(КолКг);

|Группировка Заявка;

|Условие (ЗЭкструдер = Экструдер);

|"//}}ЗАПРОС

Заг = "";

Если глФильтрПоСправочнику("","",МФЗаявка,"МФЗаявка",ВидМФЗаявка.ТекущаяСтрока(),ТекстЗапроса,Заг,"Заявка")=0 Тогда Возврат; КонецЕсли;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

Пока Запрос.Группировка(1) = 1 Цикл

НоваяСтрока();

Заявка = Запрос.Заявка;

Номенклатура = Запрос.Заявка.ГП;

Контрагент = Запрос.Заявка.Контрагент;

Менеджер = Запрос.Заявка.Проект;

ДатаОтгрузки = Запрос.Заявка.ДатаОтгрузки1;

КолОтгрузки = Запрос.Заявка.ВесПартии1;

КолНаличие = Запрос.КолКгРасход;

КолНеобходимо = КолОтгрузки - КолНаличие;

Производительность = Запрос.Заявка.ОсновнаяПроизводительность;

ВремяРаботы = 0;

Если Производительность <> 0 Тогда

ВремяРаботы = КолНеобходимо/Производительность;

НеобхЧ = Цел(ВремяРаботы);

НеобхМ = (ВремяРаботы-НеобхЧ)*60;

ВремяРаботыДоп = ВремяРаботы/100*МеждуЗаказамиПроцент;

Если МеждуЗаказамиМин = 0 Тогда

ПереходЧ = Цел(ВремяРаботыДоп);

ПереходМ = (ВремяРаботыДоп-ПереходЧ)*60;

Иначе

ПереходЧ = Цел(МеждуЗаказамиМин/60);

ПереходМ = (МеждуЗаказамиМин-Цел(МеждуЗаказамиМин/60));

КонецЕсли;

КонецЕсли;

Если ПустоеЗначение(Запрос.Заявка.ДатаОтгрузки2) = 0 Тогда

НоваяСтрока();

Заявка = Запрос.Заявка;

Номенклатура = Запрос.Заявка.ГП;

Контрагент = Запрос.Заявка.Контрагент;

Менеджер = Запрос.Заявка.Проект;

ДатаОтгрузки = Запрос.Заявка.ДатаОтгрузки2;

КолОтгрузки = Запрос.Заявка.ВесПартии2;

КолНаличие = Запрос.КолКгРасход;

КолНеобходимо = КолОтгрузки - КолНаличие;

Производительность = Запрос.Заявка.ОсновнаяПроизводительность;

ВремяРаботы = 0;

Если Производительность <> 0 Тогда

ВремяРаботы = КолНеобходимо/Производительность;

НеобхЧ = Цел(ВремяРаботы);

НеобхМ = (ВремяРаботы-НеобхЧ)*60;

ВремяРаботыДоп = ВремяРаботы/100*МеждуЗаказамиПроцент;

Если МеждуЗаказамиМин = 0 Тогда

ПереходЧ = Цел(ВремяРаботыДоп);

ПереходМ = (ВремяРаботыДоп-ПереходЧ)*60;

Иначе

ПереходЧ = Цел(МеждуЗаказамиМин/60);

ПереходМ = (МеждуЗаказамиМин-Цел(МеждуЗаказамиМин/60));

КонецЕсли;

КонецЕсли;

КонецЕсли;

Если ПустоеЗначение(Запрос.Заявка.ДатаОтгрузки3) = 0 Тогда

НоваяСтрока();

Заявка = Запрос.Заявка;

Номенклатура = Запрос.Заявка.ГП;

Контрагент = Запрос.Заявка.Контрагент;

Менеджер = Запрос.Заявка.Проект;

ДатаОтгрузки = Запрос.Заявка.ДатаОтгрузки3;

КолОтгрузки = Запрос.Заявка.ВесПартии3;

КолНаличие = Запрос.КолКгРасход;

КолНеобходимо = КолОтгрузки - КолНаличие;

Производительность = Запрос.Заявка.ОсновнаяПроизводительность;

ВремяРаботы = 0;

Если Производительность <> 0 Тогда

ВремяРаботы = КолНеобходимо/Производительность;

НеобхЧ = Цел(ВремяРаботы);

НеобхМ = (ВремяРаботы-НеобхЧ)*60;

ВремяРаботыДоп = ВремяРаботы/100*МеждуЗаказамиПроцент;

Если МеждуЗаказамиМин = 0 Тогда

ПереходЧ = Цел(ВремяРаботыДоп);

ПереходМ = (ВремяРаботыДоп-ПереходЧ)*60;

Иначе

ПереходЧ = Цел(МеждуЗаказамиМин/60);

ПереходМ = (МеждуЗаказамиМин-Цел(МеждуЗаказамиМин/60));

КонецЕсли;

КонецЕсли;

КонецЕсли;

КонецЦикла;

ТЗ = СоздатьОбъект("ТаблицаЗначений");

ВыгрузитьТабличнуюЧасть(ТЗ);

УдалитьСтроки();

ТЗ.НоваяКолонка("ДатаЗ",,,,,,,);

ТЗ.ВыбратьСтроки();

Пока ТЗ.ПолучитьСтроку() = 1 Цикл

ТЗ.ДатаЗ = ТЗ.Заявка.ДатаДок;

КонецЦикла;

ТЗ.Сортировать("ДатаОтгрузки, ДатаЗ");

НС = 1;

ТЗ.ВыбратьСтроки();

Пока ТЗ.ПолучитьСтроку() = 1 Цикл

Если ПустоеЗначение(ТЗ.Заявка) = 1 Тогда

Продолжить;

КонецЕсли;

Если ПустоеЗначение(ТЗ.ДатаОтгрузки) = 1 Тогда

Продолжить;

КонецЕсли;

Если ТЗ.ДатаОтгрузки < ТЗ.Заявка.ДатаДок Тогда

Продолжить;

КонецЕсли;

Если ТЗ.Производительность = 0 Тогда

Продолжить;

КонецЕсли;

Если (ТЗ.КолНеобходимо < 0) или (ТЗ.КолНеобходимо = 0) Тогда

КонецЕсли;

НС = НС + 1;

НоваяСтрока();

Заявка = ТЗ.Заявка;

Менеджер = ТЗ.Менеджер;

Контрагент = ТЗ.Заявка.Контрагент;

Номенклатура = ТЗ.Заявка.ГП;

ДатаОтгрузки = ТЗ.ДатаОтгрузки;

КолОтгрузки = ТЗ.КолОтгрузки;

КолНаличие = ТЗ.КолНаличие;

КолНеобходимо = ТЗ.КолНеобходимо;

Производительность = ТЗ.Производительность;

НеобхЧ = ТЗ.НеобхЧ;

НеобхМ = ТЗ.НеобхМ;

КонецЦикла;

ПокнПересчитатьВремя();

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

Процедура расчета диаметра рулона документа "Заявка на производство".

Процедура РасчетДиаметраРулона()

ВнешнийДиаметрРулонаРасч = 0;

КоличествоСлоёвМатериала = 0;

Если ОсновнойЭкструдер.Выбран() = 0 Тогда

МетражРулонаДляРасч = МетражРулона;

Если МетражРулонаДляРасч = 0 Тогда

Предупреждение("Менеджером не указан метраж рулона!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Иначе

Если ОсновнойЭкструдер = Оборудование1 Тогда

МетражРулонаДляРасч = МетражРулонаФакт1;

ИначеЕсли ОсновнойЭкструдер = Оборудование2 Тогда

МетражРулонаДляРасч = МетражРулонаФакт2;

ИначеЕсли ОсновнойЭкструдер = Оборудование3 Тогда

МетражРулонаДляРасч = МетражРулонаФакт3;

КонецЕсли;

Если МетражРулонаДляРасч = 0 Тогда

Предупреждение("Технологом не указан метраж рулона на основном экструдере!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

КонецЕсли;

МетражРулонаДляРасч = МетражРулонаДляРасч * 100;

Если ВидПП.Выбран() = 1 Тогда

Если (ВидПП = Перечисление.ВидыПродукции.ДвойноеПолотно) или (ВидПП = Перечисление.ВидыПродукции.Полурукав) или (ВидПП = Перечисление.ВидыПродукции.Рукав) Тогда

КоличествоСлоёвМатериала = 2;

ИначеЕсли (ВидПП = Перечисление.ВидыПродукции.Полотно) Тогда

КоличествоСлоёвМатериала = 1;

ИначеЕсли (ВидПП = Перечисление.ВидыПродукции.РукавСФальцами) или (ВидПП = Перечисление.ВидыПродукции.ПолурукавСФальцами) Тогда

КоличествоСлоёвМатериала = 4;

КонецЕсли;

КонецЕсли;

Если КоличествоСлоёвМатериала = 0 Тогда

Предупреждение("Не выбран Вид ПП: полотно, тукав, рукав с фальцами...!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если Толщина = 0 Тогда

Предупреждение("Не указана толщина материала!");

СтатусВозврата(0);

Возврат;

Иначе

ТолщинаРасч = Толщина/10000;

КонецЕсли;

ВнешнийДиаметрРулонаРасч = 2 * Корень((((Константа.ОсновнойВнешнийДиаметрШпули/2) * (Константа.ОсновнойВнешнийДиаметрШпули/2)) + (ТолщинаРасч * КоличествоСлоёвМатериала * МетражРулонаДляРасч)/3.1415926535), 2);

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

Функция ВернутьКонстантаДиаметрШпули()

Возврат ("при наружнем диаметре шпули " + Константа.ОсновнойВнешнийДиаметрШпули + " см.");

КонецФункции

Модуль кнопки "Заполнить" документа "План производства".

Процедура Заполнить()

Если Экструдер.Выбран() = 0 тогда

Предупреждение("Не выбран Экструдет, по которуму создаем План!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

Если ПустоеЗначение(СтартДата) = 1 тогда

Предупреждение("Не выбрана Дата старта!");

СтатусВозврата(0);

Возврат;

КонецЕсли;

ВыбКонПериода = ДатаДок;

Если ПолучитьДатуТА()<ВыбКонПериода Тогда

ВыбКонПериода = ПолучитьДатуТА();

КонецЕсли;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

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

"//{{ЗАПРОС(Сформировать)

|Период с ДатаПервогоЗаказа по ВыбКонПериода;

|Док = Регистр.ВыполнениеЗаявок.Документ;

|Заявка = Регистр.ВыполнениеЗаявок.Заявка.Документ;

|Проект = Регистр.ВыполнениеЗаявок.Заявка.Документ.Проект;

|ЗЭкструдер = Регистр.ВыполнениеЗаявок.Заявка.Документ.ОсновнойЭкструдер;

|Контрагент = Регистр.ВыполнениеЗаявок.Заявка.Документ.Контрагент;

|ГП = Регистр.ВыполнениеЗаявок.Заявка.Документ.ГП;

|Номенклатура = Регистр.ВыполнениеЗаявок.Номенклатура;

|КолКг = Регистр.ВыполнениеЗаявок.КоличествоКг;

|КолРулонов = Регистр.ВыполнениеЗаявок.КоличествоРулонов;

|Функция КолКгПриход = Приход(КолКг);

|Функция КолКгРасход = Расход(КолКг);

|Группировка Заявка;

|Условие (ЗЭкструдер = Экструдер);

|"//}}ЗАПРОС

Заг = "";

Если глФильтрПоСправочнику("","",МФЗаявка,"МФЗаявка",ВидМФЗаявка.ТекущаяСтрока(),ТекстЗапроса,Заг,"Заявка")=0 Тогда Возврат; КонецЕсли;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

Пока Запрос.Группировка(1) = 1 Цикл

НоваяСтрока();

Заявка = Запрос.Заявка;

Номенклатура = Запрос.Заявка.ГП;

Контрагент = Запрос.Заявка.Контрагент;

Менеджер = Запрос.Заявка.Проект;

ДатаОтгрузки = Запрос.Заявка.ДатаОтгрузки1;

КолОтгрузки = Запрос.Заявка.ВесПартии1;

КолНаличие = Запрос.КолКгРасход;

КолНеобходимо = КолОтгрузки - КолНаличие;

Производительность = Запрос.Заявка.ОсновнаяПроизводительность;

ВремяРаботы = 0;

Если Производительность <> 0 Тогда

ВремяРаботы = КолНеобходимо/Производительность;

НеобхЧ = Цел(ВремяРаботы);

НеобхМ = (ВремяРаботы-НеобхЧ)*60;

ВремяРаботыДоп = ВремяРаботы/100*МеждуЗаказамиПроцент;

Если МеждуЗаказамиМин = 0 Тогда

ПереходЧ = Цел(ВремяРаботыДоп);

ПереходМ = (ВремяРаботыДоп-ПереходЧ)*60;

Иначе

ПереходЧ = Цел(МеждуЗаказамиМин/60);

ПереходМ = (МеждуЗаказамиМин-Цел(МеждуЗаказамиМин/60));

КонецЕсли;

КонецЕсли;

Если ПустоеЗначение(Запрос.Заявка.ДатаОтгрузки2) = 0 Тогда

НоваяСтрока();

Заявка = Запрос.Заявка;

Номенклатура = Запрос.Заявка.ГП;

Контрагент = Запрос.Заявка.Контрагент;

Менеджер = Запрос.Заявка.Проект;

ДатаОтгрузки = Запрос.Заявка.ДатаОтгрузки2;

КолОтгрузки = Запрос.Заявка.ВесПартии2;

КолНаличие = Запрос.КолКгРасход;

КолНеобходимо = КолОтгрузки - КолНаличие;

Производительность = Запрос.Заявка.ОсновнаяПроизводительность;

ВремяРаботы = 0;

Если Производительность <> 0 Тогда

ВремяРаботы = КолНеобходимо/Производительность;

НеобхЧ = Цел(ВремяРаботы);

НеобхМ = (ВремяРаботы-НеобхЧ)*60;

ВремяРаботыДоп = ВремяРаботы/100*МеждуЗаказамиПроцент;

Если МеждуЗаказамиМин = 0 Тогда

ПереходЧ = Цел(ВремяРаботыДоп);

ПереходМ = (ВремяРаботыДоп-ПереходЧ)*60;

Иначе

ПереходЧ = Цел(МеждуЗаказамиМин/60);

ПереходМ = (МеждуЗаказамиМин-Цел(МеждуЗаказамиМин/60));

КонецЕсли;

КонецЕсли;

КонецЕсли;

Если ПустоеЗначение(Запрос.Заявка.ДатаОтгрузки3) = 0 Тогда

НоваяСтрока();

Заявка = Запрос.Заявка;

Номенклатура = Запрос.Заявка.ГП;

Контрагент = Запрос.Заявка.Контрагент;

Менеджер = Запрос.Заявка.Проект;

ДатаОтгрузки = Запрос.Заявка.ДатаОтгрузки3;

КолОтгрузки = Запрос.Заявка.ВесПартии3;

КолНаличие = Запрос.КолКгРасход;

КолНеобходимо = КолОтгрузки - КолНаличие;

Производительность = Запрос.Заявка.ОсновнаяПроизводительность;

ВремяРаботы = 0;

Если Производительность <> 0 Тогда

ВремяРаботы = КолНеобходимо/Производительность;

НеобхЧ = Цел(ВремяРаботы);

НеобхМ = (ВремяРаботы-НеобхЧ)*60;

ВремяРаботыДоп = ВремяРаботы/100*МеждуЗаказамиПроцент;

Если МеждуЗаказамиМин = 0 Тогда

ПереходЧ = Цел(ВремяРаботыДоп);

ПереходМ = (ВремяРаботыДоп-ПереходЧ)*60;

Иначе

ПереходЧ = Цел(МеждуЗаказамиМин/60);

ПереходМ = (МеждуЗаказамиМин-Цел(МеждуЗаказамиМин/60));

КонецЕсли;

КонецЕсли;

КонецЕсли;

КонецЦикла;

ТЗ = СоздатьОбъект("ТаблицаЗначений");

ВыгрузитьТабличнуюЧасть(ТЗ);

УдалитьСтроки();

ТЗ.НоваяКолонка("ДатаЗ",,,,,,,);

ТЗ.ВыбратьСтроки();

Пока ТЗ.ПолучитьСтроку() = 1 Цикл

ТЗ.ДатаЗ = ТЗ.Заявка.ДатаДок;

КонецЦикла;

ТЗ.Сортировать("ДатаОтгрузки, ДатаЗ");

НС = 1;

ТЗ.ВыбратьСтроки();

Пока ТЗ.ПолучитьСтроку() = 1 Цикл

Если ПустоеЗначение(ТЗ.Заявка) = 1 Тогда

Продолжить;

КонецЕсли;

Если ПустоеЗначение(ТЗ.ДатаОтгрузки) = 1 Тогда

Продолжить;

КонецЕсли;

Если ТЗ.ДатаОтгрузки < ТЗ.Заявка.ДатаДок Тогда

Продолжить;

КонецЕсли;

Если ТЗ.Производительность = 0 Тогда

Продолжить;

КонецЕсли;

Если (ТЗ.КолНеобходимо < 0) или (ТЗ.КолНеобходимо = 0) Тогда

КонецЕсли;

НС = НС + 1;

НоваяСтрока();

Заявка = ТЗ.Заявка;

Менеджер = ТЗ.Менеджер;

Контрагент = ТЗ.Заявка.Контрагент;

Номенклатура = ТЗ.Заявка.ГП;

ДатаОтгрузки = ТЗ.ДатаОтгрузки;

КолОтгрузки = ТЗ.КолОтгрузки;

КолНаличие = ТЗ.КолНаличие;

КолНеобходимо = ТЗ.КолНеобходимо;

Производительность = ТЗ.Производительность;

НеобхЧ = ТЗ.НеобхЧ;

НеобхМ = ТЗ.НеобхМ;

КонецЦикла;

ПокнПересчитатьВремя();

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