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

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

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

Додаток 5

Звіт «відомості про сплачені заявках»

Модуль:

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

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

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

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

· КонецЕсли;

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

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

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

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

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

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

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

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

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

o Позначка= + raquo ;;

o Перервати;

· Інакше

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

· КонецЕсли;

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

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

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

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

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

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

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

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

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

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

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

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