общих%итого » Поиск

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

Универсальный отчет в прикладных решениях фирмы 1С Категория: Прочие вопросы

Произвольный макет в СКД Категория: Схема Компоновки Данных

Внешние источники данных Категория: Встроенные Функции

Конструктор схемы компоновки данных - Закладка Настройки Категория: Схема Компоновки Данных

Как изменить слово «Итого» в общих итогах?

Иногда возникает желание изменить само слово Итого в общих итогах.
Сделаем это следующим образом:

Код 1C v 8.х

 //Получаем схему из макета

СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");



//Из схемы возьмем настройки по умолчанию

Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;



//Помещаем в переменную данные о расшифровке данных

ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;



//Формируем макет, с помощью компоновщика макета

КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;



//Передаем в макет компоновки схему, настройки и данные расшифровки

МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,

                                        Настройки, ДанныеРасшифровки);



//Выполним компоновку с помощью процессора компоновки

ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,,

                                                   ДанныеРасшифровки);



//Очищаем поле табличного документа

Результат = ЭлементыФормы.Результат;

Результат.Очистить();



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

ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанных

                                                ВТабличныйДокумент;

ПроцессорВывода.УстановитьДокумент(Результат);



ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);



//Ищем в табличном документе "Итого" и заменяем

ТекОбласть = Результат.НайтиТекст("Итого", ТекОбласть, Результат.Область(),

                                             Истина, Истина, Истина, Ложь);



Если ТекОбласть <> Неопределено Тогда

    ТекОбласть.Текст = "МоёИтого";

КонецЕсли;

После этого общие итоги выглядят примерно так:
title

also

Категория: Запросы

Параметры, ключи запуска 1Сv7 из командной строки Категория: Администрирование

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

Код 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);

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

		КонецЦикла;

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

	КонецЦикла;

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

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

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