оки ТЗ.ПолучітьСтроку ()=1 Цикл
§ Співробітник=ТЗ.Сотруднік;
§ ОбщійДоход=ТЗ.ОбщійДоход;
§ Таб.ВивестіСекцію ( Співробітник );
§ ТЗ.Т.ВибратьСтрокі ();
§ Поки ТЗ.Т.ПолучітьСтроку ()=1 Цикл
· Клієнт=ТЗ.Т.Кліент;
· Послуга=ТЗ.Т.ВідиУслуг;
· Дохід=ТЗ.Т.Стоімость;
· Таб.ВивестіСекцію ( Клієнт );
§ КонецЦікла;
· КонецЦікла;
· ІтогоОбщійДоход=ТЗ.Ітог ( ОбщійДоход );
· Таб.ВивестіСекцію ( Разом );
· Таб.Опціі (0,0,4);
· Таб.ПараметриСтраніци (,,,,,,,,, 1 ,,);
· Таб.Показать ();
· Таб.ТолькоПросмотр (1);
· КонецПроцедури
Додаток 2
Звіт «відомості про заявки»
Модуль:
· Процедура Сформувати ()
· Запит=СоздатьОб'ект ( Запит );
· Якщо ((ПустоеЗначеніе (НачДата)=1) АБО (ПустоеЗначеніе (КонДата)=1)) Тоді
§ Попередження ( Чи не задані початкова або кінцева дата! );
§ Повернення;
· КонецЕсли;
· ТекстЗапроса=
·"
· | Період з НачДата по КонДата;
· |
· | Обробляти НеПомеченниеНаУдаленіе;
· | ОбрабативатьДокументи непроведення;
· |
· | Док=Документ.Заявка.ТекущійДокумент;
· | Співробітник=Документ.Заявка.Сотруднік;
· | Клієнт=Документ.Заявка.Кліент;
· | ВідиУслуг=Документ.Заявка.ВідиУслуг;
· | ВремяРаботи=Документ.Заявка.ВремяРаботи;
· | ДатаЗапісі=Документ.Заявка.Дата;
· |
· |
· | Умова (Сотрудник в ВибСотруднік);
· |
· | Угруповання Співробітник;
· | Угруповання Клієнт;
· |" ;
· Якщо Запрос.Виполніть (ТекстЗапроса)=0 Тоді
§ Повідомити ( Запит нен !!! );
· КонецЕсли;
· ТЗ=СоздатьОб'ект ( ТабліцаЗначеній );
· ТЗ.НоваяКолонка ( Док );
· ТЗ.НоваяКолонка ( Співробітник );
· ТЗ.НоваяКолонка ( Т );
· Поки Запрос.Группіровка (1)=1 Цикл
§//Якщо Запрос.Док.ПометкаУдаленія ()=1 Тоді Продовжити КонецЕсли;
§ Співробітник=Запрос.Сотруднік;
§ ТЗ.НоваяСтрока ();
§ ТЗ.Сотруднік=Співробітник;
§ ТЗ.Т=СоздатьОб'ект ( ТабліцаЗначеній );
§ ТЗ.Т.НоваяКолонка ( Клієнт );
§ ТЗ.Т.НоваяКолонка ( ВремяРаботи );
§ ТЗ.Т.НоваяКолонка ( ДатаЗапісі );
§ ТЗ.Т.НоваяКолонка ( ВідиУслуг );
§ Поки Запрос.Группіровка (2)=1 Цикл
· Клієнт=Запрос.Кліент;
· ВремяРаботи=Запрос.ВремяРаботи;
· ВідиУслуг=Запрос.ВідиУслуг;
· ДатаЗапісі=Запрос.ДатаЗапісі;
· ТЗ.Т.НоваяСтрока ();
· ТЗ.Т.Кліент=Клієнт;
· ТЗ.Т.ВремяРаботи=ВремяРаботи;
· ТЗ.Т.ДатаЗапісі=ДатаЗапісі;
· ТЗ.Т.ВідиУслуг=ВідиУслуг;
§ КонецЦікла;
· КонецЦікла;
· Таб=СоздатьОб'ект ( Таблиця );
· Таб.ВивестіСекцію ( Шапка );
· ТЗ.ВибратьСтрокі ();
· Поки ТЗ.ПолучітьСтроку ()=1 Цикл
§ Співробітник=ТЗ.Сотруднік;
§ Таб.ВивестіСекцію ( Співробітник );
§ ТЗ.Т.ВибратьСтрокі ();
§ Поки ТЗ.Т.ПолучітьСтроку ()=1 Цикл
· Клієнт=ТЗ.Т.Кліент;
· Послуга=ТЗ.Т.ВідиУслуг;
· ВремяРаботи=ТЗ.Т.ВремяРаботи;
· ДатаЗапісі=ТЗ.Т.ДатаЗапісі;
· Таб.ВивестіСекцію ( Клієнт );
§ К...