Как программно изменить оформление строк табличной части в 1С:СКАТ Профессионал?

В этой теме 1 ответ, 2 участника, последнее обновление 33 минуты назад сделано Odin — Одинэсник.

Просмотр 1 ветки ответов

Автор

Записи

30 октября 2026 в 15:35 #38932
Odineski
Участник
в 1с скат профессионал , обычная форма. Я создал внешнюю обработку в которой есть табличная часть Справочник.Номенклатура с несколькими строчками . и есть кнопка, которая должна менять для этой номенклатуре фон в форме список. есть такая штука у них . если в предприятии наводишься на номенлатуру нажимаешь f10 то появляется форма в оторой можно поменять фон у строки. так что программно тоже можно сделать.

нашел в общих командах

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

&НаКлиенте
Процедура ВыполнитьДействие(стрДействие, Ссылка, Объект=Неопределено, Форма=Неопределено) Экспорт

Если стрДействие=»РедактироватьКодНомер» Или стрДействие=»НадписьКод» Тогда
УправлениеНумерациейОбъектов.ИзменениеВозможностиРедактированияНомера(Форма, Форма.ЭлементыФормы.Код);

ИначеЕсли стрДействие=»РедактироватьКодФормыСписка» Тогда
УправлениеНумерациейОбъектов.ИзменениеВозможностиРедактированияНомера(Форма, Форма.ЭлементыФормы.Список.Колонки.Код);

ИначеЕсли стрДействие=»Оформление» Тогда
ВыделенныеСтроки=Форма.ЭлементыФормы.Список.ВыделенныеСтроки;
Если ВыделенныеСтроки.Количество()=0 Тогда
Предупреждение(«Нет выделенных строк!», 30); Возврат;
КонецЕсли;
ФормаОформления=ПолучитьОбщуюФорму(«ФормаНастройкаОформления», Форма);
ФормаОформления.ЭлементыФормы.НадписьСсылкаНаОбъект.Заголовок=»Групповая настройка оформления»;
НастройкаОформление=ФормаОформления.ОткрытьМодально();
ЕстьОформление=Ложь;
Если НЕ НастройкаОформление=Неопределено Тогда
Для каждого СтрокаКоллекции Из НастройкаОформление Цикл
Если СтрокаКоллекции.Использование Тогда
ЕстьОформление=Истина; Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Для каждого СтрокаТабличнойЧасти Из ВыделенныеСтроки Цикл
текОбъект=СтрокаТабличнойЧасти.Ссылка.ПолучитьОбъект();
текОбъект.Оформление=?(ЕстьОформление, Новый ХранилищеЗначения(НастройкаОформление), Неопределено);
текОбъект.Записать();
КонецЦикла;

ИначеЕсли стрДействие=»ОткрытьСвойства» Тогда
Если Ссылка=Неопределено Тогда Возврат; КонецЕсли;
//*ФормаОбработки=Обработки.ЗначенияСвойствОбъекта.ПолучитьФорму(«ЗначенияСвойствОбъекта», Форма,);
ФормаОбработки=ПолучитьФорму(«Обработка.ЗначенияСвойствОбъекта.Форма.ЗначенияСвойствОбъекта»);
ФормаОбработки.ВладелецФормы=Форма;
ФормаОбработки.ОбъектОтбораЗначений = Ссылка;
ФормаОбработки.ОбъектОтбораНазначений = Ссылка;
ФормаОбработки.ПрочитатьЗаполнитьСвойстваИЗначения();
ФормаОбработки.Открыть();

ИначеЕсли стрДействие=»ОткрытьКатегории» Тогда
Если Ссылка=Неопределено Тогда Возврат; КонецЕсли;
//ФормаОбработки=Обработки.КатегорииОбъекта.ПолучитьФорму(«КатегорииОбъекта», Форма,);
ФормаОбработки=ПолучитьФорму(«Обработка.КатегорииОбъекта.Форма.КатегорииОбъекта»);
ФормаОбработки.ВладелецФормы=Форма;
ФормаОбработки.НазначениеКатегорий = ПредопределенноеЗначение(«ПланВидовХарактеристик.НазначенияСвойствКатегорийОбъектов.Справочник_КонтактныеЛицаКонтрагентов»);
ФормаОбработки.ОбъектОтбораКатегорий = Ссылка;
ФормаОбработки.ПрочитатьЗаполнитьКатегорииОбъекта();
ФормаОбработки.Открыть();

ИначеЕсли стрДействие=»ТолькоПросмотр» Тогда
ФормаОбъекта=Ссылка.ПолучитьОбъект().ПолучитьФорму();
ФормаОбъекта.ТолькоПросмотр=Истина;
ФормаОбъекта.Открыть();

ИначеЕсли стрДействие=»Печать» Тогда
//Обработки.УправлениеПечатнымиФормами.Создать().ОткрытьФормуВыбора(Ссылка);
ФормаОбработки=ПолучитьФорму(«Обработка.УправлениеПечатнымиФормами.Форма.ФормаВыбора»,,Новый УникальныйИдентификатор);
ФормаОбработки.ОткрытьФормуВыбора(Ссылка);

ИначеЕсли стрДействие=»Плагины» Тогда
//*ФормаОбработки=Обработки.УправлениеПлагинами.ПолучитьФорму(,, Новый УникальныйИдентификатор);
ФормаОбработки=ПолучитьФорму(«Обработка.УправлениеПлагинами.Форма.Форма»,,Новый УникальныйИдентификатор);
ФормаОбработки.СсылкаВызова=Ссылка;
ФормаОбработки.ОбъектВызова=Объект;
ФормаОбработки.ФормаВызова=Форма;
ФормаОбработки.Открыть();

ИначеЕсли стрДействие=»Справка» Тогда
ОбщегоНазначения.ОткрытьПомощь(Форма);
КонецЕсли;
КонецПроцедуры
Из формы номенклатуры

Процедура тпСписок_ПриПолученииДанных(Элемент, ОформленияСтрок)
Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл
ДанныеОформления=ОформлениеСтроки.ДанныеСтроки.Ссылка.Оформление;
Если ЗначениеЗаполнено(ДанныеОформления) Тогда
Оформление=ДанныеОформления.Получить();
Если НЕ Оформление=Неопределено Тогда
Если Оформление.ЦветТекста.Использование Тогда
ОформлениеСтроки.ЦветТекста=Оформление.ЦветТекста.Значение;
КонецЕсли;

Если Оформление.ЦветФона.Использование Тогда
ОформлениеСтроки.ЦветФона=Оформление.ЦветФона.Значение;
КонецЕсли;

Если Оформление.Шрифт.Использование Тогда
ОформлениеСтроки.Шрифт=Оформление.Шрифт.Значение;
КонецЕсли;
КонецЕсли;
КонецЕсли;
мПоискОбъектовВСпискахДанных.СписокПриВыводеСтрокиСпискаОтбораДанных(Элемент, ОформлениеСтроки, ОформлениеСтроки.ДанныеСтроки);
КонецЦикла;
КонецПроцедуры

30 октября 2026 в 15:35 #38933

Участник

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

Предположим:

— табличная часть внешней обработки называется Номенклатура;
— колонка табличной части также называется Номенклатура;
— колонка имеет тип СправочникСсылка.Номенклатура;
— кнопка находится в обычной форме внешней обработки.

## Код кнопки

Процедура УстановитьОформление(Кнопка)

	Если Объект.Номенклатура.Количество() = 0 Тогда
		Предупреждение("В табличной части нет номенклатуры.", 30);
		Возврат;
	КонецЕсли;

	// Открываем штатную форму СКАТ для выбора оформления
	ФормаОформления = ПолучитьОбщуюФорму(
		"ФормаНастройкаОформления",
		ЭтаФорма);

	ФормаОформления.ЭлементыФормы.НадписьСсылкаНаОбъект.Заголовок =
		"Групповая настройка оформления";

	// В форме пользователь выбирает цвет фона,
	// цвет текста, шрифт и другие параметры
	НастройкаОформление = ФормаОформления.ОткрытьМодально();

	// Если пользователь закрыл форму крестиком или отменил действие
	Если НастройкаОформление = Неопределено Тогда
		Возврат;
	КонецЕсли;

	// Проверяем, включен ли хотя бы один параметр оформления
	ЕстьОформление = Ложь;

	Для Каждого СтрокаНастройки Из НастройкаОформление Цикл

		Если СтрокаНастройки.Использование Тогда
			ЕстьОформление = Истина;
			Прервать;
		КонецЕсли;

	КонецЦикла;

	// Сохраняем одинаковое оформление для всех выбранных элементов
	ХранилищеОформления = Неопределено;

	Если ЕстьОформление Тогда
		ХранилищеОформления =
			Новый ХранилищеЗначения(НастройкаОформление);
	КонецЕсли;

	КоличествоЗаписано = 0;

	Для Каждого СтрокаТабличнойЧасти Из Объект.Номенклатура Цикл

		Если Не ЗначениеЗаполнено(СтрокаТабличнойЧасти.Номенклатура) Тогда
			Продолжить;
		КонецЕсли;

		НоменклатураОбъект =
			СтрокаТабличнойЧасти.Номенклатура.ПолучитьОбъект();

		Если ЕстьОформление Тогда
			НоменклатураОбъект.Оформление = ХранилищеОформления;
		Иначе
			// Если в форме оформления ничего не используется,
			// снимаем ранее установленное оформление
			НоменклатураОбъект.Оформление = Неопределено;
		КонецЕсли;

		НоменклатураОбъект.Записать();

		КоличествоЗаписано = КоличествоЗаписано + 1;

	КонецЦикла;

	Если КоличествоЗаписано = 0 Тогда
		Предупреждение("Не заполнена ни одна номенклатура.", 30);
		Возврат;
	КонецЕсли;

	Сообщить(
		"Оформление установлено для элементов: "
		+ Строка(КоличествоЗаписано));

	ОбновитьФормуСписка();

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

Процедура УстановитьОформление(Кнопка)

Если Объект.Номенклатура.Количество() = 0 Тогда

Предупреждение("В табличной части нет номенклатуры.", 30);

Возврат;

КонецЕсли;

// Открываем штатную форму СКАТ для выбора оформления

ФормаОформления = ПолучитьОбщуюФорму(

"ФормаНастройкаОформления",

ЭтаФорма);

ФормаОформления.ЭлементыФормы.НадписьСсылкаНаОбъект.Заголовок =

"Групповая настройка оформления";

// В форме пользователь выбирает цвет фона,

// цвет текста, шрифт и другие параметры

НастройкаОформление = ФормаОформления.ОткрытьМодально();

// Если пользователь закрыл форму крестиком или отменил действие

Если НастройкаОформление = Неопределено Тогда

Возврат;

КонецЕсли;

// Проверяем, включен ли хотя бы один параметр оформления

ЕстьОформление = Ложь;

Для Каждого СтрокаНастройки Из НастройкаОформление Цикл

Если СтрокаНастройки.Использование Тогда

ЕстьОформление = Истина;

Прервать;

КонецЕсли;

КонецЦикла;

// Сохраняем одинаковое оформление для всех выбранных элементов

ХранилищеОформления = Неопределено;

Если ЕстьОформление Тогда

ХранилищеОформления =

Новый ХранилищеЗначения(НастройкаОформление);

КонецЕсли;

КоличествоЗаписано = 0;

Для Каждого СтрокаТабличнойЧасти Из Объект.Номенклатура Цикл

Если Не ЗначениеЗаполнено(СтрокаТабличнойЧасти.Номенклатура) Тогда

Продолжить;

КонецЕсли;

НоменклатураОбъект =

СтрокаТабличнойЧасти.Номенклатура.ПолучитьОбъект();

Если ЕстьОформление Тогда

НоменклатураОбъект.Оформление = ХранилищеОформления;

Иначе

// Если в форме оформления ничего не используется,

// снимаем ранее установленное оформление

НоменклатураОбъект.Оформление = Неопределено;

КонецЕсли;

НоменклатураОбъект.Записать();

КоличествоЗаписано = КоличествоЗаписано + 1;

КонецЦикла;

Если КоличествоЗаписано = 0 Тогда

Предупреждение("Не заполнена ни одна номенклатура.", 30);

Возврат;

КонецЕсли;

Сообщить(

"Оформление установлено для элементов: "

+ Строка(КоличествоЗаписано));

ОбновитьФормуСписка();

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

Главное отличие от штатного кода:

ВыделенныеСтроки = Форма.ЭлементыФормы.Список.ВыделенныеСтроки;

1	ВыделенныеСтроки = Форма.ЭлементыФормы.Список.ВыделенныеСтроки;

у вас будет:

Для Каждого СтрокаТабличнойЧасти Из Объект.Номенклатура Цикл

1	Для Каждого СтрокаТабличнойЧасти Из Объект.Номенклатура Цикл

А дальше выполняется такая же запись:

НоменклатураОбъект.Оформление =
	Новый ХранилищеЗначения(НастройкаОформление);

НоменклатураОбъект.Записать();

НоменклатураОбъект.Оформление =

Новый ХранилищеЗначения(НастройкаОформление);

НоменклатураОбъект.Записать();

## Если табличная часть называется не Номенклатура

Например, табличная часть внешней обработки называется Товары, а колонка называется Номенклатура. Тогда цикл будет таким:

Для Каждого СтрокаТабличнойЧасти Из Объект.Товары Цикл

	Если Не ЗначениеЗаполнено(СтрокаТабличнойЧасти.Номенклатура) Тогда
		Продолжить;
	КонецЕсли;

	НоменклатураОбъект =
		СтрокаТабличнойЧасти.Номенклатура.ПолучитьОбъект();

	Если ЕстьОформление Тогда
		НоменклатураОбъект.Оформление = ХранилищеОформления;
	Иначе
		НоменклатураОбъект.Оформление = Неопределено;
	КонецЕсли;

	НоменклатураОбъект.Записать();

КонецЦикла;

Для Каждого СтрокаТабличнойЧасти Из Объект.Товары Цикл

Если Не ЗначениеЗаполнено(СтрокаТабличнойЧасти.Номенклатура) Тогда

Продолжить;

КонецЕсли;

НоменклатураОбъект =

СтрокаТабличнойЧасти.Номенклатура.ПолучитьОбъект();

Если ЕстьОформление Тогда

НоменклатураОбъект.Оформление = ХранилищеОформления;

Иначе

НоменклатураОбъект.Оформление = Неопределено;

КонецЕсли;

НоменклатураОбъект.Записать();

КонецЦикла;

Замените Объект.Товары на фактическое имя табличной части.

## Если реквизит табличной части имеет другое имя

Например, колонка называется Товар, тогда нужно использовать:

Для Каждого СтрокаТабличнойЧасти Из Объект.Номенклатура Цикл

	Если Не ЗначениеЗаполнено(СтрокаТабличнойЧасти.Товар) Тогда
		Продолжить;
	КонецЕсли;

	НоменклатураОбъект =
		СтрокаТабличнойЧасти.Товар.ПолучитьОбъект();

	НоменклатураОбъект.Оформление =
		Новый ХранилищеЗначения(НастройкаОформление);

	НоменклатураОбъект.Записать();

КонецЦикла;

Для Каждого СтрокаТабличнойЧасти Из Объект.Номенклатура Цикл

Если Не ЗначениеЗаполнено(СтрокаТабличнойЧасти.Товар) Тогда

Продолжить;

КонецЕсли;

НоменклатураОбъект =

СтрокаТабличнойЧасти.Товар.ПолучитьОбъект();

НоменклатураОбъект.Оформление =

Новый ХранилищеЗначения(НастройкаОформление);

НоменклатураОбъект.Записать();

КонецЦикла;

## Обновление формы списка

Цвет записывается в справочник, но уже открытая форма списка может не перерисовать строки автоматически. Поэтому после записи нужно обновить список.

Добавьте в обработку процедуру:

Процедура ОбновитьФормуСписка()

	Если ВладелецФормы = Неопределено Тогда
		Возврат;
	КонецЕсли;

	Попытка

		ВладелецФормы.ЭлементыФормы.Список.Обновить();

	Исключение

		// В конкретной конфигурации табличное поле
		// может называться тпСписок
		Попытка
			ВладелецФормы.ЭлементыФормы.тпСписок.Обновить();
		Исключение
			// Список будет обновлен после повторного открытия формы
		КонецПопытки;

	КонецПопытки;

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

Процедура ОбновитьФормуСписка()

Если ВладелецФормы = Неопределено Тогда

Возврат;

КонецЕсли;

Попытка

ВладелецФормы.ЭлементыФормы.Список.Обновить();

Исключение

// В конкретной конфигурации табличное поле

// может называться тпСписок

Попытка

ВладелецФормы.ЭлементыФормы.тпСписок.Обновить();

Исключение

// Список будет обновлен после повторного открытия формы

КонецПопытки;

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

В вашем случае по обработчику:

Процедура тпСписок_ПриПолученииДанных(Элемент, ОформленияСтрок)

1	Процедура тпСписок_ПриПолученииДанных(Элемент, ОформленияСтрок)

табличное поле формы списка, скорее всего, называется тпСписок. Тогда основной вариант должен быть таким:

ВладелецФормы.ЭлементыФормы.тпСписок.Обновить();

1	ВладелецФормы.ЭлементыФормы.тпСписок.Обновить();

## Как открыть обработку с владельцем формы списка

Чтобы ВладелецФормы был заполнен, обработку нужно открывать из формы списка примерно так:

ФормаОбработки = ПолучитьФорму(
	"ВнешняяОбработка.ИмяОбработки.Форма.Форма",
	ФормаСписка);

ФормаОбработки.ВладелецФормы = ФормаСписка;
ФормаОбработки.Открыть();

ФормаОбработки = ПолучитьФорму(

"ВнешняяОбработка.ИмяОбработки.Форма.Форма",

ФормаСписка);

ФормаОбработки.ВладелецФормы = ФормаСписка;

ФормаОбработки.Открыть();

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

## Если обработка открывается через штатную форму выбора

Можно передать владельца так:

ФормаОбработки = ПолучитьФорму(
	"ВнешняяОбработка.ИмяОбработки.Форма.Форма",
	Форма);

ФормаОбработки.ВладелецФормы = Форма;
ФормаОбработки.Открыть();

ФормаОбработки = ПолучитьФорму(

"ВнешняяОбработка.ИмяОбработки.Форма.Форма",

Форма);

ФормаОбработки.ВладелецФормы = Форма;

ФормаОбработки.Открыть();

Где Форма это форма списка номенклатуры.

## Снятие оформления у нескольких номенклатур

Если пользователь в форме ФормаНастройкаОформления отключит все флаги Использование, переменная:

ЕстьОформление

1	ЕстьОформление

останется равной Ложь.

Тогда код:

НоменклатураОбъект.Оформление = Неопределено;

1	НоменклатураОбъект.Оформление = Неопределено;

удалит ранее сохраненный цвет у всех строк табличной части.

То есть одна кнопка будет выполнять оба действия:

— если выбрали цвет, шрифт или цвет текста, оформление устанавливается;
— если все настройки отключили, оформление удаляется.

## Почему цвет будет отображаться в форме списка

В форме списка СКАТ уже есть обработчик:

Процедура тпСписок_ПриПолученииДанных(Элемент, ОформленияСтрок)

	Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

		ДанныеОформления =
			ОформлениеСтроки.ДанныеСтроки.Ссылка.Оформление;

		Если ЗначениеЗаполнено(ДанныеОформления) Тогда

			Оформление = ДанныеОформления.Получить();

			Если Не Оформление = Неопределено Тогда

				Если Оформление.ЦветФона.Использование Тогда
					ОформлениеСтроки.ЦветФона =
						Оформление.ЦветФона.Значение;
				КонецЕсли;

			КонецЕсли;

		КонецЕсли;

	КонецЦикла;

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

Процедура тпСписок_ПриПолученииДанных(Элемент, ОформленияСтрок)

Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

ДанныеОформления =

ОформлениеСтроки.ДанныеСтроки.Ссылка.Оформление;

Если ЗначениеЗаполнено(ДанныеОформления) Тогда

Оформление = ДанныеОформления.Получить();

Если Не Оформление = Неопределено Тогда

Если Оформление.ЦветФона.Использование Тогда

ОформлениеСтроки.ЦветФона =

Оформление.ЦветФона.Значение;

КонецЕсли;

КонецЦикла;

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

Поэтому во внешней обработке не нужно напрямую работать с ОформлениеСтроки. Нужно только записать настройку в:

Номенклатура.Оформление

1	Номенклатура.Оформление

## Если нужно не открывать форму выбора, а сразу задавать фиксированный цвет

Тогда можно создать оформление напрямую, но это зависит от внутреннего типа, который возвращает общая форма ФормаНастройкаОформления. В СКАТ безопаснее использовать штатную форму, потому что она создает объект с правильной структурой:

ФормаОформления = ПолучитьОбщуюФорму(
	"ФормаНастройкаОформления",
	ЭтаФорма);

НастройкаОформление = ФормаОформления.ОткрытьМодально();

ФормаОформления = ПолучитьОбщуюФорму(

"ФормаНастройкаОформления",

ЭтаФорма);

НастройкаОформление = ФормаОформления.ОткрытьМодально();

Полученный результат можно без изменений записать в ХранилищеЗначения:

НоменклатураОбъект.Оформление =
	Новый ХранилищеЗначения(НастройкаОформление);

1 2	НоменклатураОбъект.Оформление = Новый ХранилищеЗначения(НастройкаОформление);

Для вашей задачи основной рабочий код будет именно таким:

Для Каждого СтрокаТабличнойЧасти Из Объект.Номенклатура Цикл

	Если Не ЗначениеЗаполнено(СтрокаТабличнойЧасти.Номенклатура) Тогда
		Продолжить;
	КонецЕсли;

	НоменклатураОбъект =
		СтрокаТабличнойЧасти.Номенклатура.ПолучитьОбъект();

	НоменклатураОбъект.Оформление =
		Новый ХранилищеЗначения(НастройкаОформление);

	НоменклатураОбъект.Записать();

КонецЦикла;

Для Каждого СтрокаТабличнойЧасти Из Объект.Номенклатура Цикл

Если Не ЗначениеЗаполнено(СтрокаТабличнойЧасти.Номенклатура) Тогда

Продолжить;

КонецЕсли;

НоменклатураОбъект =

СтрокаТабличнойЧасти.Номенклатура.ПолучитьОбъект();

НоменклатураОбъект.Оформление =

Новый ХранилищеЗначения(НастройкаОформление);

НоменклатураОбъект.Записать();

КонецЦикла;

Именно этот цикл нужно использовать вместо цикла по ВыделенныеСтроки.

Автор

Записи

Просмотр 1 ветки ответов

Для ответа в этой теме необходимо авторизоваться.

Вы пропустили

Новый курс «Администратор 1С v4.1»

Автономный сервер 1С — публикация ИБ

Установка PostgreSQL 17 для 1С на Windows server 2022

Как запустить «Сервер 1С» на Ubuntu 24.04 LTS ?