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