Выдает ошибку в программе 1С

Процедура ОбработкаПроведения(Отказ, Режим)
    Движения.ОстаткиМатериалов.Записывать = Истина;
    Движения.СтоимостьМатериалов.Записывать = Истина;
    Движения.Продажи.Записывать = Истина;
    МенеджерВТ = Новый МенеджерВременныхТаблиц;
    Запрос = Новый Запрос;
    Запрос.МенеджерВременныхТаблиц = МенеджерВТ;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры,
        |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) КАК КоличествоВДокументе,
        |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе
        |ПОМЕСТИТЬ НоменклатураДокумента
        |ИЗ
        |   Документ.ОказаниеУслуги.ПереченьНоменклатуры КАК ОказаниеУслугиПереченьНоменклатуры
        |ГДЕ
        |   ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка
        |
        |СГРУППИРОВАТЬ ПО
        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры";
        Запрос.УстановитьПараметр("Ссылка", Ссылка);
    Результат = Запрос.Выполнить();
    
    Запрос2=Новый Запрос;
    Запрос2.МенеджерВременныхТаблиц=МенеджерВТ;
    Запрос2.Текст="ВЫБРАТЬ
                  | НоменклатураДокумента.Номенклатура,
                  | НоменклатураДокумента.ВидНоменклатуры,
                  | НоменклатураДокумента.КоличествоВДокументе,
                  | НоменклатураДокумента.СуммаВДокументе,
                  | ЕСТЬNULL(СтоимостьМатериаловОстатки.СтоимостьОстаток, 0) КАК Стоимость,
                  | ЕСТЬNULL(ОстаткиМатериаловОстатки.КоличествоОстаток, 0) КАК Количество
                  |ИЗ
                  | НоменклатураДокумента КАК НоменклатураДокумента
                  |     ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(
                  |             ,
                  |             Материал В
                  |                 (ВЫБРАТЬ
                  |                     НоменклатураДокумента.Номенклатура
                  |                 ИЗ
                  |                     НоменклатураДокумента)) КАК СтоимостьМатериаловОстатки
                  |     ПО НоменклатураДокумента.Номенклатура = СтоимостьМатериаловОстатки.Материал
                  |     ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(
                  |             ,
                  |             Материал В
                  |                 (ВЫБРАТЬ
                  |                     НоменклатураДокумента.Номенклатура
                  |                 ИЗ
                  |                     НоменклатураДокумента)) КАК ОстаткиМатериаловОстатки
                  |     ПО НоменклатураДокумента.Номенклатура = ОстаткиМатериаловОстатки.Материал";
                  Движения.СтоимостьМатериалов.Записать();
                  Движения.ОстаткиМатериалов.Записать();
                  Результат = Запрос2.Выполнить();
    ВыборкаДетальныеЗаписи = Результат.Выбрать();
 
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
    Если ВыборкаДетальныеЗаписи.Количество=0 Тогда
         СтоимостьМатериала=0;
    Иначе
         СтоимостьМатериала = ВыборкаДетальныеЗаписи.Стоимость
/ВыборкаДетальныеЗаписи. Количество;
КонецЕсли;
    
    
 
Если  ВыборкаДетальныеЗаписи.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Материал Тогда
// регистр ОстаткиМатериалов Расход
    Движение = Движения.ОстаткиМатериалов.Добавить();
    Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
    Движение.Период = Дата;
    Движение.Материал =  ВыборкаДетальныеЗаписи.Номенклатура;
    Движение.Склад = Склад;
    Движение.Количество =  ВыборкаДетальныеЗаписи.КоличествоВДокументе;
 
// регистр СтоимостьМатериалов Расход
    Движение = Движения.СтоимостьМатериалов.Добавить();
    Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
    Движение.Период = Дата;
    Движение.Материал =  ВыборкаДетальныеЗаписи.Номенклатура;
    Движение.Стоимость =  ВыборкаДетальныеЗаписи.КоличествоВДокументе * СтоимостьМатериала;
КонецЕсли;
 
//Регистр Продажи
    Движение = Движения.Продажи.Добавить();
    Движение.Период = Дата;
    Движение.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;
    Движение.Клиент = Клиент;
    Движение.Мастер = Мастер;
    Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
    Движение.Выручка = ВыборкаДетальныеЗаписи.СуммаВДокументе;
    Движение.Стоимость = СтоимостьМатериала * ВыборкаДетальныеЗаписи.КоличествоВДокументе;
    Движения.СтоимостьМатериалов.БлокироватьДляИзменения=Истина;
    Движения.ОстаткиМатериалов.БлокироватьДляИзменения=Истина;
    движения.СтоимостьМатериалов.Записать();
    Движения.ОстаткиМатериалов.Записать();
    Результат = Запрос.Выполнить();
 
КонецЦикла;
    Движения.Записать();
    Если Режим = РежимПроведенияДокумента.Оперативный Тогда
        Запрос3 = Новый Запрос;
        Запрос3.МенеджерВременныхТаблиц=МенеджерВТ;
        Запрос3.Текст="ВЫБРАТЬ
                      | ОстаткиМатериаловОстатки.Материал,
                      | ОстаткиМатериаловОстатки.КоличествоОстаток
                      |ИЗ
                      | РегистрНакопления.ОстаткиМатериалов.Остатки(
                      |         ,
                      |         Материал В
                      |                 (ВЫБРАТЬ
                      |                     НоменклатураДокумента.Номенклатура
                      |                 ИЗ
                      |                     НоменклатураДокумента)
                      |             И Склад = &Склад) КАК ОстаткиМатериаловОстатки
                      |ГДЕ
                      | ОстаткиМатериаловОстатки.КоличествоОстаток < 0";
        Запрос3.УстановитьПараметр("Склад", Склад);
        Результат = Запрос3.Выполнить();
    КонецЕсли;
        ВыборкаДетальныеЗаписи = Результат.Выбрать();
        Пока ВыборкаДетальныеЗаписи.Следующий()Цикл
            Сообщение = Новый СообщениеПользователю();
            Сообщение.Текст = "Не хватает" + Строка(-ВыборкаДетальныеЗаписи.Количество) + "едениц материала""" + ВыборкаДетальныеЗаписи.Материал + """";
            Сообщение.Сообщить();
            Отказ = Истина;
        КонецЦикла;
        
КонецПроцедуры

    Запрос = Новый Запрос;
    Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
    Запрос.Текст = "ВЫБРАТЬ
                   |    Релизы.Ссылка,
                   |    Релизы.ДатаРелиза
                   |ПОМЕСТИТЬ ВТ
                   |ИЗ
                   |    Справочник.Релизы КАК Релизы
                   |;
                   |
                   |////////////////////////////////////////////////////////////////////////////////
                   |ВЫБРАТЬ
                   |    ВТ.Ссылка,
                   |    ВТ.ДатаРелиза
                   |ИЗ
                   |    ВТ КАК ВТ"; 
    выб = Запрос.Выполнить().Выбрать();
    Пока выб.Следующий() Цикл
        
    КонецЦикла;
//не плодя запросов используем тот же, меняем текст, параметры (МВТ гонять туда-сюда не надо)      
    Запрос.Текст = "ВЫБРАТЬ
                   |    ВТ.Ссылка,
                   |    ВТ.ДатаРелиза
                   |ИЗ
                   |    ВТ КАК ВТ";
    выб = Запрос.Выполнить().Выбрать();
    Пока выб.Следующий() Цикл
        
    КонецЦикла;

ExcelПриложение = Новый COMОбъект("Excel.Application");
     Книга = ExcelПриложение.WorkBooks.Add();
     Лист = Книга.WorkSheets(1);
     Лист.Cells(1, 1).Value = "Фамилия";
     Лист.Cells(1, 2).Value = "Имя";
     Лист.Cells(1, 3).Value = "Отчество";
 
     ФайлНаДиске = Новый Файл(Путь + "\Файл.xlsx");
     ExcelПриложение.DisplayAlerts = False;
     Книга.SaveAs(ФайлНаДиске.ПолноеИмя);
     ExcelПриложение.ActiveWorkbook.Close();
     ExcelПриложение.Quit();