Имя: Пароль:
1C
1С v8
В своей таблице сделать колонку с картинкой проведен/помечен
0 Snik_666
 
07.02.12
11:02
Добрый день! Подскажите можно ли в данном контексте сделать в ПодчиненныеДокументы
также красиво колонку с картинкой проведен/не проведен/помечен, как во всех списках документов   ?

ТЗ_ЗАПРОСА = Запрос.Выполнить().Выгрузить();
   ТЗ = ТЗ_ЗАПРОСА.Скопировать(,"Дата,Номер,Ссылка,СуммаДокумента,ВалютаДокумента,Организация,Ответственный,ОтражатьВУправленческомУчете,ОтражатьВБухгалтерскомУчете");
   ТЗ.Колонки.СуммаДокумента.Заголовок               = "Сумма";
   ТЗ.Колонки.ВалютаДокумента.Заголовок              = "Валюта";
   ТЗ.Колонки.ОтражатьВУправленческомУчете.Заголовок = "УУ";
   ТЗ.Колонки.ОтражатьВБухгалтерскомУчете.Заголовок  = "БУ";
   
   ЭлементыФормы.ПодчиненныеДокументы.Значение = ТЗ;
   ЭлементыФормы.ПодчиненныеДокументы.СоздатьКолонки();
   ЭлементыФормы.ПодчиненныеДокументы.ОбновитьСтроки();
1 Maxus43
 
07.02.12
11:12
да
2 le_
 
07.02.12
11:13
Я делал картинку, состоящую из нескольких (режим коллекции в редакторе) и подставлял нужную по индексу.
3 Maxus43
 
07.02.12
11:13
создаёш колонку.
при получении данных (в элементе управления) - оформлением строки Картинка.Установить(..стандартная картинка..) например
4 DSatan
 
07.02.12
11:13

   ТекущееТПШапка.Колонки.Проведен.ДанныеФлажка            = "";
   ТекущееТПШапка.Колонки.Проведен.КартинкиСтрок            = КартинкаСостоянияДокумента;
   ТекущееТПШапка.Колонки.Проведен.ТекстШапки                = "Статус";
   ТекущееТПШапка.Колонки.Проведен.Ширина                    = 5;



затем необходимо обрабатывать выводстроки

Процедура ДокументыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

   Если ДанныеСтроки <> Неопределено Тогда
       
       ОформлениеСтроки.Ячейки.Проведен.ОтображатьКартинку = Истина;
       ОформлениеСтроки.Ячейки.Проведен.ОтображатьТекст = Ложь;
       
           Если (ДанныеСтроки.Проведен) Тогда
               ОформлениеСтроки.Ячейки.Проведен.ИндексКартинки = 0;
           ИначеЕсли ДанныеСтроки.Документ.ПометкаУдаления Тогда
               ОформлениеСтроки.Ячейки.Проведен.ИндексКартинки = 1;
           Иначе
               ОформлениеСтроки.Ячейки.Проведен.ИндексКартинки = 2;
           КонецЕсли;
       Иначе
               ОформлениеСтроки.Ячейки.Проведен.ИндексКартинки = 4;
       КонецЕсли;
       
   КонецЕсли;

КонецПроцедуры // ДокументыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

5 DSatan
 
07.02.12
11:16
сорри, скопипастил неудачно
картинка КартинкаСостоянияДокумента есть в типовой БП

Процедура ДокументыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

   Если ДанныеСтроки <> Неопределено Тогда
       
       ОформлениеСтроки.Ячейки.Проведен.ОтображатьКартинку = Истина;
       ОформлениеСтроки.Ячейки.Проведен.ОтображатьТекст = Ложь;
       
       Если (ДанныеСтроки.Проведен) Тогда
           ОформлениеСтроки.Ячейки.Проведен.ИндексКартинки = 0;
       ИначеЕсли ДанныеСтроки.Документ.ПометкаУдаления Тогда
           ОформлениеСтроки.Ячейки.Проведен.ИндексКартинки = 1;
       Иначе
           ОформлениеСтроки.Ячейки.Проведен.ИндексКартинки = 2;
       КонецЕсли;
       
   КонецЕсли;

КонецПроцедуры // ДокументыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
6 Snik_666
 
08.02.12
09:56
Спасибо получилось! Единственно не нашел такую красивую картинку как в стандартных документах светится зеленая, а во всех типовых конфах БиблиотекаКартинок.СостоянияДокумента синяя
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.