Реферат Автоматизований облік послуг в салоні краси

онецЦікла;

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

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

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

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

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

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

Додаток 3

Звіт «графік»

Модуль:

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

· Спр=СоздатьОб'ект ( Справочник.Сотрудники );

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

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

§ Якщо (ПустоеЗначеніе (ВибДата)=1) Тоді

§ Попередження ( Чи не задана дата! );

§ Повернення;

· КонецЕсли;

· Спр.ВибратьЕлементи ();

· Поки Спр.ПолучітьЕлемент ()=1 Цикл

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

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

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

§ Співробітник=ТекЕл.Наіменованіе;

§ Таб.ВивестіСекцію ( Співробітник );

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

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

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

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

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

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

o Якщо (((Док.ПометкаУдаленія ()=0) І (Рядок (Док.ВремяРаботи)=СпрВремя.Наіменованіе)) І (Док.Дата=ВибДата) І (Рядок (Док.Сотруднік )=Співробітник)) Тоді

§ Позначка=Док.Кліент;

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

§ Перервати;

o Інакше

§ Позначка= raquo ;;

§ Послуга= raquo ;;

o КонецЕсли;

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

· Таб.ВивестіСекцію ( Час );

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

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

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

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

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

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

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

Додаток 4

Звіт «відомості про послуги»

Модуль:

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

· Запит=СоздатьОб'ект ( Запит );

· Якщо ((ПустоеЗначеніе (НачДата)=1) АБО (ПустоеЗначеніе (КонДата)=1)) Тоді

§ Попередження ( Чи не задані початкова або кінцева дата! );

§ Повернення;

· КонецЕсли;

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

·"

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

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

· |

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

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

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

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

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

· |

· | Функція Сум=Сума (Вартість);

· |

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

· |

· | Угруповання ВідиУслуг;

· |" ;

· Якщо Запрос.Виполніть (ТекстЗапроса)=0 Тоді

§ Повідомити ( Запит не !!! );

· КонецЕсли;

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

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

· ТЗ.НоваяКолонка ( Співробітник );

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

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

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

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

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

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

§ Таб.ВивестіСекцію ( Послуга );

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

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

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

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

...