День добрый !
Имеется следующая задача-необходимо подкрашивать разным цветом список документов с реквизитом типа Дата.
В зависимости от даты ,лежащей в определенном диапазоне , определяется цвет выводимой строки в списке документов.
Т.е. если до начала поверки прибора остается 20 дней ,документ в списке выводится жёлтым,
если до начала проверки прибора остается до 10 дней ,документ в списке выводится красным.
У меня получается ,что оба условия выполняются и до 20 дней и до 10 дней.
А мне это дело надо чтобы срабатывало по 1 разу,а то в выборку лезут 2 одинаковых документа.
Критич_дат_калибр20 =КонецДня(ТекущаяДата()+(20*24*60*60)); //для калибровки за 20 дней до поверки сообщить (жёлтый)
Критич_дат_калибр10 =КонецДня(ТекущаяДата()+(10*24*60*60)); //для калибровки за 10 дней до поверки сообщить (красный)
Пока Выборка.Следующий() Цикл
Дат=(Выборка.ДатаПослПров+(Выборка.Ссылка.ПериодПроверки*31*24*60*60));
Кол_во_до10=Цел((критич_дат_калибр10-Дат)/86400);
Кол_во_до20=Цел((критич_дат_калибр20-Дат)/86400);
Если Кол_во_до10>0 и Кол_во_до10<=10 тогда
КонецЕсли;
Если Кол_во_до10>0 и Кол_во_до10<=10 тогда
КонецЕсли;
КонецЦикла;