Материал: Автоматизированный учет услуг в салоне красоты

. Коэффициент сложности задачи с - характеризует относительную сложность программы по отношению к так называемой типовой задаче, сложность которой принята равной единице. Для программного приложения, включающего в себя алгоритмы ввода и обработки данных, сложность задачи берем 0,7, так как данное программное приложение уступает по сложности типовым решениям данной задачи, таким как «1С:Предприятие 7.7»= 0,7 - (коэффициент сложности программы)

. Коэффициент коррекции программы p - увеличение объема работ за счет внесения изменений в алгоритм или программу по результатам уточнения постановок (меняется от 0,1 до 0,5). С учетом того, что при проектировании программы я недостаточно хорошо представляла себе конечный результат ПП, возьмем коэффициент равный 0,1.= 0,1 - коэффициент коррекции программы в ходе разработки.

. Коэффициент квалификации разработчика k определяется в зависимости от стажа работы и составляет:

·        для работающих до двух лет - 0,8;

·        от трех лет до пяти лет - 1,0;

·        от пяти до восьми - 1,2;

·        более восьми лет -1,5.

Поскольку стажа работы по специальности у меня нет, возьмем k= 0,8.

k= 0,8- коэффициент квалификации разработчика.

. Коэффициент увеличения затрат труда, вследствие недостаточного описания задачи. В зависимости от сложности задачи принимается от 1 до 1,5. В связи с тем, что данная задача, потребовала уточнения и доработок, примем b = 1,25.

b = 1,25- коэффициент увеличения затрат труда.

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

З/посн = З/п * c * (p+1) * b * k = (10000 руб. * 0,7 * (0,1+1) * 1,25 * 0,8) = 7700руб. - месяц

Поскольку дополнительная заработная плата в виде доплат и премий разработчику программного приложения за время выполнения работ не выплачивалась, то суммарная заработная плата (З/псум) будет равна основной заработной плате:

ЗПсум = ЗПосн = 7700.

Страховые отчисления берутся в размере 34% от основной заработной платы (ЗПосн).

Со = ЗПосн * 34% = 7700руб. * 34% = 2618руб.

Суммарные затраты предприятия на заработную плату разработчика за время разработки программного приложения с учетом страховых отчислений составят:

ЗПобщ=( ЗПосн+страховые отчисления)*количество часов=8ч. * 22д.=( 7700руб.+2618руб.)*182ч.= 10669,75руб.

ч. * 22д.

Содержание и эксплуатация вычислительной техники.

Для расчета затрат данного вида необходимо иметь значения следующих показателей:

1.       амортизационные отчисления;

2.      стоимость электроэнергии;

.        техническое обслуживание, или затраты на ремонт.

Рассмотрим каждый из показателей отдельно.

. Амортизационные отчисления зависят от срока полезного использования ПК. Так как срок полезного использования равен 4 годам, а ПК эксплуатируется 2 года, то необходимо исчислить амортизационные отчисления и учитывать их в дальнейших расчетах. А - амортизационные отчисления за год, рассчитывается следующим образом:

А= стоимость ПК/срок полезного использования.

Так как стоимость ПК равна 25000 рублей. Количество лет полезного использования 4 года. ПК работает только 2 года.

Следовательно, отчисления составят: 25000руб. /4 года = 6250руб.

. Стоимость 1 КВТ/час электроэнергии на предприятии в среднем составляет: 4руб. Один компьютер потребляет около 300Вт в час. За год отчисления за электроэнергию, потребляемую одной ЭВМ, составляет:

ч. * 22дня * 12мес. * 0,3КВт/ч. * 4руб. = 2534,4руб.

. З- затраты на ремонт ПК составляют 5% от ее стоимости.

З= 25000 * 5% =1250.

Фвт - действительный фонд времени работы вычислительного комплекса.

Фвт = Фном - Фпроф,

где:

·      Фном - номинальный фонд работы ПК.

·        Фпроф - годовые затраты времени на профилактические работы ПК

Фном = 8*22 *12=2112 часов в год.

Фпроф = 2112 * 5% = 106 часов в год.

Фвт = 2112 - 106 = 2006 часов.

Стоимость 1 часа работы ПК составляет:

С м-ч = (С+ А + З)/Фвт =(2534,4руб.+6250руб. +1250)/2006ч. = 5руб.

Содержание и эксплуатация ПК составляет: (техническое проектирование + рабочее проектирование + разработка рабочей документации и внедрение) * 5. Получим: 170ч. * 5руб. = 850руб.

Смета затрат на разработку данного приложения приведена в таблице 2.

Таблица 2

Расчет экономического эффекта от разработки и внедрения программного приложения.

Экономический эффект - это прежде всего снижение затрат инспекции за счет:

·        снижения времени, затрачиваемого сотрудниками отдела на поиск информации в базе данных;

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

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

Рассчитаем экономический эффект, получаемый за счёт сокращения времени на поиск после внедрения программного приложения.

Для ведения расчетов введем следующие обозначения:

. До внедрения программного приложения за день сотрудник в среднем составляет и выводит на печать около 15 документов, до внедрения программного приложения каждая такая операция выполнялась 15 минут. На поиск данных по выполнению операций, дополнительно тратилось 10 минут. Т1- время, затрачиваемое сотрудниками отдела на поиск информации и расчет налога до внедрения программного приложения, отсюда получим:

Т1= 15 + 10 = 25мин или 0,4часа

. После внедрения программного приложения общее время, затрачиваемое на поиск и выведение на печать документов, составляет 12 минут, то есть Т2=15 мин., за счет уменьшения времени выполнения операций и простоты использования программы:

Т2 = 15мин. или 0,25ч.

Рассчитываем ∆Т = Т1 - Т2 = 25 - 15 = 10мин ≈ 0,167ч.

. Рассчитываем стоимость выполняемых работ сотрудника Салона Красоты, притом, что в месяц он работает:

ч. * 22д. = 176ч.

Должностной оклад этого сотрудника = 7000 руб. Стоимость одного часа П=7000/176= 39,7руб. Страховые взносы, начисляемые из заработной платы составят: 7000 * 34% / 176 = 13,5. Определим суммарные затраты работника, с учетом страховых взносов: Псум = 39,7 + 13,5 = 53,2 руб./ч.

. Расчет годовой экономии, экономического эффекта и срока окупаемости. Рассчитывается годовая экономия времени, обусловленная внедрением программного приложения. Перемножим выигранное время на проведение операций, количество операций, количество рабочих дней в месяц и количество рабочих месяцев, получим: ∆Тгод = 0,167 *15 *22* 11 = 606,21ч. Рассчитываем размер годовой экономии от внедрения программного приложения:

∆Т * Псум = 606,21 * 53,2 = 32250,372. Экономический эффект составляет величину равную годовой экономии средств за вычетом затрат на разработку и реализацию программного приложения = 32250,372 - 6418,05 = 25832,322руб.

Расчет срока окупаемости: 6418,05руб./ 32250,372 = 0,19 года.

Итак, общая экономическая эффективность при внедрении программного приложения составит 32250,372 руб. в год, при этом заметно сократится время сотрудника на поиск нужной ему информации.

Следовательно, если Салон Красоты «Мона Лиза» внедрит данную программу, то она окупит себя за 4 месяца.

Заключение

В изложенной дипломной работе на тему «Автоматизированный учет услуг в Салоне красоты» была реализована задача автоматизированного учета услуг.

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

Разработанная конфигурация полностью соответствует п. 1. «Постановка задачи».

Была произведена экономическая оценка эффективности от внедрения конфигурации, которая показала, что проект экономически целесообразен срок окупаемости конфигурации 4 месяца.

В конечном итоге разработанный мною проект “Автоматизированный учет услуг в Салоне красоты” на «1С:Предприятие7.7». существенно упростит работу сотрудника и сократит его рабочее время.

Литература

1.        “1C:Предприятие 7.7 Описание встроенного языка” 77.001.03 14 октября 2006г.

2.        “1C:Предприятие 7.7 Введение в конфигурирование ” 2011г.

3.        Официальный сайт компании 1С “ www.1C.ru”.

4.        “1C:Предприятие 7.7 Руководство по установке и запуску” 77.003.04

5.        “1C:Бухгалтерия 7.7Руководство по ведению учета (Описание типовой конфигурации редакции 4.5)” 77.450.02 8 сентября 2004г.

6.        “1C:Предприятие 7.7Конфигурирование и администрирование. Часть1 77.002.03 17 октября 2009г.

Приложение 1

Отчет «сведения о доходах»

Модуль:

·        Процедура Сформировать()

·        Запрос = СоздатьОбъект("Запрос");

·        Если ((ПустоеЗначение(НачДата) = 1) ИЛИ (ПустоеЗначение(КонДата) = 1)) Тогда

§  Предупреждение("Не заданы начальная либо конечная дата!");

§  Возврат;

·        КонецЕсли;

·        ТекстЗапроса =

·        "

·        |Период с НачДата по КонДата;

·        |ОбрабатыватьДокументы Проведенные;

·        |

·        |Док = Документ.Оплата.ТекущийДокумент;

·        |Сотрудник = Документ.Оплата.Сотрудник;

·        |Клиент = Документ.Оплата.Клиент;

·        |ВидыУслуг = Документ.Оплата.ВидыУслуг;

·        |

·        |

·        |Условие (Сотрудник в ВыбСотрудник);

·        |

·        |Группировка Сотрудник;

·        |Группировка Клиент;

·        |";

§  Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

§  Сообщить("Запрос не выполнен!!!");

·        КонецЕсли;

·        ТЗ = СоздатьОбъект("ТаблицаЗначений");

·        ТЗ.НоваяКолонка("Док");

·        ТЗ.НоваяКолонка("Сотрудник");

·        ТЗ.НоваяКолонка("Т");

·        ТЗ.НоваяКолонка("ОбщийДоход");

·        Пока Запрос.Группировка(1) = 1 Цикл

§  Сотрудник = Запрос.Сотрудник;

§  ТЗ.НоваяСтрока();

§  ТЗ.Сотрудник = Сотрудник;

§  ТЗ.Т = СоздатьОбъект("ТаблицаЗначений");

§  ТЗ.Т.НоваяКолонка("Клиент");

§  ТЗ.Т.НоваяКолонка("ВидыУслуг");

§  ТЗ.Т.НоваяКолонка("Стоимость");

§  Пока Запрос.Группировка(2) = 1 Цикл

·        Клиент = Запрос.Клиент;

·        ВидыУслуг = Запрос.ВидыУслуг;

·        ТЗ.Т.НоваяСтрока();

·        ТЗ.Т.Клиент = Клиент;

·        ТЗ.Т.ВидыУслуг = ВидыУслуг;

·        ТЗ.Т.Стоимость = ВидыУслуг.Стоимость;

§  КонецЦикла;

§  ТЗ.ОбщийДоход = ТЗ.Т.Итог("Стоимость");

·        КонецЦикла;

·        Таб = СоздатьОбъект("Таблица");

·        Таб.ВывестиСекцию("Шапка");

·        ТЗ.ВыбратьСтроки();

·        Пока ТЗ.ПолучитьСтроку() = 1 Цикл

§  Сотрудник = ТЗ.Сотрудник;

§  ОбщийДоход = ТЗ.ОбщийДоход;

§  Таб.ВывестиСекцию("Сотрудник");

§  ТЗ.Т.ВыбратьСтроки();

§  Пока ТЗ.Т.ПолучитьСтроку() = 1 Цикл

·        Клиент = ТЗ.Т.Клиент;

·        Доход = ТЗ.Т.Стоимость;

·        Таб.ВывестиСекцию("Клиент");

§  КонецЦикла;

·        КонецЦикла;

·        ИтогоОбщийДоход = ТЗ.Итог("ОбщийДоход");

·        Таб.ВывестиСекцию("Итого");

·        Таб.Опции(0,0,4);

·        Таб.ПараметрыСтраницы(,,,,,,,,,1,,);

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

·        Таб.ТолькоПросмотр(1);

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

Приложение 2

Отчет «сведения о заявках»

Модуль:

·        Процедура Сформировать()

·        Запрос = СоздатьОбъект("Запрос");

·        Если ((ПустоеЗначение(НачДата) = 1) ИЛИ (ПустоеЗначение(КонДата) = 1)) Тогда

§  Предупреждение("Не заданы начальная либо конечная дата!");

§  Возврат;

·        КонецЕсли;

·        ТекстЗапроса =

·        "

·        |Период с НачДата по КонДата;

·        |

·        |Обрабатывать НеПомеченныеНаУдаление;

·        |ОбрабатыватьДокументы НеПроведенные;

·        |

·        |Док = Документ.Заявка.ТекущийДокумент;

·        |Сотрудник = Документ.Заявка.Сотрудник;

·        |Клиент = Документ.Заявка.Клиент;

·        |ВидыУслуг = Документ.Заявка.ВидыУслуг;

·        |ВремяРаботы = Документ.Заявка.ВремяРаботы;

·        |ДатаЗаписи = Документ.Заявка.Дата;

·        |

·        |

·        |Условие (Сотрудник в ВыбСотрудник);

·        |

·        |Группировка Сотрудник;

·        |Группировка Клиент;

·        |";

·        Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

§  Сообщить("Запрос не выполнен!!!");

·        КонецЕсли;

·        ТЗ = СоздатьОбъект("ТаблицаЗначений");

·        ТЗ.НоваяКолонка("Док");

·        ТЗ.НоваяКолонка("Сотрудник");

·        ТЗ.НоваяКолонка("Т");

·        Пока Запрос.Группировка(1) = 1 Цикл

§  //Если Запрос.Док.ПометкаУдаления() = 1 Тогда Продолжить КонецЕсли;

§  Сотрудник = Запрос.Сотрудник;

§  ТЗ.НоваяСтрока();

§  ТЗ.Сотрудник = Сотрудник;

§  ТЗ.Т = СоздатьОбъект("ТаблицаЗначений");

§  ТЗ.Т.НоваяКолонка("Клиент");

§  ТЗ.Т.НоваяКолонка("ВремяРаботы");

§  ТЗ.Т.НоваяКолонка("ДатаЗаписи");

§  ТЗ.Т.НоваяКолонка("ВидыУслуг");

§  Пока Запрос.Группировка(2) = 1 Цикл

·        Клиент = Запрос.Клиент;

·        ВремяРаботы = Запрос.ВремяРаботы;

·        ВидыУслуг = Запрос.ВидыУслуг;

·        ДатаЗаписи = Запрос.ДатаЗаписи;

·        ТЗ.Т.НоваяСтрока();

·        ТЗ.Т.Клиент = Клиент;

·        ТЗ.Т.ВремяРаботы = ВремяРаботы;

·        ТЗ.Т.ДатаЗаписи = ДатаЗаписи;

·        ТЗ.Т.ВидыУслуг = ВидыУслуг;

§  КонецЦикла;

·        КонецЦикла;

·        Таб = СоздатьОбъект("Таблица");

·        Таб.ВывестиСекцию("Шапка");

·        ТЗ.ВыбратьСтроки();

·        Пока ТЗ.ПолучитьСтроку() = 1 Цикл

§  Сотрудник = ТЗ.Сотрудник;

§  Таб.ВывестиСекцию("Сотрудник");

§  ТЗ.Т.ВыбратьСтроки();

§  Пока ТЗ.Т.ПолучитьСтроку() = 1 Цикл

·        Клиент = ТЗ.Т.Клиент;

·        Услуга = ТЗ.Т.ВидыУслуг;

·        ВремяРаботы = ТЗ.Т.ВремяРаботы;

·        ДатаЗаписи = ТЗ.Т.ДатаЗаписи;

·        Таб.ВывестиСекцию("Клиент");

§  КонецЦикла;

·        КонецЦикла;

·        Таб.Опции(0,0,4);

·        Таб.ПараметрыСтраницы(,,,,,,,,,1,,);

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

·        Таб.ТолькоПросмотр(1);

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

Приложение 3

Отчет «график»

Модуль:

·        Процедура Сформировать()

·        Спр = СоздатьОбъект("Справочник.Сотрудники");

·        Таб = СоздатьОбъект("Таблица");

·        Таб.ВывестиСекцию("Шапка");

§  Если (ПустоеЗначение(ВыбДата) = 1) Тогда

§  Предупреждение("Не задана дата!");

§  Возврат;

·        КонецЕсли;

·        Спр.ВыбратьЭлементы();

·        Пока Спр.ПолучитьЭлемент() = 1 Цикл