Автоматизированная система учета и контроля в розничной торговле
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
месяц.
.Затраты на электроэнергию составляют 100 тыс.руб.
Автоматизированный метод ведения делопроизводства.
Расчет расходов при автоматизированном методе работы:
1.При автоматизированном методе обработки нам необходимо 3 работника операциониста, заработная плата каждого 1.2 млн. руб. в месяц.
2.Затраты на электроэнергию составляют 300 тыс.руб.
.Минимальная площадь на каждого работника 3 м2. Стоимость 1 м2 площади в офисе равна 130 тыс.руб. в месяц.
.Стоимость программного обеспечения (1С:Предприятие 7.7)
млн.руб.
5.Стоимость аппаратного обеспечения 5млн. руб.
6.Стоимость операционных систем 1 .5 млн. руб.
.Стоимость разработки настройки 1С 2 000 тыс. руб.
Таблица 3 - Ежемесячные расходы
Ежемесячные РасходыЗатраты без АС,руб/месЗатраты с АС,руб./мес.Заработная плата5 000 000,00р.3 600 000,00р.Затраты на эл.энерг100 000,00р.300 000,00р.Аренда помещений1 560 000,00р.1 170 000,00р.итого6 660 000,00р.5 070 000,00р.
Таблица 4 - Разовые расходы
Описание затратРазовые расходыБез АС,руб.С АС,руб.Ст-ть 3 ПК0,00р.6 000 000,00р.Ст-ть ОС0,00р.1 500 000,00р.Ст-ть 1С0,00р.2 000 000,00р.Ст-ть разработки0,00р.2 000 000,00р.Итог0,00р.11 500 000,00р.
Рисунок 18 - График расходов
Как видно из выше приведенного графика внедрение автоматизированного метода обработки полностью оправдано. Срок окупаемости составляет 7 месяца.
ЗАКЛЮЧЕНИЕ
автоматизация контроль розничный торговля
В данной курсовой работе была рассмотрена информационная система 1С:Предприятие. Была разработана собственная конфигурация, которая решает проблемы автоматизации учета и контроля розничной торговли на данном предприятии. В результате выполнения курсовой работы была рассчитана экономическая эффективность от внедрения программного продукта.
На основании полученных данных можно сделать вывод о том, что разработка программного продукта и его внедрение на предприятии будет иметь положительный экономический эффект, что позволит повысить производительность труда, быстрее и с меньшим количеством ошибок производить операции, контролировать базу по всем произведенным операциям. Хотя первоначальные затраты при внедрении автоматизированной системы немного выше, но как показал график они окупятся в течение двух с половиной месяцев.
СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ:
1.В. Дубянский Разработка конфигураций в среде 1С:Предприятие 7.7. Самоучитель / В. М. Дубянский, Л. К. Скобликова. - СПб.: БХВ-Петербург, 2007
2.
.
4.">
.Конспект лекций по предмету Программное обеспечение бух. Учета
ПРИЛОЖЕНИЕ А
Реализация программного кода
Документ ПриемНаРаботу модуль формы:
Процедура ПриОткрытии()
Форма.ИспользоватьЗакладки(1);
Форма.Закладки.ДобавитьЗначение(1,"Приём сотрудников на работу");
Форма.Закладки.ДобавитьЗначение(2,"Личные данные о сотруднике");
НомерЗакладки=1;
Форма.ИспользоватьСлой("Основной",2);
КонецПроцедуры
Процедура ПриВыбореЗакладки(Ном,Значен)
НомерЗакладки=Значен;
Если Значен=1 Тогда
Форма.ИспользоватьСлой("Основной",2);
ИначеЕсли Значен=2 тогда
Форма.ИспользоватьСлой("ЛичныеДанные",2);
КонецЕсли;
КонецПроцедуры
Документ ПриемНаРаботу модуль документа:
Процедура ОбработкаПроведения()
Если ПустоеЗначение(ФИО)=1 Тогда
Предупреждение("Не заполнено поле: ФИО");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если ПустоеЗначение(Должность)=1 Тогда
Предупреждение("Не заполнено поле: Должность");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если ПустоеЗначение(Оклад)=1 Тогда
Предупреждение("Не заполнено поле: Оклад");
СтатусВозврата(0);
Возврат;
КонецЕсли;
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.НайтиПоНаименованию("Работающие");
Работающие = СпрСотр.ТекущийЭлемент();
СпрСотр.ИспользоватьРодителя(Работающие);
СпрСотр.Новый();
СпрСотр.Наименование = ФИО;
СпрСотр.Должность = Должность;
СпрСотр.ДатаПриема=ДатаДок;
СпрСотр.Оклад=Оклад;
СпрСотр.Записать();
// Запись в подчиненный справочник
Сотрудник=СпрСотр.ТекущийЭлемент();
СпрЛич = СоздатьОбъект("Справочник.ЛичныеДанные");
СпрЛич.ИспользоватьВладельца(Сотрудник);
СпрЛич.ВыбратьЭлементы();
Если (СпрЛич.ПолучитьЭлемент()=0) Тогда
СпрЛич.Новый();
СпрЛич.ДатаРождения=ДатаРождения;
СпрЛич.Образование=Образование;
СпрЛич.СемейноеПоложение=СемейноеПоложение;
СпрЛич.Телефон=Телефон;
СпрЛич.Адрес=Адрес;
СпрЛич.Записать();
КонецЕсли;
КонецПроцедуры
Документ Уволить модуль формы:
Процедура ПриОткрытии()
ПриЗаписиПерепроводить(1);
КонецПроцедуры
Процедура Печать()
Если Сотрудник.Выбран()=0 Тогда
Предупреждение("Введите имя сотрудника, которого необходимо уволить"); Возврат;
КонецЕсли;
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.Вывести();
Таб.Опции(0,0);
Таб.ТолькоПросмотр(1);
Таб.Показать("Таблица");
КонецПроцедуры
Документ Уволить модуль документа:
Процедура ОбработкаПроведения()
//Здесь следует написать алгоритм проведения документа
Если Сотрудник.Выбран()=0 Тогда
Предупреждение("Не заполнено поле: ФИО");
СтатусВозврата(0);
Возврат;
КонецЕсли;
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.Найти