Количество дней с наличием номенклатуры

НачДата = КонДата-30;
ТекстЗапроса = "
|Период с НачДата по КонДата;
|Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура;
|Количество = Регистр.ОстаткиТМЦ.Количество;
|Функция КоличествоКонОст=КонОст(Количество);
|Группировка Номенклатура;
|Группировка День Все ВошедшиеВЗапрос;";
Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда
  Пока Запрос.Группировка(1) = 1 Цикл
    ВозрастОстатка = 0;
    Пока Запрос.Группировка(1,-1) = 1 Цикл
      Если Запрос.КоличествоКонОст < 5 Тогда
        Прервать;
      КонецЕсли;
      ВозрастОстатка = ВозрастОстатка + 1;
    КонецЦикла;
    Таб.ВывестиСекцию(...)
  КонецЦикла;
КонецЕсли;