областьзаголовка » Поиск

Результаты по ключевому слову: областьзаголовка

Как в СКД вывести дату и время формирования отчета?

Есть несколько вариантов вывода информации перед основным отчетом,какой лучше?! - зависит от задачи:

Допустим нам нужно вывести дату и время формирования отчета и свою шапку отчета, например так:

Варианты решения:

1. Использование группировки и макета заголовка:

1. Создаем в схеме новую группировку (без поля) и установим имя группировке Шапка отчета.

2. Удалим у данной группировки из выбранных полей автополе

В других настройках выберем макет оформления "Без оформления" (иначе на наш макет будет накладываться стандартный макет и вокруг всех ячеек будет рамка)

На вкладке макеты добавляем макет заголовка группировки (при добавлении указываем наше имя группировки (Шапка отчета) и указываем область с нашими данными), справа в табличном документе пишем необходимый текст и параметр

Сохраняем, формируем и видим результат как выше

2. Программное изменение текста заголовка

Код нужно установить в процедуре модуля отчета ПриКомпоновкеРезультата()

Код 1C v 8.2 УП

 ЗначениеПараметра = КомпоновщикНастроек.Настройки.ПараметрыВывода.

НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Title"));

ЗначениеПараметра.Значение="Отчет сформирован "+Формат(ТекущаяДата(),"ДЛФ=DDT");

ЗначениеПараметра.Использование = Истина;

еще пример:

Код 1C v 8.3

 Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

    

    КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("ВыводитьЗаголовок").Использование = Истина;

    КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("ВыводитьЗаголовок").Значение      = ТипВыводаТекстаКомпоновкиДанных.Выводить; 

    КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("Заголовок").Использование         = Истина;

    КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("Заголовок").Значение              = "Пример вывода своего заголовка,"      + Символы.ПС 

                                                                                                    + "Отчет сформирован "+Формат(ТекущаяДата(),"ДЛФ=DDT");     

КонецПроцедуры

3. Вывод табличного макета с параметром перед формированием отчета

Создаем макет ВыводСформирован, в нем создаем параметр Сформирован и назначаем имя области Заголовок

В модуле перед

Код 1C v 8.х

 МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки);

Пишем:

Код 1C v 8.х

 // получим макет заголовка отчета

МакетЗаголовка = ПолучитьМакет("ВыводСформирован");

ОбластьЗаголовка = МакетЗаголовка.ПолучитьОбласть("Заголовок");

ОбластьЗаголовка.Параметры.Сформирован = "Сформирован: " + Формат(ТекущаяДата(),"ДЛФ=DDT");

//ОбластьЗаголовка.Параметры.Заголовок = ТекстЗаголовка;

ТабличныйДокумент.Вывести(ОбластьЗаголовка);

в результате:

Категория: Схема Компоновки Данных

Подробный пример заполнения Диаграммы данными (создание, очистка, обновление)

Пример создания, очистки и обновления Диаграммы График

Код 1C v 8.х

  Диаграмма = ЭлементыФормы.Диаграмма; 



    // Очистить диаграмму, возможно ранее в нее уже выводились данные. 

    Диаграмма.КоличествоСерий = 0; 

    Диаграмма.КоличествоТочек = 0; 





    // Количество серий будет ограничиваться (не все значения будут показываться). 

    Диаграмма.МаксимумСерий = МаксимумСерий.Ограничено; 

    Диаграмма.МаксимумСерийКоличество = 7; 

    Диаграмма.ВидПодписей = ВидПодписейКДиаграмме.Процент; 

    Диаграмма.ОбластьЗаголовка.Текст = "Обороты номенклатуры"; 





    Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ 

    |	ПродажиКомпанииОбороты.Номенклатура, 

    |	СУММА(ПродажиКомпанииОбороты.КоличествоОборот) КАК КоличествоОборот 

    |ИЗ 

    |	РегистрНакопления.Продажи.Обороты(, , , ) КАК ПродажиКомпанииОбороты 

    |СГРУППИРОВАТЬ ПО 

    |	ПродажиКомпанииОбороты.Номенклатура"; 





    Результат = Запрос.Выполнить(); 





    // Запретить обновление диаграммы на время вывода данных. 

    Диаграмма.Обновление = Ложь; 





    // Установить единственную точку. 

    Диаграмма.КоличествоТочек = 1; 

    Диаграмма.Точки[0].Текст = "Количество"; 

    Выборка = Результат.Выбрать(); 





    Пока Выборка.Следующий() Цикл 





        // Количество серий, если бы не ограничивали зависело бы от результата запроса. 

        КоличествоСерий = Диаграмма.Серии.Количество(); 

        Диаграмма.КоличествоСерий = КоличествоСерий + 1; 

        Диаграмма.Серии[КоличествоСерий].Текст = Выборка.Номенклатура; 





        // Установить значение "на пересечении" точки и серии. 

        // Первый параметр - 0 , так как в диаграмме только одна точка. 

        Диаграмма.УстановитьЗначение(0, КоличествоСерий, Выборка.КоличествоОборот); 





    КонецЦикла; 





    // Обновить диаграмму. 

    Диаграмма.Обновление = Истина;

Категория: Диаграмма

Вывод Диаграммы График Валют, Сохранение диаграммы, графиков и гистограмм в виде Картинки Категория: Диаграмма

Заполним диаграмму Ганта данными

Код 1C v 8.х

 ДГ = ЭлементыФормы.ДГ; 



// Установить заголовок диаграммы. 

ДГ.ОбластьЗаголовка.Текст = "График дежурств"; 



// Интервал будем определять самостоятельно. 

ДГ.АвтоОпределениеПолногоИнтервала = Ложь; 



// Установить интервал. 

ДГ.УстановитьПолныйИнтервал(НачалоМесяца(ТекущаяДата()), КонецМесяца(ТекущаяДата())); 



// В диаграмме будет две точки - сотрудники Петров и Сидоров... 

ТочкаП = ДГ.УстановитьТочку("Петров"); 

ТочкаС = ДГ.УстановитьТочку("Сидоров"); 



// и две серии - дежурство на вахте и дежурство в центральном офисе. 

СерияНаВахте = ДГ.УстановитьСерию("На вахте"); 

СерияВЦентре = ДГ.УстановитьСерию("В центральном офисе"); 



// Задать цвета серий, отличные от цвета по умолчанию. 

СерияНаВахте.Цвет = WebЦвета.Синий; 

СерияВЦентре.Цвет = WebЦвета.СветлоЖелтый; 

ПервыйДень = НачалоМесяца(ТекущаяДата()); 



// Получить значение диаграммы - дежурство Петрова на вахте. 

Значение = ДГ.ПолучитьЗначение(ТочкаП, СерияНаВахте); 



// В значении определить новый интервал. 

Интервал = Значение.Добавить(); 

Интервал.Текст = "Работает на вахте"; 



// Определить границы интервала. 

Интервал.Начало = ПервыйДень; 

Интервал.Конец = ПервыйДень + 10 * 24 * 60 * 60; 



// Получить значение диаграммы - дежурство Петрова в центральном офисе. 

Значение = ДГ.ПолучитьЗначение(ТочкаП, СерияВЦентре); 

Интервал = Значение.Добавить(); 

Интервал.Текст = "Работает в центральном офисе"; 

Интервал.Начало = ПервыйДень + 14 * 24 * 60 * 60; 

Интервал.Конец = ПервыйДень + 24 * 24 * 60 * 60; 



// Получить значение диаграммы - дежурство Сидорова на вахте. 

Значение = ДГ.ПолучитьЗначение(ТочкаС, СерияНаВахте); 

Интервал = Значение.Добавить(); 

Интервал.Текст = "Работает на вахте"; 

Интервал.Начало = ПервыйДень + 5 * 24 * 60 * 60; 

Интервал.Конец = ПервыйДень + 15 * 24 * 60 * 60; 



// Получить значение диаграммы - дежурство Сидорова в центральном офисе. 

Значение = ДГ.ПолучитьЗначение(ТочкаС, СерияВЦентре); 

Интервал = Значение.Добавить(); 

Интервал.Текст = "Работает в центральном офисе"; 

Интервал.Начало = ПервыйДень + 21 * 24 * 60 * 60; 

Интервал.Конец = ПервыйДень + 25 * 24 * 60 * 60;

Категория: Диаграмма

Вывод результата запроса в сводную диаграмму

Код 1C v 8.х

 Запрос = Новый Запрос( "ВЫБРАТЬ 

|	ТоварыНаСкладахОстаткиИОбороты.Склад КАК Склад, 

|	ТоварыНаСкладахОстаткиИОбороты.Склад.Представление, 

|	ТоварыНаСкладахОстаткиИОбороты.Номенклатура КАК Номенклатура, 

|	ТоварыНаСкладахОстаткиИОбороты.Номенклатура.Представление, 

|	СУММА(ТоварыНаСкладахОстаткиИОбороты.КоличествоПриход) КАК КоличествоПриход, 

|	СУММА(ТоварыНаСкладахОстаткиИОбороты.КоличествоОборот) КАК КоличествоОборот, 

|	СУММА(ТоварыНаСкладахОстаткиИОбороты.КоличествоРасход) КАК КоличествоРасход 

|ИЗ 

|	РегистрНакопления.ТоварыНаСкладах.ОстаткиИОбороты КАК ТоварыНаСкладахОстаткиИОбороты 

|СГРУППИРОВАТЬ ПО 

|	ТоварыНаСкладахОстаткиИОбороты.Склад, 

|	ТоварыНаСкладахОстаткиИОбороты.Номенклатура, 

|	ТоварыНаСкладахОстаткиИОбороты.Склад.Представление, 

|	ТоварыНаСкладахОстаткиИОбороты.Номенклатура.Представление 

|ИТОГИ СУММА(КоличествоПриход), СУММА(КоличествоОборот), СУММА(КоличествоРасход) ПО 

|	ОБЩИЕ, 

|	Номенклатура ИЕРАРХИЯ, 

|	Склад ИЕРАРХИЯ"); 



Диаграмма = ЭлементыФормы.СводнаяДиаграмма1; 

Диаграмма.ОбластьЗаголовка.Текст = "Приход товаров"; 

Диаграмма.ИсточникДанных = Запрос.Выполнить(); 



Диаграмма.Серии.Добавить("Номенклатура"); 

Диаграмма.Точки.Добавить("Склад"); 

Диаграмма.Ресурсы.Добавить("КоличествоПриход");

Категория: Диаграмма

Как заполнить диаграмму данными?

Код 1C v 8.х

 Диаграмма = ЭлементыФормы.Диаграмма; 



// Очистить диаграмму, возможно ранее в нее уже выводились данные. 

Диаграмма.КоличествоСерий = 0; 

Диаграмма.КоличествоТочек = 0; 



// Количество серий будет ограничиваться (не все значения будут показываться). 

Диаграмма.МаксимумСерий = МаксимумСерий.Ограничено; 

Диаграмма.МаксимумСерийКоличество = 7; 

Диаграмма.ВидПодписей = ВидПодписейКДиаграмме.Процент; 

Диаграмма.ОбластьЗаголовка.Текст = "Обороты номенклатуры"; 



Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ 

|	ПродажиКомпанииОбороты.Номенклатура, 

|	СУММА(ПродажиКомпанииОбороты.КоличествоОборот) КАК КоличествоОборот 

|ИЗ 

|	РегистрНакопления.Продажи.Обороты(, , , ) КАК ПродажиКомпанииОбороты 

|СГРУППИРОВАТЬ ПО 

|	ПродажиКомпанииОбороты.Номенклатура"; 



Результат = Запрос.Выполнить(); 



// Запретить обновление диаграммы на время вывода данных. 

Диаграмма.Обновление = Ложь; 



// Установить единственную точку. 

Диаграмма.КоличествоТочек = 1; 

Диаграмма.Точки[0].Текст = "Количество"; 

Выборка = Результат.Выбрать(); 



Пока Выборка.Следующий() Цикл 



	// Количество серий, если бы не ограничивали зависело бы от результата запроса. 

	КоличествоСерий = Диаграмма.Серии.Количество(); 

	Диаграмма.КоличествоСерий = КоличествоСерий + 1; 

	Диаграмма.Серии[КоличествоСерий].Текст = Выборка.Номенклатура; 



	// Установить значение "на пересечении" точки и серии. 

	// Первый параметр - 0 , так как в диаграмме только одна точка. 

	Диаграмма.УстановитьЗначение(0, КоличествоСерий, Выборка.КоличествоОборот); 



КонецЦикла; 



// Обновить диаграмму. 

Диаграмма.Обновление = Истина;

Код 1C v 7.x

 //Пример 1:

Процедура ПостроитьДиаграмму(Диагр)

  КолСерий=0;

  //количество серий определяется по количеству элементов в справочнике Материалы   Спр=СоздатьОбъект("Справочник.Материалы");

  Спр.ВыбратьЭлементы();

  Пока Спр.ПолучитьЭлемент()=1 Цикл

    // группы элементов пропускаются

    Если Спр.ЭтоГруппа()=0 Тогда

      КолСерий=КолСерий+1;

    КонецЕсли;

  КонецЦикла;

  // установка количества серий и точек

  Диагр.КоличествоСерий(КолСерий);

  Диагр.КоличествоТочек(1);

  //в качестве значений на диаграмме примем количественное сальдо конечное по счету 10 и текущему элементу справочника

  БИ=СоздатьОбъект("БухгалтерскиеИтоги");

  БИ.Рассчитать(ДатаОтчета, ДатаОтчета);

  номер=1;

  Спр.ВыбратьЭлементы();

  Пока Спр.ПолучитьЭлемент()=1 Цикл

    Если Спр.ЭтоГруппа()=0 Тогда

      Диагр.УстановитьИмяСерии(Номер, Спр.Наименование);

      Диагр.УстановитьЗначение(1,номер,БИ.СКД("10","К",,Спр.ТекущийЭлемент()));

      номер=номер+1;

    КонецЕсли;

  КонецЦикла;

КонецПроцедуры

Код 1C v 7.x

 // Пример 2:

Процедура СформироватьДиаграмму(Диаграмма1)

    // Блокируем обновление, пока обрабатываются данные

    Диаграмма1.Обновление(0);

    Диаграмма1.Заголовок = "Поступления от покупателей";

    Диаграмма1.УстановитьИмяСерии(1, "Рубли");

    Диаграмма1.АвтоУстановкаИменТочек(1);



    // Заполним диаграмму значениями

    БухИт = СоздатьОбъект("БухгалтерскиеИтоги");



    Бухит.ВыполнитьЗапрос(НачКвартала(РабочаяДата()),

    КонКвартала(РабочаяДата()),"60.1",,,1,"Неделя","С");



    БухИт.ВыбратьПериоды();

    А = 1;

    // дебетовые обороты по счету 60.1 покажут поступления

    // денег от покупателей

    Пока БухИт.ПолучитьПериод() = 1 Цикл



        Диаграмма1.УстановитьЗначение(А, 1, БухИт.ДО());

        А = А +1;



    КонецЦикла;



    // после наполнения данными перерисовываем

    Диаграмма1.Обновление(1);



КонецПроцедуры

Категория: Диаграмма

Вывод результата запроса в табличный документ

Код 1C v 8.х

 

//Вых - ЭлементыФормы.РезультатТабличныйДокумент,

//ТЗЗ - Результат выполнения запроса

Процедура ПечатьРезвТаб(Вых,ТЗЗ) Экспорт

	КоличествоКолонок = ТЗЗ.Колонки.Количество();

	Выборка = ТЗЗ.Выбрать(ОбходРезультатаЗапроса.Прямой);

	ДетальнаяСтрока = Вых.ПолучитьОбласть(1, , 1, );

	ОбластьОбщихИтогов = Вых.ПолучитьОбласть(1, , 1, );

	ОбластьОбщихИтогов.Область().Шрифт = Новый Шрифт(ОбластьОбщихИтогов.Область().Шрифт, , , Истина, , ,);

	ОбластьИерархическихЗаписей = Вых.ПолучитьОбласть(1, , 1, );

	ОбластьИерархическихЗаписей.Область().Шрифт = Новый Шрифт(ОбластьИерархическихЗаписей.Область().Шрифт, , , Истина, , ,);

	ОбластьГрупповыхЗаписей = Вых.ПолучитьОбласть(1, , 1, );

	ОбластьГрупповыхЗаписей.Область().Шрифт = Новый Шрифт(ОбластьГрупповыхЗаписей.Область().Шрифт, , , Истина, , ,);

	ОбластьЗаголовка = Вых.ПолучитьОбласть(1, , 1, );

	

	Для ТекущееПоле = 0 По КоличествоКолонок - 1 Цикл

		Область = ОбластьЗаголовка.Область(1, ТекущееПоле + 1);

		Область.Текст = ТЗЗ.Колонки[ТекущееПоле].Имя;

		Область.ШиринаКолонки = ?(ТЗЗ.Колонки[ТекущееПоле].Ширина<3,3,ТЗЗ.Колонки[ТекущееПоле].Ширина);

	КонецЦикла;

	Вых.Вывести(ОбластьЗаголовка);

	ОбластьЗаголовка = Вых.Область(1, 1, 1, КоличествоКолонок);

	

	ОбластьЗаголовка.Шрифт = Новый Шрифт(ОбластьЗаголовка.Шрифт, , , Истина, , ,);

	ОбластьЗаголовка.ЦветФона = Новый Цвет(234, 234, 234);

	ОбластьЗаголовка.ГраницаСнизу = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);

	

	Вых.НачатьАвтогруппировкуСтрок();

	Пока Выборка.Следующий() Цикл

		ОбработкаПрерыванияПользователя();

		Если Выборка.ТипЗаписи() = ТипЗаписиЗапроса.ИтогПоГруппировке Тогда 

			ИсходнаяСтрока = ОбластьГрупповыхЗаписей;

		ИначеЕсли Выборка.ТипЗаписи() = ТипЗаписиЗапроса.ИтогПоИерархии Тогда 

			ИсходнаяСтрока = ОбластьИерархическихЗаписей;

		ИначеЕсли Выборка.ТипЗаписи() = ТипЗаписиЗапроса.ОбщийИтог Тогда 

			ИсходнаяСтрока = ОбластьОбщихИтогов;

		Иначе

			ИсходнаяСтрока = ДетальнаяСтрока;

		КонецЕсли;

		

		Для ТекущееПоле = 0 По КоличествоКолонок - 1 Цикл

			Область = ИсходнаяСтрока.Область(1, ТекущееПоле + 1);

			Область.Текст = Выборка[ТекущееПоле];

		КонецЦикла;

		Вых.Вывести(ИсходнаяСтрока, Выборка.Уровень());

	КонецЦикла;

	Вых.ЗакончитьАвтогруппировкуСтрок();

КонецПроцедуры

Категория: Табличный документ