Что-то туплю и бьюсь над задачей свдига записей дневника вверх-вниз.

Написал конфу, где веду дневник.
У меня каждая запись имеет дату и время.
Так вот, есть кнопки сдвинуть вперед и назад, которые сдвигают запись дневника  до/после следующей.
Но что-то не очень аккуратный код получается, некрасивый. Как правильно сформировать?
И главное - иногда не срабатывает...

Нюанс в том, что изначально может быть несколько записей с однинаковым временем.
И после сдвига запись не должна уезжать в другую дату.

Может это рекурсивно можно как-то сделать?

Скриншот дневника тут:

https://fixinchik.ru/v-dnevnike-sdelal-fokus-dnya/

Код по сдвигу:

Функция Сдвинуть(Задача, Направление) Экспорт
    //Направление = 1 или -1
    З = Новый Запрос(
    "ВЫБРАТЬ
    |    Дневник.Дата КАК Дата,
    |    Дневник.Дата КАК ИсхДата,
    |    Дневник.Ссылка КАК Задача,
    |    ВЫБОР
    |        КОГДА Дневник.Ссылка = &Задача
    |            ТОГДА ИСТИНА
    |        ИНАЧЕ ЛОЖЬ
    |    КОНЕЦ КАК СтартоваяЗадача,
    |    Дневник.ТочноеВремя КАК ТочноеВремя,
    |    Дневник.БезВремени КАК БезВремени
    |ИЗ
    |    Справочник.Дневник КАК Дневник
    |ГДЕ
    |    Дневник.Дата МЕЖДУ НАЧАЛОПЕРИОДА(&Дата, ДЕНЬ) И КОНЕЦПЕРИОДА(&Дата, ДЕНЬ)
    |    И НЕ Дневник.БезВремени
    |
    |УПОРЯДОЧИТЬ ПО
    |    Дата"
    );
    ИсхДата = Задача.Дата;
    З.УстановитьПараметр("Дата", ИсхДата);
    З.УстановитьПараметр("Задача", Задача);
    ТЗ = З.Выполнить().Выгрузить();
    ТЗ.Колонки.Добавить("Изменения", Новый ОписаниеТипов("Булево"));


    //Убираем одинаковое время
    Всего = ТЗ.Количество();
    Инд = 2;
    Для Инд = 2 По Всего Цикл
        ПредСтрока = ТЗ[Инд - 2];
        Строка = ТЗ[Инд - 1];
        Если Строка.ИсхДата = ПредСтрока.ИсхДата И НЕ Строка.ТочноеВремя Тогда
            Строка.Дата = ПредСтрока.Дата + 1;
        КонецЕсли;

        //Для стартовой меняем с предыдущей
        Если Направление = - 1 И Строка.СтартоваяЗадача Тогда
            Если Строка.ТочноеВремя Тогда
                Если НЕ Предстрока.ТочноеВремя Тогда
                    ПредСтрока.Дата = Строка.Дата + 1;
                КонецЕсли;
            Иначе
                СтрокаДата = Строка.Дата;
                Строка.Дата = ПредСтрока.Дата;
                ПредСтрока.Дата = СтрокаДата;
            КонецЕсли;
        ИначеЕсли Направление = 1 И ПредСтрока.СтартоваяЗадача  Тогда
            Если ПредСтрока.ТочноеВремя  Тогда
                Если НЕ Строка.ТочноеВремя Тогда
                    Строка.Дата = Строка.Дата - 1;
                КонецЕсли;
            Иначе
                СтрокаДата = Строка.Дата;
                Строка.Дата = ПредСтрока.Дата;
                ПредСтрока.Дата = СтрокаДата;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;

    Всего = ТЗ.Количество();
    Инд = 2;
    Для Инд = 2 По Всего Цикл
        ПредСтрока = ТЗ[Инд - 2];
        Строка = ТЗ[Инд - 1];
        Если Строка.Дата = ПредСтрока.Дата И НЕ Строка.ТочноеВремя Тогда
            Строка.Дата = ПредСтрока.Дата + 1;
        КонецЕсли;
    КонецЦикла;



    НачалоДня = НачалоДня(ИсхДата) + 1;
    КонецДня = КонецДня(ИсхДата);

    //Определяем минимальную и максимальную дату
    ПерваяСтрока = ТЗ[0];
    МинДата = ПерваяСтрока.Дата;
    МаксДата = ПерваяСтрока.Дата;
    Для Каждого Строка ИЗ ТЗ Цикл
        Если НЕ Строка.Изменения Тогда
            Продолжить;
        КонецЕсли;
        МинДата = Мин(МинДата, Строка.Дата);
        МаксДата = Макс(МаксДата, Строка.Дата);
    КонецЦикла;

    //Определяем, не вышли ли мы за границу дня
    Дельта = 0;
    Если МинДата < НачалоДня Тогда
        Дельта = НачалоДня - МинДата;
    КонецЕсли;
    Если МаксДата > КонецДня Тогда
        Дельта = МаксДата - КонецДня;
    КонецЕсли;

    Если Дельта <> 0 Тогда
        Для Каждого Строка ИЗ ТЗ Цикл
            Если НЕ Строка.Изменения Тогда
                Продолжить;
            КонецЕсли;
            Строка.Дата = Строка.Дата + Дельта;
            //Проверяем, чтобы дата не изменилась
            Строка.Дата = Мин(Строка.Дата, КонецДня);
            Строка.Дата = Макс(Строка.Дата, НачалоДня);
        КонецЦикла
    КонецЕсли;

    Для Каждого Строка ИЗ ТЗ Цикл
        Если Строка.Дата <> Строка.ИсхДата Тогда
            ОО = Строка.Задача.ПолучитьОбъект();
            ОО.Дата = Строка.Дата;
            ОО.Записать();
        КонецЕсли;
    КонецЦикла;

КонецФункции

Процедура СдвинутьСлуж(ТЗ, ИсхДата, Направление, НужнаПроверка = истина) Экспорт

    РезДата = ИсхДата + Направление;

    КИзменению = Новый Массив();

    Для Каждого Строка ИЗ ТЗ Цикл

        //Пропускаем задачи, которые не надо менять
        Если Строка.БезВремени Тогда
            Строка.Дата = НачалоДня(Строка.ИсхДата); //Без даты - на начало дня
        КонецЕсли;
        Если Строка.ТочноеВремя ИЛИ Строка.БезВремени Тогда
            Продолжить;
        КонецЕсли;

        Если Строка.Дата = ИсхДата Тогда
            Если Не Строка.Изменения Тогда
                КИзменению.Добавить(Строка);
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;

    ЗадачаКОбработке = Неопределено;
    Для Каждого Строка ИЗ КИзменению Цикл
        Строка.Дата = РезДата;


        Если ЗадачаКОбработке = Неопределено
            И (НЕ Строка.СтартоваяЗадача)
        Тогда
            ЗадачаКОбработке = Строка.Задача;
            Строка.Изменения = истина;
        КонецЕсли;

    КонецЦикла;

    Если ЗадачаКОбработке <> Неопределено Тогда
        СдвинутьСлуж(ТЗ, РезДата, Направление, ИСТИНА);
    КонецЕсли;
    Если ЗадачаКОбработке = Неопределено И НужнаПроверка Тогда
        СдвинутьСлуж(ТЗ, РезДата, Направление, ЛОЖЬ);
    КонецЕсли;





КонецПроцедуры