8.х WEB 8.3 веб клиент Диаграмма, подписи точек и серий

Тема в разделе ""1C:Web-Сервер"", создана пользователем RusSTN, 2 фев 2017.

  1. TopicStarter Overlay
    RusSTN
    Offline

    RusSTN

    Регистрация:
    2 фев 2017
    Сообщения:
    2
    Симпатии:
    0
    Баллы:
    1
    Всем Привет.
    Платформа 8.3.8.2027 конф. бухгалтерия.

    Задача такая: выводить комплексно отчетом графически разные показатели через диаграммы. Несколько диаграмм в ряд и в несколько строк. И прокинуть в инет чтоб руководитель мог через браузер смотреть за показателями.

    Отчет строю вручную через макет. в принципе все как надо получилось. В тонком клиенте:
    [​IMG]
    Все выводится, все подписи есть и их можно менять прям в коде. Все ОК.

    Сделал веб клиент.
    Тот же отчет с теми же параметрами через браузер:
    [​IMG]

    Отсутствуют подписи Точек и Серий диаграммы.
    Причем если их в коде не менять, то выводятся стандартные подписи Точка1....Точка6, Если же "текст" точки меняешь даже на такой же стандартный "Точка1" эта точка в подписи пустая.
    Без названий Серий и Точек смысла от такого отчета в вебе 0.
    Процедура вывода.
    Код:
    &НаСервере
    Процедура ПостроитьДиаграмму(ТЗ,ТабДок,КолвоНаДиаграмме)
        КолвоВыведенныхТочек = 0;
        ОтчетОбъект = РеквизитФормыВЗначение("Отчет"); 
        Макет = ОтчетОбъект.ПолучитьМакет("Макет");
    
        ОбластьДиаграмма = Макет.ПолучитьОбласть("ОбластьДиаграмма");
    
        д=0;
        Для Каждого Стр из ТЗ Цикл
         
            Если Цел(КолвоВыведенныхТочек/КолвоНаДиаграмме) > (д-1) или Д=0 Тогда
                д = Д+1; НомерТочки = 1;
                НомерДиаграммы = "D"+Строка(д);
               Диаграмма  = ОбластьДиаграмма.Рисунки[НомерДиаграммы].Объект;
                //Диаграмма.ВидПодписей            = ВидПодписейКДиаграмме.Значение;
                Диаграмма.ОбластьЗаголовка.Текст = "Диаграмма касс";
    
                Для Каждого Колонка из ТЗ.Колонки Цикл
                    Если ТЗ.Колонки.Индекс(Колонка) <> 0 Тогда
                     Диаграмма.Серии.Добавить(Колонка.Имя);
                    КонецЕсли;
                КонецЦикла;
             
            КонецЕсли;
            Точка=Диаграмма.Точки.Добавить(Стр.Точка);
            Точка.Текст = Строка(НомерТочки); //Строка(Стр.Точка);
            //Точка.Расшифровка = Строка(Стр.Точка);
            Индекс=0;
            НомерТочки = НомерТочки +1;
            Для Каждого Серия из Диаграмма.Серии Цикл
                Индекс=Индекс+1;
                Диаграмма.УстановитьЗначение(Точка,Серия,Стр.Получить(Индекс));
            КонецЦикла;
    
         
            КолвоВыведенныхТочек = КолвоВыведенныхТочек+1;
        КонецЦикла;
    ТабДок.Вывести(ОбластьДиаграмма);
    КонецПроцедуры
    Так как точек бывает много, чтоб не мельчить разбиваю по 6 шт на диаграмму.


    Кто нибудь сталкивался? Как исправить вывод подписей Точек и Серий в диаграмме?
  2. TopicStarter Overlay
    RusSTN
    Offline

    RusSTN

    Регистрация:
    2 фев 2017
    Сообщения:
    2
    Симпатии:
    0
    Баллы:
    1
    Переделал вывод диаграмм. Убрал табдок, вывожу прямо на форму, вроде работает норм на Веб-клиенте.
    Проблема именно при выводе табдока, т.к. при сохранении в тот же pdf до вывода, отображение в файле адекватное.