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

Отчеты - Разное

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

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

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

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

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

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

12

Скачать файлы

Наименование Файл Версия Размер
ИнформБюро.epf
.epf 7,81Kb
01.08.12
23
.epf 7,81Kb 23 Скачать

См. также

Специальные предложения

Комментарии
Избранное Подписка Сортировка: Древо
1. intersat 01.08.12 22:43 Сейчас в теме
Отличная, удобная обработка. Иногда забываем про дни рождения сотрудников, сейчас такой проблемы уже не будет!
2. jONES1979 17.09.12 07:52 Сейчас в теме
Сейчас заценим на версии 4.1.0.20! Спасибо! ;)
3. jONES1979 17.09.12 08:19 Сейчас в теме
Ну собственно, всё работает. Понравилась функция возвращающая ФИО в падежах, раньше не видел такого. :)

Из пожеланий: доделать уже форму настройки, а то кнопка есть, а формы нет. И чтобы запоминался желаемый диапазон дат выборки.
+ Может быть макрос добавляющий периодический вызов формы через механизм альфы "напоминания", раз в неделю там или раз в месяц. Или ещё каким-то путём. (Я пока не разбираюсь в альфе настолько, чтобы предложить 100% работающий способ)
4. bulas 111 26.11.18 09:10 Сейчас в теме
На сегодняшний день надо добавить 2 строки кода, после цикла Выборки:

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