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