Материал: Автоматизированный учет услуг в салоне красоты

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

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

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

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

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

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

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

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

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

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

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

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

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

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

§  Прервать;

o   Иначе

§  Пометка = "";

§  Услуга = "";

o   КонецЕсли;

·        КонецЦикла;

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

§  КонецЦикла;

·        КонецЦикла;

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

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

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

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

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

Приложение 4

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

Модуль:

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

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

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

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

§  Возврат;

·        КонецЕсли;

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

·        "

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

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

·        |

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

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

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

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

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

·        |

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

·        |

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

·        |

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

·        |";

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

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

·        КонецЕсли;

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

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

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

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

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

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

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

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

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

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

·        КонецЦикла;

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

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

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

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

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

Приложение 5

Отчет «сведения об оплаченных заявках»

Модуль:

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

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

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

§  Возврат;

·        КонецЕсли;

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

·        ДокОплата = СоздатьОбъект("Документ.Оплата");

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

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

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

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

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

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

·        Если ((ДокЗаявка.Сотрудник = ДокОплата.Сотрудник) И (ДокЗаявка.Клиент = ДокОплата.Клиент) И (ДокЗаявка.ВидыУслуг = ДокОплата.ВидыУслуг)) Тогда

o   Пометка = "+";

o   Прервать;

·        Иначе

o   Пометка = "";

·        КонецЕсли;

§  КонецЦикла;

§  Заявка        = ДокЗаявка;

§  Сотрудник = ДокЗаявка.Сотрудник;

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

§  ДатаЗаписи = ДокЗаявка.Дата;

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

·        КонецЦикла;

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

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

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

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

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