Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Язык отчета на СКД , Заменить системное поле "Итого" на "Разом"          
AnryMc Подменю пользователя
сообщение 04.08.22, 10:43
Сообщение #1

Оратор
Иконка группы
Группа: Местный
Сообщений: 313
Спасибо сказали: 95 раз
Рейтинг: 96.6

Доброго времени суток!

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

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

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

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

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


Сообщение отредактировал AnryMc - 04.08.22, 10:30

sava1 Подменю пользователя
сообщение 04.08.22, 13:01
Сообщение #2

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2684
Из: Проскуров
Спасибо сказали: 678 раз
Рейтинг: 656.7

AnryMc,

найти Итого и заменить на свое.
Если, что - пишите в ЛС

Vofka Подменю пользователя
сообщение 05.08.22, 8:57
Сообщение #3

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13948
Из: Киев
Спасибо сказали: 4514 раз
Рейтинг: 3635.6

Цитата(AnryMc @ 04.08.22, 11:43) *
- Как заменить "Итого" на "Разом"?

Цитата(sava1 @ 04.08.22, 14:01) *
найти Итого и заменить на свое.

Ответ даже не капитана, а адмирала просто. Вы б может конкретики немного добавили?

Сообщение отредактировал Vofka - 05.08.22, 8:58

sava1 Подменю пользователя
сообщение 05.08.22, 9:36
Сообщение #4

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2684
Из: Проскуров
Спасибо сказали: 678 раз
Рейтинг: 656.7

Vofka @ Сегодня, 9:57 * ,
Vofka @ Сегодня, 9:57 * ,

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

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

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


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

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

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

Спасибо сказали: pony95,

Vofka Подменю пользователя
сообщение 05.08.22, 10:02
Сообщение #5

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13948
Из: Киев
Спасибо сказали: 4514 раз
Рейтинг: 3635.6

Цитата(sava1 @ 05.08.22, 10:36) *
так конкретно?

Однозначно намного конкретнее. 12201689.gif

AnryMc Подменю пользователя
сообщение 05.08.22, 10:55
Сообщение #6

Оратор
Иконка группы
Группа: Местный
Сообщений: 313
Спасибо сказали: 95 раз
Рейтинг: 96.6

РЕШЕНО!!!

Рабочий код:

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


Работает со всеми настройками (настойками, пользовательскими настройками, фиксированными настройками) - отборы, оформления, ....

Сообщение отредактировал AnryMc - 05.08.22, 11:02

Спасибо сказали: pony95,

AnryMc Подменю пользователя
сообщение 05.08.22, 13:51
Сообщение #7

Оратор
Иконка группы
Группа: Местный
Сообщений: 313
Спасибо сказали: 95 раз
Рейтинг: 96.6

Цитата(sava1 @ 05.08.22, 10:36) *
ТекОбласть = Результат.НайтиТекст("Итого", ТекОбласть, Результат.Область(), Истина, Истина, Истина, Ложь);

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


Поиск области не в цикле - заменит 1-е значение а не все...

Vofka Подменю пользователя
сообщение 05.08.22, 14:15
Сообщение #8

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13948
Из: Киев
Спасибо сказали: 4514 раз
Рейтинг: 3635.6

Цитата(AnryMc @ 05.08.22, 14:51) *
Поиск области не в цикле - заменит 1-е значение а не все...

То ж было не готовое решение для вас, а способ как это в принципе можно сделать.

sava1 Подменю пользователя
сообщение 08.08.22, 13:17
Сообщение #9

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2684
Из: Проскуров
Спасибо сказали: 678 раз
Рейтинг: 656.7

Цитата(AnryMc @ 05.08.22, 11:55) *
Ячейка = 1;

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

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

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

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

КонецЕсли;

КонецЦикла;



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

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

        
    КонецЦикла;



AnryMc Подменю пользователя
сообщение 08.08.22, 13:54
Сообщение #10

Оратор
Иконка группы
Группа: Местный
Сообщений: 313
Спасибо сказали: 95 раз
Рейтинг: 96.6

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

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 29.03.24, 7:28
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!