1. Для справочник "Склады" необходимо добавить реквизиты: ЦветФонаСтроки, ЦветШрифтаСтроки, ШрифтСтроки, тип - ХранилищеЗначения.
2. Для управляемой формы элемента добавить реквизиты с идентичными названиями, у первых 2 тип "Цвет", у 3 - "Шрифт" и вынести эти реквизиты на управляемую форму.
3. В модуль формы вставить следующий код:
(Системные процедуры не копируются отсюда, а создаются в модуле и там добавляется код, иначе 1с не поймет, что они системные)
&НаСервере
Процедура ЗаполнитьРеквизитыОформленияСтрокНаФорме()
ЭтоНовый = Объект.Ссылка.Пустая();
ОбъектДанные = ДанныеФормыВЗначение(Объект,Тип("СправочникОбъект.Склады"));
ЦветФонаСтрокиХранимый = ОбъектДанные.ЦветФонаСтроки.Получить();
ОформлениеСодержится = ТипЗнч(ЦветФонаСтрокиХранимый) = Тип("Цвет");
Если ЭтоНовый или Не ОформлениеСодержится Тогда
ЦветФонаСтроки = ЦветаСтиля.ЦветФонаПоля;
ЦветШрифтаСтроки = ЦветаСтиля.ЦветТекстаФормы;
ШрифтСтроки = WindowsШрифты.ШрифтДиалоговИМеню;
Иначе
ЦветФонаСтроки = ЦветФонаСтрокиХранимый;
ЦветШрифтаСтроки = ОбъектДанные.ЦветШрифтаСтроки.Получить();
ШрифтСтроки = ОбъектДанные.ШрифтСтроки.Получить();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ЗаполнитьРеквизитыОформленияСтрокНаФорме();
КонецПроцедуры
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
ТекущийОбъект.ЦветФонаСтроки = Новый ХранилищеЗначения(ЦветФонаСтроки);
ТекущийОбъект.ЦветШрифтаСтроки = Новый ХранилищеЗначения(ЦветШрифтаСтроки);
ТекущийОбъект.ШрифтСтроки = Новый ХранилищеЗначения(ШрифтСтроки);
КонецПроцедуры
4. В общий модуль, выполняемый на сервере, к примеру ОбщегоНазначенияСервер вставляемся процедура ОформитьСтрокиТЧ:
&НаСервере
Процедура ОформитьСтрокиТЧ(Объект,УсловноеОформление,ТипОбъектаПодробный,ИмяТЧ,ИмяОбъектаСОформлением) Экспорт
ТипОбъектаСтр = СтрЗаменить(ТипОбъектаПодробный,".",Символы.ПС);
ТипОбъектаКраткий = СтрПолучитьСтроку(ТипОбъектаСтр,1);
ИмяОформляемогоМетаданного = СтрПолучитьСтроку(ТипОбъектаСтр,2);
Если ТипОбъектаКраткий = "ДокументОбъект" Тогда
ТипОбъектаКраткий = "Документы";
ИначеЕсли ТипОбъектаКраткий = "СправочникОбъект" Тогда
ТипОбъектаКраткий = "Справочники";
КонецЕсли;
ОбъектДанные = ДанныеФормыВЗначение(Объект,Тип(ТипОбъектаПодробный));
Для каждого СтрТЧ Из ОбъектДанные[ИмяТЧ] Цикл
ОбъектСОформлением = СтрТЧ[ИмяОбъектаСОформлением];
ЦветФонаСтроки = ОбъектСОформлением.ЦветФонаСтроки.Получить();
ЦветШрифтаСтроки = ОбъектСОформлением.ЦветШрифтаСтроки.Получить();
ШрифтСтроки = ОбъектСОформлением.ШрифтСтроки.Получить();
ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить();
ЭлементУсловногоОформления.Использование = Истина;
ОформлениеУО = ЭлементУсловногоОформления.Оформление;
ОтборУО = ЭлементУсловногоОформления.Отбор;
ОформляемыеПоляУО = ЭлементУсловногоОформления.Поля;
ОформлениеУО.УстановитьЗначениеПараметра("ЦветФона", ЦветФонаСтроки);
ОформлениеУО.УстановитьЗначениеПараметра("ЦветТекста", ЦветШрифтаСтроки);
ОформлениеУО.УстановитьЗначениеПараметра("Шрифт", ШрифтСтроки);
ЭлементОтбора = ОтборУО.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект." + ИмяТЧ + "." + ИмяОбъектаСОформлением);
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбора.ПравоеЗначение = ОбъектСОформлением;
ЭлементОтбора.Использование = Истина;
Для каждого РеквизитТЧ Из Метаданные[ТипОбъектаКраткий][ИмяОформляемогоМетаданного].ТабличныеЧасти[ИмяТЧ].Реквизиты Цикл
НазваниеРеквизита = РеквизитТЧ.Имя;
ОформляемоеПоле = ОформляемыеПоляУО.Элементы.Добавить();
ОформляемоеПоле.Поле = Новый ПолеКомпоновкиДанных(ИмяТЧ + НазваниеРеквизита);
КонецЦикла;
ОформляемоеПоле = ОформляемыеПоляУО.Элементы.Добавить();
ОформляемоеПоле.Поле = Новый ПолеКомпоновкиДанных(ИмяТЧ + "НомерСтроки");
КонецЦикла;
КонецПроцедуры
5. В модуль формы элемента документа "Реализация товаров и услуг" вставить процедуру ОформитьСтрокиТЧСервер и вызов ее в процедурах ТоварыСкладПриИзменении и ПриСозданииНаСервере
&НаКлиенте
Процедура ТоварыСкладПриИзменении(Элемент)
ОформитьСтрокиТЧСервер();
КонецПроцедуры
&НаСервере
Процедура ОформитьСтрокиТЧСервер()
ОбщегоНазначенияСервер.ОформитьСтрокиТЧ(Объект,УсловноеОформление,"ДокументОбъект.РеализацияТоваровУслуг","Товары","Склад");
КонецПроцедуры
Результат:
