Код

ТекстЗапроса = "SELECT Заявка.IDDOC [Ссылка $Документ.Заявка]
		|	, Реализация.IDDOC [Реализация $Документ.Реализация]
		|FROM $Документ.Заявка AS Заявка
		|	INNER JOIN _1SJOURN AS Журнал ON Заявка.IDDOC = Журнал.IDDOC
		|	LEFT JOIN $Документ.Реализация AS Реализация ON $ВидДокумента36.Заявка + Заявка.IDDOC = $Реализация.ДокОснование
		|WHERE (Cast(Left(Журнал.DATE_TIME_IDDOC, 8) AS datetime) = :ВыбДата)
		|	AND (Журнал.ISMARK = 0)"; 

Код

	тз = СоздатьОбъект("ТаблицаЗначений");
	тз.НоваяКолонка("Ссылка");
	тз.НоваяКолонка("Реализация");

	Док = СоздатьОбъект("Документ");
	Заявка = СоздатьОбъект("Документ.Заявка");
	Заявка.ВыбратьДокументы(ТекДата, ТекДата);
	Пока Заявка.ПолучитьДокумент() = 1 Цикл
		Если Заявка.ПометкаУдаления() = 1 Тогда
			Продолжить;
		КонецЕсли;

		тз.НоваяСтрока();
		тз.Ссылка = Заявка.ТекущийДокумент();

		Если Док.ВыбратьПодчиненныеДокументы(,,Заявка.ТекущийДокумент()) = 1 Тогда
			Док.ПолучитьДокумент();
			тз.Реализация = Док.ТекущийДокумент();
		КонецЕсли;
	КонецЦикла;