Решение задач на тему: АВТОМАТИЗАЦИЯ учетА услуг в Салоне красоты

Введение

В наше время услуги слонов красоты пользуются большим спросом. К процессу оказания данного рода услуг можно отнести не только непосредственно факт выполнения услуг, но и ведение определенной документации:

формирование заказов на оказание услуг;

формировать сведения о доходах;

составлять документ на оплату услуг;

вести учет стоимости услуг.

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

Оглавление

- Введение

- Специальная часть

- Постановка задачи

- Формализация

- Описание среды программирования

- Требования к техническому обеспечению

- Требования к программному обеспечению

- Методика разработки проекта

- Алгоритмизация задачи

- Описание алгоритма

- Структурная схема

- Программирование

- Аномалии и защитное программирование

- Тестирование и отладка

- Анализ результатов решения

- Инструкция пользователю

- Экономическая часть Заключение

- Литература

- Приложения

Список литературы

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

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

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

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

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

6. "1С:Предприятие 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 Цикл

ТекЭл = Спр.ТекущийЭлемент();

СпрВремя = СоздатьОбъект("Справочник.ВремяРаботы");

СпрВремя.ИспользоватьВладельца(ТекЭл);

Сотрудник = ТекЭл.Наименование;

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

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

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

ВремяРаботы = СпрВремя.Наименование;

Док = СоздатьОбъект("Документ.Заявка");

Док.ВыбратьДокументы();

Пока Док.ПолучитьДокумент() = 1 Цикл

о Если (((Док.ПометкаУдаления() = 0) И (Строка(Док.ВремяРаботы) = СпрВремя.Наименование)) И (Док.Дата = ВыбДата) И (Строка(Док.Сотрудник) = Сотрудник)) Тогда

Пометка = Док.Клиент;

Услуга = Док.ВидыУслуг;

Прервать;

о Иначе

Пометка = "";

Услуга = "";

о КонецЕсли;

КонецЦикла;

Таб.ВывестиСекцию("Время");

КонецЦикла;

КонецЦикла;

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

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

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

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

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

Приложение 4

Отчет "сведения о услугах"

Модуль:

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

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

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

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

Возврат;

КонецЕсли;

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

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

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

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

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

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

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

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

|Функция Сум=Сумма(Стоимость);

|Условие (ВидыУслуг в ВыбУслуга);

|Группировка ВидыУслуг;

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

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

КонецЕсли;

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

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

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

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

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

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

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

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

Доход = Запрос.Сум;

Таб.ВывестиСекцию("Услуга");

КонецЦикла;

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

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

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

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

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