Код

select
БигСел.Товар [Товар $Справочник.Товары],
БигСел.Докум [Док $Документ],
БигСел.Ост [Ост $число],
БигСел.Рез [Рез $число],
БигСел.СумБаз [СумБаз $число],
БигСел.СумВал [СумВал $число]
from
    (select
	  РегОст.измТовар Товар,
	  null Докум,
	  РегОст.ресКоличествоОстаток Ост,
	  РегРез.ресКоличествоОстаток Рез,
	  0 СумБаз,
	  0 СумВал
     from $РегистрОстатки.Товары(:ДатаН,,измТовар in
	(select $ДокС.табТовар
	  from   $ДокументСтроки.Перемещение ДокС
	 where ДокС.iddoc = :ТД and $ДокС.табКоличество<>0
	) and измСклад = :Скл, (измТовар, измСклад),ресКоличество) РегОст
	left join $РегистрОстатки.РезервыТоваров(:ДатаН,,измТовар in
	(select $ДокС.табТовар
	 from $ДокументСтроки.Перемещение ДокС
	 where ДокС.iddoc = :ТД and $ДокС.табКоличество<>0
	) and измСклад = :Скл, (измТовар, измСклад),ресКоличество) РегРез on РегРез.измТовар =	  РегОст.измТовар and РегРез.измСклад = РегОст.измСклад
   union all
     select
     РегОст.измТовар,
     РегОст.измДокумент,
     РегОст.ресКоличествоОстаток,
     0,
     РегОст.ресСуммаБазОстаток,
     РегОст.ресСуммаВалОстаток
     from $РегистрОстатки.Товары(:ДатаН,, измТовар in
		 (select $ДокС.табТовар
		  from $ДокументСтроки.Перемещение ДокС
		  where ДокС.iddoc = :ТД and $ДокС.табКоличество<>0
		  ) and измСклад = :Скл,(измТовар,измДокумент),(ресКоличество, ресСуммаБаз, ресСуммаВал))  РегОст
	 where РегОст.ресКоличествоОстаток>0
 ) БигСел

Запрос.УстановитьТекстовыйПараметр("ДатаН", MW.ПолучитьДатуВремяИдДок(СформироватьПозициюДокумента(ТекущийДокумент())));
Запрос.УстановитьТекстовыйПараметр("Скл", загСклад);
Запрос.УстановитьТекстовыйПараметр("ТД", ТекущийДокумент());

ТЗн = Запрос.ВыполнитьИнструкцию(ТЗ);
ТЗн.Выгрузить(ТЗн1);
 

Код

ТЗн.ВыбратьСтроки()
Пока Тзн.ПолучитьСтроку() = 1 Цикл
  Сообщить(Тзн.Док)
КонецЦикла  

Код

ТЗн1.ВыбратьСтроки()
Пока Тзн1.ПолучитьСтроку() = 1 Цикл
  Сообщить(Тзн1.Док)
КонецЦикла  

Код

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

Код

ТЗн1 = создатьОбъект("ТаблицаЗначений");
ТЗн1.Загрузить(ТЗн);