Файл: Разработка конфигурации «Салон красоты» в среде 1С: Предприятие..pdf

Рисунок 30. Поступление материалов.

Рисунок 31. Отпуск материалов.

Рисунок 32. Реализация материалов.

На вкладке «Расчет заработной платы», работа ведется с базами: «Графики работы», «Сотрудники» и с документом «Начисление заработной платы» (рисунок 33 – рисунок 34).

Рисунок 33. Графики работы.

Рисунок 34. Начисление заработной платы.

При переходе на вкладку «Администрирование», появляется возможность просмотреть все справочники и документы, с которыми проводят работы (рисунок 35 – рисунок 36).

Рисунок 35. Работа с документами.

Рисунок 36. Работа со справочниками.

На вкладке «Календарь» ведется запись клиентов (рисунок 37).

Рисунок 37. Календарь.

На данном этапе тестирование завершено и можно подвести итог.

Заключение

В любой организации, как большой, так и малой, возникает проблема такого управления данными, которое обеспечило бы наиболее эффективную работу. Некоторые организации используют для этого бумажные носители, однако современные предприятия привлекают компьютерные системы автоматизации, позволяющие эффективно хранить, извлекать информацию и управлять большими объемами данных. Эта тенденция характерна для современной экономики в целом, похожая ситуация наблюдается и в сфере красоты. Сегодня в значительной степени возрастает интерес к информационным технологиям, причем всплеск интереса отмечен в учреждениях всех форм собственности - государственных, муниципальных, частных.

Информационные технологии предоставляют частному бизнесу больше возможностей, чем традиционные носители информации. Помимо традиционно используемых полезностей IT-обеспечения (оптимизация организационных и административных процессов на основе учета, консолидации и анализа данных) учреждение, сумевшее организовать свои информационные потоки, выводит услуги клиентам на качественно новый уровень. В данной научно-исследовательской работе были изучены теоретические подходы к применению информационных технологий, выявлены сущность методов количественного и качественного анализа управленческой информации и особенности применения информационных технологий в салонах красоты [5].

---

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

1. Проектирование функционала информационной системы. Автор: Кручинецкий С.М., руководитель компании "Питер-Консалт", ksm@piter-consult.ru. Опубликовано 16.02.09.
2. Орлов А.И. Теория принятия решений. Учебное пособие. - М.:
3. Кибанов А.Я., Баткаева И.А., Митрофанова Е.А., Ловчева М.В. Мотивация и стимулирование персонала. - М.: Инфра-М, 2009.
4. Книга "101 совет начинающим разработчикам в системе "1С: Предприятие 8" (артикул 4601546117618). Хрусталева Е. Ю., 214 страниц.
5. Салон красоты на компьютере-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. Отчёт СписокКонтрагентов

&НаКлиенте

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

ТабличныйДокумент=СформироватьОтчетНаСервере();

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

&НаСервереБезКонтекста

Функция СформироватьОтчетНаСервере()

ТабличныйДокумент=Новый ТабличныйДокумент();

Макет=Отчеты.СписокКонтрагентов.ПолучитьМакет("Макет");

Шапка=Макет.ПолучитьОбласть("Шапка");

Элемент=Макет.ПолучитьОбласть("Элемент");

Группа=Макет.ПолучитьОбласть("Группа");

Шапка.Параметры.ДатаФормированияОтчета=ТекущаяДата();

ТабличныйДокумент.Вывести(Шапка);

Выборка=Справочники.Контрагенты.ВыбратьИерархически();

Пока Выборка.Следующий()Цикл

Если Выборка.ЭтоГруппа Тогда

Область=Группа;

Иначе

Область=Элемент;

КонецЕсли;

---