Дни рождений сотрудников для Альфа-авто



Удобное напоминание о днях рождения сотрудников вашей компании.

Простенькая обработка выводит дни рождения вперед на 14 дней. И показывает их.

Данные берет из Справочники, Сотрудники, поле «Дата рождения».

Код открыт имеется склонение фио сотрудников.

Должна работать в любой альфе старше 4.1.0.10.

Пожелания по доработке приветсвуются.

4 Comments

  1. intersat

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

    Reply
  2. jONES1979

    Сейчас заценим на версии 4.1.0.20! Спасибо! 😉

    Reply
  3. jONES1979

    Ну собственно, всё работает. Понравилась функция возвращающая ФИО в падежах, раньше не видел такого. 🙂

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

    + Может быть макрос добавляющий периодический вызов формы через механизм альфы «напоминания», раз в неделю там или раз в месяц. Или ещё каким-то путём. (Я пока не разбираюсь в альфе настолько, чтобы предложить 100% работающий способ)

    Reply
  4. bulas

    На сегодняшний день надо добавить 2 строки кода, после цикла Выборки:

    Пока Выборка.Следующий() Цикл
    Строка = ТабличноеПолеДанных.Добавить();
    Строка.Информация = «Поздравить «+глПадеж(Выборка.Наименование)+» с днем рождения, он родился «+Формат(Выборка.ДатаРождения,»ДЛФ=dd.MM»)+» «;
    КонецЦикла;
    
    //ДОБАВИТЬ
    ЭлементыФормы.ТабличноеПолеДанных.Значение = ТабличноеПолеДанных;
    ЭлементыФормы.ТабличноеПолеДанных.СоздатьКолонки();
    //
    

    Показать

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *