Доброго дня. С толкнулся с такой проблемой. Хочу задать условное оформление ТЧ дока при записи. При вызове мое процедуры из ПередЗаписью условное оформление не отрабатывает, если поставить в ПриСозданииНаСервере, все нормально отрабатывает. В чем может заключаться ошибка, может что-то нужно дописать?
По теме из базы знаний
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(4)
&НаСервере
Процедура ПокраситьСтроку() Экспорт
Для НомерДня=1 По 31 Цикл
Для Каждого Строка ИЗ Объект.ДанныеОВремени Цикл
Если (Строка.Сотрудник.ВАрхиве И (Месяц(Объект.ДатаНачалаПериода) > Месяц(Строка.Сотрудник.ДатаУвольнения)) ИЛИ
(Строка.Сотрудник.ВАрхиве И (Месяц(Объект.ДатаНачалаПериода) = Месяц(Строка.Сотрудник.ДатаУвольнения) И День(Строка.Сотрудник.ДатаУвольнения) <= НомерДня)))
Тогда
Строка[СтрШаблон("ЦветЯчейки%1",НомерДня)] = "Красный";
КонецЕсли;
КонецЦикла;
КонецЦикла;
Для НомерДня=1 По 31 Цикл
Оформление = УсловноеОформление.Элементы.Добавить();
Оформление.Использование = Истина;
Поле = Оформление.Поля.Элементы.Добавить();
Поле.Поле = Новый ПолеКомпоновкиДанных(СтрШаблон("ДанныеОВремениЧасы%1",НомерДня));
Отбор = Оформление.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(СтрШаблон("Объект.ДанныеОВремени.ЦветЯчейки%1",НомерДня));
Отбор.ПравоеЗначение = "Красный";
Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
Отбор.Использование = Истина;
Оформление.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.СеребристоСерый);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
ПокраситьСтроку();
ОбновитьИнтерфейс();
КонецПроцедуры
&НаСервере
Процедура ПокраситьСтроку() Экспорт
Для НомерДня=1 По 31 Цикл
Для Каждого Строка ИЗ Объект.ДанныеОВремени Цикл
Если (Строка.Сотрудник.ВАрхиве И (Месяц(Объект.ДатаНачалаПериода) > Месяц(Строка.Сотрудник.ДатаУвольнения)) ИЛИ
(Строка.Сотрудник.ВАрхиве И (Месяц(Объект.ДатаНачалаПериода) = Месяц(Строка.Сотрудник.ДатаУвольнения) И День(Строка.Сотрудник.ДатаУвольнения) <= НомерДня)))
Тогда
Строка[СтрШаблон("ЦветЯчейки%1",НомерДня)] = "Красный";
КонецЕсли;
КонецЦикла;
КонецЦикла;
Для НомерДня=1 По 31 Цикл
Оформление = УсловноеОформление.Элементы.Добавить();
Оформление.Использование = Истина;
Поле = Оформление.Поля.Элементы.Добавить();
Поле.Поле = Новый ПолеКомпоновкиДанных(СтрШаблон("ДанныеОВремениЧасы%1",НомерДня));
Отбор = Оформление.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(СтрШаблон("Объект.ДанныеОВремени.ЦветЯчейки%1",НомерДня));
Отбор.ПравоеЗначение = "Красный";
Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
Отбор.Использование = Истина;
Оформление.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.СеребристоСерый);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
ПокраситьСтроку();
ОбновитьИнтерфейс();
КонецПроцедуры
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот