Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

Как сделать Круговую диаграмму

Как сделать Круговую диаграмму
Я
   Novaginn
 
06.08.20 - 13:12
Делаю круговую диаграмму по этим позициям. Пример взяла с интернета. Ругается на Поле объекта не обнаружено (D1)


График = Макет.ПолучитьОбласть("Диаграмма");
    Диаграмма = График.Рисунки.D1.Диаграмма;
    Диаграмма.ТипДиаграммы = ТипДиаграммы.Круговая;
    Диаграмма.СерииВСтроках = ложь;
    Диаграмма.Обновление = Ложь;
    
    
   Диаграмма.Очистить();
   Диаграмма.ОтображатьЗаголовок = Ложь;
  
   ТЗДиаграммы = Новый ТаблицаЗначений;
   ТЗДиаграммы.Колонки.Добавить("Измерение1");
   ТЗДиаграммы.Колонки.Добавить("Измерение2");
   ТЗДиаграммы.Колонки.Добавить("Измерение3");
   ТЗДиаграммы.Колонки.Добавить("Точка");
   ТЗДиаграммы.Колонки.Добавить("Ресурс1");
   ТЗДиаграммы.Колонки.Добавить("Ресурс2");
  
   НовСтр = ТЗДиаграммы.Добавить();
   НовСтр.Измерение1=ТабличнаяЧастьСтрока.Параметры.Количество;
   НовСтр.Измерение2=ТабличнаяЧастьСтрока.Параметры.КолМал;
   НовСтр.Измерение3=ТабличнаяЧастьСтрока.Параметры.КолБезДвиж;
   НовСтр.Точка="01/01/01";
   НовСтр.Ресурс1=10;
   НовСтр.Ресурс2=15;
   НовСтр.Ресурс3=20;
  
   НовСтр = ТЗДиаграммы.Добавить();
   НовСтр.Измерение1=ТабличнаяЧастьСтрока.Параметры.Количество;
   НовСтр.Измерение2=ТабличнаяЧастьСтрока.Параметры.КолМал;
   НовСтр.Измерение3=ТабличнаяЧастьСтрока.Параметры.КолБезДвиж;
   НовСтр.Точка="01/02/01";
   НовСтр.Ресурс1=5;
   НовСтр.Ресурс2=9;
   НовСтр.Ресурс3=15;
  
   НовСтр = ТЗДиаграммы.Добавить();
   НовСтр.Измерение1=ТабличнаяЧастьСтрока.Параметры.Количество;
   НовСтр.Измерение2=ТабличнаяЧастьСтрока.Параметры.КолМал;
   НовСтр.Измерение3=ТабличнаяЧастьСтрока.Параметры.КолБезДвиж;
   НовСтр.Точка="01/03/01";
   НовСтр.Ресурс1=1;
   НовСтр.Ресурс2=3;
   НовСтр.Ресурс3=5;

  
  
  
      // Заполнить диаграмму


       Для Каждого ТекСтр из ТЗДиаграммы цикл
      // Получить серию, точку и значение для них


        ТекущаяСерия = Диаграмма.УстановитьСерию(ТекСтр.Измерение1);
        ТекущаяТочка = Диаграмма.УстановитьТочку(ТекСтр.Точка);
        Диаграмма.УстановитьЗначение(ТекущаяТочка, ТекущаяСерия, ТекСтр.Ресурс1, ,) ;
      
   ТекущаяСерия = Диаграмма.УстановитьСерию(ТекСтр.Измерение2);
   ТекущаяТочка = Диаграмма.УстановитьТочку(ТекСтр.Точка);
     Диаграмма.УстановитьЗначение(ТекущаяТочка, ТекущаяСерия, ТекСтр.Ресурс2, ,) ;
    
     ТекущаяСерия = Диаграмма.УстановитьСерию(ТекСтр.Измерение3);
   ТекущаяТочка = Диаграмма.УстановитьТочку(ТекСтр.Точка);
     Диаграмма.УстановитьЗначение(ТекущаяТочка, ТекущаяСерия, ТекСтр.Ресурс3, ,) ;

КонецЦикла;

   Диаграмма.Обновление = Истина;
  
   ПечатнаяФорма.Вывести(График);
   ПечатнаяФорма.Защита = Ложь;
   ПечатнаяФорма.ТолькоПросмотр = Истина;
   ПечатнаяФорма.Показать();
   Rapelsina
 
1 - 06.08.20 - 13:34
а как у тебя рисунок назван?
   Novaginn
 
2 - 06.08.20 - 13:46
А где имя рисунку присваивается? Я этот момент не поняла
   Novaginn
 
3 - 06.08.20 - 14:13
Нашла где имя рисунка. ТОлько по моим данным получится круговая диаграмма?
   Novaginn
 
4 - 06.08.20 - 14:27
Сейчас вышла ошибка :

{ВнешняяОбработка.Обработка.Форма.Форма.Форма(155)}: Ошибка при вызове метода контекста (УстановитьЗначение)
        Диаграмма.УстановитьЗначение(ТекущаяТочка, ТекущаяСерия, ТекСтр.Ресурс1, ,) ;
по причине:
Диаграмма находится в режиме работы с источником данных

Первый раз с диаграммой работаю(

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.