Код

// =================================
Функция ТекЗап()
	ТекЗап = "
	|SELECT

	|CASE
	|	WHEN ЖурДок.Closed & 1 = 1 THEN 1
	|	WHEN ЖурДок.ISMARK = 1 THEN 3
	|	ELSE 0
	|END AS Статус,

	|ЖурДок.DocNo AS НомДок,
	|LEFT(ЖурДок.DATE_TIME_IDDOC, 8) AS ДатДок

	|FROM _1sjourn ЖурДок (nolock)

	|";
	Возврат ТекЗап;
КонецФункции // ТекЗап()

// =================================
Процедура ТабПолПриВыводеСтроки(ТабПол, ОфоСтр, ДанСтр) Экспорт
	КомСта = ОфоСтр.Ячейки.Получить("Статус");
	КомСта.ИндексКартинки = ДанСтр.Статус;
	КомСта.ОтображатьКартинку = 1;
	КомСта.ЦветФона = 13160660;
КонецПроцедуры

// =================================
Процедура ПослеОткрытия()
	РасФор = СоздатьОбъект("РасширениеФормы");
	ЕлУТаП = РасФор.ПолучитьАтрибут("ТабПол").СоздатьЭлементУправления("ТабличноеПоле");

	КарОбє = СоздатьОбъект("Картинка");
	КарОбє.Загрузить("СтанДокументу");
	КарОбє.РежимРисования(1);

	// колонки
	КолТаП = ЕлУТаП.Колонки.Добавить("Статус");
	КолТаП.Данные = "Статус";

	КолТаП.Ширина = 20;
	КолТаП.ИзменениеРазмера = 0;
	КолТаП.УстановитьКартинкиСтрок(КарОбє, 16);

	КолТаП = ЕлУТаП.Колонки.Добавить("НомДок");
	КолТаП.Заголовок = "Номер";
	КолТаП.Данные = "НомДок";

	КолТаП = ЕлУТаП.Колонки.Добавить("ДатДок");
	КолТаП.Заголовок = "Дата";
	КолТаП.Данные = "ДатДок";

	ДжеТаП = СоздатьОбъект("ODBCDataProvider.MSSQL");
	ДжеТаП.БазаДанных = СоздатьОбъект("ODBCDatabase");
	ДжеТаП.УстТекстЗапроса(ТекЗап());

	// поля
	ПолТаП = ДжеТаП.Поля.Добавить("Статус");
	ПолТаП.АвтоУдаление = 0;

	ПолТаП = ДжеТаП.Поля.Добавить("НомДок");
	ПолТаП.ТипБыстрогоПоиска = 1;
	ПолТаП.АвтоУдаление = 0;

    ДжеТаП.УстИДПоле("НомДок");
	ДжеТаП.УстКлючПорядка("НомДок");

	ЕлУТаП.ТаймаутОбновления = 3;
	ЕлУТаП.РежимВыделенияСтроки = 1;
	ЕлУТаП.ПоставщикДанных = ДжеТаП;
	ЕлУТаП.ОбновитьСтроки();
КонецПроцедуры