Ошибка при проведении документа

Процедура ДвиженияРегистровПодсистемыНДС(СтруктураШапкиДокумента, ТаблицаВыручки,ТаблицаВзаиморасчетов,Отказ, Заголовок, ОтработкаДвиженийПоПартиям = Ложь)

    Если Не ОтработкаДвиженийПоПартиям И СтруктураШапкиДокумента.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ОтгрузкаБезПереходаПраваСобственности И
        Не СтруктураШапкиДокумента.НачислятьНДСПоОтгрузке Тогда
        Возврат;
    КонецЕсли;
    
    Если СтруктураШапкиДокумента.УпрощенныйУчетНДС Тогда
        Если ОтработкаДвиженийПоПартиям Тогда
            Возврат;
        Иначе
            УчетНДСФормированиеДвижений.УпрощенныйНДС_СформироватьДвиженияПоНДСНачисленному(СтруктураШапкиДокумента, ТаблицаВыручки, Движения, Отказ);
            Возврат;
        КонецЕсли;
    КонецЕсли;
    
    Если СтруктураШапкиДокумента.ОрганизацияПрименяетУСН тогда
        // Движения по этому документу делать не нужно
        Возврат;
    КонецЕсли;

    Если Не ОбщегоНазначения.ПроводитьДокументПоРазделуУчета(СтруктураШапкиДокумента.Организация, Перечисления.РазделыУчета.НДС, СтруктураШапкиДокумента.Дата) Тогда
        Возврат;
    КонецЕсли;
        
    Если ОтработкаДвиженийПоПартиям Тогда
        Если ТаблицаВыручки.Количество() = 0 Тогда
            //Отработка по партиям НДС не требуется. 
            Возврат;
        КонецЕсли; 
        
        ////////////////////////////////////////////////////////////­/////////////////////
        // Подготовка таблицы списания по партиям товаров по данным партионного учета НДС
        ТаблицаНДСПартииСписания = УчетНДС.ПодготовитьТаблицуСписанияПартийДляНДС(СтруктураШапкиДокумента, ТаблицаВыручки, Отказ, Заголовок);
        // Подготовка таблицы списания по партиям товаров по данным партионного учета НДС
        ////////////////////////////////////////////////////////////­/////////////////////
        
        Если ТаблицаНДСПартииСписания.Количество() = 0 Тогда
            //Партии не найдены или отражение в партионном учете НДС не производится.
            //Дальнейшая обработка не требуется
            Возврат;
        КонецЕсли; 
        
        ТаблицаДвиженийПартии = Движения.НДСПоПриобретеннымЦенностям.ВыгрузитьКолонки();
        Движения.НДСПоПриобретеннымЦенностям.мПериод          = Дата;
        
        ////////////////////////////////////////////////////////////­/////////////////////
        // НДС в стоимости товаров - отработка включения и исключения НДС из стоимости.
        УчетНДСФормированиеДвижений.ОтразитьВключениеИсключениеНДСВСтоимость(СтруктураШапкиДокумента, ТаблицаНДСПартииСписания, ТаблицаДвиженийПартии, Истина, Движения.Хозрасчетный, Заголовок, Движения);
        УчетНДСФормированиеДвижений.ОтразитьВключениеИсключениеНДСВСтоимость(СтруктураШапкиДокумента, ТаблицаНДСПартииСписания, ТаблицаДвиженийПартии, Ложь, Движения.Хозрасчетный, Заголовок, Движения);
        
        // Занесем в регистр переквалификацию партий (включение/исключение НДС из стоимости)
        Если ТаблицаДвиженийПартии.Количество() > 0 Тогда
            Движения.НДСПоПриобретеннымЦенностям.мТаблицаДвижений = ТаблицаДвиженийПартии;
            Движения.НДСПоПриобретеннымЦенностям.ВыполнитьПриход();
        КонецЕсли;
        // НДС в стоимости товаров - отработка включения и исключения НДС из стоимости.
        ////////////////////////////////////////////////////////////­/////////////////////
        
        ////////////////////////////////////////////////////////////­/////////////////////
        // Отработка предположения ставки 0% по НДС покупки.
        // При передачи товаров комиссионеру предположение ставки 0% не должно отрабатывать, только по фактическому отражению реализации
        Если не СтруктураШапкиДокумента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда
            УчетНДСФормированиеДвижений.ОтразитьПредположениеСтавки0(СтруктураШапкиДокумента, ТаблицаНДСПартииСписания, ТаблицаДвиженийПартии, Движения.Хозрасчетный,Заголовок,Движения);
        КонецЕсли;
        // Отработка предположения ставки 0% по НДС покупки.
        ////////////////////////////////////////////////////////////­/////////////////////
        
        ////////////////////////////////////////////////////////////­/////////////////////
        // НДС по партиям - отразить непосредственное списание.
        ТаблицаДвиженийПартии.Очистить();
        ОбщегоНазначения.ЗагрузитьВТаблицуЗначений(ТаблицаНДСПартииСписания, ТаблицаДвиженийПартии);
        
        Движения.НДСПоПриобретеннымЦенностям.мТаблицаДвижений = ТаблицаДвиженийПартии;
        Движения.НДСПоПриобретеннымЦенностям.ВыполнитьРасход();
        // НДС по партиям - отразить непосредственное списание.
        ////////////////////////////////////////////////////////////­/////////////////////
        
        ////////////////////////////////////////////////////////////­/////////////////////
        // НДС по партиям - отразить занесение на счета товаров отгруженных (45).
        Если (СтруктураШапкиДокумента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Или 
            СтруктураШапкиДокумента.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ОтгрузкаБезПереходаПраваСобственности) и СтруктураШапкиДокумента.СложныйУчетНДС Тогда
            // Для операций перемещения на комиссию необходимо отразить поступление по новому счету учета
            ТаблицаДвиженийПартии.Очистить();
            ОбщегоНазначения.ЗагрузитьВТаблицуЗначений(ТаблицаНДСПартииСписания, ТаблицаДвиженийПартии);
            ТаблицаДвиженийПартии.ЗагрузитьКолонку(ТаблицаНДСПартииСписания.ВыгрузитьКолонку("КорСчетСписания"),"СчетУчета");
            ТаблицаДвиженийПартии.ЗаполнитьЗначения(Справочники.Склады.ПустаяСсылка(),"Склад");
            ТаблицаДвиженийПартии.Колонки.Добавить("Услуга",новый ОписаниеТипов("Булево"));
            ТаблицаДвиженийПартии.ЗаполнитьЗначения(Ложь,"Услуга");
            ТаблицаДвиженийПартии.Колонки.СчетУчета.Имя = "СчетУчетаЦенности";
            
            УчетНДС.СформироватьДвиженияПоступленияПоРегиструНДСПоПриобретеннымЦ<wbr>­енностям(СтруктураШапкиДокумента,ТаблицаДвиженийПартии, Движения.НДСПоПриобретеннымЦенностям, Отказ);
        КонецЕсли; 
        // НДС по партиям - отразить занесение на счета товаров отгруженных (45).
        ////////////////////////////////////////////////////////////­/////////////////////
        
        ////////////////////////////////////////////////////////////­/////////////////////
        // НДС по ОС - при списании ТМЦ они могут перестать принадлежать к будущим ОС,
        // в этом случае необходимо снять блокировку с вычета.
        // Если в результате перемещения ТМЦ будет отнесено на счет учета ОС, необходимо включить блокировку.
        УчетНДСФормированиеДвижений.СформироватьДвиженияПоРегиструНДСпоОСиНМА_ПеремещениеОборудо<wbr>­вания(СтруктураШапкиДокумента, Движения.НДСПоПриобретеннымЦенностям.Выгрузить(), Движения, Отказ);
        // НДС по ОС
        ////////////////////////////////////////////////////////////­/////////////////////
        //Все необходимые действия на данном этапе отработаны.
        
    Иначе
    
        Если СтруктураШапкиДокумента.УчитыватьНДС Тогда

            УчетнаяПолитикаНУ = ОбщегоНазначения.ПолучитьПараметрыУчетнойПолитики(СтруктураШапкиДокумента.Дата, Отказ, СтруктураШапкиДокумента.Организация);
            
            Если Отказ Тогда
                Возврат;
            КонецЕсли;
            
            СчетОтнесенияНДС = ПланыСчетов.Хозрасчетный.НДС;
                
            УчетНДСФормированиеДвижений.СформироватьДвиженияПоРегиструНДСНачисленный_ОтражениеРеализ<wbr>­ации(СтруктураШапкиДокумента, ТаблицаВыручки, Движения, Отказ, СчетОтнесенияНДС, ТаблицаВзаиморасчетов);
        КонецЕсли;
        
    КонецЕсли; 
    
КонецПроцедуры // ДвиженияРегистровПодсистемыНДС()