Доброго времени суток!
Внешний отчет на СКД без макета оформления, т.е. выводится системой.
Для Конфигурации Бухгалтерия BAS в ней есть два языка: русский и украинский.
Платформа инсталлирована русская (интерфейс программы) - переинсталяция не подходит
Интерфейс пользователя - украинский
Язык печатных форм - украинский (хотя в данном случае он не причём)
Всё работает нормально но в ИТОГАХ СКД пишется "Итого"
Вопрос: Как заменить "Итого" на "Разом"?
З.Ы. Кстати и во всех стандартных отчетах тоже "Итого"...
Уточню вопрос
Запуск через ключ /Luk - не подходит
Интересует изменение в самой СКД через модуль объекта процедура "ПриКомпоновкеРезультата"
З.Ы. Рассматривается вариант платного выполнения с подробными объяснениями
AnryMc,
найти Итого и заменить на свое.
Если, что - пишите в ЛС
Vofka @ Сегодня, 9:57
,
Vofka @ Сегодня, 9:57
,
в ТабДокументе ищем ячейку со значением "Итого" и меняем на свое - так конкретно?
установка параметров - ПриКомпоновке....
Настройки = КомпоновщикНастроек.ПолучитьНастройки();
Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Параметр", Значение);
КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);
ТекОбласть = Результат.НайтиТекст("Итого", ТекОбласть, Результат.Область(), Истина, Истина, Истина, Ложь);
Если ТекОбласть <> Неопределено Тогда
ТекОбласть.Текст = "Загалом";
КонецЕсли;
РЕШЕНО!!!
Рабочий код:
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
Настройки = ЭтотОбъект.КомпоновщикНастроек.ПолучитьНастройки();
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, , ДанныеРасшифровки, Истина);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
Ячейка = 1;
Пока Ячейка <> Неопределено Цикл
Ячейка = ДокументРезультат.НайтиТекст("Итого");
Если Ячейка <> Неопределено Тогда
Ячейка.Текст = "Разом";
КонецЕсли;
КонецЦикла;
//***Запишем в журнал событий
ЗаписьЖурналаРегистрации("МоеСобытие.Отчет."+СокрЛП(ЭтотОбъект.Метаданные().Имя),
УровеньЖурналаРегистрации.Информация,
,
СокрЛП(ЭтотОбъект.Метаданные().Имя),
"Открыт "+СокрЛП(ПараметрыСеанса.ТекущийПользователь)+" "+СокрЛП(ТекущаяДата()));
КонецПроцедуры
Пока Истина Цикл
Ячейка = ДокументРезультат.НайтиТекст("Итого");
Если Ячейка = Неопределено Тогда
Прервать;
КонецЕсли;
Ячейка.Текст = "Разом";
КонецЦикла;
Кстати, если"прикрутить" справочник или регистр сведений можно сделать "универсальный" механизм перевода...
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua