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

	

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

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

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

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

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

	нп = кп-(86400);

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

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

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

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

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

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

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

		кп = нп;          

		нп = кп-(86400);

	КонецЦикла;

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

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

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

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

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

		Индекс=0;

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

		Попытка

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

		Исключение

			

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

	КонецЦикла;

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