Выделение цветом в расчетном листке

Форум Программирование Общие вопросы программирования (Dev)
1С:ЗУП 1С:Зарплата и Управление Персоналом 3.x 1С:Зарплата и кадры государственного учреждения 3
1. Verdad 85 29.05.26 11:20 Сейчас в теме
Добрый день!

ЗУП 3.1.
Необходимо в расчетном листке сумму оклада выделять другим цветом, при этом остальные показатели у начислений не должны поменять цвет. Подскажите, пожалуйста, можно ли это сделать без доработки отчета?
Выделение необходимо именно в табличной части.
Прикрепленные файлы:
+ – Ответить
По теме из базы знаний
Вознаграждение за ответ
Показать полностью
Найденные решения
7. dehro 14 29.05.26 12:46 Сейчас в теме +0.25 $m
Отчет АнализНачисленийУдержаний.
Для расчетного листка через СКД получается только дерево значений. Формирование табличного документа - кодом (никакими условными не получится).

Только доработка.
Verdad; +1 – Ответить
8. romulanin 29.05.26 14:59 Сейчас в теме +0.25 $m
Общий модуль Зарплата кадры отчеты, процедура ВывестиОбластиСтрокиНачислено 

Процедура ВывестиОбластиСтрокиНачислено(ДокументРезультат, Макет, ИмяОбластиСтроки, НастройкиВывода, Параметры = Неопределено, Объединить = Ложь)
	
	ПрисоединитьОбласть = Ложь;
	Для каждого ИмяОбласти Из НастройкиВывода.ИменаОбластейНачислено Цикл
		
		Область = Макет.ПолучитьОбласть(ИмяОбластиСтроки + "|" + ИмяОбласти);
		ЗаполнитьПараметрыОбласти(Область, Параметры);
		//++  Вставка
		Если ИмяОбластиСтроки = "СтрокаРасшифровкаПоказатель" и ИмяОбласти = "ВидНачислено" Тогда
			Для каждого стр Из Область.Параметры Цикл
				Если стр = Справочники.ПоказателиРасчетаЗарплаты.Оклад тогда
					Область.ТекущаяОбласть.ЦветФона = WebЦвета.Красный	
				КонецЕсли;	
			КонецЦикла;	
		КонецЕсли;
		//++ Вставка
		
		Если ПрисоединитьОбласть Тогда
			ДокументРезультат.Присоединить(Область);
		Иначе
			ДокументРезультат.Вывести(Область);
			ПрисоединитьОбласть = Истина;
		КонецЕсли;
		
	КонецЦикла;
	
	Если Объединить Тогда
		НастроитьОбъединение(ДокументРезультат, 1, ШиринаОбластей(Макет, НастройкиВывода.ИменаОбластейНачислено));
	КонецЕсли;
	
КонецПроцедуры
Показать
Verdad; +1 – Ответить
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. starik-2005 3272 29.05.26 11:31 Сейчас в теме
(1)
можно ли это сделать без доработки отчета?
Сохранить в Ыксель и там выделить как кому надо.
+ – Ответить
3. SlavaKron 29.05.26 11:31 Сейчас в теме
(1) Наверное, можно через настройку макета:
Администрирование → Печатные формы, отчеты и обработки → Макеты печатных форм
Прикрепленные файлы:
ZinnurovPavel; +1 – Ответить
4. Verdad 85 29.05.26 11:59 Сейчас в теме
(3) Но в макете мы поменяем цвет для всех показателей, а нам нужно выделять цветом только оклад.
Пробовала настроить условным оформлением, но оно не применяется, наверное макет в приоритете.
+ – Ответить
5. SlavaKron 29.05.26 12:11 Сейчас в теме
(4) Я бы тогда дорабатывал отчет в расширении. Не уверен, кстати, что с таким макетом можно добавить условное оформление. Наверное, там можно вклиниться в вывод данных в макет.
+ – Ответить
6. ZergKRSK 130 29.05.26 12:46 Сейчас в теме
(4) без доработки никак на мой взгляд
+ – Ответить
7. dehro 14 29.05.26 12:46 Сейчас в теме +0.25 $m
Отчет АнализНачисленийУдержаний.
Для расчетного листка через СКД получается только дерево значений. Формирование табличного документа - кодом (никакими условными не получится).

Только доработка.
Verdad; +1 – Ответить
8. romulanin 29.05.26 14:59 Сейчас в теме +0.25 $m
Общий модуль Зарплата кадры отчеты, процедура ВывестиОбластиСтрокиНачислено 

Процедура ВывестиОбластиСтрокиНачислено(ДокументРезультат, Макет, ИмяОбластиСтроки, НастройкиВывода, Параметры = Неопределено, Объединить = Ложь)
	
	ПрисоединитьОбласть = Ложь;
	Для каждого ИмяОбласти Из НастройкиВывода.ИменаОбластейНачислено Цикл
		
		Область = Макет.ПолучитьОбласть(ИмяОбластиСтроки + "|" + ИмяОбласти);
		ЗаполнитьПараметрыОбласти(Область, Параметры);
		//++  Вставка
		Если ИмяОбластиСтроки = "СтрокаРасшифровкаПоказатель" и ИмяОбласти = "ВидНачислено" Тогда
			Для каждого стр Из Область.Параметры Цикл
				Если стр = Справочники.ПоказателиРасчетаЗарплаты.Оклад тогда
					Область.ТекущаяОбласть.ЦветФона = WebЦвета.Красный	
				КонецЕсли;	
			КонецЦикла;	
		КонецЕсли;
		//++ Вставка
		
		Если ПрисоединитьОбласть Тогда
			ДокументРезультат.Присоединить(Область);
		Иначе
			ДокументРезультат.Вывести(Область);
			ПрисоединитьОбласть = Истина;
		КонецЕсли;
		
	КонецЦикла;
	
	Если Объединить Тогда
		НастроитьОбъединение(ДокументРезультат, 1, ШиринаОбластей(Макет, НастройкиВывода.ИменаОбластейНачислено));
	КонецЕсли;
	
КонецПроцедуры
Показать
Verdad; +1 – Ответить
Для отправки сообщения требуется регистрация/авторизация

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот