Совершенствование автоматизации учета и анализа заказов клиентов предприятия на базе 1С:Предприятие 8 по специальности 080801 Прикладная ин

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

     Внедрение ИБ окупится за два года шесть месяцев и за пять лет принесет прибыль в размере 62693,48 рублей.

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

 

     библиографический список

1. Абдикеев  Н. М. Реинжиниринг бизнес-процессов / Н. М. Абдикеев [и др.]. — М. : Эксмо, 2007. — 592 с.
2. Бариленко В. И. Анализ финансовой отчетности / В. И. Бариленко [и др.]. — М. : КноРус, 2008. — 408 с.
3. Бартеньев О. В. 1С: Предприятие: программирование для всех / О. В. Бартеньев. — М. : Диалог-МИФИ, 2005. — 464 с.
4. Габец А. П. 1:СПредприятие 8.0. Простые примеры разработки / А. П. Габец, Д. И. Гончаров. — М. : 1С-Паблишинг, 2005. — 420 с.
5. Габец А. П. Профессиональная разработка в системе 1С:Предприятие 8 / А. П. Габец [и др.]. — М. : Фирма 1С, 2007. — 808 с.
6. Гончаров Д. И. Введение в конфигурирование в системе 1С:Предприятие 8. Основные объекты / Д. И. Гончаров. — М. : Фирма 1С, 2007. — 147 с.
7. Грищенко О.В. Анализ и диагностика финансово-хозяйственной деятельности предприятия: Учебное пособие / О.В. Грищенко. — Таг. : ТРТУ, 2000. — 112 с.
8. Информационный ресурс. www.e1c.ru
9. Информационный ресурс. www.revolution.allbest.ru
10. Ионова А. Ф. Финансовый анализ / А. Ф. Ионова, Н. Н. Селезнева. — М. : ТК Велби, 2007. — 624 с.
11. Ковалёв В. В. Финансовый анализ: управление капиталом. Выбор инвестиций. Анализ отчетности / В. В. Ковалёв. — М.: Финансы и статистика, 1995.
12. Кудинов А. Автоматизация бизнес-процессов по работе с клиентами / А. Кудинов, М. Сорокин // БУХ.1С. — 2008. — ноябрь.
13. Кутелев П. В. Организационный инжиниринг. Технологии реинжиниринга бизнеса / П. В. Кутелев. — М. : Феникс, 2003. — 224 с.
14. Научно-техническая фирма "ТРИСОФТ". www.trisoftrus.com
15. Оболенски Н. Практический реинжиниринг бизнеса / Н. Оболенский. — М. : Лори, 2004. — 384 с.
16. Овчинников А. В. 1С: Предприятие 8.0. Управление торговлей / А. В. Овчинников. — М. : Палладин, 2006. — 200 с.
17. Оголева Л. Н. Реинжиниринг производства / Л. Н.Оголева Е. В., Чернецова, В. М., Радиковский. — М. : КноРус, 2005. — 304 с.
18. Официальный партнер фирмы 1С Франчайзинг "АБС". www.sibeaz.ru
19. Радченко М. Г. 1С:Предприятие 8.1. Практическое пособие разработчика / М. Г. Радченко. — М. : ПИТЕР, 2007. — 512 с.
20. Радченко М. Г. Hello, 1C (мастер-класс). Пример быстрой разработки приложений на платформе "1С:Предприятие 8" / М. Г. Радченко, В. В. Рыбалка. — М. : Фирма 1С, 2008. — 156 с.
21. Репин В. В. Стандарт описания, регламентации и аудита бизнес процесса / В. В. Репин, В.Г. Елиферов. — 2002.
22. Русь-Банк-Урал. www.kbdu.ru
23. Савчук В. А. Анализ и разработка инвестиционных проектов / В. А. Савчук [и др.]. — Учебное пособие, 1999.
24. Сайт компании «РИЦ». www.ricenter.ru
25. Сайт компании 1С. www.1c.ru
26. Сайт омпании «ЛанКей». www.lankey.ru
27. Система программ 1С:Предприятие 8. www.v8.1c.ru
28. Справочник банков. www.banki66.ru
29. Турманидзе Т. У. Финансовый анализ хозяйственной деятельности предприятия / Турманидзе Т.У. — М. : Финансы и статистика, 2008. — 224 с.
30. Финансовая академия при Правительстве Российской Федерации. www.fa.ru
31. Харрингтон Д. Оптимизация бизнес процессов / Д. Харрингтон — С-Пб, 2002.
32. Хрусталева Е. Ю. Разработка сложных отчетов в 1С:Предприятии 8. Система компоновки данных / Е. Ю. Хрусталева. — М. : Фирма 1С, 2008. — 513 с.
33. Шеер А. В. Бизнес-процессы. Основные понятия. Теория. Методы / А. В. Шеер — 2003.
34. Электронный справочник. www.glossary.ru
35. Электронный справочник. www.ru.wikipedia.org

 

     

     Приложения

     Приложение  А

     Процедуры обработчиков событий

Листинг А.1

Процедура ПолнаяПриИзменении(Элемент)

// Видимость  выбора.

     _Видимость=(Полная=Ложь);

     ЭлементыФормы.Инструкция.Видимость=_Видимость;

     ЭлементыФормы.Диски.Видимость=_Видимость;

     ЭлементыФормы.КабелиШлейфы.Видимость=_Видимость;

     ЭлементыФормы.Упаковка.Видимость=_Видимость;

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

Листинг А.2

Процедура ОборудованиеНаименованиеПриИзменении(Элемент)

// Заполнение  поля Код.

     СтрокаТаблицы=ЭлементыФормы.Оборудование.ТекущаяСтрока;

     СтрокаТаблицы.Код=СтрокаТаблицы.Наименование.Код;

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

Листинг А.3

Процедура АктПриема(Элемент)

//Печать Акта  приема оборудования.

     ТабДок = Новый ТабличныйДокумент;

     Макет = Документы.ПриемБрака.ПолучитьМакет("АктПриема");

//Реквезиты

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

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

// Заголовок

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

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

// Шапка

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

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

     ТабДок.Вывести(Шапка);

// Оборудование

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

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

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

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

ОбластьОборудование.Параметры.Заполнить(ТекСтрокаОборудование);

Продолжение приложения А

     ТабДок.Вывести(ОбластьОборудование);

     КонецЦикла;

// Подвал

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

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

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

// Для работы

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

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

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

     ТабДок.ОтображатьСетку = Ложь;

     ТабДок.Защита = Истина;

     ТабДок.ТолькоПросмотр = Истина;

     ТабДок.ОтображатьЗаголовки = Ложь;

     ТабДок.Показать();

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

Листинг А.4

Процедура АктЭкспертизы(Элемент)

//Печать Акта  экспертизы оборудования.

     ТабДок = Новый ТабличныйДокумент;

     Макет = Документы.ПриемБрака.ПолучитьМакет("АктЭкспертизы");

//Координаты

     Продолжение приложения А

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

     ТабДок.Вывести(Координаты);

// Заголовок

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

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

// Оборудование

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

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

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

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

ОбластьОборудование.Параметры.Заполнить(ТекСтрокаОборудование);

     ТабДок.Вывести(ОбластьОборудование);

     КонецЦикла;

// Заключение

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

     Заключение.Параметры.Заполнить(ЭтотОбъект);

     ТабДок.Вывести(Заключение);

Продолжение приложения А

// Подвал

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

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

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

     ТабДок.ОтображатьСетку = Ложь;

     ТабДок.Защита = Ложь;

     ТабДок.ТолькоПросмотр = Ложь;

     ТабДок.ОтображатьЗаголовки = Ложь;

     ТабДок.Показать();

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

Листинг А.5

Процедура ОборудованиеНаименованиеПриИзменении(Элемент)

// Заполнение  поля Код.

     СтрокаТаблицы=ЭлементыФормы.Оборудование.ТекущаяСтрока;

     СтрокаТаблицы.Код=СтрокаТаблицы.Наименование.Код;

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

Листинг А.6

Процедура ПечатьСопроводительногоЛиста(Элемент)

// Печать Сопроводительногно  листа.

     Если  ЭтаФорма.Поставщик = "Карин" Тогда

     ТабДок = Новый ТабличныйДокумент;

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

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

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

ОбластьОборудование.Параметры.Заполнить(ТекСтрокаОборудование);

     ТабДок.Вывести(ОбластьОборудование)

     КонецЦикла

     Иначе

     ТабДок = Новый ТабличныйДокумент;

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

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

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

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

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

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

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

ОбластьОборудование.Параметры.Заполнить(ТекСтрокаОборудование);

     ТабДок.Вывести(ОбластьОборудование)

Продолжение приложения А

     КонецЦикла

     КонецЕсли; 

     ТабДок.ОтображатьСетку = Ложь;

     ТабДок.Защита = Ложь;

     ТабДок.ТолькоПросмотр = Ложь;

     ТабДок.ОтображатьЗаголовки = Ложь;

     ТабДок.Показать();

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

Листинг А.7

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

//Приход оборудования. Регистр Оборудование Приход

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

     Движение = Движения.Оборудование.Добавить();

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

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

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

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

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

     Движение.Колво = ТекСтрокаОборудование.Колво;

     КонецЦикла;

     Движения.Оборудование.Записать();

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

Листинг А.8

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

//Расход оборудования. Регистр Оборудование Расход

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

     Движение = Движения.Оборудование.Добавить();

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

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

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