Мультиязычность данных в конфигурации

Мультиязычность данных в некоторых случаях может быть востребована. Например, есть конфигурация, в которой работают сотрудники из разных стран, не знающие несколько языков.

Для реализации идеи используется механизма разделения данных, подробнее http://v8.1c.ru/overview/Term_000000788.htm и http://howknow1c.ru/programmirovanie-1c/razdelenie-dannyh-1s.html. При этом по общему реквизиту идет разделение данных в режиме использования разделяемых данных — независимо. При этом у нас появляется возможность хранить в базе объекты для разных языков с общей ссылкой. Эту ссылку можно использовать для остальной конфигурации, даже если остальная часть конфигурации не будет разделена по этому общему реквизиту, и данные будут отображены на определенном языке в зависимости от параметра сеанса.

В статье и тестовой конфигурации не будет рассмотрен механизмы локализации прикладных решений через объект конфигурации «Язык», подробнее http://v8.1c.ru/overview/Term_000000293.htm

Идею разработки можно применить к типовым конфигурациям с минимальными изменениями типовых объектов.

1. Создаем справочник «ЯзыкиДанных». В нем для удобства сразу создадим предопределенные элементы — русский и английский.

2. Создаем общий реквизит «ЯзыкДанных». Устанавливаем свойства: Тип данных — СправочникСсылка.ЯзыкиДанных; Разделение данных — Разделять; автоматически создаем параметры сеанса для свойств Значение разделения данных — ЯзыкДанныхЗначение, Использования разделения данных — ЯзыкДанныхИспользование. В составе указываем объекты конфигурации для разделения, в примере добавлены справочник Номенклатура и документ Поступление.

3. Создаем общий модуль для создания процедуры подписки на событие и подписку на событие ПриЗаписи для объектов, данные которых необходимо разделить по языкам заполнения.

4. В общем модуле сеанса прописываем заполнение параметров сеанса для разделения данных по общему реквизиту ЯзыкДанных

Дополнительно в тестовой конфигурации были созданы объекты справочник Номенклатура, документ Поступление с движением по регистру накопления Остатки номенклатуры. В примере показано ведение номенклатуры на разных языках, также для демонстрации (отчасти  для проверки высказываний, что создаются несколько записей движения документа, если документ разделен и создается его копия на другом языке). В справочнике «Номенклатура» различные языки используются для реквизита «Наименование», в документе «Поступление» для реквизита «Комментарий».

Основной идея заключается в обработке события ПриЗаписи объектов, данные которых необходимо разделить по языкам.

Процедура ИзменениеОбъектовНаДругихЯзыкахПриЗаписи(Источник, Отказ) Экспорт

// проверка обработки события
Если Источник.ДополнительныеСвойства.Свойство("ЗаписьЯзыковойКопии") Тогда
Возврат;
КонецЕсли;

ПользователиИнформационнойБазы.ТекущийПользователь().Язык = ТекущийЯзык();

// сохраняем текущий язык данных
ТекущийЯзыкДанных = ПараметрыСеанса.ЯзыкДанныхЗначение;

ВыборкаЯзыковДанных = Справочники.ЯзыкиДанных.Выбрать();

Пока ВыборкаЯзыковДанных.Следующий() Цикл

Если ВыборкаЯзыковДанных.Ссылка = ТекущийЯзыкДанных Тогда
Продолжить;
КонецЕсли;

ТипИсточника = ТипЗнч(Источник);

// временно изменяем параметр сеанса
ПараметрыСеанса.ЯзыкДанныхЗначение = ВыборкаЯзыковДанных.Ссылка;

ЯзыковаяКопия = Источник.Ссылка.ПолучитьОбъект();
НовыйОбъект = ЯзыковаяКопия = Неопределено;

// обновляем языковую копию объекта
Если ТипИсточника = Тип("СправочникОбъект.Номенклатура") Тогда

// реквизит Наименование будет на разных языках
Если НовыйОбъект Тогда
ЯзыковаяКопия = Справочники.Номенклатура.СоздатьЭлемент();
ЯзыковаяКопия.УстановитьСсылкуНового(Источник.Ссылка);

СписокПолей = "Код, Наименование";
Иначе
СписокПолей = "Код";
КонецЕсли;

ЗаполнитьЗначенияСвойств(ЯзыковаяКопия, Источник, СписокПолей);
ЯзыковаяКопия.ОбменДанными.Загрузка = Истина;
ЯзыковаяКопия.ДополнительныеСвойства.Вставить("ЗаписьЯзыковойКопии");
ЯзыковаяКопия.Записать();

КонецЕсли;

Если ТипИсточника = Тип("ДокументОбъект.Поступление") Тогда

// реквизит Комментарий будет на разных языках
Если НовыйОбъект Тогда
ЯзыковаяКопия = Документы.Поступление.СоздатьДокумент();
ЯзыковаяКопия.УстановитьСсылкуНового(Источник.Ссылка);

СписокПолей = "Номер, Дата, Номенклатура, Количество, Проведен, ПометкаУдаления, Комментарий";
Иначе
СписокПолей = "Номер, Дата, Номенклатура, Количество, Проведен, ПометкаУдаления";
КонецЕсли;

ЗаполнитьЗначенияСвойств(ЯзыковаяКопия, Источник, СписокПолей);
ЯзыковаяКопия.ОбменДанными.Загрузка = Истина;
ЯзыковаяКопия.ДополнительныеСвойства.Вставить("ЗаписьЯзыковойКопии");
ЯзыковаяКопия.Записать();

КонецЕсли;

КонецЦикла;

ПараметрыСеанса.ЯзыкДанныхЗначение = ТекущийЯзыкДанных;

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

В данной процедуре уже после записи основного объекта создаются и обновляются копии объекта на других языках по определенным правилам. Правила создания и обновления копий объектов можно автоматизировать различными способами, далее насколько хватит Вашей фантазии.

Пример конфигурации разработан на платформе 1С:Предприятие 8.3 (8.3.6.1999)