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

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

Для реализации идеи используется механизма разделения данных, подробнее 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)