Помогите с модулем

[aleksandr-tymen]

подскажите что не так в модуле выдает ошибку

Таб.Показать("Сформировать");<<?>>
{Отчет.ДвижениеТоваров.Форма.Модуль(79)}: Обнаружено логическое завершение исходного текста модуля

вот модуль

//*******************************************
Процедура Сформировать()
Док = СоздатьОбъект("Документ");
Док.ВидыДляВыбора("ПоступлениеТМЦ, РеализацияТМЦ");

Док.ВыбратьДокументы(НачДата, КонДата);
Пока Док.ПолучитьДокумент() = 1 Цикл
Если Док.Проведен() = 1 Тогда
Если Док.Вид() = "ПоступлениеТМЦ" Тогда
Движение = "Поступление ";
Иначе
Движение = "Списание ";
КонецЕсли;

Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку() = 1 Цикл
Сообщить(Движение + "товара:" + Док.Товар
+ СимволТабуляции + "Количество: " + Док.Количество);
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
//__________________________________________________ _*
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Товар", "Справочник.Номенклатура");
ТЗ.НоваяКолонка("Покупка", "Число", "10", "2");
ТЗ.НоваяКолонка("Продажа", "Число", "10", "2");
ТЗ.НоваяКолонка("СуммаПокупки", "Число","10", "2");
ТЗ.НоваяКолонка("СуммаПродажи", "Число","10", "2");

Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);

Док = СоздатьОбъект("Документ");
Док.ВидыДляВыбора("ПокупкаТМЦ, РеализацияТМЦ");
Док.ВыбратьДокументы(НачДата, КонДата);

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

Если Док.Вид() = "ПоступлениеТМЦ" Тогда
ТЗ.Покупка = Док.Количество;
ТЗ.СуммаПокупки = Док.Стоимость;
Иначе
ТЗ.Продажа = Док.Количество;
ТЗ.СуммаПродажи = Док.Стоимость
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;


ТЗ.Свернуть("Товар", "Покупка, Продажа, СуммаПокупки, СуммаПродажи");
ТЗ.ВыбратьСтроки();

Пока ТЗ.ПолучитьСтроку() = 1 Цикл
НомерСтроки = 0;
Товар = ТЗ.Товар;
КолвоПок = ТЗ.Покупка;
КолвоПрод = ТЗ.Продажа;
СуммаПок = ТЗ.СуммаПокупки;
СуммаПрод = ТЗ.СуммаПродажи;
Таб.ВывестиСекцию("Товар");
КонецЦикла;


ИтогоКолвоПок = ТЗ.Итог("Покупка");
ИтогоКолвоПрод = ТЗ.Итог("Продажа");
ИтогоСуммаПок = ТЗ.Итог("СуммаПокупки");
ИтогоСуммаПрод = ТЗ.Итог("СуммаПродажи");
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать");
КонецЦикла;