Разработка автоматизированной информационной системы работы спа-салона "Luxury-Spa" - Отчет по практике

Создать справочники видов абонементов, видов услуг, натуральной косметики, которая используется в спа-салоне, ее характеристик, а так же клиентов - посетителей и мастеров, работающих в спа-салоне. Создать документы для реализации следующих возможностей: продажа абонемента и определение индивидуальной программы оказания услуг для каждого клиента, посещение занятий, а так же учет покупки косметики и списание.Требуется создать следующие объекты: Справочник "Клиенты": Реквизиты Код (по умолчанию) Число, длина 16Справочник "Наши мастера": РеквизитыСправочник "Виды услуг": РеквизитыКод (по умолчанию) Число, длина 5Код (по умолчанию) Число, длина 5Код (по умолчанию) Число, длина 9Код (по умолчанию) Число, длина 9Периодический регистр "ЦЕНЫАБОНЕМЕНТОВ" Периодичность в пределах года Измерение Тип БАЗОВАЯЦЕНА Число, длина 15, неотрицательное Связанная с ним функция общего модуля ОБЩЕГОНАЗНАЧЕНИЯ: Функция ЦЕНААБОНЕМЕНТА(АКТУАЛЬНАЯДАТА, ЭЛЕМЕНТАБОНЕМЕНТОВ) ЭкспортПериодический регистр "ЦЕНЫВИДЫУСЛУГ" Периодичность в пределах года Измерение Тип Связанная с ним функция общего модуля ОБЩЕГОНАЗНАЧЕНИЯ: Функция ЦЕНАВИДАУСЛУГИ (АКТУАЛЬНАЯДАТА, ЭЛЕМЕНТВИДОВУСЛУГ) ЭкспортПериодический регистр "ЦЕНЫКОСМЕТИКА" Периодичность в пределах года Измерение Тип Косметика СПРАВОЧНИКССЫЛКА.КосметикаРегистр сведений "РАСПИСАНИЕУСЛУГ" Измерение Тип Группы СПРАВОЧНИКССЫЛКА.РасписаниеЧИСЛОПОСЕЩЕНИЙ Число, длина 10, неотрицательное Связанные с ним функции общего модуля ОБЩЕГОНАЗНАЧЕНИЯ: Процедура РАССЧИТАТЬИТОГ(СТРОКАТАБЛИЧНОЙЧАСТИ) Экспорт СТРОКАТАБЛИЧНОЙЧАСТИ.ИТОГОВАЯСТОИМОСТЬ =СТРОКАТАБЛИЧНОЙЧАСТИ.ЦЕНАВИДА СТРОКАТАБЛИЧНОЙЧАСТИ.ЧИСЛОПОСЕЩЕНИЙ*СТРОКАТАБЛИЧНОЙЧАСТИ.БАЗЦЕНА; Движение = Движения.Посещаемость.Добавить(); Движение = Движения.Бухгалтерия.Добавить();Документ "Посещение": Реквизиты Код (по умолчанию) Число, длина 5 Наименование (по умолчанию) Строка, длина 50 // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!! Движение = Движения.Посещаемость.Добавить();Движение = Движения.Косметика.Добавить(); Движение.Косметика = ТЕКСТРОКАКОСМЕТИКА.Косметика; Движение.Количество = ТЕКСТРОКАКОСМЕТИКА.Количество; Движение = Движения.Бухгалтерия.Добавить(); Движение.СУБКОНТОДТ[ПЛАНЫВИДОВХАРАКТЕРИСТИК.ВИДЫСУБКОНТО.Косметика] = ТЕКСТРОКАКОСМЕТИКА.Косметика;Код (по умолчанию) Число, длина 5 Количество Число, длина 10, неотрицательное Движение = Движения.Косметика.Добавить(); Движение.Косметика = ТЕКСТРОКАСПИСАНИЕ.Косметика; Движение = Движения.Бухгалтерия.Добавить();Документ "ВВОДНАЧАЛЬНЫХОСТАТКОВ": Данные: Движения.Косметика ОБНОВИТЬДАТУДВИЖЕНИЙ=ЭТОНОВЫЙ() ИЛИ Движения.Косметика.Модифицированность(); Если Не ОБНОВИТЬДАТУДВИЖЕНИЙ Тогда Запрос=Новый Запрос; Выборка = Запрос.Выполнить().Выбрать(); Если ОБНОВИТЬДАТУДВИЖЕНИЙ ТОГДА Если Не Движения.Косметика.Выбран() И Не Движения.Косметика.Модифицированность() Тогда Движения.Косметика.Прочитать();Движение = Движения.Начисления.Добавить(); ТАБЛЗНАЧ=Запрос.Выполнить().Выгрузить(); "ВЫБРАТЬ НАЧИСЛЕНИЯДАННЫЕГРАФИКА.ЗНАЧЕНИЕПЕРИОДДЕЙСТВИЯ КАК Норма, НАЧИСЛЕНИЯДАННЫЕГРАФИКА.ЗНАЧЕНИЕФАКТИЧЕСКИЙПЕРИОДДЕЙСТВИЯ КАК Факт, |НАЧИСЛЕНИЯДАННЫЕГРАФИКА.НОМЕРСТРОКИ КАК НОМЕРСТРОКИ ВЫБОРКАРЕЗУЛЬТАТА=Запрос.Выполнить().Выбрать(); Сообщить("Выполнен расчет" ЗАПИСЬРЕГИСТРА.Регистратор " - " ЗАПИСЬРЕГИСТРА.ВИДРАСЧЕТА " - " ЗАПИСЬРЕГИСТРА.Мастер,);Тип значения характеристик: СПРАВОЧНИКССЫЛКА.Клиенты, СПРАВОЧНИКССЫЛКА.Абонементы, СПРАВОЧНИКССЫЛКА.Субконто, СПРАВОЧНИКССЫЛКА.КосметикаИмя: Основной Признак учета: КоличественныйИспользует период действияРегистр накопления "Косметика" Измерение Тип Косметика СПРАВОЧНИКССЫЛКА.Косметика Ресурс Тип Регистраторы: Документ ПОКУПКАКОСМЕТИКИИмя: Бухгалтерия Использует Корреспонденцию Количество Число, длина 15; Признак учета Количественный, Признак учета субконто Количественный Сумма Число, длина 15; балансовыйИспользует период действия График: РАСПИСАНИЕУСЛУГ Значение графика: Значение Дата графика: Дата Измерение ТипВ обработке отображены все необходимые для работы объекты: справочники, документы, некоторые регистры, а так же имеются макеты для отчетов. ОБЛАСТЬДЕТАЛЬНЫХЗАПИСЕЙ.Параметры.Заполнить(ВЫБОРКАДЕТАЛИ); ТАБДОК.Вывести(ОБЛАСТЬДЕТАЛЬНЫХЗАПИСЕЙ, ВЫБОРКАДЕТАЛИ.Уровень()); ТАБДОК.Вывести(ОБЛАСТЬДЕТАЛЬНЫХЗАПИСЕЙ, ВЫБОРКАДЕТАЛИ.Уровень()); ТАБДОК.Вывести(ОБЛАСТЬДЕТАЛЬНЫХЗАПИСЕЙ, ВЫБОРКАДЕТАЛИ.

Содержание электронный справочник спа салон

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

2. Разработка автоматизированной информационной системы

2.1 Создание справочников

2.2 Создание регистров сведений

2.3 Создание документов

2.4 Создание плана видов характеристик

2.5 Создание плана счетов

2.6 Создание плана видов расчета

2.7 Создание регистров накопления

2.8 Создание регистра бухгалтерии

2.9 Создание регистра расчета

2.10 Создание обработок

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

Приложение

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

Справочник "Наши мастера": Реквизиты

Реквизит Тип

Код (по умолчанию) Число, длина 9

Наименование (по умолчанию) Строка, длина 25

ВыполнениеСправочник "Виды услуг": Реквизиты

РЕКВИЗИТТИП

Код (по умолчанию) Число, длина 9

Наименование (по умолчанию) Строка, длина 50

ВыполнениеСправочник "Абонементы": Реквизиты

РЕКВИЗИТТИП

Код (по умолчанию) Число, длина 5

Наименование (по умолчанию) Строка, длина 50

ВыполнениеСправочник "Косметика": Реквизиты

РЕКВИЗИТТИП

Код (по умолчанию) Число, длина 5

Наименование (по умолчанию) Строка, длина 50

ВыполнениеСправочник "Расписание": Реквизиты

РЕКВИЗИТТИП

Код (по умолчанию) Число, длина 9

Наименование (по умолчанию) Строка, длина 25

ВыполнениеСправочник "Субконто": Реквизиты

РЕКВИЗИТТИП

Код (по умолчанию) Число, длина 9

Наименование (по умолчанию) Строка, длина 25

Владелец: ПЛАНВИДОВХАРАКТЕРИСТИК.ВИДЫСУБКОНТО

ВыполнениеПериодический регистр "ЦЕНЫВИДЫУСЛУГ"

Периодичность в пределах года

Измерения

Измерение Тип

ВИДУСЛУГИ СПРАВОЧНИКССЫЛКА.ВИДЫУСЛУГ

Ресурсы

Ресурс Тип

ЦЕНАВИДА Число, длина 10, неотрицательное

Выполнение

Связанная с ним функция общего модуля ОБЩЕГОНАЗНАЧЕНИЯ: Функция ЦЕНАВИДАУСЛУГИ (АКТУАЛЬНАЯДАТА, ЭЛЕМЕНТВИДОВУСЛУГ) Экспорт

Отбор = Новый Структура("ВИДУСЛУГИ", ЭЛЕМЕНТВИДОВУСЛУГ);

ЗНАЧЕНИЯРЕСУРСОВ = РЕГИСТРЫСВЕДЕНИЙ.ЦЕНЫВИДЫУСЛУГИ.ПОЛУЧИТЬПОСЛЕДНЕЕ(АКТУАЛЬНАЯДАТА, Отбор);

Возврат ЗНАЧЕНИЯРЕСУРСОВ.ЦЕНАВИДА;

КОНЕЦФУНКЦИИПериодический регистр "ЦЕНЫКОСМЕТИКА"

Периодичность в пределах года

Измерения

Измерение Тип

Косметика СПРАВОЧНИКССЫЛКА.Косметика

Ресурсы

Ресурс Тип

Цена Число, длина 10, неотрицательное

Выполнение

Связанная с ним функция общего модуля ОБЩЕГОНАЗНАЧЕНИЯ: Функция ЦЕНАКОСМЕТИКА (АКТУАЛЬНАЯДАТА, ЭЛЕМЕНТКОСМЕТИКИ) Экспорт

Отбор = Новый Структура("Косметика", ЭЛЕМЕНТКОСМЕТИКИ);

ЗНАЧЕНИЯРЕСУРСОВ = РЕГИСТРЫСВЕДЕНИЙ.ЦЕНЫКОСМЕТИКА.ПОЛУЧИТЬПОСЛЕДНЕЕ(АКТУАЛЬНАЯДАТА, Отбор);

Возврат ЗНАЧЕНИЯРЕСУРСОВ.Цена;

КОНЕЦФУНКЦИИРегистр сведений "РАСПИСАНИЕУСЛУГ"

Измерения

Измерение Тип

Группы СПРАВОЧНИКССЫЛКА.Расписание

Дата Дата

Ресурсы

Ресурс Тип

Значение Число, длина 1

ВыполнениеДокумент "Посещение": Реквизиты

Реквизит Тип

Код (по умолчанию) Число, длина 5

Наименование (по умолчанию) Строка, длина 50

Клиент СПРАВОЧНИКССЫЛКА.Клиенты

Реквизиты табличной части "Посещение"

Реквизит Тип

Значение Число, длина 2, неотрицательное

Выполнение

Модуль объекта

Процедура ОБРАБОТКАПРОВЕДЕНИЯ(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Для Каждого ТЕКСТРОКАПОСЕЩЕНИЕ Из Посещение Цикл

// регистр Посещаемость Расход

Движение = Движения.Посещаемость.Добавить();

Движение.ВИДДВИЖЕНИЯ = ВИДДВИЖЕНИЯНАКОПЛЕНИЯ.Расход;

Движение.Период = Дата;

Движение.Клиент = Клиент;

Движение.ОСТАЛОСЬЗАНЯТИЙ = ТЕКСТРОКАПОСЕЩЕНИЕ.Значение;

КОНЕЦЦИКЛА;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

КОНЕЦПРОЦЕДУРЫДокумент "ПОКУПКАКОСМЕТИКИ": Реквизиты

Реквизит Тип

Код (по умолчанию) Число, длина 5

Наименование (по умолчанию) Строка, длина 50

Реквизиты табличной части "Косметика"

Реквизит Тип

Косметика СПРАВОЧНИКССЫЛКА.Косметика

Количество Число, длина 10, неотрицательное

Цена Число, длина 10, неотрицательное

Сумма Число, длина 10, неотрицательное

Выполнение

Модуль объекта

Процедура ОБРАБОТКАПРОВЕДЕНИЯ(Отказ, Режим)

Для Каждого ТЕКСТРОКАКОСМЕТИКА Из Косметика Цикл

// регистр Косметика Приход

Движение = Движения.Косметика.Добавить();

Движение.ВИДДВИЖЕНИЯ = ВИДДВИЖЕНИЯНАКОПЛЕНИЯ.Приход;

Движение.Период = Дата;

Движение.Косметика = ТЕКСТРОКАКОСМЕТИКА.Косметика;

Движение.Количество = ТЕКСТРОКАКОСМЕТИКА.Количество;

КОНЕЦЦИКЛА;

Для Каждого ТЕКСТРОКАКОСМЕТИКА Из Косметика Цикл

// регистр Бухгалтерия

Движение = Движения.Бухгалтерия.Добавить();

Движение.СЧЕТДТ = ПЛАНЫСЧЕТОВ.Основной.Товары;

Движение.СЧЕТКТ = ПЛАНЫСЧЕТОВ.Основной.РАСЧЕТЫСПОСТАВЩИКАМИ;

Движение.Период = Дата;

Движение.Сумма = ТЕКСТРОКАКОСМЕТИКА.Сумма;

Движение.КОЛИЧЕСТВОДТ = ТЕКСТРОКАКОСМЕТИКА.Количество;

Движение.СУБКОНТОДТ[ПЛАНЫВИДОВХАРАКТЕРИСТИК.ВИДЫСУБКОНТО.Косметика] = ТЕКСТРОКАКОСМЕТИКА.Косметика;

КОНЕЦЦИКЛА;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

КОНЕЦПРОЦЕДУРЫ

Модуль формы: Процедура КОСМЕТИКАКОЛИЧЕСТВОПРИИЗМЕНЕНИИ(Элемент)

// Вставить содержимое обработчика.

СТРОКАТАБЛИЧНОЙЧАСТИ = ЭЛЕМЕНТЫФОРМЫ.Косметика.ТЕКУЩИЕДАННЫЕ;

ОБЩЕГОНАЗНАЧЕНИЯ.РАССЧИТАТЬСУММУ(СТРОКАТАБЛИЧНОЙЧАСТИ);

КОНЕЦПРОЦЕДУРЫ

Процедура КОСМЕТИКАЦЕНАПРИИЗМЕНЕНИИ(Элемент)

// Вставить содержимое обработчика.

СТРОКАТАБЛИЧНОЙЧАСТИ = ЭЛЕМЕНТЫФОРМЫ.Косметика.ТЕКУЩИЕДАННЫЕ;

ОБЩЕГОНАЗНАЧЕНИЯ.РАССЧИТАТЬСУММУ(СТРОКАТАБЛИЧНОЙЧАСТИ);

КОНЕЦПРОЦЕДУРЫ

Процедура КОСМЕТИКАКОСМЕТИКАПРИИЗМЕНЕНИИ(Элемент)

// Вставить содержимое обработчика.

СТРОКАТАБЛИЧНОЙЧАСТИ = ЭЛЕМЕНТЫФОРМЫ.Косметика.ТЕКУЩИЕДАННЫЕ;

СТРОКАТАБЛИЧНОЙЧАСТИ.Цена = ОБЩЕГОНАЗНАЧЕНИЯ.ЦЕНАКОСМЕТИКА (Дата, Элемент.Значение);

ОБЩЕГОНАЗНАЧЕНИЯ.РАССЧИТАТЬСУММУ(СТРОКАТАБЛИЧНОЙЧАСТИ);

КОНЕЦПРОЦЕДУРЫ

Связанная с ним функция общего модуля ОБЩЕГОНАЗНАЧЕНИЯ: Процедура РАССЧИТАТЬСУММУ(СТРОКАТАБЛИЧНОЙЧАСТИ) Экспорт

СТРОКАТАБЛИЧНОЙЧАСТИ.Сумма = СТРОКАТАБЛИЧНОЙЧАСТИ.Цена*СТРОКАТАБЛИЧНОЙЧАСТИ.Количество;

КОНЕЦПРОЦЕДУРЫДокумент "СПИСАНИЕКОСМЕТИКИ": Реквизиты

Реквизит Тип

Код (по умолчанию) Число, длина 5

Наименование (по умолчанию) Строка, длина 50

Реквизиты табличной части "Списание"

Реквизит Тип

Косметика СПРАВОЧНИКССЫЛКА.Косметика

Количество Число, длина 10, неотрицательное

Цена Число, длина 10, неотрицательное

Сумма Число, длина 10, неотрицательное

Выполнение

Модуль объекта

Процедура ОБРАБОТКАПРОВЕДЕНИЯ(Отказ, Режим)

Для Каждого ТЕКСТРОКАСПИСАНИЕ Из Списание Цикл

// регистр Косметика Расход

Движение = Движения.Косметика.Добавить();

Движение.ВИДДВИЖЕНИЯ = ВИДДВИЖЕНИЯНАКОПЛЕНИЯ.Расход;

Движение.Период = Дата;

Движение.Косметика = ТЕКСТРОКАСПИСАНИЕ.Косметика;

Движение.Количество = ТЕКСТРОКАСПИСАНИЕ.Количество;

КОНЕЦЦИКЛА;

Для Каждого ТЕКСТРОКАСПИСАНИЕ Из Списание Цикл

// регистр Бухгалтерия

Движение = Движения.Бухгалтерия.Добавить();

Движение.СЧЕТДТ = ПЛАНЫСЧЕТОВ.Основной.ДЕБИТОРСКАЯЗАДОЛЖЕННОСТЬ;

Движение.СЧЕТКТ = ПЛАНЫСЧЕТОВ.Основной.Капитал;

Движение.Период = Дата;

Движение.Сумма = ТЕКСТРОКАСПИСАНИЕ.Сумма;

Движение.СУБКОНТОДТ[ПЛАНЫВИДОВХАРАКТЕРИСТИК.ВИДЫСУБКОНТО.Клиенты] = ТЕКСТРОКАСПИСАНИЕ.Косметика;

КОНЕЦЦИКЛА;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

КОНЕЦПРОЦЕДУРЫДокумент "ВВОДНАЧАЛЬНЫХОСТАТКОВ": Данные: Движения.Косметика

Выполнение

Модуль формы: Процедура ПЕРЕДЗАПИСЬЮ(Отказ, РЕЖИМЗАПИСИ, РЕЖИМПРОВЕДЕНИЯ)

ОБНОВИТЬДАТУДВИЖЕНИЙ=ЭТОНОВЫЙ() ИЛИ Движения.Косметика.Модифицированность();

Если Не ОБНОВИТЬДАТУДВИЖЕНИЙ Тогда Запрос=Новый Запрос;

Запрос.УСТАНОВИТЬПАРАМЕТР("ТЕКУЩИЙДОКУМЕНТ", Ссылка);

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

"ВЫБРАТЬ

|Дата

|ИЗ

|Документ.ВВОДНАЧАЛЬНЫХОСТАТКОВ

|Где Ссылка = &ТЕКУЩИЙДОКУМЕНТ";

Выборка = Запрос.Выполнить().Выбрать();

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

ОБНОВИТЬДАТУДВИЖЕНИЙ=Выборка.Дата Дата;

КОНЕЦЕСЛИ;

Если ОБНОВИТЬДАТУДВИЖЕНИЙ ТОГДА Если Не Движения.Косметика.Выбран() И Не Движения.Косметика.Модифицированность() Тогда Движения.Косметика.Прочитать();

КОНЕЦЕСЛИ;

Для Каждого ЗАПИСЬРЕГИСТРА Из Движения.Косметика Цикл

ЗАПИСЬРЕГИСТРА.Период=Дата;

КОНЕЦЦИКЛА;

КОНЕЦЕСЛИ;

КОНЕЦПРОЦЕДУРЫДокумент "Зарплата": Реквизиты табличной части "Начисления"

Реквизит Тип

Мастер СПРАВОЧНИКССЫЛКА.НАШИМАСТЕРА

ГРАФИКРАБОТЫ СПРАВОЧНИКССЫЛКА.Расписание

ДАТАНАЧАЛА Дата

ДАТАОКОНЧАНИЯ Дата

ВИДРАСЧЕТА ПЛАНВИДОВРАСЧЕТАССЫЛКА.ОСНОВНЫЕНАЧИСЛЕНИЯ

Результат Число, длина 10, неотрицательное

Выполнение

Модуль объекта

Процедура ОБРАБОТКАПРОВЕДЕНИЯ(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Для Каждого ТЕКСТРОКАНАЧИСЛЕНИЯ Из Начисления Цикл

// регистр Начисления

Движение = Движения.Начисления.Добавить();

Движение.Сторно = Ложь;

Движение.ВИДРАСЧЕТА = ТЕКСТРОКАНАЧИСЛЕНИЯ.ВИДРАСЧЕТА;

Движение.ПЕРИОДДЕЙСТВИЯНАЧАЛО = ТЕКСТРОКАНАЧИСЛЕНИЯ.ДАТАНАЧАЛА;

Движение.ПЕРИОДДЕЙСТВИЯКОНЕЦ = ТЕКСТРОКАНАЧИСЛЕНИЯ.ДАТАНАЧАЛА;

Движение.ПЕРИОДРЕГИСТРАЦИИ = ТЕКСТРОКАНАЧИСЛЕНИЯ.ДАТАНАЧАЛА;

Движение.БАЗОВЫЙПЕРИОДНАЧАЛО = ТЕКСТРОКАНАЧИСЛЕНИЯ.ДАТАНАЧАЛА;

Движение.БАЗОВЫЙПЕРИОДКОНЕЦ = ТЕКСТРОКАНАЧИСЛЕНИЯ.ДАТАНАЧАЛА;

Движение.Мастер = ТЕКСТРОКАНАЧИСЛЕНИЯ.Мастер;

Движение.Результат = ТЕКСТРОКАНАЧИСЛЕНИЯ.Результат;

Движение.ГРАФИКРАБОТЫ = ТЕКСТРОКАНАЧИСЛЕНИЯ.ГРАФИКРАБОТЫ;

КОНЕЦЦИКЛА;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

Запрос=Новый Запрос(

"ВЫБРАТЬ РАЗЛИЧНЫЕ

|ЗАРПЛАТАНАЧИСЛЕНИЯ.Мастер

|ИЗ

|Документ.Зарплата.Начисления

|КАК ЗАРПЛАТАНАЧИСЛЕНИЯ

|ГДЕ

|ЗАРПЛАТАНАЧИСЛЕНИЯ.Ссылка=&ТЕКУЩИЙДОКУМЕНТ");

Запрос.УСТАНОВИТЬПАРАМЕТР("ТЕКУЩИЙДОКУМЕНТ", Ссылка);

ТАБЛЗНАЧ=Запрос.Выполнить().Выгрузить();

МАССИВМАСТЕРОВ=ТАБЛЗНАЧ.ВЫГРУЗИТЬКОЛОНКУ("Мастер");

СПИСОКМАСТЕРОВ=Новый СПИСОКЗНАЧЕНИЙ;

СПИСОКМАСТЕРОВ.ЗАГРУЗИТЬЗНАЧЕНИЯ(МАССИВМАСТЕРОВ);

ОБЩЕГОНАЗНАЧЕНИЯ.РАСЧИТАТЬНАЧИСЛЕНИЯ(Движения.Начисления, ПЛАНЫВИДОВРАСЧЕТА.ОСНОВНЫЕНАЧИСЛЕНИЯ.Оклад, СПИСОКМАСТЕРОВ);

ОБЩЕГОНАЗНАЧЕНИЯ.РАСЧИТАТЬНАЧИСЛЕНИЯ(Движения.Начисления, ПЛАНЫВИДОВРАСЧЕТА.ОСНОВНЫЕНАЧИСЛЕНИЯ.Премия, СПИСОКМАСТЕРОВ);

КОНЕЦПРОЦЕДУРЫ

Связанная с документом процедура общего модуля ОБЩЕГОНАЗНАЧЕНИЯ электронный справочник спа салон

Процедура РАСЧИТАТЬНАЧИСЛЕНИЯ(НАБОРЗАПИСЕЙРЕГИСТРА,ТРЕБУЕМЫЙВИДРАСЧЕТА,СПИСОКМАСТЕРОВ) Экспорт

Регистратор=НАБОРЗАПИСЕЙРЕГИСТРА.Отбор.Регистратор.Значение;

Если ТРЕБУЕМЫЙВИДРАСЧЕТА=ПЛАНЫВИДОВРАСЧЕТА.ОСНОВНЫЕНАЧИСЛЕНИЯ.Оклад Тогда Запрос =Новый Запрос;

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

"ВЫБРАТЬ НАЧИСЛЕНИЯДАННЫЕГРАФИКА.ЗНАЧЕНИЕПЕРИОДДЕЙСТВИЯ КАК Норма, НАЧИСЛЕНИЯДАННЫЕГРАФИКА.ЗНАЧЕНИЕФАКТИЧЕСКИЙПЕРИОДДЕЙСТВИЯ КАК Факт, |НАЧИСЛЕНИЯДАННЫЕГРАФИКА.НОМЕРСТРОКИ КАК НОМЕРСТРОКИ

|ИЗ РЕГИСТРРАСЧЕТА.Начисления.ДАННЫЕГРАФИКА(Регистратор=&Регистратор И ВИДРАСЧЕТА=&ВИДРАСЧЕТА И Мастер В (&СПИСОКМАСТЕРОВ))

|КАК НАЧИСЛЕНИЯДАННЫЕГРАФИКА";

Запрос.УСТАНОВИТЬПАРАМЕТР("Регистратор",НАБОРЗАПИСЕЙРЕГИСТРА.Отбор.Регистратор.Значение);

Запрос.УСТАНОВИТЬПАРАМЕТР("ВИДРАСЧЕТА",ТРЕБУЕМЫЙВИДРАСЧЕТА);

Запрос.УСТАНОВИТЬПАРАМЕТР("СПИСОКМАСТЕРОВ",СПИСОКМАСТЕРОВ);

ВЫБОРКАРЕЗУЛЬТАТА=Запрос.Выполнить().Выбрать();

Для Каждого ЗАПИСЬРЕГИСТРА ИЗ НАБОРЗАПИСЕЙРЕГИСТРА Цикл

СТРУКТУРАНОМЕР=Новый Структура ("НОМЕРСТРОКИ");

СТРУКТУРАНОМЕР.НОМЕРСТРОКИ=ЗАПИСЬРЕГИСТРА.НОМЕРСТРОКИ;

ВЫБОРКАРЕЗУЛЬТАТА.Сбросить();

Если ВЫБОРКАРЕЗУЛЬТАТА.НАЙТИСЛЕДУЮЩИЙ(СТРУКТУРАНОМЕР) Тогда Если ВЫБОРКАРЕЗУЛЬТАТА.Норма = 0 Тогда Сообщить ("Вид расчета: Оклад - Нет рабочих дней в заданном периоде",);

ЗАПИСЬРЕГИСТРА.Результат=0;

Иначе ЗАПИСЬРЕГИСТРА.Результат =(ЗАПИСЬРЕГИСТРА.ИСХОДНЫЕДАННЫЕ/ВЫБОРКАРЕЗУЛЬТАТА.Норма)*ВЫБОРКАРЕЗУЛЬТАТА.Факт;

Сообщить("Выполнен расчет" ЗАПИСЬРЕГИСТРА.Регистратор " - " ЗАПИСЬРЕГИСТРА.ВИДРАСЧЕТА " - " ЗАПИСЬРЕГИСТРА.Мастер,);

КОНЕЦЕСЛИ;

КОНЕЦЕСЛИ;

КОНЕЦЦИКЛА;

ИНАЧЕЕСЛИ ТРЕБУЕМЫЙВИДРАСЧЕТА=ПЛАНЫВИДОВРАСЧЕТА.ОСНОВНЫЕНАЧИСЛЕНИЯ.Премия

Тогда Запрос =Новый Запрос;

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

"ВЫБРАТЬ НАЧИСЛЕНИЯБАЗАНАЧИСЛЕНИЯ.РЕЗУЛЬТАТБАЗА КАК База, НАЧИСЛЕНИЯБАЗАНАЧИСЛЕНИЯ.НОМЕРСТРОКИ КАК НОМЕРСТРОКИ

|ИЗ РЕГИСТРРАСЧЕТА.Начисления.БАЗАНАЧИСЛЕНИЯ(&ИЗМЕРЕНИЯОСНОВНОГО,&ИЗМЕРЕНИЯБАЗОВОГО,,Регистратор=&Регистратор И ВИДРАСЧЕТА=&ВИДРАСЧЕТА И Мастер В (&СПИСОКМАСТЕРОВ))

|КАК НАЧИСЛЕНИЯБАЗАНАЧИСЛЕНИЯ";

Измер=Новый Массив (1);

Измер[0]="Мастер";

Запрос.УСТАНОВИТЬПАРАМЕТР("ИЗМЕРЕНИЯОСНОВНОГО",Измер);

Запрос.УСТАНОВИТЬПАРАМЕТР("ИЗМЕРЕНИЯБАЗОВОГО",Измер);

Запрос.УСТАНОВИТЬПАРАМЕТР("Регистратор",Регистратор);

Запрос.УСТАНОВИТЬПАРАМЕТР("ВИДРАСЧЕТА",ТРЕБУЕМЫЙВИДРАСЧЕТА);

Запрос.УСТАНОВИТЬПАРАМЕТР("СПИСОКТРЕНЕРОВ",СПИСОКМАСТЕРОВ);

ВЫБОРКАРЕЗУЛЬТАТА=Запрос.Выполнить().Выбрать();

Для Каждого ЗАПИСЬРЕГИСТРА ИЗ НАБОРЗАПИСЕЙРЕГИСТРА Цикл

СТРУКТУРАНОМЕР=Новый Структура ("НОМЕРСТРОКИ");

СТРУКТУРАНОМЕР.НОМЕРСТРОКИ=ЗАПИСЬРЕГИСТРА.НОМЕРСТРОКИ;

ВЫБОРКАРЕЗУЛЬТАТА.Сбросить();

Если ВЫБОРКАРЕЗУЛЬТАТА.НАЙТИСЛЕДУЮЩИЙ(СТРУКТУРАНОМЕР) Тогда ЗАПИСЬРЕГИСТРА.Результат = ВЫБОРКАРЕЗУЛЬТАТА.База*(10/100);

Сообщить("Выполнен расчет" ЗАПИСЬРЕГИСТРА.Регистратор "-" ЗАПИСЬРЕГИСТРА.ВИДРАСЧЕТА "-" ЗАПИСЬРЕГИСТРА.Мастер,);

КОНЕЦЕСЛИ;

КОНЕЦЦИКЛА;

КОНЕЦЕСЛИ;

КОНЕЦПРОЦЕДУРЫ

1. Радченко М.Г. 1С:Предприятие 8.1 Практическое пособие разработчика. Электронное издание.

2. Севостьянов А.Д., Володина Е.В., Севостьянова Ю.М. 1С:Бухгалтерия 8.0 Практика применения

3. Габец А.П., Гончаров Д.И., Козырев Д.В., Кухлевский Д.С., Радченко М.Г. Профессиональная разработка в системе 1С: Предприятие 8

4. Габец А.П., Гончаров Д.И. Профессиональная разработка в системе 1С: Предприятие 8.0 Простые примеры разработки