|
Mobilis
4 - 01.04.2009 - 10:13
|
ПриОткрытии()
ТЗ.НоваяКолонка("ТЗВлож");
ТЗ.НоваяКолонка("Пикт","Число",1,0,"",4,);
ТЗ.НоваяКолонка("Наименование",,,,,40);
ТЗ.НоваяКолонка("Объект");
ТЗ.НоваяКолонка("FormEx_ПланРаскраски");
ТЗ.ВыводитьПиктограммы("Пикт");
КонецПроцедуры
Процедура ПослеОткрытия()
Сервис = СоздатьОбъект("Сервис");
//разрешаем использование раскраски таблиц
Сервис.ВключитьРаскраскуТаблиц(1);
Сервис.ИспользоватьПланРаскраски(1);
РФорма = СоздатьОбъект("РасширениеФормы");
РФорма.РаскрашиватьТаблицу("ТЗ");
АтрФормы = СоздатьОбъект("АтрибутФормы");
АтрФормы.УстановитьАтрибут(Форма,"ТЗ");
АтрФормы.ПерехватитьТаблицуЗначений();
АтрФормы.ОпцииДерева(0,1,1,2);
АтрФормы.УстановитьТекущийУзел(1);
КонецПроцедуры
Функция ПроверитьВид()
Возврат "()()(BRUSH["+ПолучитьЦвет(254,135,118)+"])()()()";
КонецФункции
Процедура ПриВыбореШаблона()
ТЗ.КоличествоСтрок(0);
Спр=СоздатьОбъект("Справочник.НормыРасходов");
Спр.ИспользоватьВладельца(ВыбШаблон);
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
Если Спр.ПометкаУдаления()=1 Тогда
Продолжить;
КонецЕсли;
ТЗ.НоваяСтрока();
ТЗ.Пикт=1;
ТЗ.Наименование=Спр.ТекущийЭлемент();
ТЗ.Объект=Спр.ТекущийЭлемент();
ТЗ.FormEx_ПланРаскраски=ПроверитьВид();
КонецЦикла;
АтрФормы.ОбновитьДерево();
КонецПроцедуры
Раскраска работает начиная с колонки FormEx_ПланРаскраски, а хотелось, чтоб и колонка Наименование тоже раскрашивалась. |