//Програмное формирование отчета СКД	

	СхемаОст = Отчеты.ТоннажПоЭкспедиторам.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");

	

	КомпоновщикНастроекНастройки = Новый КомпоновщикНастроекКомпоновкиДанных;

	КомпоновщикНастроекНастройки.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаОст));

	КомпоновщикНастроекНастройки.ЗагрузитьНастройки(СхемаОст.НастройкиПоУмолчанию); 

	

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

	КомпоновщикНастроекНастройки.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонецПериода", КонецМесяца(МесяцРасчета));

	

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаОст, КомпоновщикНастроекНастройки.Настройки, , , Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));

	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; 

	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных);

	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;

	

	ДанныеТЗ = Новый ТаблицаЗначений;

	ПроцессорВывода.УстановитьОбъект(ДанныеТЗ);

	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

	

	ТоннажПоЭкспедиторам.Очистить();

	//	ДанныеТЗ.ВыбратьСтроку();		

	Для каждого СтрокаТЗ Из ДанныеТЗ Цикл

		Если ЗначениеЗаполнено(СтрокаТЗ.Экспедитор) и СтрокаТЗ.Доставка=Неопределено Тогда

		нСтр = ТоннажПоЭкспедиторам.Добавить();

		ЗаполнитьЗначенияСвойств(нСтр,СтрокаТЗ);

		нСтр.Сотрудник=СтрокаТЗ.Экспедитор; 

	Иначе

		Продолжить;

	КонецЕсли;	

	КонецЦикла; 

   

 Процедура ГрафикКолВоДоставок()

	

	//Создаем таблицу данных

	ТабД = Новый ТаблицаЗначений;

	ТабД.Колонки.Добавить("ДатаК");

	ТабД.Колонки.Добавить("Всего");

	кп = КонПериодаЛ;           

	нп = кп-(86400);

	Пока кп>НачПериодаЛ Цикл 

		Состояние("Кол-во Доставок на: "+ Строка(кп));

		КоличествоДоставок = 0;   	Тоннаж = 0;	

		Привилегированный.ПолучитьКоличествоДоставок(кп, КоличествоДоставок, Тоннаж);

		Нстр = ТабД.Добавить();		

		Нстр.ДатаК=кп;

		Нстр.Всего = КоличествоДоставок;

		кп = нп;          

		нп = кп-(86400);

	КонецЦикла;

	ДиаграммаВП = ЭлементыФормы.ДиаграммаКолВоДоставок;

	ДиаграммаВП.КоличествоТочек=0;

	ТабД.Сортировать("ДатаК Возр"); 	

	Для Каждого СтрТраб из ТабД Цикл

		Точка=ДиаграммаВП.Точки.Добавить(Формат(СтрТраб.Получить(0),"ДФ=dd.MM"));

		Индекс=0;

		//Для Каждого Серия из ДиаграммаВП.Серии Цикл

		Попытка

			ДиаграммаВП.УстановитьЗначение(Точка,ДиаграммаВП.Серии[0],?(СтрТраб.Получить(1)=Неопределено,0,СтрТраб.Получить(1)));

		Исключение

			

		КонецПопытки;	

	КонецЦикла;

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

   

 Запрос = Новый Запрос("ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ

	|	РеализацияТоваровУслугТовары.Ссылка КАК Ссылка,

	|	РеализацияТоваровУслугТовары.Ссылка.Номер,

	|	РеализацияТоваровУслугТовары.Ссылка.Дата,

	|	РеализацияТоваровУслугТовары.Ссылка.Контрагент,

	|	РеализацияТоваровУслугТовары.Ссылка.ТоннажДокумента КАК Тоннаж,

	|	РеализацияТоваровУслугТовары.Ссылка.СуммаДокумента КАК Сумма,

	|	0 КАК ЕстьДопУслуги

	|ИЗ

	|	Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары

	|ГДЕ

	|	РеализацияТоваровУслугТовары.Ссылка.Доставка = &Ссылка

	|

	|ОБЪЕДИНИТЬ ВСЕ

	|

	|ВЫБРАТЬ РАЗЛИЧНЫЕ

	|	КомплектацияНоменклатурыКомплектующие.Ссылка.Ссылка,

	|	КомплектацияНоменклатурыКомплектующие.Ссылка.Номер,

	|	КомплектацияНоменклатурыКомплектующие.Ссылка.Дата,

	|	NULL,

	|	0,

	|	0,

	|	0

	|ИЗ

	|	Документ.КомплектацияНоменклатуры.Комплектующие КАК КомплектацияНоменклатурыКомплектующие

	|ГДЕ

	|	КомплектацияНоменклатурыКомплектующие.Доставка = &Ссылка

	|

	|УПОРЯДОЧИТЬ ПО

	|	Ссылка

	|АВТОУПОРЯДОЧИВАНИЕ"); 						  

	

	Запрос.УстановитьПараметр("Ссылка", Ссылка);

	

	ТабличноеПолеРеализаций = Запрос.Выполнить().Выгрузить();

	ЭлементыФормы.ТабличноеПолеРеализаций.СоздатьКолонки();

	ЭлементыФормы.ТабличноеПолеРеализаций.Колонки.ЕстьДопУслуги.Видимость = Ложь;

	ЭлементыФормы.ТабличноеПолеРеализаций.Колонки.Тоннаж.ОтображатьИтогиВПодвале = Истина;

	ЭлементыФормы.ТабличноеПолеРеализаций.Колонки.Сумма.ОтображатьИтогиВПодвале = Истина;

	ЭлементыФормы.ТабличноеПолеРеализаций.Колонки.Тоннаж.ГоризонтальноеПоложениеВПодвале = ГоризонтальноеПоложение.Право;

	ЭлементыФормы.ТабличноеПолеРеализаций.Колонки.Сумма.ГоризонтальноеПоложениеВПодвале = ГоризонтальноеПоложение.Право;

	ЭлементыФормы.ТабличноеПолеРеализаций.Колонки.Тоннаж.ТекстПодвала = "" + Формат(ТабличноеПолеРеализаций.Итог("Тоннаж"), "ЧЦ=15; ЧДЦ=3");

	ЭлементыФормы.ТабличноеПолеРеализаций.Колонки.Тоннаж.Ширина = 15;     	

	ЭлементыФормы.ТабличноеПолеРеализаций.Колонки.Тоннаж.Формат = "ЧДЦ=3; ЧГ=3,0";

	ЭлементыФормы.ТабличноеПолеРеализаций.Колонки.Сумма.Формат = "ЧДЦ=2; ЧГ=3,0";