Файл: Разработка конфигурации «Салон красоты» в среде 1С: Предприятие.(Анализ существующего программного обеспечения, позволяющего решить поставленную задачу).pdf
Добавлен: 28.03.2023
Просмотров: 699
Скачиваний: 52
Рисунок 24. Представители контрагентов.
Рисунок 25. Курсы валют.
На вкладке «Учет работы мастеров» создаются все физические лица (рисунок 26).
Рисунок 26. Создание физического лица.
Далее заполняется база «Сотрудники» (рисунок 27).
Рисунок 27. Сотрудники.
Тут же заполняется база «Клиенты» (рисунок 28).
Рисунок 28. Клиенты.
Следующая вкладка – «Оперативный учет материалов». В ней работают с базами: «Номенклатура», «Контрагенты», «Представитель контрагентов», «Сотрудники» и с документами: «Поступление материалов», «Отпуск материалов», «Реализация материалов» (рисунок 29 – рисунок 32).
Рисунок 29. Номенклатура.
Рисунок 30. Поступление материалов.
Рисунок 31. Отпуск материалов.
Рисунок 32. Реализация материалов.
На вкладке «Расчет заработной платы», работа ведется с базами: «Графики работы», «Сотрудники» и с документом «Начисление заработной платы» (рисунок 33 – рисунок 34).
Рисунок 33. Графики работы.
Рисунок 34. Начисление заработной платы.
При переходе на вкладку «Администрирование», появляется возможность просмотреть все справочники и документы, с которыми проводят работы (рисунок 35 – рисунок 36).
Рисунок 35. Работа с документами.
Рисунок 36. Работа со справочниками.
На вкладке «Календарь» ведется запись клиентов (рисунок 37).
Рисунок 37. Календарь.
На данном этапе тестирование завершено и можно подвести итог.
Заключение
В любой организации, как большой, так и малой, возникает проблема такого управления данными, которое обеспечило бы наиболее эффективную работу. Некоторые организации используют для этого бумажные носители, однако современные предприятия привлекают компьютерные системы автоматизации, позволяющие эффективно хранить, извлекать информацию и управлять большими объемами данных. Эта тенденция характерна для современной экономики в целом, похожая ситуация наблюдается и в сфере красоты. Сегодня в значительной степени возрастает интерес к информационным технологиям, причем всплеск интереса отмечен в учреждениях всех форм собственности - государственных, муниципальных, частных.
Информационные технологии предоставляют частному бизнесу больше возможностей, чем традиционные носители информации. Помимо традиционно используемых полезностей IT-обеспечения (оптимизация организационных и административных процессов на основе учета, консолидации и анализа данных) учреждение, сумевшее организовать свои информационные потоки, выводит услуги клиентам на качественно новый уровень. В данной научно-исследовательской работе были изучены теоретические подходы к применению информационных технологий, выявлены сущность методов количественного и качественного анализа управленческой информации и особенности применения информационных технологий в салонах красоты [5].
Список литературы
- Проектирование функционала информационной системы. Автор: Кручинецкий С.М., руководитель компании "Питер-Консалт", ksm@piter-consult.ru. Опубликовано 16.02.09.
- Орлов А.И. Теория принятия решений. Учебное пособие. - М.:
- Кибанов А.Я., Баткаева И.А., Митрофанова Е.А., Ловчева М.В. Мотивация и стимулирование персонала. - М.: Инфра-М, 2009.
- Книга "101 совет начинающим разработчикам в системе "1С: Предприятие 8" (артикул 4601546117618). Хрусталева Е. Ю., 214 страниц.
- Салон красоты на компьютере-2010. Марина Виннер, 338 страниц.
Приложение 1. Документ «Отпуск материалов»
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
// регистр ОстаткиМатериалов Приход
Движения.ОстаткиМатериалов.Записывать = Истина;
Для Каждого ТекСтрокаМатериалы Из Материалы Цикл
Движение = Движения.ОстаткиМатериалов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Номенклатура = ТекСтрокаМатериалы.Номенклатура;
Движение.ОтветственныйСотрудник = ОтветственныйСотрудник;
Движение.Количество = ТекСтрокаМатериалы.Количество;
Движение.Сумма = ТекСтрокаМатериалы.Сумма;
КонецЦикла;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Приложение 2. Документ «Реализация материалов»
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ДокМ.Номенклатура,
| СУММА(ДокМ.Количество) КАК Количество,
| МАКСИМУМ(ЕСТЬNULL(ОстМ.КоличествоОстаток, 0)) КАК КоличествоОстатков,
| МАКСИМУМ(ЕСТЬNULL(ОстМ.СуммаОстаток, 0)) КАК СуммаОстатков
|ИЗ
| Документ.ОтпускМатериаловМастеру.Материалы КАК ДокМ
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(&МоментВремени, ОтветственныйСотрудник = &ОтвСотр) КАК ОстМ
| ПО ДокМ.Номенклатура = ОстМ.Номенклатура
|ГДЕ
| ДокМ.Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| ДокМ.Номенклатура";
Запрос.УстановитьПараметр("МоментВремени", МоментВремени());
Запрос.УстановитьПараметр("ОтвСотр", ОтветственныйСотрудник);
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Результат = Запрос.Выполнить();
ВыборкаДЗ = Результат.Выбрать();
Движения.ОстаткиМатериалов.Записывать=Истина;
Пока ВыборкаДЗ.Следующий() Цикл
Если ВыборкаДЗ.Количество>ВыборкаДЗ.КоличествоОстатков Тогда
Сообщить("Недостаточное количество товара "+ВыборкаДЗ.Номенклатура
+", необходимо "+ВыборкаДЗ.Количество+", в наличии "
+ВыборкаДЗ.КоличествоОстатков);
Отказ=Истина;
Движения.ОстаткиМатериалов.Записывать=Ложь;
КонецЕсли;
Если Отказ Тогда
Продолжить;
КонецЕсли;
Движение=Движения.ОстаткиМатериалов.Добавить();
Движение.ВидДвижения=ВидДвиженияНакопления.Расход;
Движение.Период=Дата;
Движение.Номенклатура=ВыборкаДЗ.Номенклатура;
Движение.Количество=ВыборкаДЗ.Количество;
Движение.Сумма=ВыборкаДЗ.Количество*ВыборкаДЗ.СуммаОстатков/ВыборкаДЗ.КоличествоОстатков;
Движение.ОтветственныйСотрудник=ОтветственныйСотрудник;
Движение.ПолучательМатериалов=ПолучательМатериалов;
Движения.ОстаткиМатериалов.Записывать = Истина;
КонецЦикла;
КонецПроцедуры
Приложение 3. Документ «Поступление товаров»
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ДокМ.Номенклатура,
| СУММА(ДокМ.Количество) КАК Количество,
| СУММА(ДокМ.Выручка) КАК Выручка,
| МАКСИМУМ(ЕСТЬNULL(ОстМ.КоличествоОстаток, 0)) КАК КоличествоОстатков,
| МАКСИМУМ(ЕСТЬNULL(ОстМ.СуммаОстаток, 0)) КАК СуммаОстатков
|ИЗ
| Документ.РеализацияМатериалов.Материалы КАК ДокМ
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(&МоментВремени, ОтветственныйСотрудник = &ОтвСотр) КАК ОстМ
| ПО ДокМ.Номенклатура = ОстМ.Номенклатура
|ГДЕ
| ДокМ.Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| ДокМ.Номенклатура";
Запрос.УстановитьПараметр("МоментВремени", МоментВремени());
Запрос.УстановитьПараметр("ОтвСотр", ОтветственныйСотрудник);
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Результат = Запрос.Выполнить();
ВыборкаДЗ = Результат.Выбрать();
Движения.ОстаткиМатериалов.Записывать=Истина;
Движения.Продажи.Записывать=Истина;
Пока ВыборкаДЗ.Следующий() Цикл
Если ВыборкаДЗ.Количество>ВыборкаДЗ.КоличествоОстатков Тогда
Сообщить("Недостаточное количество товара "+ВыборкаДЗ.Номенклатура
+", необходимо "+ВыборкаДЗ.Количество+", в наличии "
+ВыборкаДЗ.КоличествоОстатков);
Отказ=Истина;
Движения.ОстаткиМатериалов.Записывать=Ложь;
Движения.Продажи.Записывать=Ложь;
КонецЕсли;
Если Отказ Тогда
Продолжить;
КонецЕсли;
Движение=Движения.ОстаткиМатериалов.Добавить();
Движение.ВидДвижения=ВидДвиженияНакопления.Расход;
Движение.Период=Дата;
Движение.Номенклатура=ВыборкаДЗ.Номенклатура;
Движение.Количество=ВыборкаДЗ.Количество;
Движение.Сумма=ВыборкаДЗ.Количество*ВыборкаДЗ.СуммаОстатков/ВыборкаДЗ.КоличествоОстатков;
Движение.ОтветственныйСотрудник=ОтветственныйСотрудник;
Движение=Движения.Продажи.Добавить();
Движение.Период=Дата;
Движение.Номенклатура=ВыборкаДЗ.Номенклатура;
Движение.Количество=ВыборкаДЗ.Количество;
Движение.Себестоимость=ВыборкаДЗ.Количество*ВыборкаДЗ.СуммаОстатков/ВыборкаДЗ.КоличествоОстатков;
Движение.Выручка=ВыборкаДЗ.Выручка;
Движение.ОтветственныйСотрудник=ОтветственныйСотрудник;
Движение.Контрагент=Покупатель;
КонецЦикла;
КонецПроцедуры
Приложение 4. Календарь
&НаСервере
Функция СоздатьТаблицуДанных() Экспорт
Табл = Новый ТаблицаЗначений;
колСтрок = 10;
колКолонок = День(КонецМесяца(ТекущаяДата()));
ТекМесяц = Формат(Месяц(ТекущаяДата()),"ЧГ=0");
ТекГод = Формат(Год(ТекущаяДата()),"ЧГ=0");
Для Сч = 1 по колКолонок Цикл
ЗаголовокКолонки =Формат(Дата(ТекГод+ТекМесяц+?(Сч<10,"0"+Строка(Сч),Строка(Сч))),"ДФ='d MMMM (dddd)'");
ИмяКолонки = Строка(Сч)+"_"+ТекМесяц;
Табл.Колонки.Добавить("День"+Сч,,ЗаголовокКолонки);
КонецЦикла;
Для Сч = 1 по колСтрок Цикл
новСтр = Табл.Добавить();
КонецЦикла;
Возврат Табл;
КонецФункции
Приложение 5. Отчёт СписокКонтрагентов
&НаКлиенте
Процедура СформироватьОтчет(Команда)
ТабличныйДокумент=СформироватьОтчетНаСервере();
КонецПроцедуры
&НаСервереБезКонтекста
Функция СформироватьОтчетНаСервере()
ТабличныйДокумент=Новый ТабличныйДокумент();
Макет=Отчеты.СписокКонтрагентов.ПолучитьМакет("Макет");
Шапка=Макет.ПолучитьОбласть("Шапка");
Элемент=Макет.ПолучитьОбласть("Элемент");
Группа=Макет.ПолучитьОбласть("Группа");
Шапка.Параметры.ДатаФормированияОтчета=ТекущаяДата();
ТабличныйДокумент.Вывести(Шапка);
Выборка=Справочники.Контрагенты.ВыбратьИерархически();
Пока Выборка.Следующий()Цикл
Если Выборка.ЭтоГруппа Тогда
Область=Группа;
Иначе
Область=Элемент;
КонецЕсли;
Область.Параметры.Заполнить(Выборка);
ТабличныйДокумент.Вывести(Область);
КонецЦикла;
Возврат(ТабличныйДокумент);
КонецФункцииПриложение 6. Отчёт «По дате»
ВЫБРАТЬ
Товары.Наименование КАК Товары,
ПоступлениеТоваровПереченьТова
ПоступлениеТоваровПереченьТова
СУММА(
ПоступлениеТоваровПереченьТова
ПоступлениеТоваров.Фирма.
ПоступлениеТоваровПереченьТова
ПоступлениеТоваров.Дата КАК Дата
ИЗ
Документ.ПоступлениеТоваров.
ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Товары КАК Товары
ПО ПоступлениеТоваровПереченьТова
ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПоступлениеТоваров КАК ПоступлениеТоваров
ПО ПоступлениеТоваровПереченьТова
СГРУППИРОВАТЬ ПО
Товары.Наименование,
ПоступлениеТоваров.Фирма.
ПоступлениеТоваровПереченьТова
ПоступлениеТоваровПереченьТова
ПоступлениеТоваровПереченьТова
ПоступлениеТоваровПереченьТова
ПоступлениеТоваров.Дата
Приложение 6. Отчёт «Итог»
ВЫБРАТЬ
ОстаткиМатериаловОстатки.Номенклатура,
ОстаткиМатериаловОстатки.ОтветственныйСотрудник,
ОстаткиМатериаловОстатки.КоличествоОстаток,
ОстаткиМатериаловОстатки.СуммаОстаток
ИЗ
РегистрНакопления.ОстаткиМатериалов.Остатки КАК ОстаткиМатериаловОстатки
Отчет 7
ВЫБРАТЬ
ОстаткиМатериаловОстаткиИОбороты.Номенклатура,
ОстаткиМатериаловОстаткиИОбороты.ОтветственныйСотрудник,
ОстаткиМатериаловОстаткиИОбороты.КоличествоНачальныйОстаток,
ОстаткиМатериаловОстаткиИОбороты.КоличествоПриход,
ОстаткиМатериаловОстаткиИОбороты.КоличествоРасход,
ОстаткиМатериаловОстаткиИОбороты.КоличествоКонечныйОстаток
ИЗ
РегистрНакопления.ОстаткиМатериалов.ОстаткиИОбороты КАК ОстаткиМатериаловОстаткиИОбороты
Отчет 8