Функция ПолучитьЦвет(Красный = 0,Зеленый = 0,Синий = 0)
Возврат Макс(0, Синий) * 65536 + Макс(0, Зеленый) * 256 + Макс(0, Красный);
КонецФункции // ПолучитьЦвет
Функция РаскраситьСтроку(гТабВыборка)
Возврат "BRUSH[" + ПолучитьЦвет(255, 255, 153) + "]";
КонецФункции // РаскраситьСтроку
//******************************************************************************
Процедура ПриОткрытии()
// определим каталог для сохранения файла
мГод = Строка(ДатаГод(ДатаОкончания));
КаталогДляЗаписи = СокрЛП("\\Manager2\Документы для Светы\" + мГод + "\Документы\");
гТабВыборка.НоваяКолонка("Раскраска" ,"Строка", , ,"FormEx_ПланРаскраски");
гТабВыборка.НоваяКолонка("Пометка" ,"Число" , 4, 0,"" , 4);
гТабВыборка.НоваяКолонка("Дата" ,"Дата" , , , ,);
гТабВыборка.НоваяКолонка("Документ" , , , , "Документ" , 36);
гТабВыборка.НоваяКолонка("Номер" ,"Номер" , , , , 8);
гТабВыборка.НоваяКолонка("Сумма" ,"Число" , 20, 2, "Сумма" ,);
гТабВыборка.НоваяКолонка("Контрагент" , , , , "Контрагент" , 45);
гТабВыборка.НоваяКолонка("Услуги" ,"Число" , 4, 0, "Услуги" , 10);
гТабВыборка.НоваяКолонка("Себестоимость","Число" , 20, 2, "Себестоим." ,);
гТабВыборка.НоваяКолонка("СуммаБезНДС" ,"Число" , 20, 2, "Сумма (без НДС)" ,);
гТабВыборка.НоваяКолонка("Ссылка" , , , , "Документ" ,);
//гТабВыборка.ВидимостьКолонки();
гТабВыборка.ВыводитьПиктограммы("Пометка", 2);
гТабВыборка.ВыводитьПиктограммы("Услуги", 4);
гТабВыборка.ВидимостьКолонки("Раскраска, Ссылка", 0);
// процесс записи
Форма.РамкаЗаписиДокументов.Видимость(0);
Форма.БегунокПрогрессБар.Видимость(0);
Форма.БегунокПроценты.Видимость(0);
КонецПроцедуры // ПриОткрытии
Процедура ПослеОткрытия()
ФормаРасш = СоздатьОбъект("РасширениеФормы");
ФормаРасш.РаскрашиватьТаблицу("гТабВыборка");
мСервис = СоздатьОбъект("Сервис");
мСервис.ВключитьРаскраскуТаблиц();
КонецПроцедуры // ПослеОткрытия
Процедура ПриВыбореОбъекта()
ТекСтр = гТабВыборка.ТекущаяСтрока();
ТекКол = СокрЛП(гТабВыборка.ТекущаяКолонка());
Если ТекСтр = 0 Тогда
Возврат
КонецЕсли;
гТабВыборка.ПолучитьСтрокуПоНомеру(ТекСтр);
Если ТекКол = "Пометка" Тогда
Если гТабВыборка.Пометка = Пометка_Включена Тогда
гТабВыборка.Пометка = Пометка_Выключена;
Иначе
гТабВыборка.Пометка = Пометка_Включена;
КонецЕсли;
Иначе
глСформироватьДеревоДокументов(гТабВыборка.Ссылка);
КонецЕсли;
КонецПроцедуры // ПриВыбореОбъекта
ПриВыбореОбъекта - пометка/вывод дерева связанных док-ов (для тек. строки).
