Выводы по главе 4
Проведенный экономический анализ показал, что:
чистый приведенный доход (NPV) за 5 лет использования системы составляет 192311,49 руб.;
срок окупаемости инвестиций в проект (PP) составляет 0,176 года;
каждый вложенный в проект рубль окупит себя и принесет дополнительно 19,23 руб. (PI);
Учитывая вышеприведенный показатели, можно сделать вывод, что проект экономически эффективен и принесет прибыль после своего внедрения.
Заключение
Разработанная система позволит повысить эффективность процесса создания документов отгрузки товаров за счет использования информационных технологий.
В ходе выполнения дипломной работы была создана подсистема «Перемещение товаров», автоматизирующая основные действия процесса:
построение отчёта «Анализ доступности товаров» по каждому наименованию номенклатуры;
определение, на каком складе числиться нужный товар, его количество и резерв контрагента;
формирование списков товаров, по каждому складу;
создание документов «Перемещения товаров» для каждого склада.
Проведенный экономический анализ показал, что проект эффективен с экономической точки зрения и принесет после своего внедрения прибыль.
Созданная программа была успешно внедрена в информационную систему ООО «Полиграф Принт», а также успешно протестирована на работоспособность сотрудниками сервисной службы.
Список литературы
Сайт компании - Режим доступа: http://www.academy-group.ru/
1С: Предприятие 8.2. Универсальный самоучитель - Режим доступа: http://www.assessor.ru/forum/index.php?t=1740
http://www.znay.ru/risk/02-10.shtml
Система моделирования бизнес процессов ARIS - Режим доступа: http://bourabai.ru/cm/aris.htm
Бизнес – требования - Режим доступа: http://www.dpgrup.ru/software-requirements.htm
С:Предприятие 8.1. Конфигурирование и администрирование. М: Фирма «1С», 2007.
1С:Предприятие 8.1. Руководство по установке и запуску. М.: Фирма «1С», 2007. - 96 с.
Вендров А.М. CASE-технологии. Современные методы и средства проектирования информационных систем. М., МГУ, 1998.
Радченко М.Г. 1С:Предприятие 8.0. Практическое пособие разработчика. Примеры и типовые приемы, 2-е стереотипное издание. М.: ООО «1С- Паблишинг», 2006. - 656 с.: ил.
Беляев Д.А. Информационные технологии управления: Опорный конспект лекций. Сыктывкар: Издательство Сыктывкарского университета, 2006. 50 с.
Паулк Марк, Модель зрелости процессов разработки программного обеспечения/ Паулк Марк, Куртис Билл, Хриссис Мэри Бет, Вебер Чарльз В, Гарсия Сьюзен М, Буш Мерилин, 2002. -50с
1997-99 Кирилл Воронов, КГ "Воронов и Максимов", Показатели оценки роста инвестиционного проекта, Режим доступа: http://www.aup.ru/articles/investment/5.htm
Приложение а
Организационная структура Общества с Ограниченной Ответственностью «Полиграф Принт»
Приложение б
Процедура элемента командной строки «Проверка на остатки»:
Процедура КоманднаяПанельТоварыПроверкаНаОстатки(Кнопка)
// Вставить содержимое обработчика.
Если ЭтоНовый() = Истина или Модифицированность()=Истина Тогда
Сообщить("Необходимо записать документ!");
Возврат;
КонецЕсли;
Если Справочники.ПринадлежностьРезервов.НайтиПоРеквизиту("ПользовательРезерва",Контрагент)<> Справочники.ПринадлежностьРезервов.ПустаяСсылка() Тогда
ТекущийКонтрагент = Справочники.ПринадлежностьРезервов.НайтиПоРеквизиту("ПользовательРезерва",Контрагент).ВладелецРезерва;
Иначе
ТекущийКонтрагент = Контрагент;
КонецЕсли;
ТаблицаДанных = Товары.Выгрузить();
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("ПроверкаНаОстатки");
ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьШапка.Параметры.ДатаДок = ДатаПроведения;
ОбластьПозиция = Макет.ПолучитьОбласть("ПозицияЗаголовок");
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьЧерта = Макет.ПолучитьОбласть("Черта");
ОбластьПробел = Макет.ПолучитьОбласть("Пробел");
ТабДок.Вывести(ОбластьШапка);
Если Контрагент <> ТекущийКонтрагент Тогда
ОбластьДругой = Макет.ПолучитьОбласть("ДругойКонтрагент");
ОбластьДругой.Параметры.ТекущийКонтрагент = ТекущийКонтрагент;
ТабДок.Вывести(ОбластьДругой);
КонецЕсли;
Показывать = Ложь;
Остатки = Хватает(ТаблицаДанных.ВыгрузитьКолонку("Номенклатура"), ТекущийКонтрагент);
УДругих = ЧужиеРезервы(ТаблицаДанных.ВыгрузитьКолонку("Номенклатура"), ТекущийКонтрагент);
ТолькоСвободныеОстатки = Ложь;
Режим = РежимДиалогаВопрос.ДаНет;
Ответ = Вопрос("Проверять остатки с учетом собственных резервов?", Режим, 0);
Если Ответ = КодВозвратаДиалога.Нет Тогда
ТолькоСвободныеОстатки = Истина;
КонецЕсли;
Для каждого СтрокаДанных из ТаблицаДанных Цикл
Отбор = Новый Структура;
Отбор.Вставить("Номенклатура", СтрокаДанных.Номенклатура);
Отбор.Вставить("ХарактеристикаНоменклатуры", СтрокаДанных.ХарактеристикаНоменклатуры);
МассивСтрок = Остатки.НайтиСтроки(Отбор);
Если ТолькоСвободныеОстатки = Истина Тогда
СвойРезерв = 0;
Иначе Если МассивСтрок.Количество() <> 0 Тогда
СвойРезерв = МассивСтрок.Получить(0).РезервСвой;
Иначе
СвойРезерв = 0;
КонецЕсли;
Если МассивСтрок.Количество() = 0 или СвойРезерв + МассивСтрок.Получить(0).СвободныйОстаток < СтрокаДанных.Количество Тогда
Показывать = Истина;
//не хватает
//определяем сколько
Если МассивСтрок.Количество() = 0 Тогда
НеХватаетШтук = СтрокаДанных.Количество;
ВРезервеШтук = 0;
ВСвободеШтук = 0;
Иначе
НеХватаетШтук = СтрокаДанных.Количество-СвойРезерв-МассивСтрок.Получить(0).СвободныйОстаток;
ВРезервеШтук = МассивСтрок.Получить(0).РезервСвой;
ВСвободеШтук = МассивСтрок.Получить(0).СвободныйОстаток;
КонецЕсли;
ОбластьЗаголовок.Параметры.Сообщение = "Где можно взять:";
ОбластьПозиция.Параметры.Строка = "Строка " + Строка(СтрокаДанных.НомерСтроки);
ОбластьПозиция.Параметры.Номенклатура = Строка(СтрокаДанных.Номенклатура.Код)+" "+Строка(СтрокаДанных.Номенклатура);
ОбластьПозиция.Параметры.Характеристика = СтрокаДанных.ХарактеристикаНоменклатуры;
ОбластьПозиция.Параметры.Количество = "Необходимо (шт): " +Строка(СтрокаДанных.Количество)+" "+ ?(ВРезервеШтук = 0,"","Зарезервировано (шт): " + Строка(ВРезервеШтук)+", ") + ?(ВСвободеШтук = 0,"","В свободе(шт): " + Строка(ВСвободеШтук) +", ") + "Не хватает (шт): "+ Строка(НеХватаетШтук);
ТабДок.Вывести(ОбластьПозиция);
ТабДок.Вывести(ОбластьЗаголовок);
Отбор.Удалить("ХарактеристикаНоменклатуры");
ДругиеСтандарты = Остатки.НайтиСтроки(Отбор);
Если ДругиеСтандарты.Количество() = 0 или (ДругиеСтандарты.Количество() = 1 и ДругиеСтандарты.Получить(0).ХарактеристикаНоменклатуры = СтрокаДанных.ХарактеристикаНоменклатуры) Тогда
//вообще нет этой позиции
РезервыДругих = УДругих.НайтиСтроки(Отбор);
Если РезервыДругих.Количество() <> 0 Тогда
ОбластьДругиеКонтрагенты = Макет.ПолучитьОбласть("ДругиеШапка");
ТабДок.Вывести(ОбластьДругиеКонтрагенты);
ОбластьДругиеКонтрагентыСтрока = Макет.ПолучитьОбласть("ДругиеСтрока");
Для каждого ЭлементМассива из РезервыДругих Цикл
Если ЭлементМассива.КоличествоОстаток <> 0 Тогда
ОбластьДругиеКонтрагентыСтрока.Параметры.Стандарт = ЭлементМассива..