Типовая обработка по свертке ЕРП. Возможные проблемы и их решение

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

// Заменил его таким образом, написал, только кусочек после запроса.  


    ЗаполнитьПараметрыЗапросаДатаСвертки(Запрос);
    
    Результат = Запрос.ВыполнитьПакет();
    Если Результат[2].Пустой() Тогда
        Возврат;
    КонецЕсли;
    ТаблицаЗаказов = Результат[2].Выгрузить();
    ТаблицаПродукция = Результат[3].Выгрузить();
    ТаблицаМатериалы = Результат[4].Выгрузить();

//Нужно проанализировать запросы нескольких процедур, чтобы правильно поправить код

Для Каждого СтрокаТЧ Из ДокОст.Материалы Цикл
    Если СтрокаТЧ.Отменено Тогда
        Продолжить;
          ИначеЕсли СтрокиМатериалы = Неопределено Тогда
         СтрокаТЧ.Отменено = Истина;
         СтрокаТЧ.ПричинаОтмены = ПричинаОтменыЗаказа;
         Продолжить;
   КонецЕсли;
// Заменил его таким образом, просто закомментировал обращение к "отменено".
        Для Каждого СтрокаТЧ Из ДокОст.Материалы Цикл
    
            //Если СтрокаТЧ.Отменено Тогда
            //    Продолжить;
            //ИначеЕсли СтрокиМатериалы = Неопределено Тогда
            //    СтрокаТЧ.Отменено = Истина;
            //    СтрокаТЧ.ПричинаОтмены = ПричинаОтменыЗаказа;
            //    Продолжить;
            //КонецЕсли;
           
  

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


// Возможно эта ошибка возникла только у меня, все равно здесь опишу её решение, я ограничил количество тч для документа  
Пока ВыборкаОрганизации.Следующий() Цикл
        ВыборкаНалогообложение = ВыборкаОрганизации.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
        Пока ВыборкаНалогообложение.Следующий() Цикл
            ВыборкаПодразделение = ВыборкаНалогообложение.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
            Пока ВыборкаПодразделение.Следующий() Цикл
                ДокОст = Документы.ВводОстатков.СоздатьДокумент();
                ЗаполнитьШапкуДокументаВводаОстатков(ДокОст, КоличествоСформированныхДокументов, ВыборкаПодразделение);
                ДокОст.ТипОперации = Перечисления.ТипыОперацийВводаОстатков.ОстаткиМатериаловПереданныхВПроизводство;
                Выборка = ВыборкаПодразделение.Выбрать();
                //Начало изменения NC - Иванов А.Ю. (05.01.21)
                Переменная = 0;
                ЗаписалиДокументТолькоЧто = Ложь;
                //Окончание изменений NC - Иванов А.Ю.  (05.01.21)                
                Пока Выборка.Следующий() Цикл
                    //Иванов
                    Если ЗаписалиДокументТолькоЧто Тогда
                        ЗаписалиДокументТолькоЧто = Ложь;
                    КонецЕсли;
                    
                    Переменная = Переменная + 1;
                    Стр = ДокОст.Товары.Добавить();
                    ЗаполнитьЗначенияСвойств(Стр, Выборка);
                    Если Выборка.КоличествоПартии < Выборка.Количество
                        И Выборка.КоличествоПартии > 0 Тогда
                        Стр.Количество = Выборка.КоличествоПартии;
                    КонецЕсли;
                    Стр.КоличествоУпаковок = Стр.Количество;
                    Стр.СуммаБезНДС = ?(Выборка.ЦенаБезНДС > 0, Окр(Выборка.ЦенаБезНДС * Стр.Количество, 2), 0);
                    Стр.Сумма = ?(Выборка.Цена > 0 ,Окр(Выборка.Цена * Стр.Количество, 2),0);
                    Стр.СуммаРегл = ?(Выборка.ЦенаРегл > 0, Окр(Выборка.ЦенаРегл * Стр.Количество, 2), 0);
                    Стр.СуммаНДС = Стр.Сумма - Стр.СуммаБезНДС;
                    Стр.НДСРегл = ?(Стр.Сумма = 0, 0, Стр.СуммаНДС * (Стр.СуммаРегл / Стр.Сумма));                
                    
                    //Начало изменения NC - Иванов А.Ю. (24.03.20)
                    Если Переменная = 10000 Тогда
                        ДокОст.Записать(РежимЗаписиДокумента.Запись);
                        ДокОст = Документы.ВводОстатков.СоздатьДокумент();
                        ЗаполнитьШапкуДокументаВводаОстатков(ДокОст, КоличествоСформированныхДокументов, ВыборкаПодразделение);
                        ДокОст.ТипОперации = Перечисления.ТипыОперацийВводаОстатков.ОстаткиМатериаловПереданныхВПроизводство;
                        Переменная = 0;
                        ЗаписалиДокументТолькоЧто = Истина;
                    КонецЕсли
                    
                КонецЦикла;
                Если не ЗаписалиДокументТолькоЧто тогда
                    ДокОст.Записать(РежимЗаписиДокумента.Запись);
                КонецЕсли;
                //Окончание изменений NC - Иванов А.Ю.  (24.03.20)
                КоличествоСформированныхДокументов = КоличествоСформированныхДокументов + 1;
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;