Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Язык отчета на СКД
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.3
AnryMc
Доброго времени суток!

Внешний отчет на СКД без макета оформления, т.е. выводится системой.
Для Конфигурации Бухгалтерия BAS в ней есть два языка: русский и украинский.
Платформа инсталлирована русская (интерфейс программы) - переинсталяция не подходит
Интерфейс пользователя - украинский
Язык печатных форм - украинский (хотя в данном случае он не причём)
Всё работает нормально но в ИТОГАХ СКД пишется "Итого"

Вопрос: Как заменить "Итого" на "Разом"?

З.Ы. Кстати и во всех стандартных отчетах тоже "Итого"...

Уточню вопрос
Запуск через ключ /Luk - не подходит
Интересует изменение в самой СКД через модуль объекта процедура "ПриКомпоновкеРезультата"

З.Ы. Рассматривается вариант платного выполнения с подробными объяснениями
sava1
AnryMc,

найти Итого и заменить на свое.
Если, что - пишите в ЛС
Vofka
Цитата(AnryMc @ 04.08.22, 11:43) необходимо зарегистрироваться для просмотра ссылки
- Как заменить "Итого" на "Разом"?

Цитата(sava1 @ 04.08.22, 14:01) необходимо зарегистрироваться для просмотра ссылки
найти Итого и заменить на свое.

Ответ даже не капитана, а адмирала просто. Вы б может конкретики немного добавили?
sava1
Vofka @ Сегодня, 9:57 необходимо зарегистрироваться для просмотра ссылки ,
Vofka @ Сегодня, 9:57 необходимо зарегистрироваться для просмотра ссылки ,

в ТабДокументе ищем ячейку со значением "Итого" и меняем на свое - так конкретно?

установка параметров - ПриКомпоновке....

    Настройки = КомпоновщикНастроек.ПолучитьНастройки();    
    Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("Параметр", Значение);    
    КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);


далее выводим отчет....
а здесь меняем Итого

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

      Если ТекОбласть <> Неопределено Тогда
               ТекОбласть.Текст = "Загалом";
     КонецЕсли;
Vofka
Цитата(sava1 @ 05.08.22, 10:36) необходимо зарегистрироваться для просмотра ссылки
так конкретно?

Однозначно намного конкретнее. 12201689.gif
AnryMc
РЕШЕНО!!!

Рабочий код:

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


Работает со всеми настройками (настойками, пользовательскими настройками, фиксированными настройками) - отборы, оформления, ....
AnryMc
Цитата(sava1 @ 05.08.22, 10:36) необходимо зарегистрироваться для просмотра ссылки
ТекОбласть = Результат.НайтиТекст("Итого", ТекОбласть, Результат.Область(), Истина, Истина, Истина, Ложь);

Если ТекОбласть <> Неопределено Тогда
ТекОбласть.Текст = "Загалом";
КонецЕсли;


Поиск области не в цикле - заменит 1-е значение а не все...
Vofka
Цитата(AnryMc @ 05.08.22, 14:51) необходимо зарегистрироваться для просмотра ссылки
Поиск области не в цикле - заменит 1-е значение а не все...

То ж было не готовое решение для вас, а способ как это в принципе можно сделать.
sava1
Цитата(AnryMc @ 05.08.22, 11:55) необходимо зарегистрироваться для просмотра ссылки
Ячейка = 1;

Пока Ячейка <> Неопределено Цикл

Ячейка = ДокументРезультат.НайтиТекст("Итого");

Если Ячейка <> Неопределено Тогда

Ячейка.Текст = "Разом";

КонецЕсли;

КонецЦикла;



Уж если по-правильному , тогда

    Пока Истина Цикл
        
        Ячейка = ДокументРезультат.НайтиТекст("Итого");
        
        Если Ячейка = Неопределено Тогда
             Прервать;
        КонецЕсли;
            
        Ячейка.Текст = "Разом";            

        
    КонецЦикла;


AnryMc
Кстати, если"прикрутить" справочник или регистр сведений можно сделать "универсальный" механизм перевода...
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.