3
Масянька
30.07.12
✎
10:26
|
Перем ФормаРасш;
......
ПриОткрытии
Отв = ЗагрузитьВнешнююКомпоненту("FormEx.dll");
Если Отв = 0 Тогда
Сообщить("Не вышло");
СтатусВозврата(0);
Возврат;
КонецЕсли;
ФормаРасш = СоздатьОбъект("РасширениеФормы");
ФормаРасш.РаскрашиватьТаблицу("гТабВыборка");
.......
гТабВыборка.НоваяКолонка("ПроверкаСебестоимости","Строка", , ,"FormEx_ПланРаскраски");
гТабВыборка.НоваяКолонка("Цена" ,"Число", 10, 0,"Цена" , 15, "Ч 10.2.'");
.....
Функция ПолучитьЦвет(Красный = 0,Зеленый = 0,Синий = 0)
Возврат Макс(0,Синий)*65536+Макс(0,Зеленый)*256+Макс(0,Красный);
КонецФункции
//************* если цена ниже себестоимости - выделяет строку цветом
Функция РаскраситьСебестоимость()
Если (гТабВыборка.Цена < гТабВыборка.Себестоимость) или (ПустоеЗначение(гТабВыборка.Себестоимость) = 1) Тогда
Возврат "()()()()()()()()()()()()(BRUSH["+ПолучитьЦвет(255,255,153)+"])(BRUSH["+ПолучитьЦвет(255,255,153)+"])";
КонецЕсли;
Возврат "";
КонецФункции // Раскрасить
Где-то так.
Я долбилась долго...
Удачи!
|
|
6
Масянька
30.07.12
✎
10:29
|
Если колонки, которые не надо раскрашивать впереди, то перед BRUSH пустые скобки. А если сзади - у меня не получилось :((((
Вообще, надо Альфа потрясти :)))
|
|