Имя: Пароль:
1C
1С v8
Построение графика в 1с
0 Radkt
 
12.05.16
14:42
Добрый день,
Люди, кто работали с построением графиков в 1с, подскажите.
График в 1с

http://c2n.me/3xXmauv
Нужен такой
http://c2n.me/3xXmqsp

ТОчек с нулевым значением не задаю.

как мне отрезок в 1с вывести(( закипел уже

КОД:
<code/>

        Диаграмма = ОбластьДиаграмма.Рисунки[Индекс].Объект;
        Инд = 0;
        Для Каждого СтрТаб Из Таб Цикл
            Серия          = Диаграмма.Серии.Добавить();
            Серия.Текст    = СтрТаб.ГруппаВыплатДиагр;
            Серия.Расшифровка    = СтрТаб.ГруппаВыплатДиагр;
              Точка          = Диаграмма.Точки.Добавить();
            Точка          = Диаграмма.Точки.Добавить();
            Серия.Значение = СтрТаб.СуммаПСр;
            Диаграмма.УстановитьЗначение(Диаграмма.Точки[Инд],Диаграмма.Серии[Инд],Таб[Инд].СуммаПСр);
            Диаграмма.УстановитьЗначение(Диаграмма.Точки[Инд+1],Диаграмма.Серии[Инд],Таб[Инд].СуммаСр);
            //УстановитьЗначение(<Точка>, <Серия>, <Значение>, <Расшифровка>, <Подсказка>)
            Инд         = Инд+1;
        КонецЦикла;
        
        Диаграмма.ТипДиаграммы    = ТипДиаграммы.График;
        Диаграмма.СерииВСтроках        = Ложь;
        Диаграмма.ОтображатьЗаголовок  = Ложь;
        Диаграмма.ОтображатьЛегенду    = Истина;
        Диаграмма.ВидПодписей =  ВидПодписейКДиаграмме.Значение;
        ТабДокумент.Вывести(ОбластьДиаграмма);
<code>
1 Fragster
 
гуру
12.05.16
14:45
в СКД что-то про базовое значение было
4 Tateossian
 
12.05.16
15:02
Не знаю что у тебя там, но вот это меня смущает:
Точка          = Диаграмма.Точки.Добавить();
             Точка          = Диаграмма.Точки.Добавить();
5 Radkt
 
12.05.16
15:12
(1) Увеличивает уровень но не обрезает хвосты(( и + этот уровень для каждой серии свой ХЗ как сделать

(4) Переделал на (тоже не пашет)

        Диаграмма = ОбластьДиаграмма.Рисунки[Индекс].Объект;
        Инд = 0;
        Для Каждого СтрТаб Из Таб Цикл
            Серия                  = Диаграмма.Серии.Добавить();
            Серия.Текст            = СтрТаб.ГруппаВыплатДиагр;
            Серия.Расшифровка   = СтрТаб.ГруппаВыплатДиагр;
            Точка1              = Диаграмма.ТОчки.Добавить();
            Точка2              = Диаграмма.ТОчки.Добавить();
            Диаграмма.УстановитьЗначение(Точка1,Серия,СтрТаб.СуммаПСр);
            Диаграмма.УстановитьЗначение(Точка2,Серия,СтрТаб.СуммаСр);
            //УстановитьЗначение(<Точка>, <Серия>, <Значение>, <Расшифровка>, <Подсказка>)
        КонецЦикла;
6 Radkt
 
12.05.16
16:18
если кому потребуется, то правильно было вот так:

Диаграмма = ОбластьДиаграмма.Рисунки[Индекс].Объект;
        Инд = 0;
        Точка1              = Диаграмма.ТОчки.Добавить();
        Точка2              = Диаграмма.ТОчки.Добавить();

        Для Каждого СтрТаб Из Таб Цикл
            Серия                  = Диаграмма.Серии.Добавить();
            Серия.Текст            = СтрТаб.ГруппаВыплатДиагр;
            Серия.Расшифровка   = СтрТаб.ГруппаВыплатДиагр;
            Диаграмма.УстановитьЗначение(Точка1,Серия,СтрТаб.СуммаПСр);
            Диаграмма.УстановитьЗначение(Точка2,Серия,СтрТаб.СуммаСр);
            //УстановитьЗначение(<Точка>, <Серия>, <Значение>, <Расшифровка>, <Подсказка>)
        КонецЦикла;
        
        Диаграмма.ТипДиаграммы    = ТипДиаграммы.График;
        Диаграмма.АвтоМинимальноеЗначение =    Ложь;    
        Диаграмма.АвтоМаксимальноеЗначение =    Ложь;    
        
        Диаграмма.СерииВСтроках        = Истина;
        Диаграмма.ОтображатьЗаголовок  = Ложь;
        Диаграмма.ОтображатьЛегенду    = Истина;
        Диаграмма.ВидПодписей =  ВидПодписейКДиаграмме.Значение;
        ТабДокумент.Вывести(ОбластьДиаграмма);
7 Radkt
 
12.05.16
16:20
+(6)
Диаграмма.АвтоМинимальноеЗначение =    Ложь;    
        Диаграмма.АвтоМаксимальноеЗначение =    Ложь;
параметры осталить от тестов, их можно удалять оставлять по умолчанию
8 Михаил Козлов
 
12.05.16
16:38
Если диаграмме в качестве источника данных скормить таблицу значений (строки - точки, колонки - серии), графики построятся сами.
9 Radkt
 
13.05.16
10:07
(8) больше кода по созданию такой таблицы, у меня была ошибка в том что, точки всего две, а я на каждую серию по две добавлял
10 Михаил Козлов
 
13.05.16
10:12
(10) Кода столько же (создать колонки (серии), добавить строки (точки)), а ошибок обычно меньше.
Кроме того, часто таблица уже есть (результат запроса).
Я Вас вовсе не "агитирую", а делюсь "опытом".
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.