Файл: Проектирование реализации операций бизнес-процесса «Продажи».pdf

Алгоритм функционирования всей системы представлен на рис. 18

Рисунок 18. Алгоритм функционирования всей системы

2.8.  Контрольный пример реализации проекта и его описание

После запуска конфигурации на экране отобразиться начальная страница программы, показанная на рисунке 19.

Рисунок 19. Начальная страница программы

В ходе эксплуатации программы пользователю доступны следующие возможности:

1. Работа в подсистеме «Информация», показанная на рисунке 20, где предоставляется возможность работы со справочниками: Контрагенты, Сотрудники, Товары.

Рисунок 20. Нормативно-справочная информация

1. Работа в подсистеме «Информация» в справочнике «Контрагенты» предусматривает добавление нового клиента, нажатием кнопки «Создать», в несение изменений в уже созданную запись.

Рисунок 21. Работа в справочнике «Поставщики»

Рисунок 22. Добавление нового клиента

Работа с подсистемой «Обработка заказов», в документе «Заказ клиента» показана на рисунке 23,

Рисунок 23. Работа в справочнике «Заказ клиента»

Рисунок 24. Добавление нового заказа

Рисунок 25. Журнал отгрузок

Рисунок 26. Создание нового документа

ЗАКЛЮЧЕНИЕ

В работе был проведен анализ работы предприятия, как предметной области для дипломной работы.

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

Программное обеспечение для автоматизации учета работы компании разработано в среде 1С: Предприятие 8.3 на языке встроенного программирования 1С.

В ходе написания работы мною приобретен опыт анализа деятельности организации, рассмотрения её информационных и материальных потоков.

Нами были исследованы проблемы в рамках системы управления компании и определены способы решения этих проблем в виде решения об автоматизации рутинных процессов обработки информации.

Этапами работы явились: описание сути хозяйственной деятельности предприятия, его организационной структуры, распределения технологических функций по подразделениям предприятия. Также представлены факты, выявленные в ходе обследования предприятия, и касающиеся организации технологии администрирования программных комплексов, системы информационного обеспечения и отчетности.

Базы данных, используемые в системах 1С различаются в зависимости от режима использования программных продуктов 1С (файловый либо клиент-серверный режим).

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

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

1. Рассмотреть работу компании.

2. Разработать экономическую информационную систему, включающую систему управления базами данных на примере MS SQL Express 2012 и приложение на платформе 1С на примере системы «1С: Предприятие 8.3».

3. Описать разработанную экономическую информационную систему, а также привести экономическое обоснование её внедрения.

Таким образом, цель, обозначенная во введении, была достигнута за счет решения обозначенных задач.

СПИСОК ЛИТЕРАТУРЫ

1. 1С: Предприятие 8.3 Руководство разработчика часть 1 Москва фирма «1С» 2015 г.
2. 1С: Предприятие 8.3 Руководство разработчика часть 2 Москва фирма «1С» 2015 г.
3. 1C: Предприятие 8.3. Практическое пособие разработчика. Примеры и типовые приемы (артикул 4601546108722). Печатная и электронная версии 2014 г.
4. Архитектура и работа с данными "1С: Предприятия 8.2". Серия "1С: Профессиональная разработка" (артикул 4601546090690) 2014 г.
5. Голицына О. Л., Максимов Н. В., Попов И. И. Базы данных: учебное пособие. - М.: ФОРУМ: ИНФРА-М, 2014. - 400 с.
6. Диго С. М. Базы данных: проектирование и использование: учебник для вузов. - М.: Финансы и статистика, 2014. - 592 с.
7. Илюшечкин В. М. Основы проектирования и использования баз данных: учеб. пособие. - М.: Высшее образование, 2014. - 213 с.
8. Каленик А. И. Использование новых возможностей Microsoft SQL Server 2012. - М.: «Русская редакция», 2015. - 334 с.
9. Коннолли Т., Бегг К. Базы данных: проектирование, реализация и сопровождение. Издательство: Диалектика, 2014 – с.24.
10. Крёнке Д. Практический опыт программирования в реляционных базах данных. - М.: Питер, 2015. - 400 с.
11. Кузин А.В. Базы данных: учебное пособие для вузов. - М.: Академия, 2016. - 30 с.
12. Роберт Дж. Мюллер. Реляционные базы данных. - М.: Лори, 2015. - 420 с.
13. Решение специальных прикладных задач в "1С: Предприятии 8.2". Серия "1С: Профессиональная разработка" (артикул 4601546092694) 2014 г.
14. Хомоненко А. Д., Цыганков В. М., Мальцев М. Г. Базы данных: Учебник для высших учебных заведений. - М.: Бином-Пресс, 2014. - 736 с.
15. И. Ф. Астахов. СУБД: Язык SQL в примерах и задачах. 2015 г.
16. Знакомство с разработкой мобильных приложений на платформе «1С: Предприятие 8» (+CD) (артикул 4601546111241) 2014 г.
17. Настольная книга 1С: Эксперта по технологическим вопросам (артикул 4601546110060) 2015 г.
18. Язык запросов "1С: Предприятия 8" (+диск) (артикул 4601546108029). Печатная и электронная версии. 2014 г.

ПРИЛОЖЕНИЯ

Программный код

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

// регистр СтатусыЗаявок

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

Движение = Движения.СтатусыЗаявок.Добавить();

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

Движение.Заявка = Ссылка;

Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Принята;

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

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

// регистр СтатусыЗаявок

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

Для Каждого ТекСтрокаЗаявки Из Заявки Цикл

Движение = Движения.СтатусыЗаявок.Добавить();

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

Движение.Заявка = ТекСтрокаЗаявки.Заявка;

Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Запланирована;

КонецЦикла;

//регистр "Запланированные заявки"

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

Для Каждого ТекСтрока Из Работы Цикл

Движение = Движения.ЗапланированныеЗаявки.Добавить();

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

Движение.Регистратор = Ссылка;

Движение.Заявка = ТекСтрока.Заявка;

Движение.Работа = ТекСтрока.Работа;

Движение.Объем = ТекСтрока.Количество;

Движение.Сумма = ТекСтрока.Сумма;

Движение.СрокИсполнения = ТекСтрока.СрокИсполнения;

Движение.Расценка = ТекСтрока.Расценка;

КонецЦикла;

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

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

// регистр СтатусыЗаявок

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

Движение = Движения.СтатусыЗаявок.Добавить();

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

Движение.Заявка = Заявка;

Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.ВРаботе;

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

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

// регистр СтатусыЗаявок

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

Движение = Движения.СтатусыЗаявок.Добавить();

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

Движение.Заявка = НарядЗадание.Заявка;

Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Выполнена;

// регистр ВыполненныеРаботы

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

//плановые работы

Для Каждого ТекСтрокаРаботы Из НарядЗадание.Работы Цикл

Движение = Движения.ВыполненныеРаботы.Добавить();

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

Движение.Заявка = НарядЗадание.Заявка;

Движение.ТипРаботы = Перечисления.ТипРаботы.Запланированная;

Движение.Работа = ТекСтрокаРаботы.Работа;

Движение.Исполнитель = НарядЗадание.Исполнитель;

Движение.Объем = ТекСтрокаРаботы.Количество;

Движение.Сумма = ТекСтрокаРаботы.Сумма;

Движение.НарядЗадание = НарядЗадание;

КонецЦикла;

//дополнительные работы

Для Каждого ТекСтрокаДопРаботы Из ДопРаботы Цикл

Движение = Движения.ВыполненныеРаботы.Добавить();

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

Движение.Заявка = НарядЗадание.Заявка;

Движение.ТипРаботы = Перечисления.ТипРаботы.Дополнительная;

Движение.Работа = ТекСтрокаДопРаботы.Работа;

Движение.Исполнитель = НарядЗадание.Исполнитель;

Движение.Объем = ТекСтрокаРаботы.Количество;

Движение.Сумма = ТекСтрокаДопРаботы.Сумма;

Движение.НарядЗадание = НарядЗадание;

КонецЦикла;

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

ВЫБРАТЬ

ВыполненныеРаботыОбороты.Заявка,

ВыполненныеРаботыОбороты.ТипРаботы,

ВЫБОР

КОГДА (ВЫРАЗИТЬ(ВыполненныеРаботыОбороты.Работа.ПолноеНаименование КАК СТРОКА(1))) = ""

ТОГДА ВыполненныеРаботыОбороты.Работа.Наименование

ИНАЧЕ ВыполненныеРаботыОбороты.Работа.ПолноеНаименование

КОНЕЦ КАК Работа,

ВыполненныеРаботыОбороты.Исполнитель,

ВыполненныеРаботыОбороты.СуммаОборот,

ВыполненныеРаботыОбороты.ОбъемОборот

ИЗ

РегистрНакопления.ВыполненныеРаботы.Обороты КАК ВыполненныеРаботыОбороты

ВЫБРАТЬ

СтатусыЗаявок.Заявка,

СтатусыЗаявок.Период,

СтатусыЗаявок.СтатусЗаявки

ПОМЕСТИТЬ втСтатусыЗаявок

ИЗ

РегистрСведений.СтатусыЗаявок КАК СтатусыЗаявок

;

ВЫБРАТЬ

Работа.Родитель КАК Группа,

ВЫБОР

КОГДА (ВЫРАЗИТЬ(РасценкиРаботСрезПоследних.Работа.ПолноеНаименование КАК СТРОКА(1))) = ""

ТОГДА РасценкиРаботСрезПоследних.Работа.Наименование

ИНАЧЕ РасценкиРаботСрезПоследних.Работа.ПолноеНаименование

КОНЕЦ КАК Работа,

РасценкиРаботСрезПоследних.Расценка

ИЗ

РегистрСведений.РасценкиРабот.СрезПоследних КАК РасценкиРаботСрезПоследних

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

// регистр СтатусыЗаявок

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

Движение = Движения.СтатусыЗаявок.Добавить();

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

Движение.Заявка = Ссылка;

Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Принята;

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

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

// регистр СтатусыЗаявок

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

Для Каждого ТекСтрокаЗаявки Из Заявки Цикл

Движение = Движения.СтатусыЗаявок.Добавить();

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

Движение.Заявка = ТекСтрокаЗаявки.Заявка;

Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Запланирована;

КонецЦикла;

//регистр "Запланированные заявки"

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

Для Каждого ТекСтрока Из Работы Цикл

Движение = Движения.ЗапланированныеЗаявки.Добавить();

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

Движение.Регистратор = Ссылка;

Движение.Заявка = ТекСтрока.Заявка;

Движение.Работа = ТекСтрока.Работа;

Движение.Объем = ТекСтрока.Количество;

Движение.Сумма = ТекСтрока.Сумма;

Движение.СрокИсполнения = ТекСтрока.СрокИсполнения;

Движение.Расценка = ТекСтрока.Расценка;

КонецЦикла;

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

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

// регистр СтатусыЗаявок

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

Движение = Движения.СтатусыЗаявок.Добавить();

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

Движение.Заявка = Заявка;

Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.ВРаботе;

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

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

// регистр СтатусыЗаявок

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

Движение = Движения.СтатусыЗаявок.Добавить();

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

Движение.Заявка = НарядЗадание.Заявка;

Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Выполнена;

// регистр ВыполненныеРаботы

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

//плановые работы

Для Каждого ТекСтрокаРаботы Из НарядЗадание.Работы Цикл

Движение = Движения.ВыполненныеРаботы.Добавить();

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

Движение.Заявка = НарядЗадание.Заявка;

Движение.ТипРаботы = Перечисления.ТипРаботы.Запланированная;

Движение.Работа = ТекСтрокаРаботы.Работа;

Движение.Исполнитель = НарядЗадание.Исполнитель;

Движение.Объем = ТекСтрокаРаботы.Количество;

Движение.Сумма = ТекСтрокаРаботы.Сумма;

Движение.НарядЗадание = НарядЗадание;

КонецЦикла;

//дополнительные работы

Для Каждого ТекСтрокаДопРаботы Из ДопРаботы Цикл

Движение = Движения.ВыполненныеРаботы.Добавить();

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

Движение.Заявка = НарядЗадание.Заявка;

Движение.ТипРаботы = Перечисления.ТипРаботы.Дополнительная;

Движение.Работа = ТекСтрокаДопРаботы.Работа;

Движение.Исполнитель = НарядЗадание.Исполнитель;

Движение.Объем = ТекСтрокаРаботы.Количество;

Движение.Сумма = ТекСтрокаДопРаботы.Сумма;

Движение.НарядЗадание = НарядЗадание;

КонецЦикла;

// регистр СтатусыЗаявок

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

Для Каждого ТекСтрокаЗаявки Из Заявки Цикл

Движение = Движения.СтатусыЗаявок.Добавить();