Подсчёт количества дней хранения номенклатуры на складе

    лЗапрос = Новый Запрос();
    
    лЗапрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
        |    ВложенныйЗапрос.Склад,
        |    ВложенныйЗапрос.Номенклатура,
        |    СУММА(ВложенныйЗапрос.ОстатокНачалоДня) КАК СвободныйОстатокНачалоДня,        
        |    СУММА(ВложенныйЗапрос.ОстатокКонецДня) КАК СвободныйОстатокКонецДня
        |ИЗ (
        |    ВЫБРАТЬ
        |        ТоварыНаСкладахОстаткиНачалоДня.Склад,
        |        ТоварыНаСкладахОстаткиНачалоДня.Номенклатура,
        |        ТоварыНаСкладахОстаткиНачалоДня.КоличествоОстаток КАК ОстатокНачалоДня,        
        |        0 КАК ОстатокКонецДня
        |    ИЗ
        |        РегистрНакопления.ТоварыНаСкладах.Остатки(
        |            &ГраницаИнтервалаНачалоДня, Номенклатура В (&массивНоменклатуры)) КАК ТоварыНаСкладахОстаткиНачалоДня
        |    
        |    ОБЪЕДИНИТЬ ВСЕ
        |    ВЫБРАТЬ
        |        ТоварыНаСкладахОстаткиКонецДня.Склад,
        |        ТоварыНаСкладахОстаткиКонецДня.Номенклатура,
        |        0 КАК ОстатокНачалоДня,        
        |        ТоварыНаСкладахОстаткиКонецДня.КоличествоОстаток КАК ОстатокКонецДня
        |    ИЗ
        |        РегистрНакопления.ТоварыНаСкладах.Остатки(
        |            &ГраницаИнтервалаКонецДня, Номенклатура В (&массивНоменклатуры)) КАК ТоварыНаСкладахОстаткиКонецДня
        |    ) КАК ВложенныйЗапрос
        |СГРУППИРОВАТЬ ПО
        |    ВложенныйЗапрос.Склад,
        |    ВложенныйЗапрос.Номенклатура
        |ИМЕЮЩИЕ
        |    (СУММА(ВложенныйЗапрос.ОстатокНачалоДня) <> 0 
        |    И СУММА(ВложенныйЗапрос.ОстатокКонецДня) <> 0)
        |УПОРЯДОЧИТЬ ПО
        |    ВложенныйЗапрос.Склад,
        |    ВложенныйЗапрос.Номенклатура
        |";
        
    ЧислоДнейВПериоде = <задаем число дней в периоде, можно числом, можно периодом дат>;
        ДатаНачалаПериода = <задаем первый день периода>;
 
    тзнДанные = Новый ТаблицаЗначений();

    Для НомерДняВПериоде = 0 По ЧислоДнейВПериоде Цикл
        ДатаЗапросаНачалоДня = НачалоДня(ДатаНачалаПериода + НомерДняВПериодеЭкспорта * (60*60*24));
        ДатаЗапросаКонецДня      = КонецДня(ДатаНачалаПериода + НомерДняВПериодеЭкспорта * (60*60*24));
        
        лЗапрос.УстановитьПараметр("ГраницаИнтервалаКонецДня", Новый Граница(ДатаЗапросаНачалоДня , ВидГраницы.Включая));
        лЗапрос.УстановитьПараметр("ГраницаИнтервалаНачалоДня", Новый Граница(ДатаЗапросаКонецДня , ВидГраницы.Включая));

            лЗапрос.УстановитьПараметр("массивНоменклатуры", <задаем номенклатуру запроса>);
            лТЗнДанныеПредварительно = лЗапрос.Выполнить().Выгрузить();
            
            Если тзнДанные.Колонки.Количество() = 0 Тогда
                // формируем набор данных
                тзнДанные = лТЗнДанныеПредварительно.СкопироватьКолонки();
                тзнДанные.Очистить();
                тзнДанные.Колонки.Добавить("ДатаПериод"); // период остатков
            КонецЕсли;
            
            // досчитываем данные и дополняем общую таблицу набора данных
            Для Каждого лСтрокаИсточник Из лТЗнДанныеПредварительно Цикл
                лСтрокаПриемник = тзнДанные.Добавить();
                ЗаполнитьЗначенияСвойств(лСтрокаПриемник, лСтрокаИсточник);
                лСтрокаПриемник.ДатаПериод= Формат(ДатаЗапросаКонецДня, "ДЛФ=Д");
            КонецЦикла;
            
            лТЗнДанныеПредварительно.Очистить();
            
        КонецЦикла;

тзнРезультат = Новый ТаблицаЗначений;
тзнРезультат.Колонки.Добавить("Номенклатура");
тзнРезультат.Колонки.Добавить("ЧислоДнейНаОстатках");

Для НомерДняВПериоде = 0 По ЧислоДнейВПериоде Цикл
  ДеньПериода = КонецДня(ДатаНачалаПериода + НомерДняВПериодеЭкспорта * (60*60*24));
  

  Для Каждого элементМассива Из массивНоменклатуры Цикл
    найденнаяСтрокаНоменклатуры = тзнРезультат.Найти(элементМассива.Значение, "Номенклатура");
    Если найденнаяСтрокаНоменклатуры = Неопределено Тогда
      найденнаяСтрокаНоменклатуры = тзнРезультат.Добавить();
      найденнаяСтрокаНоменклатуры.Номенклатура = элементМассива.Значение;
      найденнаяСтрокаНоменклатуры.ЧислоДнейНаОстатках = 0;
  КонецЕсли;

    массивДанных = тзнДанные.НайтиСтроки(Новый Структура("Номенклатура, ДеньПериод", элементМассива.Значение, ДеньПериода ));
    Если массивДанных.Количество() = 0 Тогда
      // нет остатков за этот день
      Продолжить;
 КонецЕсли;

      найденнаяСтрокаНоменклатуры.ЧислоДнейНаОстатках = найденнаяСтрокаНоменклатуры.ЧислоДнейНаОстатках + 1;
   
  КонецЦикла;
КонецЦикла;