v7: Не выбран документ

с 7-ой не работал.

При записи ошибка Не выбран документ.

Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(ч)
|ОбрабатыватьДокументы все;
|ПоступлениеТМЦ = Документ.ПоступлениеТМЦ.ТекущийДокумент;
|Группировка ПоступлениеТМЦ;
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

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

Док = СоздатьОбъект("Документ.ПоступлениеТМЦ");

Таб.ВыбратьСтроки();
Пока Таб.ПолучитьСтроку()=1 Цикл
Док.НайтиДокумент(Таб.ПоступлениеТМЦ);
ТекДок = Док.ТекущийДокумент();
ДатаДок = ТекДок.ДатаДок;
// Цикл по всем товарам в документе
ТекДок.ВыбратьСтроки();
ТекДок.ТипЦен = СпрТипыЦен.ТекущийЭлемент();
Пока ТекДок.ПолучитьСтроку() = 1 Цикл

ТекТМЦ = ТекДок.Номенклатура;

// Получаем цену
Цена = 0;
ЕдиницаКонт = ТекДок.Единица;
ЕдиницаЦены = ЕдиницаКонт;
ВалютаЦены = СпрТипыЦен.ТекущийЭлемент().Валюта;
ЦенаВклНП = СпрТипыЦен.ТекущийЭлемент().ЦенаВклНП;
ЦенаВклНДС = СпрТипыЦен.ТекущийЭлемент().ЦенаВклНДС;

Если глВернутьЦену(ТекТМЦ, СпрТипыЦен.ТекущийЭлемент(), ДатаДок, Цена, ЕдиницаЦены, ВалютаЦены) = 1 Тогда

Цена = (Цена * ТекДок.Коэффициент) / 1;

глПересчитатьЦенуВДокументе(ТекДок, 0, 0, Цена, ВалютаЦены, 0, 0);
Иначе
ТекДок.Цена = 0;
КонецЕсли;

глПересчетТаблЧасти(ТекДок,"Цена");

КонецЦикла;
ТекДок.Записать();

КонецЦикла;