6
Босечка
06.09.16
✎
12:20
|
так работает
Если (ЗначениеЗаполнено(СрУсл)) тогда
Если (СрУсл < ТекущаяДата()) Тогда
ТабДок.Область(ОблОф.Верх, ОблОф.Лево, ОблОф.Низ, ОблОф.Лево).ЦветФона = WebЦвета.Красный;
//ТабДок.Область(ОблОф.Верх, ОблОф.Лево, ОблОф.Низ, ОблОф.Лево).ЦветТекста = WebЦвета.АнтикБелый;
иначеесли РД2<=7 тогда
ТабДок.Область(ОблОф.Верх, ОблОф.Лево, ОблОф.Низ, ОблОф.Лево).ЦветФона = WebЦвета.БледноБирюзовый;
//ТабДок.Область(ОблОф.Верх, ОблОф.Лево, ОблОф.Низ, ОблОф.Лево).ЦветТекста = WebЦвета.АнтикБелый;
Конецесли;
Конецесли;
|
|