Процедура СформироватьОк()
	Перем Запрос, ТекстЗапроса, Таб;
	//Создание объекта типа Запрос   
	
	Если ВыбНачПериода>ВыбКонПериода Тогда
		 ВыбНачПериода=ВыбКонПериода;
    КонецЕсли;

    Если ВыбконПериода>ПолучитьДатуТА() Тогда
		 ВыбконПериода=ПолучитьДатуТА();
	КонецЕсли;	 
	
    Тип=" (оказанные услуги)";
	Запрос = СоздатьОбъект("Запрос");
	ТекстЗапроса = 
	"//{{ЗАПРОС(Сформировать)
	|Период с ВыбНачПериода по ВыбКонПериода;
	|Услуга = Регистр.Услуги.Специалист.Родитель;
	|Категория = Регистр.Услуги.Категория;   
	|Док=Регистр.Услуги.ТекущийДокумент;   
	|ДатаОказания = Регистр.Услуги.ДатаОказания;
	|КолВо = Регистр.Услуги.КолВо;
	|Стоимость = Регистр.Услуги.Стоимость;
	|Функция ВсегоКолВо = Сумма(КолВо);
	|Функция ВсегоСумма = Сумма(Стоимость);          
	|Группировка Услуга без групп все вошедшиевзапрос;       	
	|Группировка Категория все вошедшиевзапрос;   
	|Группировка Док;
	|Условие (ДатаОказания>'01.01.80');
	|"//}}ЗАПРОС
	;
	// Если ошибка в запросе, то выход из процедуры
	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
		Возврат;
	КонецЕсли;  
                            
	// Заполнение полей "Заголовок"
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("Сформировать");
	Таб.ВывестиСекцию("Основа|Заголовок");
	Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);     
	
	Запрос.Группировка(1);
	Пока Запрос.Группировка(2)=1 Цикл     
		Таб.ПрисоединитьСекцию("Категория|Заголовок");
	КонецЦикла;	
	 
	Запрос.ВначалоВыборки();

	Пока Запрос.Группировка(1)=1 Цикл
		Таб.ВывестиСекцию("Основа|Подразделение");
	    Пока Запрос.Группировка(2)=1 Цикл     
			//Если Запрос.Услуга.ЭтоГруппа()=1 Тогда
			//	 Таб.ПрисоединитьСекцию("Категория|ПодразделениеГр");
			//Иначе	        
			    //Запрос.ВсегоКолВо;        


			   ВсегоСумма=Запрос.ВсегоСумма;
			
			   СД=СоздатьОбъект("СписокЗначений");	
			   ВсегоКолВо=0;
			   //Если ВсегоСумма>0 Тогда
				   Пока Запрос.Группировка(3)=1 Цикл       
				   	    Если Запрос.Док.Категория=Запрос.Категория Тогда
				   	      СД.ДобавитьЗначение(Запрос.Док);
				   		  ВсегоКолВо=ВсегоКолВо+1;
				   		КонецЕсли;  
				   КонецЦикла;	
			   //КонецЕсли;	 
			   //Кол=Запрос.ВсегоКолво;
		       Таб.ПрисоединитьСекцию("Категория|Подразделение");  
			   СД.УдалитьВсе();
			//КонецЕсли;	 
		КонецЦикла;	
	КонецЦикла;	
	Таб.ВывестиСекцию("Итого");
	Таб.ТолькоПросмотр(1);
	Таб.Показать("Анализ работы по внебюджету", "");
КонецПроцедуры