v7: Хитро выгрузить остатки

 РегОст = СоздатьОбъект("Регистр.ОстаткиТМЦ");

РегОст.ВыбратьИтоги();

Пока РегОст.ПолучитьИтог()=1 Цикл

	Если ПустоеЗначение(РегОст.Номенклатура.КодТ)=1 Тогда

		Продолжить;

	КонецЕсли;

	БлокОстаткиНаСкладах = Отчет.СоздатьПодчиненныйЭлемент("БлокОстаткиНаСкладах");

	СтрокаОстатки = БлокОстаткиНаСкладах.СоздатьПодчиненныйЭлемент("СтрокаОстатки");

	СтрокаОстатки.УстановитьАтрибут("ДатаВыгрузки", ТекущаяДата());

	СтрокаОстатки.УстановитьАтрибут("НоменклатураКод", РегОст.Номенклатура.КодТ);

	СтрокаОстатки.УстановитьАтрибут("Колво", РегОст.Количество); 

КонецЦикла;

 	Перем Запрос, ТекстЗапроса, Таб;

	//Создание объекта типа Запрос

	Запрос = СоздатьОбъект("Запрос");

	ТекстЗапроса = 

	"//{{ЗАПРОС(Сформировать)

	|Период с ВыбНачПериода по ВыбКонПериода;

	|Без итогов;

	|Товар = Регистр.ОстаткиТоваров.Товар;

	|ОстатокТовара = Регистр.ОстаткиТоваров.ОстатокТовара;

	|Функция ОстатокТовараКонОст = КонОст(ОстатокТовара);

	|Группировка Товар без групп;

	|"//}}ЗАПРОС

	;

	// Если ошибка в запросе, то выход из процедуры

	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

		Возврат;

	КонецЕсли;

    

	ТабИтогов = СоздатьОбъект("ТаблицаЗначений");



	Запрос.Выгрузить(ТабИтогов,,0);