Как программно создать диаграмму по ТЗ без использования

```1c
    Диаграмма.ИсточникДанных = ТЗ;
```

ТЗ представляет собой таблицу 2 колонки
ФИО Кол-во
Никак не могу найти информацию, запутался в:

```1c
    Точка = Диаграмма.УстановитьТочку();
    Серия = Диаграмма.УстановитьСерию();
    Диаграмма.УстановитьЗначение();
```

На ИТС 3 измерения, мне нужно 2.

```1c
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    | ТоварыОстатки.КоличествоОстаток КАК Количество,
    | ТоварыОстатки.Товар КАК Товар,
    | ТоварыОстатки.Склад КАК Склад
    |ИЗ
    | РегистрНакопления.Товары.Остатки КАК ТоварыОстатки";
    Результат = Запрос.Выполнить();
    Выборка = Результат.Выбрать();

    // Заполнение диаграммы.

    Диаграмма = ЭлементыФормы.Диаграмма1;
    Диаграмма.Обновление = Ложь;
    Диаграмма.Очистить();

    Пока Выборка.Следующий() = Истина Цикл
    Серия = Диаграмма.УстановитьСерию(Выборка.Товар);
    Точка = Диаграмма.УстановитьТочку(Выборка.Склад);
    Диаграмма.УстановитьЗначение(Точка, Серия, Выборка.Количество);
    КонецЦикла;

    Диаграмма.Обновление = Истина;
```
---
так же, только точка будет одна.

```1c
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    | ТоварыОстатки.КоличествоОстаток КАК Количество,
    | ТоварыОстатки.Товар КАК Товар
    |ИЗ
    | РегистрНакопления.Товары.Остатки КАК ТоварыОстатки";
    Результат = Запрос.Выполнить();
    Выборка = Результат.Выбрать();

    // Заполнение диаграммы.

    Диаграмма = ЭлементыФормы.Диаграмма1;
    Диаграмма.Обновление = Ложь;
    Диаграмма.Очистить();
    Диаграмма.КоличествоТочек = 1;
    Диаграмма.Точки[0].Текст = "Количество";

    Пока Выборка.Следующий() = Истина Цикл
    Серия = Диаграмма.УстановитьСерию(Выборка.Товар);
    Диаграмма.УстановитьЗначение(0, Серия, Выборка.Количество);
    КонецЦикла;

    Диаграмма.Обновление = Истина;
```
---
```1c
    //Диаграмма
    Выборка.Сортировать("КолВо Убыв");
    ОбластьДиаграмма = Макет.ПолучитьОбласть("Диаграмма");
    Диаграмма = ОбластьДиаграмма.Рисунки.D1.Объект;
    Диаграмма.ТипДиаграммы = ТипДиаграммы.Гистограмма;
    Диаграмма.Обновление = Ложь;
    Диаграмма.Очистить();
    Диаграмма.АвтоТранспонирование = Ложь;
    Диаграмма.КоличествоТочек = 1;
    Диаграмма.АвтоУстановкаТекстаСерий = Ложь;
    Диаграмма.Точки[0].Текст = "Кол-во за " + ПредставлениеПериода(НачалоДня(Отчет.НачалоПериода), КонецДня(Отчет.КонецПериода));
    Для Каждого Строка из Выборка Цикл
    ФИО = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Строка.Ответственный, " ");
    Фамилия = ФИО[0];
    Серия = Диаграмма.УстановитьСерию(Фамилия);
    Диаграмма.УстановитьЗначение(0, Серия, Строка.КолВо);
    КонецЦикла;
    //Диаграмма.ИсточникДанных = Выборка;
    Диаграмма.Обновление = Истина;

    ТабДок.Вывести(ОбластьДиаграмма);
```
---
так же, только точка будет одна.

```1c
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    | ТоварыОстатки.КоличествоОстаток КАК Количество,
    | ТоварыОстатки.Товар КАК Товар
    |ИЗ
    | РегистрНакопления.Товары.Остатки КАК ТоварыОстатки";
    Результат = Запрос.Выполнить();
    Выборка = Результат.Выбрать();

    // Заполнение диаграммы.

    Диаграмма = ЭлементыФормы.Диаграмма1;
    Диаграмма.Обновление = Ложь;
    Диаграмма.Очистить();
    Диаграмма.КоличествоТочек = 1;
    Диаграмма.Точки[0].Текст = "Количество";

    Пока Выборка.Следующий() = Истина Цикл
    Серия = Диаграмма.УстановитьСерию(Выборка.Товар);
    Диаграмма.УстановитьЗначение(0, Серия, Выборка.Количество);
    КонецЦикла;

    Диаграмма.Обновление = Истина;
```
---
Спасибо!
---
```1c
    //Диаграмма
    Выборка.Сортировать("КолВо Убыв");
    ОбластьДиаграмма = Макет.ПолучитьОбласть("Диаграмма");
    Диаграмма = ОбластьДиаграмма.Рисунки.D1.Объект;
    Диаграмма.ТипДиаграммы = ТипДиаграммы.Гистограмма;
    Диаграмма.Обновление = Ложь;
    Диаграмма.Очистить();
    Диаграмма.АвтоТранспонирование = Ложь;
    Диаграмма.КоличествоТочек = 1;
    Диаграмма.АвтоУстановкаТекстаСерий = Ложь;
    Диаграмма.Точки[0].Текст = "Кол-во за " + ПредставлениеПериода(НачалоДня(Отчет.НачалоПериода), КонецДня(Отчет.КонецПериода));
    Для Каждого Строка из Выборка Цикл
    ФИО = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Строка.Ответственный, " ");
    Фамилия = ФИО[0];
    Серия = Диаграмма.УстановитьСерию(Фамилия);
    Диаграмма.УстановитьЗначение(0, Серия, Строка.КолВо);
    КонецЦикла;
    //Диаграмма.ИсточникДанных = Выборка;
    Диаграмма.Обновление = Истина;

    ТабДок.Вывести(ОбластьДиаграмма);
```