День добрый !

Имеется следующая задача-необходимо подкрашивать разным цветом список документов с реквизитом типа Дата.
В зависимости от даты ,лежащей в определенном диапазоне , определяется цвет выводимой строки в списке документов.
Т.е. если до начала поверки прибора остается 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 тогда
          
         КонецЕсли;

КонецЦикла;

Используйте конструкцию ИначеЕсли.