68
41000 рублей в месяц, исходя из этого можно получить показатели затрат
на обработку документов по данной операции, они составляют:
C0 = 12*8*41000рублей = 3936000 рублей в год C1 = 12*4*41000рублей =
1968000 рублей в год
Рассчитаем абсолютное снижение стоимостных затрат:
∆С = С0 - С1= 3936000 – 1968000 = 1968000
Рассчитаем общий индекс снижения стоимостных затрат: YС = С0 / С1 =
3936000 / 1968000 = 2
Общие затраты на проект составляют:
Стоимость работы программиста в течении разработки и внедрения
информационной системы составляет около 70500 рублей с учётом отработки 40
часов в неделю. Покупка 1С «Предприятие» обойдется примерно в 87 000
рублей.
Поэтому КП = 70500 + 87 000 = 157500 рублей Ток = КП /∆C =
157500/1968000 = 0,08 года
Благодаря расчётам, можно увидеть, что через 0.1 года проект окупиться.
69
ЗАКЛЮЧЕНИЕ
Результатом данной выпускной квалификационной работы является
разработанная информационная система по учету частей для автомобилей,
выполняющая круг задач, связанных с анализом результатов, с которыми
ежедневно приходится сталкиваться, работникам магазина, ведь рассмотрев
функционирование данной предметной области было выяснено, что учет
запчастей – это процесс, который продолжается непрерывно. Поэтому данный
процесс требует постоянного контроля и четкой организации.
Разработанная система управления базой данных 1С Предприятие
обладает следующими качествами:
Простота освоения специалистами, не владеющими языками
программирования, что сокращает время на проектирования и уменьшает
затраты на разработку системы.
Удобный интерфейс, который позволяет с легкостью освоить
управление базой данных.
Обеспечивает автоматизацию обработки данных, что облегчает
работу пользователям.
Позволяет быстро получить ответ на любой вопрос по запросу
пользователя.
Проведя в ходе исследовательской работы анализ литературы, предметной
области и разработку информационной системы, можно сделать вывод о том, что
результат данного исследования занимает важное место в автоматизации
деятельности магазина по учету запасных частей для автомобилей. Таким
образом, поставленная нами цель достигнута, задачи выполнены.
70
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1.
Кузнецов, Владимир 1С:Предприятие 8.1. Управление торговлей.
Новейший самоучитель / Владимир Кузнецов , Сергей Засорин. - М.: БХВ-
Петербург, 2016.
2.
Филатова, Виолетта 1С:Предприятие 8.3. Бухгалтерия предприятия,
Управление торговлей, Управление персоналом / Виолетта Филатова. - М.:
Питер, 2014. - 240 c.
3.
1С: Предприятие 8.3. Коротко о главном. Новые возможности версии
8.3, Радченко М. Г., 1С-Паблишинг, 2018
4.
1С: Предприятие 8.3. Практическое пособие разработчика. Радченко
М.Г., Хрусталева Е.Ю., 1СПаблишинг, 2018.
5.
Технологии интеграции 1С:Предприятия 8.3 Авторы: Е. Ю.
Хрусталева 2019.
6.
Редько, В.Н.; Басараб, И.А. Базы данных и информационные
системы 2016.
7.
Информационные системы в экономике учебник Г.Н. Исаев 2016.
71
ПРИЛОЖЕНИЕ
Документ ПриходнаяНакладная
Процедура ОбработкаПроведения(Отказ, Режим)
//{{ КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// регистр ОстаткиТоваров Приход
Движения.ОстаткиТоваров.Записывать = Истина; Для Каждого
ТекСтрокаТовары Из Товары Цикл
Движение = Движения.ОстаткиТоваров.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Партия = Ссылка;
Движение.Товар = ТекСтрокаТовары.Номенклатура; Движение.Склад =
Склад;
Движение.Количество = ТекСтрокаТовары.Количество; Движение.Сумма
= ТекСтрокаТовары.Сумма;
КонецЦикла;
//}} КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Документ РасходнаяНакладная
Функция СписатьТовар(Товар,Партия,Склад,Количество,Себестоимость)
72
Движения.ОстаткиТоваров.Записывать = Истина;
Движение = Движения.ОстаткиТоваров.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход; Движение.Период
= Дата;
Движение.Партия = Партия; Движение.Товар = Товар; Движение.Склад =
Склад; Движение.Количество = Количество; Движение.Сумма =
Себестоимость;
КонецФункции
Процедура ОбработкаПроведения(Отказ, Режим)
Для каждого Стр из Товары цикл
Запрос = Новый Запрос; Запрос.Текст =
"ВЫБРАТЬ
| ОстаткиТоваровОстатки.Товар,
73
| ОстаткиТоваровОстатки.Склад,
| ОстаткиТоваровОстатки.Партия.Дата КАК
ПартияДата,
| ОстаткиТоваровОстатки.КоличествоОстаток,
| ОстаткиТоваровОстатки.СуммаОстаток,
| ОстаткиТоваровОстатки.Партия
|ИЗ
| РегистрНакопления.ОстаткиТоваров.Остатки КАК
ОстаткиТоваровОстатки
|ГДЕ
| ОстаткиТоваровОстатки.Товар = &Товар
|И ОстаткиТоваровОстатки.Склад = &Склад
|
|УПОРЯДОЧИТЬ ПО
| ПартияДата";
Запрос.УстановитьПараметр("Товар", Стр.Номенклатура);
Запрос.УстановитьПараметр("Склад",Склад);
ТЗ = Запрос.Выполнить().Выгрузить();
РегОстатки = РегистрыНакопления.ОстаткиТоваров;
Фильтр = Новый Структура;
74
Фильтр.Вставить("Товар",Стр.Номенклатура);
Фильтр.Вставить("Склад",Склад);
ТабОстатков = РегОстатки.Остатки(,Фильтр,,"Количество");
ОбщееКоличество = ТабОстатков.Итог("Количество");
Если ОбщееКоличество < Стр.Количество тогда Сообщить("Товара" + " "
+ Стр.Номенклатура + " " + "в
колонке" + Стр.Количество + " " + "на складе нет! остатк равен" + " " +
ОбщееКоличество );
Отказ = Истина;
КонецЕсли;
КоличествоСпис = Стр.Количество;
Для Н = 0 по (ТЗ.Количество()- 1) цикл
СтрокаВТЗ = ТЗ.Получить(Н);
Если СтрокаВТЗ.КоличествоОстаток > КоличествоСпис
тогда
75
СтоимостьОдЕд
=СтрокаВТЗ.СуммаОстаток/СтрокаВТЗ.КоличествоОстаток;
СебестоимостьСпис = Окр(СтоимостьОдЕД*КоличествоСпис,2,1);
СписатьТовар(СтрокаВТЗ.Товар,СтрокаВТЗ.Партия,СтрокаВТЗ.Склад,Ко
личествоСпис,СебестоимостьСпис);
прервать;
ИначеЕсли СтрокаВТЗ.КоличествоОстаток <=
КоличествоСпис тогда
СебестоимостьСпис = СтрокаВТЗ.СуммаОстаток; КолСпис =
СтрокаВТЗ.КоличествоОстаток;
СписатьТовар(СтрокаВТЗ.Товар,СтрокаВТЗ.Партия,СтрокаВТЗ.Склад,Ко
лСпис,СебестоимостьСпис);
КоличествоСпис = КоличествоСпис - КолСпис; КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецПроцедуры;