1С 8.2. СКД. Изменить высоту диаграммы

@sigmov · Регистрация: 22.07.2009

Author24 — интернет-сервис помощи студентам

Всем здравствуйте!

Нужно изменить высоту и ширину диаграммы в отчете формируемом на СКД.
Ширину расширить, высоту сузить.
(рис1. 2 диаграммы)

Как это сделать с помощью настроек варианта, комповки или макета?

Ладно. С помощью настроек у меня не получилось - делаем с помощью кода
После создания табличного документа - получаю рисунки и сужаю их
НО(!!!) Возникает эффект мертвых зон
(рис 2. 2 диаграммы суженные)

Код на изменение размеров рисунков:

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

1C

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
    Если ЛОЖЬ Тогда ДокументРезультат = Новый ТабличныйДокумент; КонецЕсли;
        
    СтандартнаяОбработка = Ложь;
    
    // Получаем схему компоновки и текущие настройки
    СхемаКомпоновкиДанных  = ЭтотОбъект.СхемаКомпоновкиДанных;
    Настройки              = ЭтотОбъект.КомпоновщикНастроек.ПолучитьНастройки();
    
    // Группируем схему и текущие настройки
    КомпоновщикМакета      = Новый КомпоновщикМакетаКомпоновкиДанных;
    МакетКомпоновки      = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);
      
    // Процессор компоновки
    ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,,ДанныеРасшифровки, Истина);
    
    // Процессор вывода
    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
    
    // Альтернативный пошаговый вывод с разрывом страницы
    // Для разрыванеобходимо добавить параметр в макет на месте разрыва
    ПроцессорВывода.НачатьВывод();
    ЭлементРезультата = ПроцессорКомпоновкиДанных.Следующий();
    Пока ЭлементРезультата <> Неопределено Цикл        
        ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);
        ЭлементРезультата = ПроцессорКомпоновкиДанных.Следующий();
    КонецЦикла;
    ПроцессорВывода.ЗакончитьВывод();
    
    //{{ [+](Настройка ширины и высоты диаграмм), #Лелеко
    // Настройка ширины и высоты диаграмм     
    ИскомыеПараметрыДиаграмм            = Новый Структура("ШиринаДиаграмм,ВысотаДиаграмм","Ширина","Высота");
    НайденныеПараметрыДиаграмм        = Новый Структура;
    ПараметрыДанныхНастройки            = Настройки                    .ПараметрыДанных;
    ПараметрыДанныхДоступныеПараметры  = ПараметрыДанныхНастройки  .ДоступныеПараметры;
    
    // Заполняем найденные параметры
    Для Каждого КлючЗначение Из ИскомыеПараметрыДиаграмм Цикл
        ПараметрКД = Новый ПараметрКомпоновкиДанных(КлючЗначение.Ключ);      
        Если ПараметрыДанныхДоступныеПараметры.НайтиПараметр(ПараметрКД) <> Неопределено Тогда
            ЗначениеПараметра = ПараметрыДанныхНастройки.НайтиЗначениеПараметра(ПараметрКД);
            Если ЗначениеПараметра.Использование Тогда
                НайденныеПараметрыДиаграмм.Вставить(
                    ?(КлючЗначение.Значение <> Неопределено, КлючЗначение.Значение, КлючЗначение.Ключ), 
                    ЗначениеПараметра.Значение
                );  
            КонецЕсли;    
        КонецЕсли;
    КонецЦикла;
    
    // Заполняем параметры рисунка
    Для Каждого Рисунок из ДокументРезультат.Рисунки Цикл
        ЗаполнитьЗначенияСвойств(Рисунок, НайденныеПараметрыДиаграмм); 
    КонецЦикла;  
    //}} (Настройка ширины и высоты диаграмм), #Лелеко
    
КонецПроцедуры

@SHIFT_969 · 14.07.2015, 10:16

А так?

@sigmov · 15.07.2015, 03:37 **[ТС]**

Сообщение от SHIFT_969

А так?

НЕ РАБОТАЕТ
А у Вас так получалось? )))
Естественно первым делом именно так и пробовал.
Если у Вас получилось - скиньте пожалуйста рабочий пример

@Orion-M · 15.07.2020, 06:30

Вообще-то, масштабирование должно осуществляться автоматически. Но на практике это действует только по горизонтали, а по вертикали - нет. Но где это настраивается, мне найти не удалось...

@fixin · 02.11.2023, 16:58

Клиенту понадобилось уменьшить размер диаграммы, чтобы отчет помещался на одну страницу.

Я уменьшил ее на 2/3.

Настройками СКД сделать это не смог, поэтому просто обработал готовый табличный документ:

1C

КУменьшения = 2/3;
Для Каждого Рисунок ИЗ ДокументРезультат.Рисунки Цикл
    Если Рисунок.ТипРисунка = ТипРисункаТабличногоДокумента.Диаграмма Тогда
        Рисунок.Высота = Рисунок.Высота * КУменьшения; //Уменьшаем..
    КонецЕсли;
КонецЦикла;
 
ПерваяСтрока = Цел(ДокументРезультат.ВысотаТаблицы * КУменьшения) + 1;
УдаляемаяОбласть = ДокументРезультат.Область("R" + XMLСтрока(ПерваяСтрока) +  
":R" + XMLСтрока(ДокументРезультат.ВысотаТаблицы));
ДокументРезультат.УдалитьОбласть(УдаляемаяОбласть, ТипСмещенияТабличногоДокумента.ПоВертикали);

При этом код работает если диаграмма выводится первой (используется высота табличного документа). Если диаграмма выводится отдельно, нужно или выводить ее в отдельный табличный документ, там корректировать и потом вставлять в результирующий документ или использовать более тонкий способ определения начала и конца диаграммы

@SHIFT_969 Злой самаритянин 182 / 182 / 94 Регистрация: 24.04.2014 Сообщений: 686
	14.07.2015, 10:16	2
	А так? Миниатюры 0

@sigmov 584 / 371 / 63 Регистрация: 22.07.2009 Сообщений: 875 Записей в блоге: 4
	15.07.2015, 03:37 [ТС]	3
	Сообщение от SHIFT_969 А так? НЕ РАБОТАЕТ А у Вас так получалось? ))) Естественно первым делом именно так и пробовал. Если у Вас получилось - скиньте пожалуйста рабочий пример 0

@Orion-M 0 / 0 / 0 Регистрация: 15.07.2020 Сообщений: 1
	15.07.2020, 06:30	4
	Вообще-то, масштабирование должно осуществляться автоматически. Но на практике это действует только по горизонтали, а по вертикали - нет. Но где это настраивается, мне найти не удалось... 0

	02.11.2023, 16:58