Только начал изучать ТП  :)
1срр 2.5.0.6 от 21.12.2007

Код процедуры ниже и сам файл обработки.

Ошибка следующая:
Поле агрегатного объекта не обнаружено (Картинка)
ОформлениеСтроки.Ячейки.Док.ИндексКартинки=ДанныеСтроки.Картинка;

Хотя при этом в ТП картинки отображаются.

[code]
Перем тзКолонки;
//*******************************************
Процедура Сформировать()

     ТекФорма=СоздатьОбъект("Форма");
     ТекФорма.УстановитьФорму(Форма);
     ТП=ТекФорма.СоздатьЭлементУправления("ТабличноеПоле","тпЖурнал");
     ИсточникДанных=СоздатьОбъект("ODBCDataProvider.MSSQL");
     ИсточникДанных.БазаДанных=СоздатьОбъект("ODBCDataBase");
     ТП.ПоставщикДанных=ИсточникДанных;
     Поставщик=ТП.ПоставщикДанных;
     ИсточникДанных.Отладка(0);
     
     Колонки=ТП.Колонки;
     Колонки.Очистить();
     тзКолонки.ВыбратьСтроки();
     Пока тзКолонки.ПолучитьСтроку() = 1 Цикл
           Колонка=Колонки.Добавить(тзКолонки.Имя);
           Колонка.Заголовок=тзКолонки.Заголовок;
           Колонка.Ширина=тзКолонки.Ширина;
           Колонка.Данные=тзКолонки.Имя;
           Колонка.Видимость=тзКолонки.Видимость;
     КонецЦикла;
     ТП.Колонки.Картинка.УстановитьКартинкиСтрок(ИконкиДок,16);
     
     Текст="
     |SELECT
     |      CASE
     |            WHEN Жур.ISMark=1 THEN 6
     |            WHEN Жур.Closed&1=0 THEN 0
     |            WHEN Жур.Closed&1=1 THEN 1
     |      END as Картинка,            
     |      Жур.Iddocdef as Док_вид,
     |      Жур.Iddoc as [Док $Документ],
     |      Жур.Date_Time_IDDoc as DateTimeIDDoc
     |FROM
     |      _1SJourn as Жур
     |WHERE
     |      Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~
     |";
     НачДата=НачМесяца(РабочаяДата());
     КонДата=КонМесяца(РабочаяДата());
     Поставщик.УстановитьТекстовыйПараметр("НачДата",НачДата);
     Поставщик.УстановитьТекстовыйПараметр("КонДата",КонДата);
     Поставщик.УстТекстЗапроса(Текст);
     Поставщик.УстКлючПорядка("DateTimeIDDoc");
     тзКолонки.ВыбратьСтроки();
     Пока тзКолонки.ПолучитьСтроку() = 1 Цикл
           Поле=Поставщик.Поля.Добавить(тзКолонки.Имя);
     КонецЦикла;
     Поставщик.Поля.Картинка.Автоудаление=0;
     Поставщик.Обновить();
     
КонецПроцедуры


Процедура тпЖурналПриВыводеСтроки(_ТП,ОформлениеСтроки,ДанныеСтроки)
     Если _ТП.Колонки.Картинка.Видимость = 1 Тогда
           ОформлениеСтроки.Ячейки.Картинка.ОтображатьКартинку=1;
           ОформлениеСтроки.Ячейки.Картинка.ИндексКартинки=ДанныеСтроки.Картинка
     КонецЕсли;;
КонецПроцедуры


тзКолонки=СоздатьОбъект("ТаблицаЗначений");
тзКолонки.НоваяКолонка("Имя","Строка");
тзКолонки.НоваяКолонка("Заголовок","Строка");
тзКолонки.НоваяКолонка("Ширина","Число",3,0);
тзКолонки.НоваяКолонка("Видимость","Число",1,0);

тзКолонки.НоваяСтрока();
тзКолонки.Имя = "Картинка";
тзКолонки.Заголовок = "";
тзКолонки.Ширина = 8;
тзКолонки.Видимость=1;

тзКолонки.НоваяСтрока();
тзКолонки.Имя = "Док_вид";
тзКолонки.Заголовок = "";
тзКолонки.Ширина = 0;
тзКолонки.Видимость=0;

тзКолонки.НоваяСтрока();
тзКолонки.Имя = "Док";
тзКолонки.Заголовок = "Документ";
тзКолонки.Ширина = 200;
тзКолонки.Видимость=1;[/code]

Не помогло. То же самое.
И хотелось бы все-таки картинку в колонке Док.

Не помогло ))

Угу в первом посте.
Последняя версию к этому посту прилепил :)

+1 и сделать

	Поставщик.Поля.Картинка.Автоудаление=0;
	Поставщик.Поля.Док_вид.Автоудаление=0;
	ТП.ПоставщикДанных=Поставщик;
	Поставщик.Обновить();
 

Salimbek писал(а) 23. Мая 2008 :: 09:11:

Да, мне тоже стало интересно.
Но тут все науке оказалось:

	Пока тзКолонки.ПолучитьСтроку() = 1 Цикл
		Поле=Поставщик.Поля.Добавить(тзКолонки.Имя);
	КонецЦикла;
 

Из-за этого.

SingularSpot

P.S.

Зря Отладка(0) вначале сделал.
Мог бы сразу увидеть, что при каждом добавлении колонки в ТП при установленном поставщике идет запрос на сервер.
И в начальных запросах никаких картинок нет, что и приводит к временным проблемам при выводе строки.

Ага

Короче, вот так в итоге должно выглядеть.

P.S.
Флажки заданы для 3.0, в 2.5 может быть чуть по-другому.
Да вообще, зачем тебе 2.5.

А текст в ячейках колонки "картинка" у меня отображается с
ОформлениеСтроки.Ячейки.Картинка.ОтображатьТекст=0;