// Процедура формирования отчета
//
Процедура СформироватьОтчет(ТабличныйДокумент) Экспорт
	
	Если НЕ ЗначениеЗаполнено(УниверсальныйОтчет.ДатаКон) Тогда 
		УниверсальныйОтчет.ДатаКон = ТекущаяДата();
	КонецЕсли;
	
	// Перед формирование отчета можно установить необходимые параметры универсального отчета.
	УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаОтчета", КонецДня(УниверсальныйОтчет.ДатаКон));
	УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаНеделяНазад", УниверсальныйОтчет.ДатаКон-(86400*7));


	//УстановитьИнтервалыЗапроса();
	
	УниверсальныйОтчет.СформироватьОтчет(ТабличныйДокумент);
	
	// ДОБАВЛЕННЫЙ КОД - чистит итоги в нужных ячейках
	Для а = 11 по ТабличныйДокумент.ВысотаТаблицы Цикл
		//Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; 
		текстЯчейка = ТабличныйДокумент.Область("R"+а+"C2").Текст; 
		Если Строка(ТабличныйДокумент.Область("R"+а+"C2").ЦветФона)="стиль: Фон кнопки" Тогда
			ТабличныйДокумент.Область("R"+а+"C7").Текст="";
			ТабличныйДокумент.Область("R"+а+"C11").Текст="";	
			ТабличныйДокумент.Область("R"+а+"C8").Текст=""; 		
			ТабличныйДокумент.Область("R"+а+"C9").Текст=""; 		
			ТабличныйДокумент.Область("R"+а+"C10").Текст=""; 			
		КонецЕсли;		
	КонецЦикла;
КонецПроцедуры // СформироватьОтчет()   

 Запрос = Новый Запрос; 
Запрос.Текст = " 
|ВЫБРАТЬ 
|	ХозрасчетныйОстатки.Субконто1, 
|	ХозрасчетныйОстатки.Организация, 
|	ХозрасчетныйОстатки.СуммаОстаток, 
|	ХозрасчетныйОстатки.КоличествоОстаток 
|ИЗ 
|	РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет = &Счет, , ) КАК ХозрасчетныйОстатки"; 

Запрос.УстановитьПараметр("Период", КонецДня(ДатаОтчета)); 
Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.ТоварыНаСкладах); 

РезультатЗапроса = Запрос.Выполнить();    

 //Последовательно, начиная с 0 задаем значения параметров: ( НачПериода это 0 элемент, КонПериода - 1, ВыбНалог =2 )
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[0].Значение = НачПериода;
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[1].Значение = КонПериода;
КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[2].Значение = ВыбНалог;   

 Процедура ПриОткрытии()
//........................
ПараметрДанных= КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("Товар");
ПараметрДанных.Значение = Справочники.Номенклатура.НайтиПоНаименованию("Гвозди");
ПараметрДанных.Использование=Истина;
//...........................................
КонецПроцедуры   

 //Пропишем ТОЧКИ МАРШРУТА
	СписТочек = Новый СписокЗначений;
	СписТочек.Добавить(БизнесПроцессы.м_Документооборот.ТочкиМаршрута.ОПФПД);
	СписТочек.Добавить(БизнесПроцессы.м_Документооборот.ТочкиМаршрута.ОСФПД);
	
	ПараметрСКД = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ТочкаМаршрута");
	ПараметрСКД.Значение = СписТочек;
	ПараметрСКД.Использование = ИСТИНА;
   

 &НаСервере 
Процедура ПриСозданииНаСервере(Отказ,   СтандартнаяОбработка) 

УстановитьПривилегированныйРежим(Истина);

СтандартнаяОбработка =  Ложь;   //   если не  отключить  стандартную обработку,   то  настройки затрутся

ДатаОтчета =  ТекушаяДата();
3начениеПараметра =  Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Найти3начениеПараметра(Новый ПараметрКомпоновкиДанных("ДатаНач"));
Если НЕ   ЗначениеПараметра =  Неопределено  Тогда
ЗначениеПараметра.Использование  = Истина;
ЗначениеПараметра.Значение  =  КонецДня(ДатаОтчета)   -   (7 * 86400); 
КонецЕсли;

3начениеПараметра  =  Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Найти3начениеПараметра(Новый ПараметрКомпоновкиДанных("Свойство1")); 
Если НЕ   ЗначениеПараметра =  Неопределено  Тогда
ЗначениеПараметра.Использование  = Истина;
3начениеПараметра   =  Справочники.3наченияСвойствОбъектов.НайтиПоКоду("000000004"); 
КонецЕсли;
КонецПроцедуры   

 Диаграмма = ЭлементыФормы.Диаграмма; 

// Очистить диаграмму, возможно ранее в нее уже выводились данные. 
Диаграмма.КоличествоСерий = 0; 
Диаграмма.КоличествоТочек = 0; 

// Количество серий будет ограничиваться (не все значения будут показываться). 
Диаграмма.МаксимумСерий = МаксимумСерий.Ограничено; 
Диаграмма.МаксимумСерийКоличество = 7; 
Диаграмма.ВидПодписей = ВидПодписейКДиаграмме.Процент; 
Диаграмма.ОбластьЗаголовка.Текст = "Обороты номенклатуры"; 

Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ 
|	ПродажиКомпанииОбороты.Номенклатура, 
|	СУММА(ПродажиКомпанииОбороты.КоличествоОборот) КАК КоличествоОборот 
|ИЗ 
|	РегистрНакопления.Продажи.Обороты(, , , ) КАК ПродажиКомпанииОбороты 
|СГРУППИРОВАТЬ ПО 
|	ПродажиКомпанииОбороты.Номенклатура"; 

Результат = Запрос.Выполнить(); 

// Запретить обновление диаграммы на время вывода данных. 
Диаграмма.Обновление = Ложь; 

// Установить единственную точку. 
Диаграмма.КоличествоТочек = 1; 
Диаграмма.Точки[0].Текст = "Количество"; 
Выборка = Результат.Выбрать(); 

Пока Выборка.Следующий() Цикл 

	// Количество серий, если бы не ограничивали зависело бы от результата запроса. 
	КоличествоСерий = Диаграмма.Серии.Количество(); 
	Диаграмма.КоличествоСерий = КоличествоСерий + 1; 
	Диаграмма.Серии[КоличествоСерий].Текст = Выборка.Номенклатура; 

	// Установить значение "на пересечении" точки и серии. 
	// Первый параметр - 0 , так как в диаграмме только одна точка. 
	Диаграмма.УстановитьЗначение(0, КоличествоСерий, Выборка.КоличествоОборот); 

КонецЦикла; 

// Обновить диаграмму. 
Диаграмма.Обновление = Истина;   

 //Пример 1:
Процедура ПостроитьДиаграмму(Диагр)
  КолСерий=0;
  //количество серий определяется по количеству элементов в справочнике Материалы   Спр=СоздатьОбъект("Справочник.Материалы");
  Спр.ВыбратьЭлементы();
  Пока Спр.ПолучитьЭлемент()=1 Цикл
    // группы элементов пропускаются
    Если Спр.ЭтоГруппа()=0 Тогда
      КолСерий=КолСерий+1;
    КонецЕсли;
  КонецЦикла;
  // установка количества серий и точек
  Диагр.КоличествоСерий(КолСерий);
  Диагр.КоличествоТочек(1);
  //в качестве значений на диаграмме примем количественное сальдо конечное по счету 10 и текущему элементу справочника
  БИ=СоздатьОбъект("БухгалтерскиеИтоги");
  БИ.Рассчитать(ДатаОтчета, ДатаОтчета);
  номер=1;
  Спр.ВыбратьЭлементы();
  Пока Спр.ПолучитьЭлемент()=1 Цикл
    Если Спр.ЭтоГруппа()=0 Тогда
      Диагр.УстановитьИмяСерии(Номер, Спр.Наименование);
      Диагр.УстановитьЗначение(1,номер,БИ.СКД("10","К",,Спр.ТекущийЭлемент()));
      номер=номер+1;
    КонецЕсли;
  КонецЦикла;
КонецПроцедуры 

 // Пример 2:
Процедура СформироватьДиаграмму(Диаграмма1)
    // Блокируем обновление, пока обрабатываются данные
    Диаграмма1.Обновление(0);
    Диаграмма1.Заголовок = "Поступления от покупателей";
    Диаграмма1.УстановитьИмяСерии(1, "Рубли");
    Диаграмма1.АвтоУстановкаИменТочек(1);

    // Заполним диаграмму значениями
    БухИт = СоздатьОбъект("БухгалтерскиеИтоги");

    Бухит.ВыполнитьЗапрос(НачКвартала(РабочаяДата()),
    КонКвартала(РабочаяДата()),"60.1",,,1,"Неделя","С");

    БухИт.ВыбратьПериоды();
    А = 1;
    // дебетовые обороты по счету 60.1 покажут поступления
    // денег от покупателей
    Пока БухИт.ПолучитьПериод() = 1 Цикл

        Диаграмма1.УстановитьЗначение(А, 1, БухИт.ДО());
        А = А +1;

    КонецЦикла;

    // после наполнения данными перерисовываем
    Диаграмма1.Обновление(1);

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