Разработка автоматизированной информационной системы работы спа-салона "Luxury-Spa" - Программирование, компьютеры и кибернетика отчет по практике
Главная
Программирование, компьютеры и кибернетика
Разработка автоматизированной информационной системы работы спа-салона "Luxury-Spa"
Создание электронных справочников абонементов, услуг, косметики, которая используется в спа-салоне, посетителей и мастеров. Описание алгоритма для продажи абонемента, покупки косметики. Организация регистра бухгалтерии и расчета заработной платы.
посмотреть текст работы
скачать работу можно здесь
полная информация о работе
весь список подобных работ
Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
2. Разработка автоматизированной информационной системы
2.4 Создание плана видов характеристик
Создать конфигурацию, предназначенную для автоматизации работы спа-салона "Luxury-Spa".
Создать справочники видов абонементов, видов услуг, натуральной косметики, которая используется в спа-салоне, ее характеристик, а так же клиентов - посетителей и мастеров, работающих в спа-салоне. Создать документы для реализации следующих возможностей: продажа абонемента и определение индивидуальной программы оказания услуг для каждого клиента, посещение занятий, а так же учет покупки косметики и списание. Предусмотреть документ для расчета заработной платы мастеров. Создать регистры сведений, содержащих информацию о ценах на тот или иной тип абонемента, вид самой услуги, а так же о ценах на натуральную косметику; регистры накопления - для отслеживания и обновления информации о продаже абонементов, покупке - списании косметики, посещаемости клиентов. Для учета бухгалтерии организации создать регистр бухгалтерии, а в помощь для начисления заработной платы сотрудникам - план видов расчета и регистр расчета. В отчетах должна выводиться итоговая информация: доходы от продаж, расходы при покупке, рейтинги по различным критериям, зарплата работников, а так же справочная информация для потенциальных клиентов спа-салона "Luxury-Spa".
2. Разработка автоматизированной информационной системы
Требуется создать следующие объекты:
Владелец: ПланВидовХарактеристик.ВидыСубконто
Периодический регистр "ЦеныАбонементов"
Связанная с ним функция общего модуля ОбщегоНазначения:
Функция ЦенаАбонемента(АктуальнаяДата, ЭлементАбонементов) Экспорт
Отбор = Новый Структура("ВидАбонемента", ЭлементАбонементов);
ЗначенияРесурсов = РегистрыСведений.ЦеныАбонементов.ПолучитьПоследнее(АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов.БазоваяЦена;
Периодический регистр "ЦеныВидыУслуг"
Связанная с ним функция общего модуля ОбщегоНазначения:
Функция ЦенаВидаУслуги (АктуальнаяДата, ЭлементВидовУслуг) Экспорт
Отбор = Новый Структура("ВидУслуги", ЭлементВидовУслуг);
ЗначенияРесурсов = РегистрыСведений.ЦеныВидыУслуги.ПолучитьПоследнее(АктуальнаяДата, Отбор);
Периодический регистр "ЦеныКосметика"
Связанная с ним функция общего модуля ОбщегоНазначения:
Функция ЦенаКосметика (АктуальнаяДата, ЭлементКосметики) Экспорт
Отбор = Новый Структура("Косметика", ЭлементКосметики);
ЗначенияРесурсов = РегистрыСведений.ЦеныКосметика.ПолучитьПоследнее(АктуальнаяДата, Отбор);
Реквизиты табличной части "Покупка"
Связанные с ним функции общего модуля ОбщегоНазначения:
Процедура РассчитатьИтог(СтрокаТабличнойЧасти) Экспорт
СтрокаТабличнойЧасти.ИтоговаяСтоимость =СтрокаТабличнойЧасти.ЦенаВида+СтрокаТабличнойЧасти.ЧислоПосещений*СтрокаТабличнойЧасти.БазЦена;
Функция ЧислоПосещений(АктуальнаяДата, ЭлементАбонементов) Экспорт
Отбор = Новый Структура("ВидАбонемента", ЭлементАбонементов);
ЗначенияРесурсов = РегистрыСведений.ЦеныАбонементов.ПолучитьПоследнее(АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов.ЧислоПосещений;
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Для Каждого ТекСтрокаПокупка Из Покупка Цикл
Движение = Движения.Посещаемость.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.ОсталосьЗанятий = ТекСтрокаПокупка.ЧислоПосещений;
Для Каждого ТекСтрокаПокупка Из Покупка Цикл
Движение = Движения.Бухгалтерия.Добавить();
Движение.СчетДт = ПланыСчетов.Основной.Товары;
Движение.СчетКт = ПланыСчетов.Основной.РасчетыСПоставщиками;
Движение.Сумма = ТекСтрокаПокупка.ИтоговаяСтоимость;
Движение.КоличествоДт = ТекСтрокаПокупка.ЧислоПосещений;
Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Косметика] = ТекСтрокаПокупка.ТипАбонемента;
Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Абонементы] = ТекСтрокаПокупка.ТипАбонемента;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
Процедура ПокупкаТипАбонементаПриИзменении(Элемент)
// Вставить содержимое обработчика.
СтрокаТабличнойЧасти = ЭлементыФормы.Покупка.ТекущиеДанные;
СтрокаТабличнойЧасти.БазЦена=ОбщегоНазначения.ЦенаАбонемента(Дата, Элемент.Значение);
СтрокаТабличнойЧасти.ЧислоПосещений=ОбщегоНазначения.ЧислоПосещений(Дата, Элемент.Значение);
//ЦенаАбонемента(Дата, Элемент.Значение);
Процедура ПокупкаВидУслугиПриИзменении(Элемент)
// Вставить содержимое обработчика.
СтрокаТабличнойЧасти = ЭлементыФормы.Покупка.ТекущиеДанные;
СтрокаТабличнойЧасти.ЦенаВида=ОбщегоНазначения.ЦенаВидаУслуги(Дата, Элемент.Значение);
Реквизиты табличной части "Посещение"
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Для Каждого ТекСтрокаПосещение Из Посещение Цикл
Движение = Движения.Посещаемость.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.ОсталосьЗанятий = ТекСтрокаПосещение.Значение;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
Реквизиты табличной части "Косметика"
Процедура ОбработкаПроведения(Отказ, Режим)
Для Каждого ТекСтрокаКосметика Из Косметика Цикл
Движение = Движения.Косметика.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Косметика = ТекСтрокаКосметика.Косметика;
Движение.Количество = ТекСтрокаКосметика.Количество;
Для Каждого ТекСтрокаКосметика Из Косметика Цикл
Движение = Движения.Бухгалтерия.Добавить();
Движение.СчетДт = ПланыСчетов.Основной.Товары;
Движение.СчетКт = ПланыСчетов.Основной.РасчетыСПоставщиками;
Движение.Сумма = ТекСтрокаКосметика.Сумма;
Движение.КоличествоДт = ТекСтрокаКосметика.Количество;
Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Косметика] = ТекСтрокаКосметика.Косметика;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
Процедура КосметикаКоличествоПриИзменении(Элемент)
// Вставить содержимое обработчика.
СтрокаТабличнойЧасти = ЭлементыФормы.Косметика.ТекущиеДанные;
ОбщегоНазначения.РассчитатьСумму(СтрокаТабличнойЧасти);
Процедура КосметикаЦенаПриИзменении(Элемент)
// Вставить содержимое обработчика.
СтрокаТабличнойЧасти = ЭлементыФормы.Косметика.ТекущиеДанные;
ОбщегоНазначения.РассчитатьСумму(СтрокаТабличнойЧасти);
Процедура КосметикаКосметикаПриИзменении(Элемент)
// Вставить содержимое обработчика.
СтрокаТабличнойЧасти = ЭлементыФормы.Косметика.ТекущиеДанные;
СтрокаТабличнойЧасти.Цена = ОбщегоНазначения.ЦенаКосметика (Дата, Элемент.Значение);
ОбщегоНазначения.РассчитатьСумму(СтрокаТабличнойЧасти);
Связанная с ним функция общего модуля ОбщегоНазначения:
Процедура РассчитатьСумму(СтрокаТабличнойЧасти) Экспорт
СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.Цена*СтрокаТабличнойЧасти.Количество;
Реквизиты табличной части "Списание"
Процедура ОбработкаПроведения(Отказ, Режим)
Для Каждого ТекСтрокаСписание Из Списание Цикл
Движение = Движения.Косметика.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Косметика = ТекСтрокаСписание.Косметика;
Движение.Количество = ТекСтрокаСписание.Количество;
Для Каждого ТекСтрокаСписание Из Списание Цикл
Движение = Движения.Бухгалтерия.Добавить();
Движение.СчетДт = ПланыСчетов.Основной.ДебиторскаяЗадолженность;
Движение.СчетКт = ПланыСчетов.Основной.Капитал;
Движение.Сумма = ТекСтрокаСписание.Сумма;
Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Клиенты] = ТекСтрокаСписание.Косметика;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
ОбновитьДатуДвижений=ЭтоНовый() ИЛИ
Движения.Косметика.Модифицированность();
Запрос.УстановитьПараметр("ТекущийДокумент", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбновитьДатуДвижений=Выборка.Дата <> Дата;
Если Не Движения.Косметика.Выбран() И
Не Движения.Косметика.Модифицированность() Тогда
Для Каждого ЗаписьРегистра Из Движения.Косметика Цикл
Реквизиты табличной части "Начисления"
ПланВидовРасчетаСсылка.ОсновныеНачисления
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Для Каждого ТекСтрокаНачисления Из Начисления Цикл
Движение = Движения.Начисления.Добавить();
Движение.ВидРасчета = ТекСтрокаНачисления.ВидРасчета;
Движение.ПериодДействияНачало = ТекСтрокаНачисления.ДатаНачала;
Движение.ПериодДействияКонец = ТекСтрокаНачисления.ДатаНачала;
Движение.ПериодРегистрации = ТекСтрокаНачисления.ДатаНачала;
Движение.БазовыйПериодНачало = ТекСтрокаНачисления.ДатаНачала;
Движение.БазовыйПериодКонец = ТекСтрокаНачисления.ДатаНачала;
Движение.Мастер = ТекСтрокаНачисления.Мастер;
Движение.Результат = ТекСтрокаНачисления.Результат;
Движение.ГрафикРаботы = ТекСтрокаНачисления.ГрафикРаботы;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
|ЗарплатаНачисления.Ссылка=&ТекущийДокумент");
Запрос.УстановитьПараметр("ТекущийДокумент", Ссылка);
ТаблЗнач=Запрос.Выполнить().Выгрузить();
МассивМастеров=ТаблЗнач.ВыгрузитьКолонку("Мастер");
СписокМастеров=Новый СписокЗначений;
СписокМастеров.ЗагрузитьЗначения(МассивМастеров);
ОбщегоНазначения.РасчитатьНачисления(Движения.Начисления, ПланыВидовРасчета.ОсновныеНачисления.Оклад, СписокМастеров);
ОбщегоНазначения.РасчитатьНачисления(Движения.Начисления, ПланыВидовРасчета.ОсновныеНачисления.Премия, СписокМастеров);
Связанная с документом процедура общего модуля ОбщегоНазначения
Процедура РасчитатьНачисления(НаборЗаписейРегистра,ТребуемыйВидРасчета,СписокМастеров) Экспорт
Регистратор=НаборЗаписейРегистра.Отбор.Регистратор.Значение;
Если ТребуемыйВидРасчета=ПланыВидовРасчета.ОсновныеНачисления.Оклад Тогда
"ВЫБРАТЬ НачисленияДанныеГрафика.ЗначениеПериодДействия КАК Норма, НачисленияДанныеГрафика.ЗначениеФактическийПериодДействия КАК Факт,
|НачисленияДанныеГрафика.НомерСтроки КАК НомерСтроки
|ИЗ РегистрРасчета.Начисления.ДанныеГрафика(Регистратор=&Регистратор И ВидРасчета=&ВидРасчета И Мастер В (&СписокМастеров))
Запрос.УстановитьПараметр("Регистратор",НаборЗаписейРегистра.Отбор.Регистратор.Значение);
Запрос.УстановитьПараметр("ВидРасчета",ТребуемыйВидРасчета);
Запрос.УстановитьПараметр("СписокМастеров",СписокМастеров);
ВыборкаРезультата=Запрос.Выполнить().Выбрать();
Для Каждого ЗаписьРегистра ИЗ НаборЗаписейРегистра Цикл
СтруктураНомер=Новый Структура ("НомерСтроки");
СтруктураНомер.НомерСтроки=ЗаписьРегистра.НомерСтроки;
Если ВыборкаРезультата.НайтиСледующий(СтруктураНомер) Тогда
Если ВыборкаРезультата.Норма = 0 Тогда
Сообщить ("Вид расчета: Оклад - Нет рабочих дней в заданном периоде",);
ЗаписьРегистра.Результат =(ЗаписьРегистра.ИсходныеДанные/ВыборкаРезультата.Норма)*ВыборкаРезультата.Факт;
Сообщить("Выполнен расчет"+ЗаписьРегистра.Регистратор+" - "+ЗаписьРегистра.ВидРасчета+" - "+ЗаписьРегистра.Мастер,);
ИначеЕсли ТребуемыйВидРасчета=ПланыВидовРасчета.ОсновныеНачисления.Премия
"ВЫБРАТЬ НачисленияБазаНачисления.РезультатБаза КАК База, НачисленияБазаНачисления.НомерСтроки КАК НомерСтроки
|ИЗ РегистрРасчета.Начисления.БазаНачисления(&ИзмеренияОсновного,&ИзмеренияБазового,,Регистратор=&Регистратор И ВидРасчета=&ВидРасчета И Мастер В (&СписокМастеров))
Запрос.УстановитьПараметр("ИзмеренияОсновного",Измер);
Запрос.УстановитьПараметр("ИзмеренияБазового",Измер);
Запрос.УстановитьПараметр("Регистратор",Регистратор);
Запрос.УстановитьПараметр("ВидРасчета",ТребуемыйВидРасчета);
Запрос.УстановитьПараметр("СписокТренеров",СписокМастеров);
ВыборкаРезультата=Запрос.Выполнить().Выбрать();
Для Каждого ЗаписьРегистра ИЗ НаборЗаписейРегистра Цикл
СтруктураНомер=Новый Структура ("НомерСтроки");
СтруктураНомер.НомерСтроки=ЗаписьРегистра.НомерСтроки;
Если ВыборкаРезультата.НайтиСледующий(СтруктураНомер) Тогда
ЗаписьРегистра.Результат = ВыборкаРезультата.База*(10/100);
Сообщить("Выполнен расчет"+ЗаписьРегистра.Регистратор+"-"+ЗаписьРегистра.ВидРасчета+"-"+ЗаписьРегистра.Мастер,);
2.4 Создание плана видов характеристик
План видов характеристик "ВидыСубконто"
Дополнительные значения характеристик
Виды Субконто: План видов характеристик "ВидыСубконто"
Зависимость от базы: зависит по периоду действия
Базовый план видов расчета: ОсновныеНачисления
Число, длина 15; Признак учета Количественный, Признак учета субконто Количественный
ПланВидовРасчета: ОсновныеНачисления
СправочникСсылка.Расписание; связь с графиком Группы
В обработке отображены все необходимые для работы объекты: справочники, документы, некоторые регистры, а так же имеются макеты для отчетов.
Процедура СформироватьОтчетПоПосещаемости(ТабДок) Экспорт
Макет = ПолучитьМакет("Посещаемость");
| ПосещаемостьОстаткиИОбороты.Клиент.Представление,
| ПосещаемостьОстаткиИОбороты.ОсталосьЗанятийПриход,
| ПосещаемостьОстаткиИОбороты.ОсталосьЗанятийРасход,
|ПосещаемостьОстаткиИОбороты.ОсталосьЗанятийКонечныйОстаток
| РегистрНакопления.Посещаемость.ОстаткиИОбороты КАК ПосещаемостьОстаткиИОбороты";
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаДетали = Результат.Выбрать();
Пока ВыборкаДетали.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
Процедура СформироватьОтчетПоЗарплате (ТабДок) Экспорт
Макет = ПолучитьМакет("Начисления");
| Начисления.Мастер.Представление КАК Мастер,
| ПРЕДСТАВЛЕНИЕ(Начисления.ВидРасчета) КАК ВидРасчета,
| Начисления.ПериодДействияНачало КАК Начало,
| Начисления.ПериодДействияКонец КАК Конец,
| Начисления.Регистратор.Представление КАК Регистратор,
| Начисления.Результат КАК Результат
| РегистрРасчета.Начисления КАК Начисления
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьОбщийИтог = Макет.ПолучитьОбласть("ОбщиеИтоги");
ОбластьМастер = Макет.ПолучитьОбласть("Мастер");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаОбщийИтог = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
ВыборкаОбщийИтог.Следующий(); // Общий итог
ОбластьОбщийИтог.Параметры.Заполнить(ВыборкаОбщийИтог);
ТабДок.Вывести(ОбластьОбщийИтог, ВыборкаОбщийИтог.Уровень());
ВыборкаТренер = ВыборкаОбщийИтог.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаМастер.Следующий() Цикл
ОбластьМастер.Параметры.Заполнить(ВыборкаМастер);
ТабДок.Вывести(ОбластьМастер, ВыборкаМастер.Уровень());
ВыборкаДетали = ВыборкаМастер.Выбрать();
Пока ВыборкаДетали.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
Процедура СформироватьУслуги(ТабДок) Экспорт
| ПРЕДСТАВЛЕНИЕ(ОформлениеАбонемента.Клиент),
| ПРЕДСТАВЛЕНИЕ(ОформлениеАбонемента.Мастер),
| Документ.ОформлениеАбонемента КАК ОформлениеАбонемента";
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ПокупкаОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ПокупкаШапкаТаблицы");
ПокупкаОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПокупкаПодвалТаблицы");
ПокупкаОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("ПокупкаДетали");
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаДетали = Результат.Выбрать();
Пока ВыборкаДетали.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());
ТабДок.Вывести(ПокупкаОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ПокупкаВыборкаДетали = ВыборкаДетали.Покупка.Выбрать();
Пока ПокупкаВыборкаДетали.Следующий() Цикл
ПокупкаОбластьДетальныхЗаписей.Параметры.Заполнить(ПокупкаВыборкаДетали);
ТабДок.Вывести(ПокупкаОбластьДетальныхЗаписей, ПокупкаВыборкаДетали.Уровень());
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ПокупкаОбластьПодвалТаблицы);
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
Процедура ОборотноСальдоваяВедомостьСформировать (ТабДок) Экспорт
Макет = ПолучитьМакет("ОборотноСальдоваяВедомость");
|БухгалтерияОстаткиИОбороты.СуммаНачальныйРазвернутыйОстатокДт КАК СальдоНачДт,
|БухгалтерияОстаткиИОбороты.СуммаНачальныйРазвернутыйОстатокКт КАК СальдоНачКт,
| БухгалтерияОстаткиИОбороты.СуммаОборотДт КАК ОборотДт,
| БухгалтерияОстаткиИОбороты.СуммаОборотКт КАК ОборотКт,
|БухгалтерияОстаткиИОбороты.СуммаКонечныйРазвернутыйОстатокДт КАК СальдоКонДт,
|БухгалтерияОстаткиИОбороты.СуммаКонечныйРазвернутыйОстатокКт КАК СальдоКонКт
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Бухгалтерия.ОстаткиИОбороты КАК БухгалтерияОстаткиИОбороты
| ПО БухгалтерияОстаткиИОбороты.Счет = Основной.Ссылка
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьОбщийИтог = Макет.ПолучитьОбласть("ОбщиеИтоги");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаОбщийИтог = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
ВыборкаОбщийИтог.Следующий(); // Общий итог
ОбластьОбщийИтог.Параметры.Заполнить(ВыборкаОбщийИтог);
ТабДок.Вывести(ОбластьОбщийИтог, ВыборкаОбщийИтог.Уровень());
ВыборкаДетали = ВыборкаОбщийИтог.Выбрать();
Пока ВыборкаДетали.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
Процедура Косметика(ТабДок) Экспорт
Макет = ПолучитьМакет("Косметика");
| КосметикаОстаткиИОбороты.Косметика,
| ПРЕДСТАВЛЕНИЕ(КосметикаОстаткиИОбороты.Косметика),
| КосметикаОстаткиИОбороты.КоличествоНачальныйОстаток КАК КоличествоНачальныйОстаток,
| КосметикаОстаткиИОбороты.КоличествоПриход,
| КосметикаОстаткиИОбороты.КоличествоРасход,
| КосметикаОстаткиИОбороты.КоличествоКонечныйОстаток
| РегистрНакопления.Косметика.ОстаткиИОбороты КАК КосметикаОстаткиИОбороты
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаДетали = Результат.Выбрать();
Пока ВыборкаДетали.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
Процедура СформироватьВидыУслуг (ТабДок)Экспорт
Макет = ПолучитьМакет("ВидыУслуг");
| ЦеныВидыУслугСрезПоследних.ЦенаВида
| РегистрСведений.ЦеныВидыУслуг.СрезПоследних КАК ЦеныВидыУслугСрезПоследних
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыУслуг КАК ВидыУслуг
| ПО ЦеныВидыУслугСрезПоследних.ВидУслуги = ВидыУслуг.Ссылка";
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаДетали = Результат.Выбрать();
Пока ВыборкаДетали.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
НачПериод = ТекущаяДата() - 604800;
ЭлементыФормы.Диаграмма.Видимость=Ложь;
ЭлементыФормы.ДиаграммаГанта.Видимость=Ложь;
ЭлементыФормы.ПолеТабличногоДокумента1.Очистить();
ЭлементыФормы.Диаграмма.Видимость=Ложь;
ЭлементыФормы.ДиаграммаГанта.Видимость=Ложь;
СформироватьОтчетПоПосещаемости(ЭлементыФормы.ПолеТабличногоДокумента1);
ЭлементыФормы.ПолеТабличногоДокумента1.ТолькоПросмотр = Истина;
ЭлементыФормы.ПолеТабличногоДокумента1.Очистить();
ЭлементыФормы.Диаграмма.Видимость=Ложь;
ЭлементыФормы.ДиаграммаГанта.Видимость=Ложь;
Косметика(ЭлементыФормы.ПолеТабличногоДокумента1);
ЭлементыФормы.ПолеТабличногоДокумента1.ТолькоПросмотр = Истина;
ЭлементыФормы.ПолеТабличногоДокумента1.Очистить();
ЭлементыФормы.Диаграмма.Видимость=Ложь;
ЭлементыФормы.ДиаграммаГанта.Видимость=Ложь;
СформироватьОтчетПоЗарплате (ЭлементыФормы.ПолеТабличногоДокумента1);
ЭлементыФормы.ПолеТабличногоДокумента1.ТолькоПросмотр=Истина;
ЭлементыФормы.ПолеТабличногоДокумента1.Очистить();
ЭлементыФормы.Диаграмма.Видимость =Истина;
ЭлементыФормы.ДиаграммаГанта.Видимость=Ложь;
| ПосещаемостьОбороты.Клиент.Представление КАК Клиент,
| ПосещаемостьОбороты.ОсталосьЗанятийРасход КАК Посещаемость
| РегистрНакопления.Посещаемость.Обороты КАК ПосещаемостьОбороты
ЭлементыФормы.Диаграмма.ИсточникДанных=Запрос.Выполнить().Выгрузить();
ПолеВыбора=ТипДиаграммы.ГистограммаОбъемная;
ЭлементыФормы.ПолеТабличногоДокумента1.Очистить();
ЭлементыФормы.Диаграмма.Видимость=Ложь;
ЭлементыФормы.ДиаграммаГанта.Видимость=Ложь;
СформироватьУслуги(ЭлементыФормы.ПолеТабличногоДокумента1);
ЭлементыФормы.ПолеТабличногоДокумента1.ТолькоПросмотр = Истина;
ЭлементыФормы.ПолеТабличногоДокумента1.Очистить();
ЭлементыФормы.Диаграмма.Видимость=Ложь;
ЭлементыФормы.ДиаграммаГанта.Видимость=Ложь;
ОборотноСальдоваяВедомостьСформировать (ЭлементыФормы.ПолеТабличногоДокумента1);
ЭлементыФормы.ПолеТабличногоДокумента1.ТолькоПросмотр=Истина;
ЭлементыФормы.ПолеТабличногоДокумента1.Очистить();
ЭлементыФормы.Диаграмма.Видимость=Ложь;
ЭлементыФормы.ДиаграммаГанта.Видимость=Ложь;
СформироватьВидыУслуг(ЭлементыФормы.ПолеТабличногоДокумента1);
ЭлементыФормы.ПолеТабличногоДокумента1.ТолькоПросмотр=Истина;
Расчет начисления заработной платы по профессиям и в целом по заводу путем накопления начисленных сумм заработной платы для каждого работника. Выполнение информационной модели задачи. Описание алгоритма решения задачи. Решение задачи средствами MS Access. лабораторная работа [4,2 M], добавлен 27.10.2009
Разработка автоматизированной системы учета приема товара, поиска поставщиков и подсчета выручки для магазина косметики. Структура таблиц и связей между ними, индексы и ограничения. Справочная система, руководство пользователя, тестирование приложения. курсовая работа [1,0 M], добавлен 04.11.2012
Анализ информационной системы салона сотовой связи. Разработка модели бизнес-процессов учебной информационной системы. Создание справочников и их заполнение, документов и их программного кода. Порядок разработки регистров, трех видов планов и отчетов. курсовая работа [1,4 M], добавлен 05.06.2013
Описание салона-магазина по предоставлению услуг оператора мобильной связи. Обоснование создания автоматизированной информационной системы "Оператор". Выбор программного обеспечения, проектирование реляционной базы данных. Описание основ интерфейса. дипломная работа [1,9 M], добавлен 27.05.2015
Теоретические основы проектирования информационной системы и базы данных. Проектирование информационной системы "Автоматизация учета торговых операций в автомобильном салоне". Методология SADT и DFD, описание IDEF0-модели. Разработка форм приложения. курсовая работа [2,8 M], добавлен 15.04.2015
Создание информационной системы для фирмы "Удача", которая является посредником при перепродаже недвижимости. Обоснование состава вычислительной техники и программного обеспечения для функционирования данной автоматизированной информационной системы. курсовая работа [1,8 M], добавлен 17.02.2014
Выбор программного обеспечения для разработки интерфейса информационной системы. Создание базы данных для расчета заработной платы сотрудникам средне-специальных учебных заведений, создание выходной информации в виде отчетов, установочного файла. дипломная работа [2,4 M], добавлен 11.04.2010
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .
© 2000 — 2021
Разработка автоматизированной информационной системы работы спа-салона "Luxury-Spa" отчет по практике. Программирование, компьютеры и кибернетика.
Отчет По Практике На Тему Управление Предприятием Ооо "Соты Новосибирского Облпотребсоюза"
Реферат: Дыхание. Скачать бесплатно и без регистрации
Нормирование Оборотных Средств Курсовая Работа
Сочинение На Тему Школьная Газета
Доклад: Понятия и виды рабочего времени
Левитан Золотая Осень Сочинение 8 Класс
Реферат: Демокрит. Скачать бесплатно и без регистрации
Курсовая работа: Технология обслуживания пассажиров в аэропортах
Сочинение Про Синонимы
Курсовая работа: Переміщення через митний кордон України товарів, що містять об’єкти права інтелектуальної власності
Реферат: Зарождение марксизма и его сущность
Реферат: How American Music Has Changed Over The
Реферат: Сущность инвестиций, их основные классификации и структура
Отчет по практике по теме Понятие мировой цены и виды контрактных цен
Заказать Курсовую Работу В Тюмени
Образ Руси В Поэзии Блока Сочинение
Реферат по теме Концепция реформ Дж. Коммонса
Курсовые работы: Педагогика
Реферат На Тему Транскордонні Банкрутства: Проблеми І Шляхи Розвязання
Курсовая работа по теме Сбербанк России и его кредитная политика
Садово-парковое искусство Японии - Культура и искусство курсовая работа
Учетная политика ООО "Хатасский свинокомплекс" - Бухгалтерский учет и аудит отчет по практике
Искусственная почка - Медицина презентация