Объединение двух периодических регистров (запрос или алгоритм)

Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
|	ДАТАВРЕМЯ(2014, 4, 1) КАК Дата,
|	3 КАК Количество
|ПОМЕСТИТЬ ТаблицаКоличества
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
|	ДАТАВРЕМЯ(2014, 5, 6),
|	4
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
|	ДАТАВРЕМЯ(2014, 5, 18),
|	7
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
|	ДАТАВРЕМЯ(2014, 5, 30),
|	5
|;
|
|////////////////////////////////////////////////////////////­////////////////////
|ВЫБРАТЬ
|	ДАТАВРЕМЯ(2014, 4, 1) КАК Дата,
|	""Отключено"" КАК Состояние
|ПОМЕСТИТЬ ТаблицаСостояний
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
|	ДАТАВРЕМЯ(2014, 5, 2),
|	""Включено""
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
|	ДАТАВРЕМЯ(2014, 5, 8),
|	""Приостановлено""
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
|	ДАТАВРЕМЯ(2014, 5, 18),
|	""Включено""
|;
|
|////////////////////////////////////////////////////////////­////////////////////
|ВЫБРАТЬ
|	ЕСТЬNULL(ТаблицаКоличества.Дата, ТаблицаСостояний.Дата) КАК Дата,
|	ТаблицаКоличества.Количество КАК Количество,
|	ТаблицаСостояний.Состояние КАК Состояние
|ПОМЕСТИТЬ ТаблицаОбщая
|ИЗ
|	ТаблицаКоличества КАК ТаблицаКоличества
|		ПОЛНОЕ СОЕДИНЕНИЕ ТаблицаСостояний КАК ТаблицаСостояний
|		ПО ТаблицаКоличества.Дата = ТаблицаСостояний.Дата
|;
|
|////////////////////////////////////////////////////////////­////////////////////
|ВЫБРАТЬ
|	ТаблицаОбщая.Дата КАК Дата,
|	ТаблицаОбщая.Количество КАК Количество,
|	ТаблицаОбщая.Состояние КАК Состояние,
|	МАКСИМУМ(ТаблицаОбщаяДляКоличества.Дата) КАК ДатаКоличества,
|	МАКСИМУМ(ТаблицаОбщаяДляСостояния.Дата) КАК ДатаСостояния
|ПОМЕСТИТЬ ТаблицаДат
|ИЗ
|	ТаблицаОбщая КАК ТаблицаОбщая
|		ЛЕВОЕ СОЕДИНЕНИЕ ТаблицаОбщая КАК ТаблицаОбщаяДляКоличества
|		ПО (НЕ ТаблицаОбщаяДляКоличества.Количество ЕСТЬ NULL )
|			И ТаблицаОбщая.Дата >= ТаблицаОбщаяДляКоличества.Дата
|		ЛЕВОЕ СОЕДИНЕНИЕ ТаблицаОбщая КАК ТаблицаОбщаяДляСостояния
|		ПО (НЕ ТаблицаОбщаяДляСостояния.Состояние ЕСТЬ NULL )
|			И ТаблицаОбщая.Дата >= ТаблицаОбщаяДляСостояния.Дата
|
|СГРУППИРОВАТЬ ПО
|	ТаблицаОбщая.Дата,
|	ТаблицаОбщая.Количество,
|	ТаблицаОбщая.Состояние
|;
|
|////////////////////////////////////////////////////////////­////////////////////
|ВЫБРАТЬ
|	ТаблицаДат.Дата КАК Дата,
|	ЕстьNULL(ТаблицаДат.Количество, ТаблицаДатДляКоличества.Количество) КАК Количество,
|	ЕстьNULL(ТаблицаДат.Состояние, ТаблицаДатДляСостояния.Состояние) КАК Состояние
|ИЗ
|	ТаблицаДат КАК ТаблицаДат
|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТаблицаДат КАК ТаблицаДатДляКоличества
|		ПО ТаблицаДат.ДатаКоличества = ТаблицаДатДляКоличества.Дата
|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТаблицаДат КАК ТаблицаДатДляСостояния
|		ПО ТаблицаДат.ДатаСостояния = ТаблицаДатДляСостояния.Дата";
РезультатЗапроса = Запрос.Выполнить();

ВЫБРАТЬ
	Колич.Период КАК Даты
ПОМЕСТИТЬ ВТ_Периоды
ИЗ
	РегистрСведений.Колич КАК Колич

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
	СостояниеТаб.Период
ИЗ
	РегистрСведений.Состояние КАК СостояниеТаб
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ВТ_Периоды.Даты
ПОМЕСТИТЬ ВТ_УпорядоченныеПериоды
ИЗ
	ВТ_Периоды КАК ВТ_Периоды

СГРУППИРОВАТЬ ПО
	ВТ_Периоды.Даты
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ВТ_УпорядоченныеПериоды.Даты КАК Даты,
	Колич.Количество,
	СостояниеТаб.Состояние
ПОМЕСТИТЬ ВТ_ПустыеПоля
ИЗ
	ВТ_УпорядоченныеПериоды КАК ВТ_УпорядоченныеПериоды
		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Колич КАК Колич
		ПО ВТ_УпорядоченныеПериоды.Даты = Колич.Период
		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Состояние КАК СостояниеТаб
		ПО ВТ_УпорядоченныеПериоды.Даты = СостояниеТаб.Период
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ВТ_ПустыеПоля.Даты,
	ВТ_ПустыеПоля.Количество,
	ВТ_ПустыеПоля.Состояние,
	МАКСИМУМ(Колич.Период) КАК ПериодКоличества
ПОМЕСТИТЬ ВТ_ДляПодсчетаКоличества
ИЗ
	ВТ_ПустыеПоля КАК ВТ_ПустыеПоля
		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Колич КАК Колич
		ПО ВТ_ПустыеПоля.Даты >= Колич.Период

СГРУППИРОВАТЬ ПО
	ВТ_ПустыеПоля.Даты,
	ВТ_ПустыеПоля.Состояние,
	ВТ_ПустыеПоля.Количество
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ВТ_ДляПодсчетаКоличества.Даты КАК Даты,
	ВТ_ДляПодсчетаКоличества.Состояние,
	ВЫБОР
		КОГДА ВТ_ДляПодсчетаКоличества.Количество ЕСТЬ NULL 
			ТОГДА Колич.Количество
		ИНАЧЕ ВТ_ДляПодсчетаКоличества.Количество
	КОНЕЦ КАК Количество
ПОМЕСТИТЬ ВТ_Количества
ИЗ
	ВТ_ДляПодсчетаКоличества КАК ВТ_ДляПодсчетаКоличества
		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Колич КАК Колич
		ПО ВТ_ДляПодсчетаКоличества.ПериодКоличества = Колич.Период
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ВТ_Количества.Даты,
	ВТ_Количества.Состояние,
	ВТ_Количества.Количество,
	МАКСИМУМ(СостояниеТаб.Период) КАК ПериодСостояния
ПОМЕСТИТЬ ВТ_ДляСостояния
ИЗ
	ВТ_Количества КАК ВТ_Количества
		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Состояние КАК СостояниеТаб
		ПО ВТ_Количества.Даты > СостояниеТаб.Период

СГРУППИРОВАТЬ ПО
	ВТ_Количества.Даты,
	ВТ_Количества.Состояние,
	ВТ_Количества.Количество
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ВТ_ДляСостояния.Даты КАК Даты,
	ВТ_ДляСостояния.Количество,
	ВЫБОР
		КОГДА ВТ_ДляСостояния.Состояние ЕСТЬ NULL 
			ТОГДА СостояниеТаб.Состояние
		ИНАЧЕ ВТ_ДляСостояния.Состояние
	КОНЕЦ КАК Состояние
ИЗ
	ВТ_ДляСостояния КАК ВТ_ДляСостояния
		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Состояние КАК СостояниеТаб
		ПО ВТ_ДляСостояния.ПериодСостояния = СостояниеТаб.Период

УПОРЯДОЧИТЬ ПО
	Даты