Переход на управляемые формы -> такси

первый блин комом но работает

&НаКлиенте
Процедура ПоказыватьПриЗапускеПриИзменении(Элемент)
    ПоказыватьПриЗапускеПриИзмененииНаСервере();
КонецПроцедуры
&НаСервере
Процедура ПоказыватьПриЗапускеПриИзмененииНаСервере()
    ЭлементСправочника = ПараметрыСеанса.ТекущийПользователь.ПолучитьОбъект();
   ЭлементСправочника.ОтчетДниРождения = Элементы.ПоказыватьПриЗапуске;
   Попытка
      ЭлементСправочника.Записать();
   Исключение
   КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    ПриОткрытииНаСервере();
КонецПроцедуры
&НаСервере
Процедура ПриОткрытииНаСервере()
    Если ПараметрыСеанса.ТекущийПользователь.ОтчетДниРождения Тогда
        ПоказыватьПриЗапуске = Истина;
    КонецЕсли;

    Работает = истина;
    Бёздник(ЭтотОбъект.Объект.От, ЭтотОбъект.Объект.До);
КонецПроцедуры

&НаСервере
Процедура Бёздник(От, До)
    ЭтотОбъект.Объект.ТабличнаяЧасть1.Очистить();
    ОдинДень = 60 * 60 * 24;
    Неделя = ОдинДень * 7;
    ДатаНачала = Дата(01,01,0001, 0,00,00);

    //1.Создаём временной интервал

    Если От = ДатаНачала и До = ДатаНачала Тогда
        ДатаОт = НачалоДня(ТекущаяДата() - (Неделя * 1 + ОдинДень));
        ДатаДо = НачалоДня(ТекущаяДата() + (Неделя * 2 + ОдинДень));
    Иначе
        ДатаОт = От;
        ДатаДо = До;
    КонецЕсли;

    ЭтотОбъект.Объект.От = ДатаОт;
    ЭтотОбъект.Объект.До = ДатаДо;

    //2. Запрос справочник физ.лиц получение ФИО и ДР
    Если ЭтотОбъект.Объект.Работает Тогда
        УсловиеРаботает = " И ФизическиеЛица.Работает = истина ";
    Иначе
        УсловиеРаботает = "";
    КонецЕсли;

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


    Запрос.УстановитьПараметр("ДатаОт", ДатаОт);
    Запрос.УстановитьПараметр("ДатаДо", ДатаДо);
    Запрос.УстановитьПараметр("Сегодня", ТекущаяДата());

    Выборка = Запрос.Выполнить().Выгрузить();

    //3. Обработка таблици значений с заполнение графф "ДО" и "С чем"

    Для каждого Элемент из Выборка Цикл
        Текст = "";

        //Сколько осталось дней до даты

        ДоРед = Элемент.До;

        Если ДоРед < 0 Тогда
            Прошло = Истина;
            ДоРед = - ДоРед;
        Иначе
            Прошло = Ложь;
        КонецЕсли;

        ДнейДо = ДоРед;

        Если ДоРед > 20 Тогда
            ДоРед = ДоРед - 10;
            Пока ДоРед > 10 Цикл
             ДоРед = Доред - 10;
            КонецЦикла;
        КонецЕсли;

            Если ДоРед = 0 Тогда
                Текст = "Сегодня поздравляем с ";
            ИначеЕсли ДоРед = 1  Тогда
                Если Прошло Тогда
                    Текст = "Вчера поздравляли с ";
                Иначе
                    Текст = "Завтра поздравляем с ";
                КонецЕсли;
            ИначеЕсли ДоРед > 1 и ДоРед < 5 Тогда
                Текст = Строка(ДнейДо)+ " дня";
            Иначе
                Текст = Строка(ДнейДо)+ " дней";
            КонецЕсли;

            Если ДоРед > 1 тогда
                Если Прошло Тогда
                    Текст = Текст + " назад позравляли с ";
                Иначе
                    Текст = "Через " + Текст + " поздравим с ";
                КонецЕсли;
            КонецЕсли;

        //С чем поздравляем
        Если (Элемент.СЧем / 5) % 1 = 0 Тогда
            Текст = Текст + Строка(Элемент.СЧем) + " летним юбилеем";
            Элемент.Юбилей = Истина;
        Иначе
            Текст = Текст + Строка(Элемент.СЧем) + " летием";
        КонецЕсли;

        //Заполним текстовое поле
        Элемент.ДоДня = Текст;

    КонецЦикла;

    //4. Загрузка значений в таблицу формы
    //обЗагрузитьВТаблицуЗначений(Выборка, ЭтотОбъект.Объект.ТабличнаяЧасть1);

    СоответствиеКолонок = Неопределено;
    Для каждого СтрокаТаблицыИсточника Из Выборка Цикл
        СтрокаТаблицыПриемника = ЭтотОбъект.Объект.ТабличнаяЧасть1.Добавить();
        ЗаполнитьЗначенияСвойств(СтрокаТаблицыПриемника, СтрокаТаблицыИсточника);
        // Для несовпадающих колонок - заполним из соответствия.
        Если СоответствиеКолонок <> Неопределено Тогда
            Для каждого Колонка Из СоответствиеКолонок Цикл
                СтрокаТаблицыПриемника[Колонка.Ключ] = СтрокаТаблицыИсточника[Колонка.Значение];
            КонецЦикла;
        КонецЕсли;
    КонецЦикла;

    //5. Цветастость
    Для Каждого Строка ИЗ ЭтотОбъект.Объект.ТабличнаяЧасть1 Цикл

        //Если СтрокаТаблицыИсточника.До < 0 Тогда
        //    СтрокаТаблицыПриемника.ЦветТекста = WebЦвета.СветлоРозовый;
        //    СтрокаТаблицыПриемника.ЦветФона = WebЦвета.Белый;
        //ИначеЕсли СтрокаТаблицыИсточника.До = 0 Тогда
        //    СтрокаТаблицыПриемника.ЦветТекста = WebЦвета.Черный;
        //    СтрокаТаблицыПриемника.ЦветФона = WebЦвета.БледноЗеленый;
        //Иначе
        //    СтрокаТаблицыПриемника.ЦветТекста = WebЦвета.ТемноЗеленый;
        //    СтрокаТаблицыПриемника.ЦветФона = WebЦвета.Белый;
        //КонецЕсли;
        //Если СтрокаТаблицыИсточника.Юбилей = Истина Тогда
        //    СтрокаТаблицыПриемника.Шрифт = Новый Шрифт(,,Истина);
        //КонецЕсли;
    КонецЦикла;

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

&НаКлиенте
Процедура Обновить(Команда)
    ОбновитьНаСервере();
КонецПроцедуры
&НаСервере
Процедура ОбновитьНаСервере()
    Бёздник(ЭтотОбъект.Объект.От, ЭтотОбъект.Объект.До);
КонецПроцедуры